#Include Prod.Product
	#include vhLib.Macro
	
TERUGNAME
	S Van=$$CALCDATE^vhDTyp($H,"M",-3,"FD")
	S Tot=+$H
	Set FaktVan=-Van
	Set Datum=-Tot-1
	Set Omzet=0
	;W Datum," ",Van,!
	s t1=$P($H,",",2)
	Set Dev=$$OPEN^vhDEV(,"Terugname.txt","W","T")
	Use Dev
	Write "KLNr	KLNm	Regio	SubDivisie	Order	Bon	Factuur	OrdDat	BonDat	RcpDatBegin	RcpDatEnd	RCPDatInboek	FactDat	#L	#ZonderStock	Omzet	Marge",!
	Set %J=$$%J^vhRtn1()
	Kill ^HULP(%J)
	Set KLNr=""
	For  Set KLNr=$O(^KFA1("F",KLNr)) Quit:KLNr=""  Do
	. Set KLNm=$P(^KKL(^KK1(KLNr),0),D,2)
	. Set Regio=$P(^KKL(^KK1(KLNr),0),D,20)
	. . . Write KLNr,*9,KLNm,*9,Regio,*9,##class(Derde.Klant.Klant).SubDivisieFetch(Regio),*9,##class(Derde.Klant.Klant).DivisieFetch(Regio),*9,ORDNr,*9,$S(I=10&&$LG(lb,5):1,1:"")
 
	. Set Datum="" ; beginnen vanaf vandaag omdat orders van vorige maand ook in facturen van vandaag kunnen zitten
	. For  Set Datum=$O(^KFA1("F",KLNr,Datum)) Quit:Datum=""  Quit:Datum>FaktVan  Do
	. . Set FAKNr=""
	. . For  Set FAKNr=$O(^KFA1("F",KLNr,Datum,FAKNr)) Quit:FAKNr=""  Do
	. . . Set BONNr="U"
	. . . Set ORDNr="" 
	. . . Set ZonderStockAanpassing=0
	. . . Set AantalTerugName=0
	. . . Set (Omzet,OmzetAKP)=0
	. . . Set OrdDat=""
	. . . For  Set BONNr=$O(^KFA("F",FAKNr,BONNr)) Quit:$E(BONNr)'="U"  Do
	. . . . Set BONDat=$$INTDATE^vhDTyp($P(^KFA("F",FAKNr,BONNr,1),D,2),"DK")
	. . . . Set LNr=99
	. . . . For  Set LNr=$O(^KFA("F",FAKNr,BONNr,LNr)) Quit:LNr=""  Do
	. . . . . Set FakRec=^KFA("F",FAKNr,BONNr,LNr)
	. . . . . If $P(FakRec,D,17)="KF5" Do
	. . . . . . Set ORDNr=$P($P(FakRec,D,5)," - ")
	. . . . . . Quit:$D(^HULP(%J,"C",KLNr,ORDNr))
	. . . . . . Set Dat=$$INTDATE^vhDTyp($P($P(FakRec,D,5)," - ",2),"DK")
	. . . . . Else  If ORDNr,$P(FakRec,D,2)?4.7N  Do
	. . . . . . Set PRNr=$P(FakRec,D,2)
	. . . . . . Quit:$P(FakRec,D,3)'<0
	. . . . . . Set AantalTerugName=AantalTerugName+1
	. . . . . . Set:($P(FakRec,D,14)["S")||($P(FakRec,D,14)["Z") ZonderStockAanpassing=ZonderStockAanpassing+1  ;verwerkingstype
	. . . . . . Set Omzet=$P(FakRec,D,34)
	. . . . . . Set OmzetAKP=$P(FakRec,D,33)
	. . . . . . Set:OrdDat="" OrdDat=Dat
	. . . . 
	. . . . Quit:'AantalTerugName
	. . . . ;Zoek BONNr
	. . . . Set RCPNr=""
	. . . . For  Set RCPNr=$O(^RCP("IK",KLNr,RCPNr)) Quit:RCPNr=""  Quit:$D(^RCP("D",RCPNr,"D",+$E(BONNr,2,7)))
	. . . . Set RCPRec=$S(RCPNr:$G(^RCP("D",RCPNr)),1:"")
	. . . . Set RcpDatBegin=$P(RCPRec,D,22)
	. . . . Set RcpDatEnd=$P(RCPRec,D,23)
	. . . . Set RcpDatInboek=$P(RCPRec,D,24)
	. . . . Write KLNr,*9,KLNm,*9,Regio,*9,##class(Derde.Klant.Klant).SubDivisieFetch(Regio),*9,ORDNr,*9,+$E(BONNr,2,7),*9,FAKNr
	. . . . Write *9,$$$ExcelDat(OrdDat),*9,$$$ExcelDat(BONDat),*9,$$$ExcelDat(RcpDatBegin),*9,$$$ExcelDat(RcpDatEnd),*9,$$$ExcelDat(RcpDatInboek),*9,$$$ExcelDat(-Datum)
	. . . . Write *9,AantalTerugName,*9,ZonderStockAanpassing,*9,$$$ExcelNum(Omzet),*9,$$$ExcelNum(Omzet-OmzetAKP)
	. . . . Write !
	Do CLOSE^vhDEV(Dev)
	Quit 
	
	
MDS	Write @F11,@F1,"MDS Productieaantallen - "_QN
	Set FP="2201" Write @F
	Set Van=$$CALCDATE^vhDTyp($H,"M",-12)
	Set Tot=$H
	Set VanMnd=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(Van,"M",-1),"DM4")_" "
	Set TotMnd=$$EXTDATE^vhDTyp(Tot,"DM4")_" "
	Set PRNr=0
	Set Dev=$$OPEN^vhDEV(,"MDS Productieaantallen.txt","W")
	Use Dev
	Write "PRNr	Korttekst	Maand	Aantal	Code	Type	Hoogte	Breedte",!
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Quit:$P(^KPR(PRNr,0),D,3)'=73220 ; niet afgeleid van GEN.HALMDS
	. Set KortTekst=$zcvt($$$PRGet($$$KortTekst),"U")
	. ;Quit:$E(KortTekst,1,3)'="MDS"
	. Set Type=$P(KortTekst,".",3)
	. Set Breedte=+$P($P(KortTekst,".",4),"X",2)
	. Set Hoogte=+$P($P(KortTekst,".",4),"X",1)
	. Set Mnd=VanMnd
	. For Mnd=$O(^KSTPR(PRNr,0,Mnd)) Quit:Mnd=""  Do
	. . Set Dat=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($$INTDATE^vhDTyp(Mnd,"DM"),"M","FD"),"DK")
	. . Set Qty=$P(^KSTPR(PRNr,0,Mnd),D,1)
	. . Quit:Qty<1
	. . Set LevRef=$$$PRGet($$$Leveranciersreferentie)
	. . Set:$L(LevRef)=4 LevRef="<"_LevRef_">"
	. . Write PRNr,*9,KortTekst,*9,Dat,*9,Qty,*9,LevRef,*9,Type,*9,Hoogte,*9,Breedte,!
	Close Dev
	Quit