Shared Action, viste e documenti selezionati
Quello che ho imparato a fare è: inserire un pulsante nella ActionBar di una vista. L’azione che deve essere svolta si deve applicare solo ad un documento (quello selezionato). E’ tutto molto semplice:
Si crea una nuova Action da qua:
Il codice dell’evento click può essere:
Dim sessione As New NotesSession
Dim dbCurrent As NotesDatabase
Dim collDocs As notesdocumentcollection
Dim DocSel As notesdocument
Dim strId As StringOn Error Goto ProcessErrorSet dbCurrent = sessione.CurrentDatabase
Set collDocs = dbCurrent.UnprocessedDocumentsIf collDocs.count = 1 Then
Set docSel = collDocs.getfirstdocument
If Not DocSel Is Nothing Then
strId = docSel.UniversalID
Messagebox("Ecco il mio documento! " & strId)
... faccio tutto quello che devo fare
End If
Else
Messagebox("E necessario selezionare un documento per volta.")
End If
Il comando dbCurrent.UnprocessedDocuments restituisce tutti i documenti “spuntati” in quel momento nella vista (se nessuno è spuntato restituisce comunque quello selezionato).
Ora è sufficiente aggiungere nell’Action Bar della vista l’Action appena creata:
Leave a Reply