cwCW ; Routines speciaal Chris Willems
 Quit
 
o
 k Omschr
 Set Omschr(1)=##Class(Prod.ProductTekst).GetOmschrijvingViaPRNr(673194,,", ",1)
 w !! zw Omschr w !!!
 Do GETWRAP^vhBIGEDIT("Omschr",27,.Omschr,"G","~","")
 Set Omschr=$P($G(Omschr(1)),"`",5)
 w !,Omschr
 For i=2,3 Do
 . Set Omschr=$P($G(Omschr(i)),"`",5)
 . Quit:Omschr=""
 . w !,Omschr
 q
 
 
Test1
 Set Q="K" Do ^cA604,INIT^vhTERMINA
 Set QU(1)=$$USERID^vhUSER()
 Do RAADPL^PRODUKT(3510,"V")
 Quit
 
Test2
 Set Q="K" Do ^cA604,INIT^vhTERMINA
 Set QU(1)=$$USERID^vhUSER()
 Do RAADPL^KLANT(15605,"V")
 Quit
 
RebuildKU1
	Set KLNr=0
	For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Do
	. Set BONNr=""
	. For  Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr=""  Set ^KU1(BONNr,"F")=KLNr_D
	Quit
	
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
 Set ^RES("KLANT","PI","REGIO","D",31)="28`Architecten wallonie`1`30`KLOPVJODM``1````````1052````1102"
 Quit
 
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
 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)
 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
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . Set R=^KKL(KlKey,0),KLNr=$P(R,D)
 . Do ConvertOneKlantActiviteit(KLNr)
 Quit
 
ConvertOneKlantActiviteit(KLNr)
 New R,KlKey,OldActiviteit,NewActiviteit
 Set KlKey=^KK1(KLNr),R=^KKL(KlKey,0),KlNaam=$P(R,D,2)
 Set R=^KKL(KlKey,1),OldActiviteit=$P(R,D,11)
 Quit:OldActiviteit=""
 Set NewActiviteit=$$NewActiviteit(OldActiviteit)
 Quit:OldActiviteit=NewActiviteit
 Write !,KLNr,?10,KlNaam,?40,OldActiviteit,?55,NewActiviteit
 ;Do MODFIELD^KLANT(KLNr,211,NewActiviteit)
 Quit
 
NewActiviteit(OldActiviteit)
 New NewActiviteit
 If OldActiviteit="Int. algemeen" Set NewActiviteit="Interieurbouw"
 Else  If OldActiviteit="Int. projecten" Set NewActiviteit="Projecten"
 Else  If OldActiviteit="Int. winkelinrichting" Set NewActiviteit="Winkelinrichting"
 Else  If OldActiviteit="Int. kantoor" Set NewActiviteit="Bureau"
 Else  If OldActiviteit="Int. woon&slaap" Set NewActiviteit="Woon-en slaapkamer"
 Else  If OldActiviteit="Showroom" Set NewActiviteit="Meubelhandel"
 Else  Set NewActiviteit=OldActiviteit
 Quit NewActiviteit
 
ConvertR27
 New Dev,Rec,Count
 Write !,"ConvertR27 activeren a.u.b.",! Quit
 Kill ^cwKlantenToR27
 Set Dev=$$OPEN^vhDEV(,"KlantenToR27.txt","R")
 Do:0'[Dev
 . Set Count=0
 . For  Use Dev Read Rec Quit:Rec=""  Do
 . . Set Count=Count+1,^cwKlantenToR27(Count)=Rec
 . Close Dev
 Do ConvertAllToR27
 Kill ^cwKlantenToR27
 Quit
 
ConvertAllToR27
 New Count,Rec,KLNr,Naam,Regio
 For Count=1:1 Set Rec=$G(^cwKlantenToR27(Count)) Quit:Rec=""  Do
 . Set KLNr=$P(Rec,$C(9)),Naam=$P(Rec,$C(9),2),Regio=$P(Rec,$C(9),7)
 . Quit:'KLNr
 . Do ConvertOneToR27(KLNr,Naam,Regio)
 Write !,(Count-1)," klanten aangepast"
 Quit
 
ConvertOneToR27(KLNr,Naam,Regio)
 New R,Rec,KlNaam,OldRegio,NewRegio
 Set NewRegio=27
 If $D(^KK1(KLNr)) Set Rec=^KKL(^KK1(KLNr),0)
 Else  Set Rec=""
 Set KlNaam=$P(Rec,D,2),OldRegio=$P(Rec,D,20)
 Write !,KLNr,?10,KlNaam,?40,OldRegio,?50,Regio,?60,NewRegio
 Do:$L(KlNaam) MODFIELD^KLANT(KLNr,120,NewRegio)
 Read:KlNaam'=Naam R
 Read:OldRegio'=Regio R
 Quit
 
ConvertR23
 New Dev,Rec,KLNr,Count
 Write !,"ConvertR23 activeren a.u.b.",! Quit
 Kill ^cwKlantenR23ToR21
 Set Dev=$$OPEN^vhDEV(,"KlantenFromR23ToR21.txt","R")
 Do:0'[Dev
 . Set Count=0
 . For  Use Dev Read Rec Quit:Rec=""  Do
 . . Set Count=Count+1,^cwKlantenR23ToR21(Count)=Rec
 . Close Dev
 Do ConvertAllToR23
 Kill ^cwKlantenR23ToR21
 Quit
 
ConvertAllToR23
 New Count,Rec,KLNr,Naam
 For Count=1:1 Set Rec=$G(^cwKlantenR23ToR21(Count)) Quit:Rec=""  Do
 . Set KLNr=$P(Rec,$C(9)),Naam=$P(Rec,$C(9),2)
 . Quit:'KLNr
 . Do ConvertOneToR23(KLNr,Naam)
 Write !,(Count-1)," klanten aangepast"
 Quit
 
ConvertOneToR23(KLNr,Naam)
 New R,Rec,KlNaam,OldRegio,NewRegio
 Set NewRegio=21
 If $D(^KK1(KLNr)) Set Rec=^KKL(^KK1(KLNr),0)
 Else  Set Rec=""
 Set KlNaam=$P(Rec,D,2),OldRegio=$P(Rec,D,20)
 Write !,KLNr,?10,KlNaam,?40,OldRegio,?50,NewRegio
 Do:$L(KlNaam) MODFIELD^KLANT(KLNr,120,NewRegio)
 Read:KlNaam'=Naam R
 Quit