trigger/cractgrp.p

   1 TRIGGER PROCEDURE FOR CREATE OF AccountGroup.
   2
   3 DO:
   4
   5   DEF BUFFER LastGroup FOR AccountGroup.
   6   DEF VAR sequence-code AS INT NO-UNDO.
   7
   8   FIND LAST LastGroup NO-LOCK NO-ERROR.
   9
  10   sequence-code = IF AVAILABLE LastGroup THEN
  11     LastGroup.SequenceCode + 1 ELSE 1.
  12
  13   AccountGroup.SequenceCode = sequence-code.
  14
  15 END.