#include BL.Derde.KlantSpecifiek
#include Prod.Product
#include vhLib.Macro

ALU
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"ALUPROD.txt","W","T")
 Use Dev
 Set PRNr=0
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . Set oProd=##class(Prod.Product).%OpenId(PRNr)
 . Quit:'$isObject(oProd)
 . If (oProd.ProductGroep="HAL") || (oProd.Klas.HoofdGroep?2N1"AL".1E) Do
 . . Set Omzet=$$PROD^STAT(PRNr,0,"2013.02 ","2014.01 ","3,4")
 . . If Omzet Do
 . . . W PRNr,*9,oProd.KortTekst, *9,oProd.ProductGroep,*9,oProd.Klas.HoofdGroep,*9,$$$ExcelNum($P(Omzet,"\",1)),*9,$$$ExcelNum($P(Omzet,"\",2)),!
 
 Do CLOSE^vhDEV(Dev)
 Quit
 
PVPVH2 ;Statistiek vgl box verkoop en orgalux verkoop [ 11/08/2003   8:27 PM ]
 Set KLNr2=$$$KlantKeller
 Set KLNr=$$$KlantBruynzeel
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,KLNr_KLNr2_".txt","W","T")
 Set BMnd="2009.02 "
 Set EMnd="2010.01 "
 Use Dev
 
 Write "SortKey	BlumID	IDNr	KortTekst"
 If KLNr=$$$KlantKeller Do
 . Write "	QtyK	PrijsK	Kort1K	Kort2K"
 . Write "	QtyB	PrijsB	Kort1B	Kort2B"
 Else  Do
 . Write "	QtyB	PrijsB	Kort1B	Kort2B"
 . Write "	QtyK	PrijsK	Kort1K	Kort2K"
 Write ! 
 
 Set PRNr=0
 For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
 . Set Qty=$$KLANT^STAT(KLNr,PRNr,BMnd,EMnd,1)
 . Quit:Qty<1
 . Set Qty2=$$KLANT^STAT(KLNr2,PRNr,BMnd,EMnd,1)
 . Set PrijsRec=$$KLANTPR^KPRIJS(KLNr,PRNr)
 . Set PrijsRec2=$$KLANTPR^KPRIJS(KLNr2,PRNr)
 . Write $$SORTKEY^PRODUKT(PRNr),*9,$$GetBlumID^BLPROD(PRNr),*9,$$$PRGet($$$IdentNummer),*9,$$$PRGet($$$KortTekst)
 . Write *9,Qty,*9,$$$ExcelNum($P(PrijsRec,"\",1)),*9,$$$ExcelNum($P(PrijsRec,"\",5)),*9,$$$ExcelNum($P(PrijsRec,"\",6))
 . Write *9,Qty2,*9,$$$ExcelNum($P(PrijsRec2,"\",1)),*9,$$$ExcelNum($P(PrijsRec2,"\",5)),*9,$$$ExcelNum($P(PrijsRec2,"\",6))
 . Write !
 Do CLOSE^vhDEV(Dev)
 ; Output: Piece  1 = prijs
 ;        Piece  2 = munt
 ;         Piece  3 = eenheid
 ;         Piece  4 = lijstprijs
 ;         Piece  5 = korting1
 ;         Piece  6 = korting2
	Quit
ALL
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"ALLPROD.txt","W","T")
 Use Dev
 Set PRNr=0
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . W $$$PRGet($$$KortTekst),*9,$$GetBlumID^BLPROD(PRNr),*9,$$$PRGet($$$IdentNummer),*9,$$SORTKEY^PRODUKT(PRNr),!
 
 Do CLOSE^vhDEV(Dev)
 
BXOL
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"BXversusOL.txt","W")
 Use Dev
 Set KLNr=0
 For  Set KLNr=$O(^KSTKL(KLNr)) Quit:KLNr=""  Do
 . Kill Cumul
 . Set PRNr=0
 . For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
 .. Set Key=$O(^KPR(PRNr,"I"))
 .. Quit:$E(Key)'="I"
 .. Set RecI=^KPR(PRNr,Key)
 .. Set HG=$P(RecI,D,1)
 .. Set GR=$P(RecI,D,2)
 .. Set Groep=""
 .. If HG["BX" Do
 ... If $E($P(^KPR(PRNr,0),D,1),1,5)="ZSF.3" Set Groep="ZSF"
 ... If GR["VEN" Set Groep="VEN"
 ... If GR["VVO" Set Groep="VVO"
 .. Else  If HG["OL" Do
 ... Set Groep="OL"
 ... If GR["BRO" Set Groep="BRO"
 .. Quit:Groep=""
 .. Set Mnd="2001.00 "
 .. For  Set Mnd=$O(^KSTKL(KLNr,PRNr,Mnd)) Quit:Mnd=""  Do
 ... ;Set Mnd(Mnd)=""
 ... Set Rec=^KSTKL(KLNr,PRNr,Mnd)
 ... Set Qty=$P(Rec,D)
 ... Set Omzet=$P(Rec,D,3)
 ... Set Cumul=$G(Cumul(Mnd,Groep))
 ... Set $P(Cumul,D,1)=$P(Cumul,D,1)+Qty
 ... Set $P(Cumul,D,3)=$P(Cumul,D,3)+Omzet
 ... Set Cumul(Mnd,Groep)=Cumul
 .Set (Mnd,Groep)=""
 .For  Set Mnd=$O(Cumul(Mnd)) Quit:Mnd=""  Do
 ..For  Set Groep=$O(Cumul(Mnd,Groep)) Quit:Groep=""  Do
 ...Write KLNr,$C(9),$P(^KKL(^KK1(KLNr),0),D,2),$C(9),$P(^KKL(^KK1(KLNr),0),D,20),$C(9)
 ...Write $TR($$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(Mnd,"DM"),"DK"),".","-"),$C(9)
 ...Write Groep,$C(9)
 ...Write $TR($P(Cumul(Mnd,Groep),D,1),".",","),$C(9)
 ...Write $TR($P(Cumul(Mnd,Groep),D,3),".",","),!
 Close:Dev'=0 Dev