cwCW ; Routines speciaal Chris Willems
 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)
 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
	 }
 }
 Quit
 ;
 
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