process/one-off/moveprop.p

   1 DEF VAR old-code AS INT INITIAL 1027 NO-UNDO.
   2 DEF VAR new-code AS INT INITIAL 201 NO-UNDO.
   3 /*
   4 DEF VAR old-code AS INT INITIAL 201 NO-UNDO.
   5 DEF VAR new-code AS INT INITIAL 1035 NO-UNDO.
   6 */
   7
   8 /*FIND Property WHERE Property.PropertyCode = old-code. */
   9
  10 DO TRANSACTION:
  11 /*
  12   FOR EACH RentalSpace OF Property:
  13     RentalSpace.PropertyCode = new-code.
  14   END.
  15   FOR EACH TenancyLease OF Property:
  16     TenancyLease.PropertyCode = new-code.
  17   END.
  18   FOR EACH Tenant WHERE Tenant.EntityCode = old-code:
  19     Tenant.EntityCode = new-code.
  20   END.
  21   FOR EACH PropertyOutgoing WHERE PropertyOutgoing.PropertyCode = old-code:
  22     PropertyOutgoing.PropertyCode = new-code.
  23   END.
  24   FOR EACH AcctTran WHERE AcctTran.EntityType = "P"
  25                       AND AcctTran.EntityCode = old-code:
  26     AcctTran.EntityCode = new-code.
  27   END.
  28   Property.PropertyCode = new-code.
  29 */
  30   FOR EACH AccountBalance WHERE AccountBalance.EntityType = "P"
  31                       AND AccountBalance.EntityCode = old-code:
  32     AccountBalance.EntityCode = new-code.
  33   END.
  34   FOR EACH AccountSummary WHERE AccountSummary.EntityType = "P"
  35                       AND AccountSummary.EntityCode = old-code:
  36     AccountSummary.EntityCode = new-code.
  37   END.
  38 END.