Busqueda en LotusScript con Formula de Selección

Ver el tema anterior Ver el tema siguiente Ir abajo

Busqueda en LotusScript con Formula de Selección

Mensaje por JoseRios el 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
avatar
JoseRios

Cantidad de envíos : 39
Edad : 32
Localización : Santiago, Chile
Fecha de inscripción : 25/02/2008

Ver perfil de usuario http://noteroschile.wordpress.com

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.