Lotus Notes - Generar documentos

   
Vista:

Generar documentos

Publicado por JOSE MANUEL (2 intervenciones) el 23/05/2009 12:26:43
Quiero ir procesando todos los documentos de una vista, donde figuran los nombre y apellidos de las personas y para cada uno ir creando otro documento, con un formulario distinto que sería una carta, para luego imprimirla. Se trata de que en base a un formulario de carta con un texto igual para todas, se les fueran añadiendo los datos variables como nombre y apellidos, dirección, etc. tomando estos datos desde una vista de documentos creados con otro formulario distinto. He intentado con un agente, pero solo me funciona para uno.

Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Generar documentos

Publicado por Salvadro Martinez (5 intervenciones) el 26/05/2009 20:35:41
Dim ses As New notessession
Dim work As New notesuiworkspace
Dim vistaui As notesuiview
Dim vista As notesview
Dim docactual As notesdocument
Dim docCreando As notesdocument
Dim db As notesdatabase
'Creamos lo que necesitamos
Set vistaui = work.CurrentView
Set vista = vistaui.View
Set docactual = vista.GetFirstDocument
Set db = ses.CurrentDatabase 'No se si la tengas en la misma base de datos
'Este ejemplo entiende que tienes la vista en la misma Base de datos
'Fin Creacion
'Barremos la vista
Do While Not docactual Is Nothing
Set docCreando = db.CreateDocument
'Repites esto por los campos que neceistes pasar
docCreando.Form = "NombreDeForma" 'El nombre la otra forma que selecciona la vista
docCreando.CamposALlenar = docactual.CampoAVaciar(0)
'Fin de repetir Repites esto por los campos que neceistes pasar
Call docCreando.Save(fale, False) 'Guardamos el documento en la nueva vista
Set docactual = vista.GetNextDocument(docactual) 'Para no tener un ciclo infrnito =)
Loop
'Acciones a realizar despues de llenar la otra vista con los valores que necesitabas
'Acciones a realizar despues de llenar la otra vista con los valores que necesitabas
'Acciones a realizar despues de llenar la otra vista con los valores que necesitabas
'Acciones a realizar despues de llenar la otra vista con los valores que necesitabas
'Acciones a realizar despues de llenar la otra vista con los valores que necesitabas

Si te marca erroes de compilacion revisalos, porque no tengo en mi maquina el lotus notes, pero si mas no recuerdo asi debe de jalar.

Espero te sirva Salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Generar documentos

Publicado por JOSE MANUEL (2 intervenciones) el 27/05/2009 09:40:46
Muchísimas gracias por tu ayuda. Al ejecutar el código que me enviaste me daba errores, pero con la ayuda de un amigo, he conseguido que me funcione. Así es como ha quedado:

Sub Initialize
Dim ses As New NotesSession
Dim col As NotesDocumentCollection
Dim docactual As notesdocument
Dim docCreando As notesdocument
Dim db As NotesDataBase

Set db = ses.CurrentDatabase
Set col = db.unprocessedDocuments
Set docactual = col.getFirstDocument

Do While Not docactual Is Nothing
Set docCreando = db.CreateDocument
docCreando.Form = "Carta" 'El nombre del formulario a crear
docCreando.Nom = docactual.LastName(0) 'Cada uno de los campos a pasar
docCreando.Dir = docactual.Domicilio(0)
'Fin de repetir Repites esto por los campos que necesites pasar
Call docCreando.Save(False, False) 'Guardamos el documento
Set docactual = col.getNextDocument(docactual)
Loop
'Acciones a realizar después de llenar la otra vista con los valores que necesitabas
End Sub

Una pregunta más y perdona por el abuso: ¿Se podría ir imprimiendo cada uno de los nuevos documentos creados, según se van creando?

Muchas gracias de nuevo

José Manuel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar