Agente en LotusScript que accede a documento y cambia valor de un campo!!!
Publicado por Alejandro (22 intervenciones) el 13/10/2015 13:40:44
Hola a tod@s
soy novato en esto y entre mis mil intentos de entender como funciona Lotus Designer estoy programando una biblioteca!!!
La cuestión es que he notado que no puedo editar un campo si el documento no esta en edición y claro, un usuario no debe poder editar. Por tanto, entiendo que debo crear un agente en LotusScript que acceda al documento y cambie el valor del campo "numEjemplares" para que le reste el valor del libro prestado.
Cuando coloco el agente sobre el WebQueryOpen o WebQuerySave del formulario, me resta el valor del campo siempre que accedo al documento y no debe ser así, de modo que he pensado en colocar el agente en un formulario posterior al que llamo "confirmacion" pero no consigo acceder al documento mediante el lenguaje LotusScript del agente.
Entiendo que el código debería ser algo así???
Un saludo y agradezco cualquier aportación.
soy novato en esto y entre mis mil intentos de entender como funciona Lotus Designer estoy programando una biblioteca!!!
La cuestión es que he notado que no puedo editar un campo si el documento no esta en edición y claro, un usuario no debe poder editar. Por tanto, entiendo que debo crear un agente en LotusScript que acceda al documento y cambie el valor del campo "numEjemplares" para que le reste el valor del libro prestado.
Cuando coloco el agente sobre el WebQueryOpen o WebQuerySave del formulario, me resta el valor del campo siempre que accedo al documento y no debe ser así, de modo que he pensado en colocar el agente en un formulario posterior al que llamo "confirmacion" pero no consigo acceder al documento mediante el lenguaje LotusScript del agente.
Entiendo que el código debería ser algo así???
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim parentDoc As NotesDocument
Dim valor As Integer
Set db = session.CurrentDatabase
Set view = doc.ParentView
Set doc = session.DocumentContext
Set doc = view.GetParentDocument(doc)
valor = Cint(doc.num(0))
valor = valor - 1
doc.num = Cstr(valor)
Un saludo y agradezco cualquier aportación.
Valora esta pregunta
0