#include Prod.Product
OVERZICHT
	Write @F11,@F1,@FMTI," Baliko overzicht - "_QN," ",@FMTi
	Set FP=2101 Write @F,@F1,"Opbouwen cache inzetten"
	
	Kill Cache
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. ;Quit:$P(^KPR(PRNr,0),D,3)?4.7N ; afgeleid
	. Quit:'$D(^KPR(PRNr,"J5938")) ; Halux
	. Quit:$$IsBox(PRNr)
	. Set Cache($$SORTKEY^PRODUKT(PRNr))=PRNr
	Do WriteFile("INSET")

	Set FP=2101 Write @F,@F1,"Opbouwen cache TA'OR BOX"
	Kill Cache
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. ;Quit:$P(^KPR(PRNr,0),D,3)?4.7N ; afgeleid
	. Quit:'$D(^KPR(PRNr,"J5938")) ; Halux
	. Quit:'$$IsBox(PRNr)
	. Set Cache($$SORTKEY^PRODUKT(PRNr))=PRNr
	Do WriteFile("BOX")
	Quit
	
IsBox(PRNr)
	Quit $$$PRGet($$$Hoofdgroep)["BX"
	
WriteFile(Name)
	Set FP=2101 Write @F,@F1,"Wegschrijven bestand"
	Set Dev=$$OPEN^vhDEV(,"Baliko OutstandingOrders "_Name_".txt","W")
	Use Dev
	Write "IdentNr	LevRef	KortTekst	GGWV	Voorraad	WVVoorraad	Direct Reservatie	Kinderen	Verschil",!
	Set SortKey=""
	For  Set SortKey=$O(Cache(SortKey)) Quit:SortKey=""  Do
	. Set PRNr=Cache(SortKey)
	. Set KT=$P(^KPR(PRNr,0),D,1)
	. Set RecJ=^KPR(PRNr,"J5938")
	. Set LevRef=$P(RecJ,D,3)
	. Set Stock=$P(^KPR(PRNr,0),D,14)
	. Set WVStock=$P($G(^PRSTOCK("D",PRNr)),D,5) 
	. Set Reservatie=$P($P(^KPR(PRNr,2),D,9),"#",1)
	. Set HalfFabr=$P($$VerkoopKinderenORD^PRODUKT4(PRNr),"\")
	. Set CifPPL=$P(RecJ,D,23)
	. Set Verschil=Stock+WVStock-Reservatie-HalfFabr
	. Write $$$PRGet($$$IdentNummer),*9,LevRef,*9,KT,*9,+$$$PRGet($$$GGWeekVerkoop),*9,Stock,*9,$J(WVStock,0,0),*9,Reservatie,*9,$J(HalfFabr,0,0),*9,$J(Verschil,0,0),!
	Close Dev
	Quit