Lotus Notes vista incrustada - Juega con el documento seleccionado
Tenemos mucho manera de utilizar Lotus Notes vista incrustada en forma para el usuario fácil de usar puede niño doc. Digamos que por alguna razón tiene un formulario con una vista incrustada que las listas de un montón de documentos. Que le gustaría marcar uno de los documentos en la vista incrustada y obtener un control de este documento y hacer algo con él. Así es como lo he resuelto (con alguna forma ayudar a los foros de developerWorks de IBM).
Paso 1
En la opinión de que está incrustado en el formulario, agregue el código siguiente fórmula para "Marco de destino (un solo clic)":
@ SetEnvironment ("eViewSelection"; @ Text (@ DocumentUniqueID))
Lo que sucede aquí es que una variable de entorno llamada "eViewSelection" se establece cuando se hace clic en un documento de la vista con el valor de texto del documento de identidad único. Con más detalle lo que significa que se agrega una fila o actualizados en notes.ini que se ve algo como esto:
$ EViewSelection = 00C2635582348362C125737F003C09AD
Paso 2
Cuando en algún otro lugar en el formulario necesario para obtener una bodega del documento (para obtener un valor de ella o enviarla por correo como referencia o algo más), tal vez utilizando LotusScript en un botón, puede acceder a él en primer lugar, obtener el valor de la variable de entorno que se estableció cuando hace clic en el documento de la vista y luego de usarlo. He aquí un ejemplo:
Haga clic en Sub (Source As Button)
On Error GoTo ErrorHandler
Sesión de As NotesSession Nueva
Dim db como NotesDatabase
SelectedDocID As NotesDocument
SelectedDocIDString Dim As String
Set db = session.CurrentDatabase
selectedDocIDString session.GetEnvironmentString = ("$ eViewSelection", False)
Si (selectedDocIDString <> "") Then
Establecer selectedDocID = db.GetDocumentByUNID (selectedDocIDString)
Más
MsgBox "Usted tiene que seleccionar un documento!"
Exit Sub
End If
'Establecer la variable de entorno cadena vacía para estar listo para la próxima ejecución
Llame session.SetEnvironmentVar ("eViewSelection $", "")
Exit Sub
ErrorHandler:
"Registro de errores
Msgbox "Ha ocurrido un error"
Exit Sub
End Sub
Visto 7222 veces por 2224 espectadores
