trigger/a-rsppcd.p

   1 TRIGGER PROCEDURE FOR ASSIGN OF RentalSpace.PropertyCode.
   2
   3 IF RentalSpace.RentalSpaceCode = 0 THEN
   4 DO:
   5   DEF BUFFER LastSpace FOR RentalSpace.
   6   FIND LAST LastSpace WHERE LastSpace.PropertyCode = RentalSpace.PropertyCode NO-LOCK NO-ERROR.
   7   ASSIGN RentalSpace.RentalSpaceCode =
   8     IF AVAILABLE LastSpace THEN LastSpace.RentalSpaceCode + 1 ELSE 1.
   9 END.
  10
  11 /* Only applies if it's leased */
  12 IF RentalSpace.AreaStatus = 'L' THEN DO:
  13   FIND TenancyLease OF RentalSpace EXCLUSIVE-LOCK.
  14   TenancyLease.PropertyCode = RentalSpace.PropertyCode.
  15 END.