Este agente lo que hace es lo siguiente:
1º.-Pones en un campo editable el NOMBRE
2º.-ejecutas el agente.
3º.-Te busca en la vista que he seleccionado en el agente los demas datos
del cliente y te los coloca en los campos del formulario.
Este agente lo que hace es lo siguiente:
1º.-Pones en un campo editable el NOMBRE
2º.-ejecutas el agente.
3º.-Te busca en la vista que he seleccionado en el agente los demas datos
del cliente y te los coloca en los campos del formulario.
Este es el agente:
Sub Initialize
'JORGE DE BURGOS PIÑA !!!!!!!!
'El siguiente código busca en los documentos de una base de datos y los pega en los campos seleccionados para el mismo formulario
Dim session As New NotesSession
Dim workspace As New NotesUIWorkSpace
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim item As NotesItem
Dim marca As Variant
Dim aux As Variant
Dim salbucl As Variant
Dim validar As Variant
Dim campo (1 To 6) As String 'Nombre de los campos donde cojemos la informacion y donde los pegamos
campo(1) = "DOM"
campo(2) = "CIFDNI"
campo(3) = "POBL"
campo(4) = "TEL"
campo(5) = "C.P"
campo(6) = "PROV"
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
marca = uidoc.FieldGetText("NOM") 'Elemento buscado
Set view = db.GetView("DCLIENTE")
Set doc = view.GetFirstDocument
Set item = doc.GetFirstItem("NOM") 'Cogemos el primer elemento de la vista
salbucl = (Not doc Is Nothing)
While (salbucl)
If marca = item.Text Then 'Comparamos el elemento de la vista con el elemento buscado
'Si lo encuentra recorre el array de campos para rellenar los campos del array
For x = 1 To 6
Set aux = doc.GetFirstItem(campo(x))
Call uidoc.FieldSetText(campo(x),aux.text)
Next
'Caso en el que existan varios documentos con el mismo elemento buscado
validar = Messagebox ("¿Es el documento buscado?", 36,"BUSQUEDA")
If (validar = 6) Then
salbucl = False 'Si pulsamos si nos valida
Else
Set doc = view.GetNextDocument(doc) 'si pulsamos no busca en el siguiente documento
'Si no existen mas documentos termina el programa
If (doc Is Nothing) Then
Messagebox "No existen mas documentos",16,"ERROR"
salbucl = (Not doc Is Nothing)
'si existen mas documentos busca en el siguiente
Else
Set item = doc.GetFirstItem("NOM")
salbucl = (Not doc Is Nothing)
End If
End If
'caso en el que el elemento de la vista no sea igual al elemento buscado
Else
Set doc = view.GetNextDocument(doc)
If (doc Is Nothing) Then
Messagebox "No existen mas documentos",16,"ERROR"
salbucl = (Not doc Is Nothing)
Else
Set item = doc.GetFirstItem("NOM")
salbucl = (Not doc Is Nothing)
End If
End If
Wend
End Sub
|
Otros documentos de LotusScript
|