Index: cwCW.mac.rou =================================================================== diff -u -r1488 -r1568 --- cwCW.mac.rou (.../cwCW.mac.rou) (revision 1488) +++ cwCW.mac.rou (.../cwCW.mac.rou) (revision 1568) @@ -1,44 +1,113 @@ cwCW ; Routines speciaal Chris Willems Quit -kfap - set v=3000,t=$o(^KFAP("F","")),r="" - for set v=$o(^KFAP("F",v)) q:v="" do - . s:r="" r=v - . i v>(t+10) s $p(r,D,2)=t - . s t=v - . i $p(r,D),$p(r,D,2) w !,$j($p(r,D),6),?10,$j($p(r,D,2),6) s r="" - quit - ; - ; -bs - New MPRNr,MCount - Set MPRNr="",MCount=0 - For Set MPRNr=$O(^PRBS("BS",MPRNr)) Quit:MPRNr="" Do - . Set MCount=MCount+1 - . If '(MCount#1000) Write !,$J(MCount,6)," producten verwerkt" - . Do bso(MPRNr) +ConvertR10temR18 + ;Write !,"ConvertR10temR18^cwCW activeren a.u.b.",! Quit + Read "Concersie doorvoeren?",!,"Go[] = Go",!,Go + Quit:Go'="Go" + New KlKey,KLNr,Count + Do ##class(vhDeploy.Deploy20110630x1344).ExecCode() + Set (KlKey,Count)=0 + For Set KlKey=$O(^KKL(KlKey)) Quit:KlKey="" Do + . Set KLNr=$P(^KKL(KlKey,0),D) + . Do ConvertOneR10temR18(KLNr,.Count) + Write !!,"Aantal= ",Count Quit - ; -bso(MPRNr) - Set SamengesteldProduct = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefSamengesteldProduct(MPRNr) - Set KindBouwsteenIterator = SamengesteldProduct.GeefKindBouwsteenIterator() - While (KindBouwsteenIterator.HasNext()) - { - Set KindBouwsteen = KindBouwsteenIterator.Next() - If (KindBouwsteen.GeefID() [ "PROD") - { - Set Rec = ^PRBS("BS",MPRNr,KindBouwsteen.GeefID()) - Do SamengesteldProduct.VerwijderBouwsteen(KindBouwsteen) - set KindBouwsteenNieuw = SamengesteldProduct.VoegToeKindBouwsteen(KindBouwsteen.GeefProduct(),KindBouwsteen.GeefAantal()) - Do SamengesteldProduct.Save() - Set ^PRBS("BS",MPRNr,KindBouwsteenNieuw.GeefID()) = Rec - } - } +ConvertOneR10temR18(KLNr,Count) + New Rec,KlNaam,OldRegio,NewRegio,PostCode + Set Rec=^KKL(^KK1(KLNr),0) + Set OldRegio=$P(Rec,D,20) + If OldRegio>9,OldRegio<19 Do + . Set KlNaam=$P(Rec,D,2),PostCode=$P(Rec,D,6) + . Quit:PostCode'?4N + . Set NewRegio=$$ConvertR10temR18NewRegio(PostCode) + . Quit:OldRegio=NewRegio + . Quit:'NewRegio + . Do MODFIELD^KLANT(KLNr,120,NewRegio) + . Write !,$J(KLNr,5),?10,KlNaam,?40,OldRegio,?50,PostCode,?60,NewRegio + . Set Count=Count+1 Quit - ; +ConvertR10temR18NewRegio(PostCode) + New NewRegio + If PostCode'?4N Set NewRegio="??" + + Else If $E(PostCode,1,3)=850 Set NewRegio=14 + Else If $E(PostCode,1,3)=851 Set NewRegio=14 + Else If $E(PostCode,1,3)=852 Set NewRegio=14 + Else If $E(PostCode,1,3)=853 Set NewRegio=14 + Else If $E(PostCode,1,3)=854 Set NewRegio=14 + Else If $E(PostCode,1,3)=856 Set NewRegio=14 + + Else If $E(PostCode,1,3)=855 Set NewRegio=18 + Else If $E(PostCode,1,3)=857 Set NewRegio=18 + Else If $E(PostCode,1,3)=858 Set NewRegio=18 + Else If $E(PostCode,1,3)=859 Set NewRegio=18 + + Else If $E(PostCode,1,2)=15 Set NewRegio=10 + Else If $E(PostCode,1,2)=16 Set NewRegio=10 + Else If $E(PostCode,1,2)=17 Set NewRegio=10 + Else If $E(PostCode,1,2)=18 Set NewRegio=10 + Else If $E(PostCode,1,2)=19 Set NewRegio=10 + Else If $E(PostCode,1,2)=28 Set NewRegio=10 + Else If $E(PostCode,1,2)=30 Set NewRegio=10 + Else If $E(PostCode,1,2)=31 Set NewRegio=10 + Else If $E(PostCode,1,2)=32 Set NewRegio=10 + Else If $E(PostCode,1,2)=33 Set NewRegio=10 + Else If $E(PostCode,1,2)=34 Set NewRegio=10 + + Else If $E(PostCode,1,2)=91 Set NewRegio=11 + Else If $E(PostCode,1,2)=92 Set NewRegio=11 + Else If $E(PostCode,1,2)=93 Set NewRegio=11 + Else If $E(PostCode,1,2)=94 Set NewRegio=11 + + Else If $E(PostCode,1,2)=20 Set NewRegio=12 + Else If $E(PostCode,1,2)=21 Set NewRegio=12 + Else If $E(PostCode,1,2)=22 Set NewRegio=12 + Else If $E(PostCode,1,2)=26 Set NewRegio=12 + Else If $E(PostCode,1,2)=29 Set NewRegio=12 + Else If $E(PostCode,1,2)=23 Set NewRegio=12 + Else If $E(PostCode,1,2)=24 Set NewRegio=12 + Else If $E(PostCode,1,2)=25 Set NewRegio=12 + + Else If $E(PostCode,1,2)=86 Set NewRegio=14 + Else If $E(PostCode,1,2)=89 Set NewRegio=14 + Else If $E(PostCode,1,2)=88 Set NewRegio=14 + + Else If $E(PostCode,1,2)=35 Set NewRegio=15 + Else If $E(PostCode,1,2)=36 Set NewRegio=15 + Else If $E(PostCode,1,2)=37 Set NewRegio=15 + Else If $E(PostCode,1,2)=38 Set NewRegio=15 + Else If $E(PostCode,1,2)=39 Set NewRegio=15 + + Else If $E(PostCode,1,2)=10 Set NewRegio=16 + Else If $E(PostCode,1,2)=14 Set NewRegio=16 + Else If $E(PostCode,1,2)=13 Set NewRegio=16 + Else If $E(PostCode,1,2)=11 Set NewRegio=16 + Else If $E(PostCode,1,2)=12 Set NewRegio=16 + + Else If $E(PostCode,1,2)=90 Set NewRegio=17 + Else If $E(PostCode,1,2)=95 Set NewRegio=17 + Else If $E(PostCode,1,2)=96 Set NewRegio=17 + Else If $E(PostCode,1,2)=97 Set NewRegio=17 + Else If $E(PostCode,1,2)=98 Set NewRegio=17 + Else If $E(PostCode,1,2)=99 Set NewRegio=17 + + Else If $E(PostCode,1,2)=83 Set NewRegio=18 + Else If $E(PostCode,1,2)=82 Set NewRegio=18 + Else If $E(PostCode,1,2)=80 Set NewRegio=18 + Else If $E(PostCode,1,2)=87 Set NewRegio=18 + Else If $E(PostCode,1,2)=84 Set NewRegio=18 + + Else If $E(PostCode,1,1)=4 Set NewRegio=16 + Else If $E(PostCode,1,1)=5 Set NewRegio=16 + Else If $E(PostCode,1,1)=6 Set NewRegio=16 + Else If $E(PostCode,1,1)=7 Set NewRegio=16 + + Else Set NewRegio="??" + Quit NewRegio + ConvertKlantActiviteit New R,KlKey Set KlKey=0 @@ -136,5 +205,4 @@ Write !,KLNr,?10,KlNaam,?40,OldRegio,?50,NewRegio Do:$L(KlNaam) MODFIELD^KLANT(KLNr,120,NewRegio) Read:KlNaam'=Naam R - Quit - \ No newline at end of file + Quit \ No newline at end of file Index: vhDeploy/Deploy20110630x1344.cls.xml =================================================================== diff -u -r1567 -r1568 --- vhDeploy/Deploy20110630x1344.cls.xml (.../Deploy20110630x1344.cls.xml) (revision 1567) +++ vhDeploy/Deploy20110630x1344.cls.xml (.../Deploy20110630x1344.cls.xml) (revision 1568) @@ -14,37 +14,38 @@ 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 Key-accounts + handel`10`10`KLOPVJODM`KS BE`10`KS```````1043````30" - Set ^RES("KLANT","PI","REGIO","D",11)="9`KS - BE 1 Oost-Vlaanderen + Zeeland`10`10`KLOPVDSM``10````````1121````30" - Set ^RES("KLANT","PI","REGIO","D",12)="10`KS - BE 2 Antwerpen & Kempen`10`10`KLOPVNSL``10````````1017````30" - Set ^RES("KLANT","PI","REGIO","D",14)="11`KS - BE 4 West Vlaanderen`10`10`KLOPVDSM``10````````1089````30" - Set ^RES("KLANT","PI","REGIO","D",15)="12`KS - BE 5 Kempen, Limburg & Vlaams Brabant`10`10`KLOPVNSL``10````````1079````30" - Set ^RES("KLANT","PI","REGIO","D",16)="13`KS - BE 6 Wallonië`10`10`KLOPVAB``10````````53````30" - Set ^RES("KLANT","PI","REGIO","D",17)="14`KS - BE 7 Oost-Vlaanderen`10`10`KLOPVDSM``10````````1042````30" - Set ^RES("KLANT","PI","REGIO","D",19)="15`KS - BE Klant van`10`10`KLOPVJODM``10````````1043````30" - Set ^RES("KLANT","PI","REGIO","D",20)="16`KS - NL handel`20`20`KLOPVVBL`KS NL`10````````1052````1102" - Set ^RES("KLANT","PI","REGIO","D",21)="17`KS - NL 1 Noord-West Nederland`20`20`KLOPVCGI``10````````1064````1102" - Set ^RES("KLANT","PI","REGIO","D",22)="18`KS - NL 2 Zuid-Oost Nederland`20`20`KLOPVCGI``10````````1035````1102" - Set ^RES("KLANT","PI","REGIO","D",23)="19`KS - NL 3 Noord-Oost Nederland`20`20`KLOPVNSL``10````````1056````1102" - Set ^RES("KLANT","PI","REGIO","D",24)="20`KS - NL 4 Zuid-West Nederland`20`20`KLOPVNSL``10````````1041````1102" - Set ^RES("KLANT","PI","REGIO","D",25)="21`KS - NL Centraal Nederland Noord`20`20`KLOPVAB``10````````1034````1102" - Set ^RES("KLANT","PI","REGIO","D",26)="22`KS - NL Key-accounts`20`20`KLOPVAB`KS NL`10````````1034````1102" - Set ^RES("KLANT","PI","REGIO","D",27)="23`KS - NL Centraal Nederland Zuid`20`20`KLOPVCGI``10````````1103````1102" - Set ^RES("KLANT","PI","REGIO","D",29)="24`KS - NL Klant van`20`20`KLOPVJODM``10````````1052````1102" - Set ^RES("KLANT","PI","REGIO","D",30)="25`Architecten BE`1`30`KLOPVJODM``1````````46````30" - Set ^RES("KLANT","PI","REGIO","D",31)="26`Architecten NL`1`30`KLOPVJODM``1````````1052````1102" - Set ^RES("KLANT","PI","REGIO","D",40)="27`Consumenten`1`40`KLOPVKCO``````````1004````30" - Set ^RES("KLANT","PI","REGIO","D",41)="28`Orgalux BE`1`40`KLOPVJRO``````````````30" - Set ^RES("KLANT","PI","REGIO","D",42)="29`Orgalux NL`1`40`KLOPVJRO``````````````1102" - Set ^RES("KLANT","PI","REGIO","D",43)="30`Orgalux Export`1`40`KLOPVBBE``````````````30" + Set ^RES("KLANT","PI","REGIO","D",10)="8`Vlaams Brabant-RVD`10`10`KLOPVJODM`KS BE`10`KS```````1017````30" + Set ^RES("KLANT","PI","REGIO","D",11)="9`O-Vlaanderen-KRO`10`10`KLOPVDSM``10````````1121````30" + Set ^RES("KLANT","PI","REGIO","D",12)="10`Antwerpen (RVD)`10`10`KLOPVNSL``10````````1017````30" + Set ^RES("KLANT","PI","REGIO","D",14)="11`W-Vlaanderen-CVA`10`10`KLOPVDSM``10````````1089````30" + Set ^RES("KLANT","PI","REGIO","D",15)="12`Limburg-PBL`10`10`KLOPVNSL``10````````1079````30" + Set ^RES("KLANT","PI","REGIO","D",16)="13`Wallonie-JBO`10`10`KLOPVAB``10````````53````30" + Set ^RES("KLANT","PI","REGIO","D",17)="14`O-Vlaanderen-DPO`10`10`KLOPVDSM``10````````1042````30" + Set ^RES("KLANT","PI","REGIO","D",18)="15`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" ]]>