Lotus Domino - Agente

   
Vista:

Agente

Publicado por Marcelo Salazar (1 intervención) el 22/07/2011 23:03:05
Hola

Favor me podrían ayudar con este agente, lo que requiero es que me actualice los datos de los campos; no sé en qué parte modificar ya que el agente lo que me permite es crear los campo con los datos.

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim db1 As NotesDatabase
Dim view1 As NotesView
Dim doc1 As NotesDocument
Dim siguiente As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView( "Marcas" )
Set db1 = New NotesDatabase("","\\AplicacionesCR/O=corralrosales\TITULOS RV IEPI.nsf")

Set view1 = db1.GetView( "Mkey" )
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim wdoc As NotesDocument
Set uidoc = workspace.CurrentDocument
Set wdoc = uidoc.Document
Nombre$=wdoc.Nombre (0)
caso$=wdoc.M_Caso(0)
Representante$=wdoc.Representante(0)
Registro$=wdoc.Registro_Num(0)
Fecha$=wdoc.MFech_Registro(0)
num$=wdoc.Num_Solic (0)
Num_CamNombre$=wdoc.Num_CamNombre (0)
MFech_CamNombre$=wdoc.MFech_CamNombre(0)
key$=num$

Set doc1 = view1.GetDocumentByKey( key$, True )
If doc1 Is Nothing Then
Set doc1 = db1.createDocument
'Set doc1 = db1.appendDocument
doc1.form="Marcas"
doc1.Nombre=Nombre$
doc1.M_Caso=caso$
doc1.Representante=Representante$
doc1.Registro_Num=Registro$
doc1.MFech_Registro=Fecha$
doc1.Num_CamNombre=Num_CamNombre$
doc1.MFech_CamNombre=MFech_CamNombre$
doc1.Num_Solic =num$
Call doc1.Save(True,True)
Else
Messagebox " esta marca ya esta creada y no puede duplicar"
End If
End Sub


Saludos


Marcelo Salazar
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