trigger/a-ndcbch.p

   1 TRIGGER PROCEDURE FOR ASSIGN OF NewDocument.BatchCode.
   2
   3 IF NewDocument.DocumentCode > 0 THEN . ELSE
   4 DO:
   5
   6   DEF BUFFER LastDoc FOR NewDocument.
   7   DEF VAR doc-code AS INT NO-UNDO.
   8
   9   FIND LAST LastDoc WHERE LastDoc.BatchCode = NewDocument.BatchCode
  10     NO-LOCK NO-ERROR.
  11
  12   doc-code = IF AVAILABLE LastDoc THEN
  13     LastDoc.DocumentCode + 1 ELSE 1.
  14
  15   ASSIGN NewDocument.DocumentCode = doc-code.
  16
  17 END.