Axaptapedia is now maintained by AgileCadence For more information please click here.

Zip codes

From Axaptapedia
Revision as of 05:01, 5 September 2011 by JanKjeldsen (Talk | contribs)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

Sometimes zip codes are used in main tables, but the corresponding zip code does not exist. This could happen after a data conversion!

The following job creates the missing zip codes.

<xpp> static void ZipCodeCreate(Args _args) {

   CustTable CustTable;
   VendTable VendTable;
   Counter zipCreate(AddressMap record)
       AddressZipCode z;
       AddressZipCode ze;
       Counter c;
       while select record
           where record.ZipCode && record.CountryRegionId
           notexists join ze
           where ze.CountryRegionId == record.CountryRegionId &&
                 ze.County          == record.County &&
                 ze.State           == record.State  &&
                 ze.ZipCode         == record.ZipCode
           z.CountryRegionId = record.CountryRegionId;
           z.County          = record.County;
           z.State           = record.State;
           z.ZipCode         = record.ZipCode;
           z.City            = record.City;
       info(strFmt("%1 created from %2", c, tableId2pName(record.TableId)));
       return c;

} </xpp>