PVPVH2 ;Statistiek vgl box verkoop en orgalux verkoop [ 11/08/2003   8:27 PM ]
 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^vhDTyp($$INTDATE^vhDTyp(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