trigger/deorder.p

   1 TRIGGER PROCEDURE FOR DELETE OF Order.
   2
   3 IF Order.ApprovedAmount <> 0 AND Order.ApprovedAmount <> ? THEN DO:
   4   FIND ProjectBudget WHERE ProjectBudget.ProjectCode = Order.ProjectCode
   5                      AND ProjectBudget.AccountCode = Order.AccountCode
   6                      EXCLUSIVE-LOCK NO-ERROR.
   7   IF AVAILABLE(ProjectBudget) THEN ASSIGN
   8     ProjectBudget.CommittedBudget = ProjectBudget.CommittedBudget - Order.ApprovedAmount
   9     ProjectBudget.UncommittedBudget = ProjectBudget.UncommittedBudget + Order.ApprovedAmount.
  10 END.