Index: vhDeploy/Deploy20110630x1344.cls.xml
===================================================================
diff -u -r1572 -r1588
--- vhDeploy/Deploy20110630x1344.cls.xml	(.../Deploy20110630x1344.cls.xml)	(revision 1572)
+++ vhDeploy/Deploy20110630x1344.cls.xml	(.../Deploy20110630x1344.cls.xml)	(revision 1588)
@@ -14,38 +14,40 @@
 <Implementation><![CDATA[
 	Kill ^RES("KLANT","PI","REGIO","D")
 	
-	Set ^RES("KLANT","PI","REGIO","D",0)="32`Commercieel niet actief`0`0``DIV`Diverse`0`Diverse``````"
+	Set ^RES("KLANT","PI","REGIO","D",0)="34`Commercieel niet actief`0`0``DIV`Diverse`0`Diverse``````"
 	Set ^RES("KLANT","PI","REGIO","D",1)="1`IP - BENELUX Key-accounts`1`1`KLOPVNBR`Industrie`1`Industrie```````20````30"
 	Set ^RES("KLANT","PI","REGIO","D",2)="2`IP - BENELUX 1 (Sr)``1`KLOPVKCO``1````````11````30"
 	Set ^RES("KLANT","PI","REGIO","D",3)="3`IP - BENELUX 2 (Jr1)``1`KLOPVJRO``1````````22````30"
 	Set ^RES("KLANT","PI","REGIO","D",4)="4`IP - BENELUX 3 (Jr2)`10`1`KLOPVJRO``1````````1028````30"
 	Set ^RES("KLANT","PI","REGIO","D",5)="5`IP - EXPORT``1`KLOPVBBE``1````````20````30"
-	Set ^RES("KLANT","PI","REGIO","D",8)="6`Architecten (niet actief -> zie regio 30)`1`1`KLOPVJODM``1````````"
-	Set ^RES("KLANT","PI","REGIO","D",9)="7`Dealers Orgalux`1`1`KLOPVJRO``1````````````30"
-	Set ^RES("KLANT","PI","REGIO","D",10)="8`KS - BE Vlaams Brabant-RVD`10`10`KLOPVJODM`KS BE`10`KS```````1017````30"
-	Set ^RES("KLANT","PI","REGIO","D",11)="9`KS - BE O-Vlaanderen-KRO`10`10`KLOPVDSM``10````````1121````30"
-	Set ^RES("KLANT","PI","REGIO","D",12)="10`KS - BE Antwerpen (RVD)`10`10`KLOPVNSL``10````````1017````30"
-	Set ^RES("KLANT","PI","REGIO","D",14)="11`KS - BE W-Vlaanderen-CVA`10`10`KLOPVDSM``10````````1089````30"
-	Set ^RES("KLANT","PI","REGIO","D",15)="12`KS - BE Limburg-PBL`10`10`KLOPVNSL``10````````1079````30"
-	Set ^RES("KLANT","PI","REGIO","D",16)="13`KS - BE Wallonie-JBO`10`10`KLOPVAB``10````````53````30"
-	Set ^RES("KLANT","PI","REGIO","D",17)="14`KS - BE O-Vlaanderen-DPO`10`10`KLOPVDSM``10````````1042````30"
-	Set ^RES("KLANT","PI","REGIO","D",18)="15`KS - BE W-Vlaanderen-SLE`10`10`KLOPVDSM``10````````1090````30"
-	Set ^RES("KLANT","PI","REGIO","D",19)="16`KS - BE Klant van`10`10`KLOPVJODM``10````````1043````30"
-	Set ^RES("KLANT","PI","REGIO","D",20)="17`KS - NL handel`20`20`KLOPVVBL`KS NL`10````````1052````1102"
-	Set ^RES("KLANT","PI","REGIO","D",21)="18`KS - NL 1 Noord-West Nederland`20`20`KLOPVCGI``10````````1064````1102"
-	Set ^RES("KLANT","PI","REGIO","D",22)="19`KS - NL 2 Zuid-Oost Nederland`20`20`KLOPVCGI``10````````1035````1102"
-	Set ^RES("KLANT","PI","REGIO","D",23)="20`KS - NL 3 Noord-Oost Nederland`20`20`KLOPVNSL``10````````1056````1102"
-	Set ^RES("KLANT","PI","REGIO","D",24)="21`KS - NL 4 Zuid-West Nederland`20`20`KLOPVNSL``10````````1041````1102"
-	Set ^RES("KLANT","PI","REGIO","D",25)="22`KS - NL Centraal Nederland Noord`20`20`KLOPVAB``10````````1034````1102"
-	Set ^RES("KLANT","PI","REGIO","D",26)="23`KS - NL Key-accounts`20`20`KLOPVAB`KS NL`10````````1034````1102"
-	Set ^RES("KLANT","PI","REGIO","D",27)="24`KS - NL Centraal Nederland Zuid`20`20`KLOPVCGI``10````````1103````1102"
-	Set ^RES("KLANT","PI","REGIO","D",29)="25`KS - NL Klant van`20`20`KLOPVJODM``10````````1052````1102"
-	Set ^RES("KLANT","PI","REGIO","D",30)="26`Architecten BE`1`30`KLOPVJODM``1````````46````30"
-	Set ^RES("KLANT","PI","REGIO","D",31)="27`Architecten NL`1`30`KLOPVJODM``1````````1052````1102"
-	Set ^RES("KLANT","PI","REGIO","D",40)="28`Consumenten`1`40`KLOPVKCO``````````1004````30"
-	Set ^RES("KLANT","PI","REGIO","D",41)="29`Orgalux BE`1`40`KLOPVJRO``````````````30"
-	Set ^RES("KLANT","PI","REGIO","D",42)="30`Orgalux NL`1`40`KLOPVJRO``````````````1102"
-	Set ^RES("KLANT","PI","REGIO","D",43)="31`Orgalux Export`1`40`KLOPVBBE``````````````30"
+	Set ^RES("KLANT","PI","REGIO","D",6)="6`IP - EXPORT``1`KLOPVBBE``1````````20````30"
+	Set ^RES("KLANT","PI","REGIO","D",8)="7`Architecten (niet actief -> zie regio 30)`1`1`KLOPVJODM``1````````"
+	Set ^RES("KLANT","PI","REGIO","D",9)="8`Dealers Orgalux`1`1`KLOPVJRO``1````````````30"
+	Set ^RES("KLANT","PI","REGIO","D",10)="9`KS - BE Vlaams Brabant`10`10`KLOPVJODM`KS BE`10`KS```````1017````30"
+	Set ^RES("KLANT","PI","REGIO","D",11)="10`KS - BE O-Vlaanderen-KRO`10`10`KLOPVDSM``10````````1121````30"
+	Set ^RES("KLANT","PI","REGIO","D",12)="11`KS - BE Antwerpen`10`10`KLOPVNSL``10````````1017````30"
+	Set ^RES("KLANT","PI","REGIO","D",14)="12`KS - BE W-Vlaanderen-CVA`10`10`KLOPVDSM``10````````1089````30"
+	Set ^RES("KLANT","PI","REGIO","D",15)="13`KS - BE Limburg`10`10`KLOPVNSL``10````````1079````30"
+	Set ^RES("KLANT","PI","REGIO","D",16)="14`KS - BE Wallonie`10`10`KLOPVAB``10````````53````30"
+	Set ^RES("KLANT","PI","REGIO","D",17)="15`KS - BE O-Vlaanderen-DPO`10`10`KLOPVDSM``10````````1042````30"
+	Set ^RES("KLANT","PI","REGIO","D",18)="16`KS - BE W-Vlaanderen-SLE`10`10`KLOPVDSM``10````````1090````30"
+	Set ^RES("KLANT","PI","REGIO","D",19)="17`KS - BE Klant van`10`10`KLOPVJODM``10````````1043````30"
+	Set ^RES("KLANT","PI","REGIO","D",20)="18`KS - NL handel`20`20`KLOPVVBL`KS NL`10````````1052````1102"
+	Set ^RES("KLANT","PI","REGIO","D",21)="19`KS - NL 1 Noord-West Nederland`20`20`KLOPVCGI``10````````1064````1102"
+	Set ^RES("KLANT","PI","REGIO","D",22)="20`KS - NL 2 Zuid-Oost Nederland`20`20`KLOPVCGI``10````````1035````1102"
+	Set ^RES("KLANT","PI","REGIO","D",23)="21`KS - NL 3 Noord-Oost Nederland`20`20`KLOPVNSL``10````````1056````1102"
+	Set ^RES("KLANT","PI","REGIO","D",24)="22`KS - NL 4 Zuid-West Nederland`20`20`KLOPVNSL``10````````1041````1102"
+	Set ^RES("KLANT","PI","REGIO","D",25)="23`KS - NL Centraal Nederland Noord`20`20`KLOPVAB``10````````1034````1102"
+	Set ^RES("KLANT","PI","REGIO","D",26)="24`KS - NL Key-accounts`20`20`KLOPVAB`KS NL`10````````1034````1102"
+	Set ^RES("KLANT","PI","REGIO","D",27)="25`KS - NL Centraal Nederland Zuid`20`20`KLOPVCGI``10````````1103````1102"
+	Set ^RES("KLANT","PI","REGIO","D",29)="26`KS - NL Klant van`20`20`KLOPVJODM``10````````1052````1102"
+	Set ^RES("KLANT","PI","REGIO","D",30)="27`Architecten vlaanderen`1`30`KLOPVJODM``1````````46````30"
+	Set ^RES("KLANT","PI","REGIO","D",31)="28`Architecten NL`1`30`KLOPVJODM``1````````1052````1102"
+	Set ^RES("KLANT","PI","REGIO","D",32)="29`Architecten NL`1`30`KLOPVJODM``1````````1052````1102"
+	Set ^RES("KLANT","PI","REGIO","D",40)="30`Consumenten`1`40`KLOPVKCO``````````1004````30"
+	Set ^RES("KLANT","PI","REGIO","D",41)="31`Orgalux BE`1`40`KLOPVJRO``````````````30"
+	Set ^RES("KLANT","PI","REGIO","D",42)="32`Orgalux NL`1`40`KLOPVJRO``````````````1102"
+	Set ^RES("KLANT","PI","REGIO","D",43)="33`Orgalux Export`1`40`KLOPVBBE``````````````30"
 ]]></Implementation>
 </Method>
 </Class>
