cwChkRC ; Nazicht omzetten IsLidVan
 Quit
 ;
Factuur
 New R,FANr,KLNr,BONNr
 Set FANr=599999
 For  Set FANr=$O(^KFA("F",FANr)) Quit:FANr>699999  Do
 . Set R=^KFA("F",FANr,0,0),KLNr=$P(R,D),FactuurCode=$P(R,D,2),BONNr="U"
 . Set IsLidVan=$P(^KKL(^KK1(KLNr),1),D,13),%LidVan=$P(^KKL(^KK1(KLNr),2),D,6)
 . If +IsLidVan,'$D(^KK1(+IsLidVan)) Set IsLidVan=""
 . Set:'IsLidVan %LidVan=""
 . 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),RekeningNr=$TR($P(R,D)," ",""),PRNr=$P(R,D,2),Netto=$P(R,D,9),OmzetEUR=$P(R,D,34)
 . . . If "\703000\703001\703002\703003\703004\703005\703006\703100\705000\"'[(D_RekeningNr_D) Quit
 . . . ;If "\703000\703001\703002\703003\703004\703005\703006\705000\"'[(D_RekeningNr_D) Quit
 . . . If FactuurCode="C" Set Netto=-Netto,OmzetEUR=-OmzetEUR
 . . . Set Alles(RekeningNr,"N")=$G(Alles(RekeningNr,"N"))+Netto
 . . . Set Alles(RekeningNr,"E")=$G(Alles(RekeningNr,"E"))+OmzetEUR
 . . . Set Alles("Tot.","N")=$G(Alles("Tot.","N"))+Netto
 . . . Set Alles("Tot.","E")=$G(Alles("Tot.","E"))+OmzetEUR
 . . . Do:%LidVan
 . . . . Set Alles("LidV","N")=$G(Alles("LidV","N"))+Netto
 . . . . Set Alles("LidV","E")=$G(Alles("LidV","E"))+OmzetEUR
 . . . . Set Alles("LidV","%")=$G(Alles("LidV","%"))+(Netto-(Netto*(100-%LidVan/100)))
 . . . If PRNr Do
 . . . . Set Prod(RekeningNr,"N")=$G(Prod(RekeningNr,"N"))+Netto
 . . . . Set Prod(RekeningNr,"E")=$G(Prod(RekeningNr,"E"))+OmzetEUR
 . . . . Set Prod("Tot.","N")=$G(Prod("Tot.","N"))+Netto
 . . . . Set Prod("Tot.","E")=$G(Prod("Tot.","E"))+OmzetEUR
 . . . . Do:%LidVan
 . . . . . Set Prod("LidV","N")=$G(Prod("LidV","N"))+Netto
 . . . . . Set Prod("LidV","E")=$G(Prod("LidV","E"))+OmzetEUR
 . . . . . Set Prod("LidV","%")=$G(Prod("LidV","%"))+(Netto-(Netto*(100-%LidVan/100)))
 . . . Else  Do
 . . . . Set Manueel(RekeningNr,"N")=$G(Manueel(RekeningNr,"N"))+Netto
 . . . . Set Manueel(RekeningNr,"E")=$G(Manueel(RekeningNr,"E"))+OmzetEUR
 . . . . Set Manueel("Tot.","N")=$G(Manueel("Tot.","N"))+Netto
 . . . . Set Manueel("Tot.","E")=$G(Manueel("Tot.","E"))+OmzetEUR
 . . . . Do:%LidVan
 . . . . . Set Manueel("LidV","N")=$G(Manueel("LidV","N"))+Netto
 . . . . . Set Manueel("LidV","E")=$G(Manueel("LidV","E"))+OmzetEUR
 . . . . . Set Manueel("LidV","%")=$G(Manueel("LidV","%"))+(Netto-(Netto*(100-%LidVan/100)))
 Quit
 ;
