#include Prod.Product
OVERZICHT
	Write @F11,@F1,@FMTI," Baliko overzicht - "_QN," ",@FMTi
	Set FP=2101 Write @F,"Opbouwen 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
	. Set Cache($$SORTKEY^PRODUKT(PRNr))=PRNr
 
	Set FP=2101 Write @F,@F1,"Wegschrijven bestand"
	Set Dev=$$OPEN^vhDEV(,"Baliko Bestelling.txt","W")
	Use Dev
	Write "IdentNr	LevRef	KortTekst	GGWV	Voorraad	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 Reservatie=$P($P(^KPR(PRNr,2),D,9),"#",1)
	. Set HalfFabr=$P($$VerkoopKinderenORD^PRODUKT4(PRNr),"\")
	. Set CifPPL=$P(RecJ,D,23)
	. Set Verschil=Stock-Reservatie-HalfFabr
	. Write $$$PRGet($$$IdentNummer),*9,LevRef,*9,KT,*9,+$$$PRGet($$$GGWeekVerkoop),*9,Stock,*9,Reservatie,*9,$J(HalfFabr,0,0),*9,$J(Verschil,0,0),!
	Close Dev
	Quit