trigger/a-trnamt.p

   1 TRIGGER PROCEDURE FOR ASSIGN OF NewAcctTrans.Amount
   2   OLD VALUE old-amount.
   3
   4 FIND NewDocument OF NewAcctTrans NO-LOCK.
   5 IF NewDocument.DocumentType <> "RCBK" AND NewDocument.DocumentType <> "PYBK" THEN DO:
   6
   7   FIND NewBatch OF NewAcctTrans.
   8
   9   ASSIGN NewBatch.Total = NewBatch.Total +
  10     IF old-amount = 0 THEN NewAcctTrans.Amount ELSE NewAcctTrans.Amount - old-amount.
  11 END.