Added capital works blank section. Synced calling screen.

[capital-apms-progress.git] / trigger / wractgrp.p

TRIGGER PROCEDURE FOR WRITE OF AccountGroup OLD BUFFER OldGroup.

IF OldGroup.AccountGroupCode <> AccountGroup.AccountGroupCode THEN DO:
  FOR EACH ChartOfAccount OF OldGroup:
    ChartOfAccount.AccountGroupCode = AccountGroup.AccountGroupCode.
  END.
END.