Lotus Notes vista incorporata - Gioca con il documento selezionato
Ci sono molti modi per utilizzare Lotus Notes vista incorporata in forma per l 'utente può facile da usare bambino doc. Diciamo che per qualche motivo hanno un modulo con una vista incorporata che elenca una serie di documenti. Volete segnare uno dei documenti in vista incorporata e ottenere una presa di questo documento e fare qualcosa con esso. Ecco come ho risolto (con una qualche forma di aiuto nei forum developerWorks di IBM).
Passo 1
Nella vista che è incorporato nel modulo, aggiungere il codice seguente formula per "Frame Target (click singolo)":
@ SetEnvironment ("eViewSelection"; @ Text (@ DocumentUniqueID))
Quello che succede qui è che una variabile di ambiente denominata 'eViewSelection' è impostato quando si fa clic su un documento nella vista con il valore id testo del documento unico. Più in dettaglio questo significa che una riga viene aggiunto o aggiornato in notes.ini che assomiglia a questo:
$ EViewSelection = 00C2635582348362C125737F003C09AD
Passo 2
Quando si da qualche altra parte sul modulo necessario per ottenere una sospensione del documento (per ottenere un valore da esso o per posta come riferimento o altro), magari utilizzando LotusScript su un pulsante, è possibile accedervi dalla prima ottenere il valore della variabile di ambiente che è stato impostato quando si fa clic il documento nella vista e in seguito ad usarlo. Ecco un esempio:
Sub Click (Source As Button)
On Error Goto ErrorHandler
Sessione di As New NotesSession
Db As NotesDatabase
SelectedDocID As NotesDocument
SelectedDocIDString Dim As String
Set db = session.CurrentDatabase
selectedDocIDString session.GetEnvironmentString = ("$ eViewSelection", False)
Se (selectedDocIDString <> "") Then
Set selectedDocID = db.GetDocumentByUNID (selectedDocIDString)
Altro
Msgbox "Devi selezionare un documento!"
Exit Sub
End If
'Imposta la variabile di ambiente a stringa vuota per essere pronti per la prossima esecuzione
Chiama session.SetEnvironmentVar ("eViewSelection $", "")
Exit Sub
ErrorHandler:
'Log degli errori
Msgbox "Errore"
Exit Sub
End Sub
Visto 7267 volte da 2235 spettatori
