Add a new UserGroupRight to control access to open/close months.

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

TRIGGER PROCEDURE FOR WRITE OF InvoiceLine OLD OldLine.

IF NEW InvoiceLine OR (OldLine.InvoiceNo <> InvoiceLine.InvoiceNo) THEN DO:
  DEF BUFFER LastLine FOR InvoiceLine.
  FIND LAST LastLine NO-LOCK WHERE LastLine.InvoiceNo = InvoiceLine.InvoiceNo NO-ERROR.
  InvoiceLine.LineSeq = (IF AVAILABLE(LastLine) THEN (LastLine.LineSeq + 1) ELSE 1).
END.