Ola pessoal,
que Script posso usar para fazer um agente que delete todos os documentos de uma View?
Posso usar essa:
Dim workspace As New NotesUIWorkspace
Dim view As NotesUIView
Set view = workspace.CurrentView
Messagebox view.ViewName
OU
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim entry As NotesViewEntry
Set db = session.CurrentDatabase
Set view = db.GetView(“By Category”)
Set entry = view.GetEntryByKey(“Inventory”)
Messagebox entry.ChildCount
Qualquer ajuda sera bem-vinda
Obrigado!!
Tathiana
Subject: RE: Script de View
Either way will locate a view. The question is, do you want to delete all documents in the current view, or a specific view (By Category)?Uma ou outra maneira ficará uma View. A pergunta é, você quer suprimir todos os originais na View atual, ou uma View específica (By Category)?
After you get a NotesView object, use NotesView.AllEntries.RemoveAll.
Depois que você começa um objeto de NotesView, use NotesView.AllEntries.RemoveAll.
Subject: Script de View
Esse eh mais util quando utilizado de dentro de uma ação na visao atual:Dim workspace As New NotesUIWorkspace
Dim view As NotesUIView
Set view = workspace.CurrentView
Em agentes, o melhor eh pegar a visao direto do sistema:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set db = session.CurrentDatabase
Set view = db.GetView(“”)
Qualquer um dos dois serve para iniciar uma rotina de deleção de todos os documentos:
Dim doc as NotesDocument
Dim docnext as NotesDocument
Set doc = view.GetLastDocument
while not (doc is Nothing)
Set docnext = view.GetPrevDocument(doc)
doc.Remove(True)
Set doc = docnext
Wend