Este Script se ejecuta sobre los documentos seleccionados de una vista abre un formulario de otra base de datos toma la información ingresada en el Inputbox y la graba en un campo de los documentos seleccionados de la vista toma los campos especificados y genera documentos con el formulario que abrimos según el número de doc seleccionados de la vista.
Sub Initialize
Dim boxType As Long, answer As Integer
Dim NewInv$
NewInv$ = Inputbox("Ingrese el código del Producto")
NewInv$ = NewInv$
If NewInv$<>"" Then
Dim nSes As New NotesSession
Dim nDco As NotesDocumentCollection
Dim nDocSeleccionado As NotesDocument
Dim nDocNuevo As NotesDocument
Dim iCon As Integer
Set nDat = nSes.CurrentDatabase
Set nDco = nDat.Unprocesseddocuments
Set nDat2= New NotesDatabase("", "ventas.nsf" )
For iCon = 1 To nDco.Count
Set nDocSeleccionado = nDco.GetNthDocument( iCon )
Set nDocNuevo = nDat2.CreateDocument
nDocNuevo.Form = "Clients"
nDocNuevo.Name2 = nDocSeleccionado.Name
nDocNuevo.Lastname2 = nDocSeleccionado.Lastname
'. . . . . . Agregar x# de lineas según los campos que se deseen. Del lado
derecho va el nombre del campo donde se copiarán los Datos(ejemp: Name2) y
del lado derecho de donde se traen(ejemp: Name)
nDocNuevo.codart=NewInv$ 'NewInv$ es el valor del Inputbox
Call nDocNuevo.Save( True, True )
Print "Documentos procesados : " & Cstr( iCon )
Next
Else
' A continuación preparamos el mensaje (Messagebox), como queremos que le
aparezca al usuario cuando seleccione CANCELAR o No ingrese ninguna
actividad en el Inputbox
boxType& = 0 + 16 '0= Boton Aceptar + 48= Icono de Exclamación
answer% = Messagebox(" No ingreso ningún producto.", boxType&, _
" * * * Operación Suspendida * * *") 'Titulo del Messagebox
continue = False
'Esta tabla te ayudará definir el icono que quieres mostrar en el Messagebox
' 16 MB_ICONSTOP= Icono de Alto (X en un circulo rojo)
' 32 MB_ICONQUESTION= Icono de pregunta ( ? )
' 48 MB_ICONEXCLAMATION= Icono de (! en un triangulo amarillo)
' 64 MB_ICONINFORMATION= Icono de ( ! )
End If
End Sub
|
Otros documentos de LotusScript
|