trigger/wrnactrn.p

   1 TRIGGER PROCEDURE FOR WRITE OF NewAcctTrans.
   2
   3 IF NEW NewAcctTrans THEN
   4 DO:
   5
   6   DEF BUFFER LastTrans FOR NewAcctTrans.
   7   DEF VAR trans-code AS INT NO-UNDO.
   8
   9   FIND LAST LastTrans WHERE
  10     LastTrans.BatchCode    = NewAcctTrans.BatchCode AND
  11     LastTrans.DocumentCode = NewAcctTrans.DocumentCode
  12   NO-LOCK NO-ERROR.
  13
  14   trans-code = IF AVAILABLE LastTrans THEN
  15     LastTrans.TransactionCode + 1 ELSE 1.
  16
  17   ASSIGN NewAcctTrans.TransactionCode = trans-code.
  18
  19 END.