Index: cwCW.mac.rou
===================================================================
diff -u -r1568 -r1588
--- cwCW.mac.rou	(.../cwCW.mac.rou)	(revision 1568)
+++ cwCW.mac.rou	(.../cwCW.mac.rou)	(revision 1588)
@@ -27,6 +27,18 @@
  . Do MODFIELD^KLANT(KLNr,120,NewRegio)
  . Write !,$J(KLNr,5),?10,KlNaam,?40,OldRegio,?50,PostCode,?60,NewRegio
  . Set Count=Count+1
+ If OldRegio=5 Do
+ . Set KlNaam=$P(Rec,D,2),PostCode=$P(Rec,D,6)
+ . Set NewRegio=6 
+ . Do MODFIELD^KLANT(KLNr,120,NewRegio)
+ . Write !,$J(KLNr,5),?10,KlNaam,?40,OldRegio,?50,PostCode,?70,NewRegio
+ . Set Count=Count+1
+ If OldRegio=31 Do
+ . Set KlNaam=$P(Rec,D,2),PostCode=$P(Rec,D,6)
+ . Set NewRegio=32 
+ . Do MODFIELD^KLANT(KLNr,120,NewRegio)
+ . Write !,$J(KLNr,5),?10,KlNaam,?40,OldRegio,?50,PostCode,?70,NewRegio
+ . Set Count=Count+1
  Quit
  
 ConvertR10temR18NewRegio(PostCode)