FactuurNew
 ;New R,FANr,KLNr,BONNr
 Set FANr=599999
 Kill ^HULP($J)
 For  Set FANr=$O(^KFA("F",FANr)) Quit:FANr>699999  Do
 . Set R=^KFA("F",FANr,0,0),KLNr=$P(R,D),FactuurCode=$P(R,D,2),BONNr="U"
 . Set IsLidVan=$P(^KKL(^KK1(KLNr),1),D,13),%LidVan=$P(^KKL(^KK1(KLNr),2),D,6)
 . If +IsLidVan,'$D(^KK1(+IsLidVan)) Set IsLidVan=""
 . Set:'IsLidVan %LidVan=""
 . 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),RekeningNr=$TR($P(R,D)," ",""),PRNr=$P(R,D,2),Netto=$P(R,D,9),Munt=$P(R,D,22),OmzetEUR=$P(R,D,34)
 . . . Quit:'Netto
 . . . Set:'RekeningNr RekeningNr=999999
 . . . ;Write:Munt'="EUR" !,KLNr
 . . . Set LijnType=$S(PRNr:"P",1:"M")
 . . . Set LijnType="M"
 . . . Set R=$G(^HULP($J,FANr,RekeningNr,LijnType)),$P(R,D)=$P(R,D)+Netto,$P(R,D,2)=$P(R,D,2)+OmzetEUR
 . . . Set ^HULP($J,FANr,RekeningNr,LijnType)=R
 Set Dev=$$OPEN^vhDEV(,"Omzet2006.txt","W")
 Use Dev
 Write "KLNr",$C(9),"Rekening",$C(9),"Type",$C(9),"Netto",$C(9),"OmzetEUR",$C(13)
 Set KLNr=""
 For  Set KLNr=$O(^HULP($J,KLNr)) Quit:KLNr=""  Do
 . Set RekeningNr=""
 . For  Set RekeningNr=$O(^HULP($J,KLNr,RekeningNr)) Quit:RekeningNr=""  Do
 . . Set LijnType=""
 . . For  Set LijnType=$O(^HULP($J,KLNr,RekeningNr,LijnType)) Quit:LijnType=""  Do
 . . . Set R=^HULP($J,KLNr,RekeningNr,LijnType),Netto=$P(R,D),OmzetEUR=$P(R,D,2)
 . . . Write KLNr,$C(9),RekeningNr,$C(9),LijnType,$C(9),$TR(Netto,".",","),$C(9),$TR(OmzetEUR,".",","),$C(13)
 Close Dev
 Kill ^HULP($J)
 Quit
 
 
VglKFAmetKVE
 ;New R,FANr,KLNr,BONNr
 Set FANr=599999
 Kill ^HULP($J)
 For  Set FANr=$O(^KFA("F",FANr)) Quit:FANr>699999  Do
 . Set R=^KFA("F",FANr,0,0),KLNr=$P(R,D),FactuurCode=$P(R,D,2),BONNr="U"
 . Set FADat=$P(R,D,6)
 . Set IsLidVan=$P(^KKL(^KK1(KLNr),1),D,13),%LidVan=$P(^KKL(^KK1(KLNr),2),D,6)
 . If +IsLidVan,'$D(^KK1(+IsLidVan)) Set IsLidVan=""
 . Set:'IsLidVan %LidVan=""
 . 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),RekeningNr=$TR($P(R,D)," ",""),PRNr=$P(R,D,2),Netto=$P(R,D,9),Munt=$P(R,D,22),OmzetEUR=$P(R,D,34)
 . . . Quit:'Netto
 . . . Set:'RekeningNr RekeningNr=999999
 . . . Set R=$G(^HULP($J,FANr,RekeningNr)),$P(R,D)=$P(R,D)+Netto,$P(R,D,2)=$P(R,D,2)+OmzetEUR,$P(R,D,3)=KLNr
 . . . Set ^HULP($J,FANr,RekeningNr)=R
 . Set BoekMnd=$$EXTDATE^vhDTyp($$INTDATE^vhDTyp(FADat,"DK"),"DM4")
 . Set FAVent=FANr
 . For  Set FAVent=$O(^KVE(BoekMnd,FAVent)) Quit:FAVent=""  Quit:$P(FAVent,".")'=FANr  Do
 . . Set VentR=^KVE(BoekMnd,FAVent)
 . . For I=1:1:$L(VentR,D) Do
 . . . Set S=$P(VentR,D,I) 
 . . . Quit:S=""
 . . . Set RekeningNr=$TR($P(S,"#",1)," ","")
 . . . Set:'RekeningNr RekeningNr=999999
 . . . Set Bedrag=$P(S,"#",4)
 . . . Quit:'Bedrag
 . . . Set R=$G(^HULP($J,FANr,RekeningNr)),$P(R,D,4)=$P(R,D,4)+Bedrag
 . . . Set ^HULP($J,FANr,RekeningNr)=R
 ;w %J
 ;d ^%G
 
 Set Dev=$$OPEN^vhDEV(,"Omzet2006Vent.txt","W")
 Use Dev
 Write "KLNr",$C(9),"Rekening",$C(9),"Type",$C(9),"Netto",$C(9),"OmzetEUR",$C(9),"Vent",$C(13)
 Set FANr=""
 For  Set FANr=$O(^HULP($J,FANr)) Quit:FANr=""  Do
 . Set RekeningNr=""
 . For  Set RekeningNr=$O(^HULP($J,FANr,RekeningNr)) Quit:RekeningNr=""  Do
 . . Set R=^HULP($J,FANr,RekeningNr),Netto=$P(R,D),OmzetEUR=$P(R,D,2)
 . . Set KLNr=$P(R,D,3),Vent=$P(R,D,4)
 . . Write KLNr,$C(9),FANr,$C(9),RekeningNr,$C(9),$TR(Netto,".",","),$C(9),$TR(OmzetEUR,".",","),$C(9),$TR(Vent,".",","),$C(13)
 Close Dev
 Kill ^HULP($J)
 Quit
 ;