1 UPDATE TABLE "AccountGroup"
\r
2 VALEXP "NOT ( CAN-FIND( FIRST ChartOfAccount WHERE ChartOfAccount.AccountGroupCode = AccountGroup.AccountGroupCode ) )"
\r
3 VALMSG "Cannot delete referenced account group records"
\r
5 ADD FIELD "BusinessNo" OF "Company" AS character
\r
8 LABEL "Registered Business No"
\r