1 ON WRITE OF Person
OVERRIDE DO: END.
2 DEF BUFFER AltContact
FOR Contact.
5 /* Warning
: Elegant Code Ahead
!!! */
6 FIND FIRST Contact
OF Person
WHERE CAN-FIND( ContactType
OF Contact
WHERE NOT ContactType.SystemCode
) NO-LOCK NO-ERROR.
7 Person.SystemContact
= NOT AVAILABLE(Contact
).
10 ON WRITE OF Person
REVERT.
