trigger/crtlscde.p

   1 TRIGGER PROCEDURE FOR CREATE OF TenancyLease.
   2
   3 DO:
   4   DEF BUFFER tmp_Lease FOR TenancyLease.
   5
   6   FIND LAST tmp_Lease NO-LOCK NO-ERROR.
   7
   8   ASSIGN TenancyLease.TenancyLeaseCode =
   9     IF AVAILABLE tmp_Lease THEN tmp_Lease.TenancyLeaseCode + 1 ELSE 1.
  10
  11 END.