Otro código dedicado a Charlee
Sub Initialize
Dim ns As New notessession
Dim ndb As notesdatabase
Dim ndcol As notesdocumentcollection
Dim nd As notesdocument
Dim nuiw As New notesuiworkspace
Dim ndnuevo As notesdocument
Set ndb=ns.currentdatabase
Set ndcol=ndb.unprocesseddocuments
Set nd=ndcol.getfirstdocument
Set ndnuevo=New notesdocument(ndb)
ndnuevo.form="beneficiarios"
Set rtitem = New notesrichtextitem(ndnuevo,"Beneficiarios")' Este campo tiene que ser tipo texto enriquecido del nuevo formulario, llamalo como quieras Charlee
For i =1 To ndcol.count
Print "Procesando "&Cstr(i) & "documentos de "&Cstr(ndcol.count)
Call rtitem.Appendtext( nd.nombre(0)+ " "+ nd.sexo(0)+ " "+ nd.edad(0)+ " "+ nd.Lenguaje(0)+" "+nd.vivienda(0))
Call rtitem.AddNewLine(2)
Set nd=ndcol.getnextdocument(nd)
Next
Call ndnuevo.save(True,True)
nuiw.Editdocument False,ndnuevo,True 'abre el documento nuevo
End Sub
|
Otros documentos de LotusScript
|