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)