Busqueda en LotusScript con Formula de Selección

por JoseRios Lun Feb 25, 2008 1:30 pm

Con este script se puede realizar busquedas en LotusScript con una formula de selección.

Código:: On Error Goto oops Dim Session As New NotesSession Dim db As NotesDatabase Dim CollDocEncontrados As NotesDocumentCollection Dim doc As NotesDocument Dim Query As String Dim FechaIncio As NotesDateTime Dim FechaTermino As NotesDateTime Set db = Session.CurrentDatabase Set FechaIncio = New NotesDateTime("16-04-2007") Set FechaTermino = New NotesDateTime("04-06-2007") desde = Cstr(FechaIncio.DateOnly) Hasta = Cstr(FechaTermino.DateOnly) desde = "["+desde+"]" Hasta = "["+Hasta+"]" Query={Form = "Principal" & FechaRegistro >= } & desde & {& FechaRegistro <= } & Hasta Set CollDocEncontrados = db.Search(Query, Nothing,0) Messagebox "Esta es la cantidad de documentos encontrados:"&" "&CollDocEncontrados.Count Exit Sub oops: Messagebox "Ocurrio un error en la linea nº:" & " "& Erl &" "& Error,0+16,"ERROR" Exit Sub