Lotus Notes - Agente en LotusScript que accede a documento y cambia valor de un campo!!!

   
Vista:
Imágen de perfil de Alejandro

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í???

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Agente en LotusScript que accede a documento y cambia valor de un campo!!!

Publicado por ElLobo (53 intervenciones) el 21/10/2015 15:20:06
No CONFUNDIR formulario con documento, el documento siempre se puede escribir.


En el botón del formulario puedes poner

Dim oUIWorkspace as New NotesUIWorkSpace


With oUIWorkspace.CurrentDoucment.Document
.num = Cint( .num(0))
End With

Algo asi.
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