Sub Initialize
Dim session As New notessession
Dim db As notesdatabase
Dim view As notesview
Dim docnext As notesdocument
Set db=session.currentdatabase
Set view=Db.getview("(Historial Codigo)")
Set doc=view.getfirstdocument
While Not(doc Is Nothing)
Set docnext=view.getnextdocument(doc)
If Not (docnext Is Nothing) Then
If
(Trim(docnext.ficha(0))+"*"+Trim(docnext.referencia(0))=Trim(doc.ficha(0))+
"*"+Trim(doc.referencia(0))) Then
Print "El documento Nº Ficha: "+Trim(doc.ficha(0))+"
Referencia: "+Trim(doc.referencia(0))
End If
End If
Set doc=docnext
Wend
End Sub |
Otros documentos de LotusScript
|