IMPOSTAZIONE DELLE APPLICAZIONI

Esempi: Creazione di uno script o una formula per un evento
Visualizzazione di un messaggio quando gli utenti chiudono un documento

Il seguente script dell'evento QueryClose per un modulo visualizza un messaggio quando viene chiuso un documento modificato:

Sub QueryClose(Source As Notesuidocument,ContinueAsVariant
  Dim AreaLavoro As New NotesUIWorkspace
  Dim doc as NotesUIDocument
  Set doc = AreaLavoro.CurrentDocument
  If doc.EditMode Then
     Messagebox("In caso di dubbi, chiamare Pat al x-314.")
  End If
End Sub

Compilazione automatica dei campi

Il seguente script per l'evento Entering compila il campo NomeCompleto concatenando il campo Nome, uno spazio, e Cognome:

Sub Entering(Source As Field)
Dim areaLavoro As New NotesUIWorkspace
Set doc = areaLavoro.CurrentDocument
Cognome = doc.FieldGetText("Nome")
Cognome = doc.FieldGetText("Cognome")
NomeCompleto = Nome & " " & Cognome
Call doc.FieldSetText("NomeCompleto", NomeCompleto)
End Sub

Richiesta di compilazione di un campo

Il seguente script per l'evento Exiting di un campo richiede all'utente di compilare il campo Cognome dopo avere completato il campo Nome:

Sub Exiting
  Dim W As New NotesUIWorkspace
  Dim UIDoc As NotesUIDocument
  Set UIDoc = W.CurrentDocument
  If (UIDoc.FieldGetText ("Cognome") <> "") Then
    UIDoc.GotoField "Nome"
  Else
    UIDoc.GotoField "Cognome"
   Messagebox "Immettere il cognome della persona.", 0, "ERROR"
 End If
End Sub

Vedere anche