1 FIND OfficeControlAccount
NO-LOCK OF Office
2 WHERE OfficeControlAccount.Name
= "{1}" NO-ERROR.
3 IF NOT AVAILABLE(OfficeControlAccount
) THEN DO:
4 MESSAGE "The {1} control account is not set up for" SKIP
5 "the " + Office.Name
+ " office." SKIP(1)
6 "Please ask your system administrator to set it up"
7 VIEW-AS ALERT-BOX ERROR.
10 DEF VAR {2} LIKE OfficeControlAccount.AccountCode
NO-UNDO.
11 {2} = OfficeControlAccount.AccountCode.
