MBSTAT ;MoederBon statistiek [ 04/25/2001  4:22 PM ]
 ;
STAT(KLNr,PRNr,Aantal) 
 New R,VerkPr,Munt,LijstPr,Pariteit,Eenheid,NumEenh,AankPr
 New R,LijstPr,AankPr
 Set R=$$KLANTPR^KPRIJS(KLNr,PRNr),VerkPr=$P(R,D),Munt=$P(R,D,2),LijstPr=$P(R,D,4)
 Set Pariteit=$P(R,D,9),Eenheid=$P(R,D,10),NumEenh=$P(R,D,11),AankPr=$P(R,D,13)
 If '$$ISEURO^vhRtn1(),"\BF\BEF\"[(D_Munt_D) Set (Munt,Pariteit)=""
 For PRNr=PRNr,0 Do STORE(KLNr,PRNr,Aantal,VerkPr,Eenheid,Munt,Pariteit,NumEenh,AankPr,LijstPr)
 Quit
 ;
STORE(KLNr,PRNr,Aantal,VerkPr,Eenheid,Munt,Pariteit,NumEenh,AankPr,LijstPr) 
 New R,Omzet,Marge,OmzLijst,Periode
 Set R=$G(^MBSTAT(KLNr,PRNr,0)),$P(R,D,1,5)=DT_D_VerkPr_D_Eenheid_D_Munt_D_Pariteit,^MBSTAT(KLNr,PRNr,0)=R
 If Pariteit Set VerkPr=VerkPr*Pariteit,LijstPr=LijstPr*Pariteit
 Set VerkPr=VerkPr/NumEenh,LijstPr=LijstPr/NumEenh,Periode=DJ_"."_DM_" "
 Set Omzet=$J(VerkPr*Aantal,0,2),Marge=Omzet-(AankPr*Aantal),OmzLijst=LijstPr*Aantal
 Set R=$G(^MBSTAT(KLNr,PRNr,Periode)),$P(R,D)=$P(R,D)+Aantal,$P(R,D,2)=$P(R,D,2)+1,$P(R,D,3)=$P(R,D,3)+Omzet
 Set $P(R,D,4)=$P(R,D,4)+Marge,$P(R,D,6)=$P(R,D,6)+OmzLijst,^MBSTAT(KLNr,PRNr,Periode)=R
 Quit
 ;