Archivo del sitio

Ejecutar un agente en el servidor desde LotusScript

Hoy quiero dejar brevemente con ustedes un código que puede ser útil en algún desarrollo de aplicaciones lotus notes. Se trata de ejecutar un agente, llamándolo desde otra sección de nuestra plataforma(Formulario, Vista, etc) y ejecutarlo directamente en el servidor. A mi me fue de mucha utilidad para algunos scripts que debían conectarse a As400 y no quería depender de un ODBC configurado en los equipos de los clientes.

En primer lugar, debemos llamar al agente desde nuestra rutina de la siguiente forma:

‘LLAMANDO AL AGENTE
Dim agente As NotesAgent ‘ declaramos el agente
Set agente = db.GetAgent(“ObtieneRepuestosAs400”) ‘ instanciamos el agente
agente.RunOnServer(doc.NoteID) ‘ ejecutamos el agente(El objeto doc debe ser el documento desde donde ejecutamos el agente, esto ‘en cas0 que deseemos refrenciar sus campos en el agente de destino)

‘ASI SE RECIBE EL ID EN EL AGENTE PARA REFERENCIAR AL DOCUMENTO
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim agente As NotesAgent

Set agente = s.CurrentAgent
Set doc = db.GetDocumentByID(agente.ParameterDocID)‘ ahora ya podemos referenciar campos del documento en nuestro agente de ‘destino

A %d blogueros les gusta esto: