cwMiniFact(GrensWaarde,Maanden)
 ; Default grenswaarde 30 euro
 ; Default maanden 12 (1 jaar)
 New I,R,Dev,KlKey,KLNr,FromDate,ToDate
 Set Dev=$$OPEN^vhDEV(,"MiniFact.TXT","W","A")
 Do:0'[Dev
 . Use Dev
 . Set GrensWaarde=$G(GrensWaarde,30),Maanden=$G(Maanden,12),KlKey=0,FromDate=$$CALCDATE^vhDTyp(,"M",-Maanden,"FD"),ToDate=$$CALCDATE^vhDTyp(,"M",-1,"LD")
 . Write "Klant",$C(9),"Naam",$C(9),"Regio",$C(9),"Subdivisie",$C(9),"Lev voorw",$C(9),"Marge",$C(9)
 . Write "#leverdagen",$C(9),"#leveringen",$C(9),"#lev <"_GrensWaarde,$C(9),"waarde lev <"_GrensWaarde,$C(9),"#lev 1 dag <"_GrensWaarde,$C(9),"waarde lev 1 dag <"_GrensWaarde,$C(9)
 . Write "#facturatiedagen",$C(9),"#facturen",$C(9),"#fact <"_GrensWaarde,$C(9),"waarde fact <"_GrensWaarde,$C(9),"#fact 1 dag <"_GrensWaarde,$C(9),"waarde fact 1 dag <"_GrensWaarde,$C(13)
 . For  Set KlKey=$O(^KKL(KlKey)) Quit:KlKey=""  Do
 . . Set KLNr=$P(KlKey," ",2),R=$$OneCust(KLNr,GrensWaarde,FromDate,ToDate)
 . . Quit:$P(R,D,6)'>0  ; Klant heeft geen positieve marge
 . . For I=1:1:4 Write $P(R,D,I),$C(9)
 . . For I=5:1:$L(R,D) Write $TR($P(R,D,I),".",","),$C($S(I=$L(R,D):13,1:9))
 . Close Dev
 Quit
 
OneCust(KLNr,GrensWaarde,FromDate,ToDate)
 New R,KlNaam,Regio,SubDivisie,LevVw,Marge,FromMonth,ToMonth,IsAfhaling
 ,BONNr,BonCount,BonCountDag,BonCountTotGrens,BonCountDagTotGrens,BonWaarde,BonWaardeDag,BonWaardeDagTotGrens,BonWaardeTotGrens,BLNr,BonDatum,AantLevDagen
 ,FANr,FactCount,FactCountDag,FactCountTotGrens,FactCountDagTotGrens,FactWaarde,FactWaardeDag,FactWaardeDagTotGrens,FactWaardeTotGrens,AantFactDagen
 Set GrensWaarde=$G(GrensWaarde,30),FromDate=$G(FromDate,$$CALCDATE^vhDTyp(,"M",-12,"FD")),ToDate=$G(ToDate,$$CALCDATE^vhDTyp(,"M",-1,"LD"))
 Set FromMonth=$$EXTDATE^vhDTyp(FromDate,"DM4"),ToMonth=$$EXTDATE^vhDTyp(ToDate,"DM4")
 Set R=^KKL(^KK1(KLNr),0),KlNaam=$P(R,D,2),Regio=$P(R,D,20)
 Set R=^KKL(^KK1(KLNr),3),LevVw=$P(R,D,3)
 Set SubDivisie=##Class(Derde.Klant.Klant).SubDivisieFetch(Regio)
 Set Marge=$$KLANT^STAT(KLNr,,FromMonth,ToMonth,4)
 Set FromDate=-(FromDate-1),ToDate=-ToDate,(AantLevDagen,BonCount,BonCountTotGrens,BonCountDagTotGrens,BonWaardeTotGrens,BonWaardeDagTotGrens)=0
 Set (AantFactDagen,FactCount,FactCountTotGrens,FactCountDagTotGrens,FactWaardeTotGrens,FactWaardeDagTotGrens)=0
 For  Set FromDate=$O(^KFA1("F",KLNr,FromDate),-1) Quit:FromDate=""  Quit:FromDate<ToDate  Do
 . Set AantFactDagen=AantFactDagen+1,FANr="",(FactWaardeDag,FactCountDag,BonCountDag)=0
 . For  Set FANr=$O(^KFA1("F",KLNr,FromDate,FANr)) Quit:FANr=""  Do
 . . Quit:$P(^KFA("F",FANr,0,0),D,2)="C"
 . . Set FactCount=FactCount+1,FactCountDag=FactCountDag+1,BONNr="U",FactWaarde=0
 . . For  Set BONNr=$O(^KFA("F",FANr,BONNr)) Quit:$E(BONNr)'="U"  Do
 . . . Set BonCount=BonCount+1,BonWaarde=0,BLNr=99,BonDatum=$$INTDATE^vhDTyp($P(^KFA("F",FANr,BONNr,1),D,2))
 . . . Set IsAfhaling=$P($P($P(^KFA("F",FANr,BONNr,1),D,7),"#")," ")="AFH"
 . . . For  Set BLNr=$O(^KFA("F",FANr,BONNr,BLNr)) Quit:'BLNr  Set R=^KFA("F",FANr,BONNr,BLNr),BonWaarde=BonWaarde+$P(R,D,34)-$P(R,D,33)
 . . . Set FactWaarde=FactWaarde+BonWaarde,BonWaarde(BonDatum)=$G(BonWaarde(BonDatum))+$S(IsAfhaling:0,1:BonWaarde)
 . . . If BonWaarde>0,BonWaarde<GrensWaarde,'IsAfhaling Set BonCountTotGrens=BonCountTotGrens+1,BonWaardeTotGrens=BonWaardeTotGrens+BonWaarde
 . . Set FactWaardeDag=FactWaardeDag+FactWaarde
 . . If FactWaarde>0,FactWaarde<GrensWaarde Set FactCountTotGrens=FactCountTotGrens+1,FactWaardeTotGrens=FactWaardeTotGrens+FactWaarde
 . If FactWaardeDag>0,FactWaardeDag<GrensWaarde Set FactCountDagTotGrens=FactCountDagTotGrens+1,FactWaardeDagTotGrens=FactWaardeDagTotGrens+FactWaardeDag
 Set BonDatum=""
 For  Set BonDatum=$O(BonWaarde(BonDatum)) Quit:BonDatum=""  Do
 . Set AantLevDagen=AantLevDagen+1,BonWaarde=BonWaarde(BonDatum)
 . If BonWaarde,BonWaarde<GrensWaarde Set BonCountDagTotGrens=BonCountDagTotGrens+1,BonWaardeDagTotGrens=BonWaardeDagTotGrens+BonWaarde
 Set R=KLNr_D_KlNaam_D_Regio_D_SubDivisie_D_LevVw_D_Marge
 _D_AantLevDagen_D_BonCount_D_BonCountTotGrens_D_BonWaardeTotGrens_D_BonCountDagTotGrens_D_BonWaardeDagTotGrens
 _D_AantFactDagen_D_FactCount_D_FactCountTotGrens_D_FactWaardeTotGrens_D_FactCountDagTotGrens_D_FactWaardeDagTotGrens
 Quit R