trigger/crinvoce.p

   1 TRIGGER PROCEDURE FOR CREATE OF Invoice.
   2
   3 ON ASSIGN OF Invoice.InvoiceNo OVERRIDE DO:
   4   /* nothing */
   5 END.
   6
   7 DO:
   8   DEF BUFFER LastInvoice FOR Invoice.
   9   FIND LAST LastInvoice NO-LOCK NO-ERROR.
  10   Invoice.InvoiceNo = (IF AVAILABLE(LastInvoice) THEN LastInvoice.InvoiceNo + 1 ELSE 1).
  11 END.
  12
  13 ON ASSIGN OF Invoice.InvoiceNo REVERT.