PVPVH
#include BL.Derde.KlantSpecifiek
#include BL.Derde.LevSpecifiek
#include Prod.Product
#include vhLib.Macro
	
ALL
	;Do BLUM($$$KlantKeller)
	;Do BLUM($$$KlantBruynzeel)
	Do VH($$$KlantKeller)
	Do VH($$$KlantBruynzeel)
 	Quit
 	
VH(KLNr)
	Set Begin=$$CALCDATE^vhLib.DataTypes($H,"M",-12,"FD")
	Set Einde=$$CALCDATE^vhLib.DataTypes($H,"M",-1,"LD")
	Set Dev=0
	Set Dev=$$OPEN^vhDEV(,"VH"_KLNr_".txt","W","T")
	Use Dev
	Write "KLNr	Sort	PRNr	HG	GRP	IdentNr	KortTekst	FakNr	ULNr	ORDNr	Datum	Aantal	QT	Telbaar",!
	Do VHFact(Begin,Einde,KLNr)
	Do CLOSE^vhDEV(Dev)
	Quit
	
VHFact(Begin,Einde,KLNr)
 Set Dat=""
 For  Set Dat=$O(^KFA1("F",KLNr,Dat)) Quit:Dat=""  Do
 . Set FAKNr=""
 . For  Set FAKNr=$O(^KFA1("F",KLNr,Dat,FAKNr)) Quit:FAKNr=""  Do
 . . Set Rec=^KFA("F",FAKNr,0,0)
 . . Set FakDat=$P(Rec,D,6)
 . . Quit:$P(Rec,D,2)'="F"
 . . Set FakDat2=$$INTDATE^vhLib.DataTypes(FakDat)
 . . Quit:FakDat2>Einde
 . . Quit:FakDat2<Begin
 . . Set ULNr="U"
 . . For  Set ULNr=$O(^KFA("F",FAKNr,ULNr)) Quit:ULNr=""  Do
 . . . Set LNr=100
 . . . Set ORDNr=999999
 . . . For  Set LNr=$O(^KFA("F",FAKNr,ULNr,LNr)) Quit:LNr=""  Do
 . . . . Set FRec=^(LNr)
 . . . . Set Type=$P(FRec,D,17)
 . . . . If Type="KF5" Do ; order hoofding
 . . . . . Set ORDNr=$P($P(FRec,D,5)," - ")
 . . . . Else  Do ; Product
 . . . . . Set PRNr=$P(FRec,D,2)
 . . . . . Set Qty=$P(FRec,D,3)
 . . . . . Quit:PRNr'?4.7N
 . . . . . If $D(^KPR(PRNr)) Do
 . . . . . . Set Rec0=^KPR(PRNr,0)
 . . . . . . Set Rec1=^KPR(PRNr,1)
 . . . . . . Set Rec2=^KPR(PRNr,2)
 . . . . . . Set RecI=^KPR(PRNr,$O(^KPR(PRNr,"I")))
 . . . . . . ;Set SortKey=$$SORTKEY^PRODUKT(PRNr)
 . . . . . Else  If $D(^KPRO(PRNr)) Do 
 . . . . . . Set Rec0=^KPRO(PRNr,0)
 . . . . . . Set Rec1=^KPRO(PRNr,1)
 . . . . . . Set Rec2=^KPRO(PRNr,2)
 . . . . . . Set RecI=^KPRO(PRNr,$O(^KPRO(PRNr,"I")))
 . . . . . Else  Quit
 . . . . . Set SortKey=$P(RecI,D,3)_$$UPTRIMAN^vhRtn1($P(Rec0,D,1))
 . . . . . Set Telbaar=$P(Rec1,D,7)
 . . . . . Write KLNr,*9,SortKey,*9,PRNr,*9,$E($P(RecI,D,1),3,4),*9,$E($P(RecI,D,2),7,9)
 . . . . . write *9,$P(Rec2,D,25),*9,$P(Rec0,D,1),*9,FAKNr,*9,$E(ULNr,2,9),*9,ORDNr,*9,$$$ExcelDat(FakDat2),*9,$$$ExcelNum(Qty),*9,$$$ExcelNum(Qty*Telbaar),*9,$$$ExcelNum(Telbaar),!
 Quit
 
	Quit
 
BLUM(KLNr)
	Set Begin=$$CALCDATE^vhLib.DataTypes($H,"M",-12,"FD")
	Set Einde=$$CALCDATE^vhLib.DataTypes($H,"M",-1,"LD")
	Set Dev=0
	Set Dev=$$OPEN^vhDEV(,"Blum"_KLNr_".txt","W","T")
	Use Dev
	Write "KLNr	Sort	PRNr	HG	GRP	IdentNr	KortTekst	TOENr	Datum",!
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Quit:'$D(^KPR(PRNr,"J"_$$$LevBlum))
	. Quit:$E($$$PRGet($$$IdentNummer),1)'=7 ; Geen DO
	. Do BlumHisto(PRNr,Begin,Einde,KLNr)
	Do CLOSE^vhDEV(Dev)
 
BlumHisto(PRNr,Begin,Einde,KLNr) 
 ;Begin,Einde : $H formaat
 ;Actie : Zie RES(PRHIST,PI,BEPERK)
 ;Magazijn : M = Magazijn, W = Werkvloer, K = Stock over kind, Z = Zonderstock
 ;Cumul, Aantal oproep via .Local (byRef)
 New Key,I,Rec
 Set Begin=$G(Begin)
 Set Einde=$G(Einde,999999)
 Set Magazijn="M"
 Set Actie="U"
 Set Key=""
 Set Cumul="",Aantal=""
 For  Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key=""  Do
 . ;b:PRNr=133228
 . Set Rec=^PRHIST(PRNr,Key)
 . Quit:+$P(Rec,"\")<Begin
 . Quit:+$P(Rec,"\")>Einde
 . Quit:$P(Rec,"\",5)'=Magazijn
 . Quit:$P(Rec,"\",6)'=KLNr
 . Set TOENr=$P(Rec,"\",7)
 . Set Dat=$P(Rec,"\",1)
 . Set Qty=$P(Rec,"\",2)
 . Quit:$P(Rec,"\",4)'=Actie
 . Write KLNr,*9,$$SORTKEY^PRODUKT(PRNr),*9,PRNr,*9,$E($$$PRGet($$$Hoofdgroep),3,4),*9,$E($$$PRGet($$$Groep),7,9)
 . Write *9,$$$PRGet($$$IdentNummer),*9,$$$PRGet($$$KortTekst),*9,TOENr,*9,$$$ExcelDat(Dat),*9,$$$ExcelNum(Qty),!
 Quit