process/one-off/db-chng/change-property-code.p

   1 DEF VAR old-code AS INT NO-UNDO.
   2 DEF VAR new-code AS INT NO-UNDO.
   3 UPDATE old-code, new-code.
   4
   5 FIND FIRST Property WHERE PropertyCode = old-code.
   6 FOR EACH TenancyLease OF Property :
   7   TenancyLease.PropertyCode  = new-code.
   8 END.
   9 FOR EACH RentalSpace OF Property :
  10   RentalSpace.PropertyCode = new-code.
  11 END.
  12 FOR EACH Tenant WHERE EntityType = 'P' AND EntityCode = old-code:
  13   Tenant.EntityCode = new-code.
  14 END.
  15 FOR EACH Valuation :
  16   Valuation.PropertyCode = new-code.
  17 END.
  18
  19 Property.PropertyCode = new-code.
  20