KPUW G 1 ;UPDATE BESTAND WEEKSTATISTIEK PRODUKTEN;KPUW; [ 09/12/2001  1:47 PM ]
 ;
S2 S @S=$$ROUND^KPRIJS(@S) Q
 ;
S8 S @$P(S,D)=$$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(S,D,2)),"DW4")
 Q
 ;
1 N I,IsEuro
 F I=1:1:5 S @("R1"_I)=$P(R,D,I)
11 S S="RK\"_$E(R12,7,8)_"."_$E(R12,5,6)_"."_$E(R12,3,4) D S8
17 S RK=$TR(RK,"/",".")_" "
 ;
2 S IsEuro=$$ISEURO^vhRtn1()
 S R=^KPR(R11,0),RS=$P(R,D,23)="S",(RF,RT,RP)=$P(R,D,14),RT=RT+$P($P(R,D,17),"#",2)
 S R=^KPR(R11,2),RT=RT-$P($P(R,D,9),"#",2),RP=RP-$P($P(R,D,9),"#",2)
 D:'RS
 .S R=^KPR(R11,1),RE=$$GRORDE^PRODUKT2(R11),RA=1
 .S R=$N(^KPR(R11,"J")) I $E(R,1)="J" S R=^KPR(R11,R)
 .S RC=$P(R,D,23),RC=RC*$S(RE="M":1000,RE="H":100,1:1),S="RC" D S2 S RC=RC/$S(RE="M":1000,RE="H":100,1:1),RM=R14-(RC*R13)
 ;
3 N RDC
 S RDC=$$MUNT^vhRtn1(,4)
 L +^KSPW(R11)
 S R=$G(^KSPW(R11,RK)),$P(R,D,12)=D,$P(R,D,4)=RF,$P(R,D,5)=RT,$P(R,D,6)=RP
 I 'RS D
 .S $P(R,D,1)=+$J($P(R,D,1)+R13,0,4),$P(R,D,2)=$J($P(R,D,2)+R14,0,RDC)
 .S $P(R,D,3)=$J($P(R,D,3)+RM,0,RDC)
 .S $P(R,D,7+(R15*2))=$J($P(R,D,7+(R15*2))+R13,0,0),$P(R,D,8+(R15*2))=$J($P(R,D,8+(R15*2))+R14,0,RDC)
 .S $P(R,D,11+R15)=$J($P(R,D,11+R15)+RM,0,RDC)
 E  D VERDEEL(R11,R12,R13,R14,R15)
 S ^KSPW(R11,RK)=R
 L -^KSPW(R11)
 ;
YZ K R11,R12,R13,R14,R15,RE,RA,RC,RF,RK,RM,RP,RT,RS Q
 ;
VERDEEL(MPRNr,Datum,MAantal,MBedrag,IsKom) 
 New R,KBedrag,KPRNr,KAantal
 New R11,R12,R13,R14,R15,RA,RC,RF,RK,RM,RP,RT,RS
 Set KPRNr="",KBedrag=0
 For  Set KPRNr=$O(^PRLINK("D",MPRNr,KPRNr)) Quit:KPRNr=""  Do
 .Set KAantal=$P(^PRLINK("D",MPRNr,KPRNr),D),R=$$PROD^KPRIJS(KPRNr,0,0,"")
 .Set KPRNr(KPRNr)=KAantal_D_($P(R,D,14)*KAantal),KBedrag=KBedrag+$P(KPRNr(KPRNr),D,2)
 Set KPRNr=""
 For  Set KPRNr=$O(KPRNr(KPRNr)) Quit:KPRNr=""  Do
 .Set R=KPRNr(KPRNr),KAantal=$P(R,D),R=$S(KBedrag:$P(R,D,2)/KBedrag*100,1:0) ; KBedrag kan 0 zijn,  PV 06-01-11
 .Set R=KPRNr_D_Datum_D_(KAantal*MAantal)_D_$J(MBedrag*R/100,0,2)_D_IsKom
 .D ^KPUW
 Quit
 ;