Examples: Events

This LotusScript event executes when a database opens. It opens a particular view depending on the value of the OrgUnit1 part of the user's name.

Sub Postopen(Source As Notesuidatabase)
     Dim session As New NotesSession
     Dim userName As NotesName
     Set userName = session.CreateName(session.UserName)
     Select Case userName.OrgUnit1
     Case "Marketing"
          Call Source.OpenView("Marketing")
     Case "Engineering"
          Call Source.OpenView("Engineering")
     Case Else
          Call Source.OpenView("General")
     End Select
End Sub

This LotusScript event executes before the Engineering view opens. If the OrgUnit1 part of the user's name is not "Engineering," the script displays a message and sets Continue to False so that the view does not open.

Sub Queryopen(Source As Notesuiview, Continue As Variant)
     Dim session As New NotesSession
     Dim userName As NotesName
     Set userName = session.CreateName("session.UserName")
     If userName.OrgUnit1 <> "Engineering" Then
          Continue = False
          Messagebox  _
          "This view is reserved for engineering",, _
          "No admittance"
     End If
End Sub

This LotusScript event executes when the user opens a document. The document goes into Edit mode even if the user doesn't open it that way, the ruler opens, and all sections expand.
```
Sub Postopen(Source As Notesuidocument)
     source.EditMode =  True
     source.Ruler = True
     Call source.ExpandAllSections
End Sub
```
This JavaScript button script alters the value of one of the fields on the associated form. In this example, a document can be assigned a priority rating from 1 to 10, with 1 being the highest priority. The document's priority rating is held in a field called "Priority" on the form. The button "Increase Priority" allows users to increase the priority without the need to edit the field directly. When the button is clicked, the Priority field's value is decreased by 1, assigning it a higher priority rating. The script will not allow a priority of less than 1 to be assigned.
```
//get a handle to the Priority field
var priorityField = document.forms[0].Priority;
//get its current integer value
var currentPriority = parseInt(priorityField.Value);
//increase the priority (1 is the highest, 10 is the lowest)
var newPriority = Math.max(currentPriority -1, 1);
//update the Priority field value
priorityField.value = newPriority;
```

This LotusScript event executes when the user enters the FullName field. The script fills in the FullName field by concatenating the FirstName field, a space, and the LastName field.

Sub Entering(Source As Field)
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.CurrentDocument
     firstName = uidoc.FieldGetText("FirstName")
     lastName = uidoc.FieldGetText("LastName")
     fullName = firstName & " " & lastName
     Call uidoc.FieldSetText("FullName", fullName)
End Sub

This JavaScript event executes when the focus moves away from the field. The script trims the white space from the start and end of the field and then tests whether the value is a valid zip code. If it is invalid, a message is displayed in the status bar and the focus is set back onto the field itself. Note that "trim" and "isValidZipCode" are user-defined functions that must be available from within the onBlur handler.
```
var zipCode = trim(this.value);
if(!isValidZipCode(zipCode)){
  window.status = "Illegal zip code.";
  this.focus();
}
```

This LotusScript event executes when the user exits from the Age field. The script forces the user to enter a numeric value.

Sub Exiting(Source As Field)
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.CurrentDocument
     age = uidoc.FieldGetText("Age")
     If age = "" Or Not Isnumeric(age) Then
          While age = ""
               age = Inputbox _
                    ("Whoa! you must enter an age")
          Wend
          While Not Isnumeric(age)
               age = Inputbox("Age must be numeric")
          Wend
          Call uidoc.FieldSetText("Age", age)
     End If
End Sub

This LotusScript event executes when the user exits from a field. The script sends a mail message to Mary Chen.

Sub Exiting(Source As Field)
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Set db = session.CurrentDatabase
     Dim doc As New NotesDocument(db)
     doc.Form = "Form"
     doc.Subject = "Sales Updated"
     doc.Body = "Sales updated by " & session.UserName
     Call doc.Send(True, "Mary Chen")
End Sub