cwrc ; ;[ 06/25/2002  1:24 PM ]
 Quit
 ;
 ; Invullen korting Royal Crown-klanten
KORTPC 
 Quit
 New
 Do INIT^vhTERMINA
 Set IsLidVan=8197,%LidVan=4,KlKey=0,KLNrSkip=1170
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 .Quit:D_KLNrSkip_D[(D_$P(KlKey," ",2)_D)
 .Set R=^KKL(KlKey,1)
 .Quit:$P(R,D,13)'=IsLidVan
 .Write !,KlKey
 .Set R=^KKL(KlKey,2)
 .Quit:$P(R,D,6)
 .Set $P(R,D,6)=%LidVan,^KKL(KlKey,2)=R
 .Set KLNr=$P(KlKey," ",2),Log=DJ_DM_DD
 .For  Set Log=Log+.0001 Quit:'$D(^DLOG("K","KL",KLNr,Log))
 .Set ^DLOG("K","KL",KLNr,Log)="W\306\\4\"_DT_D_$P(TD," u ")_":"_$P(TD," u ",2)_"\CW\% Commissie\\  -4%\"_boot
 Quit
 ;
 ; Aanpassen statistiek Royal Crown-klanten
KSTKLPR 
 Write !,"Geen wijzigingen aangebracht !!!",!,"Contact opnemen met ChrisW !!!" Quit
 New
 Do INIT^vhTERMINA
 Set IsLidVan=8197,KlKey=0,KLNrSkip=1170
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 .Quit:D_KLNrSkip_D[(D_$P(KlKey," ",2)_D)
 .Set R=^KKL(KlKey,1)
 .Quit:$P(R,D,13)'=IsLidVan
 .Write !,KlKey
 .Set R=^KKL(KlKey,0),KLNr=$P(R,D),R=^KKL(KlKey,2),%LidVan=$P(R,D,6)
 .Quit:'%LidVan
 .Set PRNr=0
 .For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
 ..Set Maand="2001.12 "
 ..For  Set Maand=$O(^KSTKL(KLNr,PRNr,Maand)) Quit:Maand=""  Do
 ...; Aanpassen ^KSTKL
 ...Set R=^KSTKL(KLNr,PRNr,Maand)
 ...Write !!,$ZR,!,R
 ...Set Omzet=$P(R,D,3),Marge=$P(R,D,4)
 ...Set CommNet=Omzet-$J(Omzet*(100-%LidVan/100),0,4)
 ...Set $P(R,D,3)=$P(R,D,3)-CommNet,$P(R,D,4)=$P(R,D,4)-CommNet
 ...Write !,R
 ...Set ^KSTKL(KLNr,PRNr,Maand)=R
 ...Set R=^KSTKL(KLNr,0,Maand)
 ...Write !,$ZR,!,R
 ...Set $P(R,D,3)=$P(R,D,3)-CommNet,$P(R,D,4)=$P(R,D,4)-CommNet
 ...Write !,R
 ...Set ^KSTKL(KLNr,0,Maand)=R
 ...; Aanpassen ^KSTPR
 ...Set R=^KSTPR(PRNr,KLNr,Maand)
 ...Write !!,$ZR,!,R
 ...Set Omzet=$P(R,D,3),Marge=$P(R,D,4)
 ...Set CommNet=Omzet-$J(Omzet*(100-%LidVan/100),0,4)
 ...Set $P(R,D,3)=$P(R,D,3)-CommNet,$P(R,D,4)=$P(R,D,4)-CommNet
 ...Write !,R
 ...Set ^KSTPR(PRNr,KLNr,Maand)=R
 ...Set R=^KSTPR(PRNr,0,Maand)
 ...Write !,$ZR,!,R
 ...Set $P(R,D,3)=$P(R,D,3)-CommNet,$P(R,D,4)=$P(R,D,4)-CommNet
 ...Write !,R
 ...Set ^KSTPR(PRNr,0,Maand)=R
 Quit
 ;
 ; Aanpassen fakturen Royal Crown-klanten
FAKTUREN 
 Write !,"Geen wijzigingen aangebracht !!!",!,"Contact opnemen met ChrisW !!!" Quit
 New
 Do INIT^vhTERMINA
 Set IsLidVan=8197,KlKey=0,KLNrSkip=1170
 For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 .Quit:D_KLNrSkip_D[(D_$P(KlKey," ",2)_D)
 .Set R=^KKL(KlKey,1)
 .Quit:$P(R,D,13)'=IsLidVan
 .Write !,KlKey
 .Set R=^KKL(KlKey,0),KLNr=$P(R,D),R=^KKL(KlKey,2),%LidVan=$P(R,D,6)
 .Quit:'%LidVan
 .Set Date=-$$INTDATE^vhDTyp("31.12.01")
 .For  Set Date=$O(^KFA1("F",KLNr,Date),-1) Quit:Date=""  Do
 ..Set FANr=""
 ..For  Set FANr=$O(^KFA1("F",KLNr,Date,FANr)) Quit:FANr=""  Do
 ...Set BONNr="U"
 ...For  Set BONNr=$O(^KFA("F",FANr,BONNr)) Quit:BONNr=""  Do
 ....Set BLNr=100
 ....For  Set BLNr=$O(^KFA("F",FANr,BONNr,BLNr)) Quit:BLNr=""  Do
 .....Set R=^KFA("F",FANr,BONNr,BLNr),PRNr=$P(R,D,2),Omzet=$P(R,D,34)
 .....Quit:'PRNr  Quit:'Omzet
 .....Write !!,$ZR,!,R
 .....Set CommNet=Omzet-$J(Omzet*(100-%LidVan/100),0,4)
 .....Set $P(R,D,34)=$P(R,D,34)-CommNet
 .....Write !,R
 .....Set ^KFA("F",FANr,BONNr,BLNr)=R
 Quit
 ;
Transfert
 New %J,FANr,R,KLNr,BONNr,BLNr,GBRekNr,PRNr,OmzFact,OmzStat,MPLijn,File,IsRoyalCr
 Set %J=$$%J^vhRtn1()
 Kill ^HULP(%J)
 Set FANr=699999,(Min,Plus)=0
 For  Set FANr=$O(^KFA("F",FANr)) Quit:FANr=""  Quit:FANr>799999  Do
 . Set R=^KFA("F",FANr,0,0),KLNr=$P(R,D),BONNr="U"
 . For  Set BONNr=$O(^KFA("F",FANr,BONNr)) Quit:$E(BONNr)'="U"  Do
 . . Set BLNr=100
 . . For  Set BLNr=$O(^KFA("F",FANr,BONNr,BLNr)) Quit:BLNr=""  Do
 . . . Set R=^KFA("F",FANr,BONNr,BLNr),GBRekNr=$TR($P(R,D)," ","")
 . . . Quit:'GBRekNr
 . . . Set PRNr=$P(R,D,2),OmzFact=$P(R,D,9),OmzStat=$P(R,D,34),MPLijn=''PRNr
 . . . Set R=$G(^HULP(%J,KLNr,FANr,GBRekNr,MPLijn)),$P(R,D)=$P(R,D)+OmzFact,$P(R,D,2)=$P(R,D,2)+OmzStat
 . . . Set ^HULP(%J,KLNr,FANr,GBRekNr,MPLijn)=R
 Set File=$$OPEN^vhDEV(,"RoyalCrown.Txt","NW")
 Do:0'[File
 . Use File
 . Write "KlantNr",$C(9),"Naam",$C(9),"IsRoyalCrown",$C(9),"FactNr",$C(9),"Factdatum",$C(9),"RekeningNr",$C(9),"Man/Prod",$C(9),"FactOmzet",$C(9),"StatOmzet",$C(10)
 . Set KLNr=""
 . For  Set KLNr=$O(^HULP(%J,KLNr)) Quit:KLNr=""  Do
 . . Set IsRoyalCr=$P(^KKL(^KK1(KLNr),1),D,13)=8197
 . . Set FANr=""
 . . For  Set FANr=$O(^HULP(%J,KLNr,FANr)) Quit:FANr=""  Do
 . . . Set GBRekNr=""
 . . . For  Set GBRekNr=$O(^HULP(%J,KLNr,FANr,GBRekNr)) Quit:GBRekNr=""  Do
 . . . . Set MPLijn=""
 . . . . For  Set MPLijn=$O(^HULP(%J,KLNr,FANr,GBRekNr,MPLijn)) Quit:MPLijn=""  Do
 . . . . . Set R=^HULP(%J,KLNr,FANr,GBRekNr,MPLijn)
 . . . . . Write KLNr,$C(9),$P(^KKL(^KK1(KLNr),0),D,2),$C(9),IsRoyalCr,$C(9),FANr,$C(9),$P(^KFA("F",FANr,0,0),D,6),$C(9),GBRekNr,$C(9),$P("M\P",D,MPLijn+1),$C(9),$TR($P(R,D),".",","),$C(9),$TR($P(R,D,2),".",","),$C(10)
 . Close File
 Kill ^HULP(%J)
 Quit
 ;