LOTUSSCRIPT/COM/OLE CLASSES
Sub Postrecalc(Source As Notesuidocument) Dim location As String location = source.FieldGetText( "city" ) Select Case location Case "Cambridge" Call source.FieldSetText( "address", "5 Memorial Drive" ) Case "Chicago" Call source.FieldSetText( "address", "44 Diversey Blvd" ) Case "Paris" Call source.FieldSetText( "address", "32 Rue Henri IV" ) End Select End Sub
See Also