KPFI9 G 1 ;PRODUKTENFICHE;KPFI1;Quit naar KPFI8 [ 02/05/2001  4:03 PM ]
 ;
R S R=$$ROUND^KPRIJS(R) Q
 ;
1 S RMA=$P(B(1),D,17),(RP,RPL)=$P(B(1),D,19)
7 S:$P(B(1),D,28)="H" RPL=RPL/100 S:$P(B(1),D,28)="M" RPL=RPL/1000
 S RPL=RPL*$$MUNT^vhRtn1(RMA,,11)*(100-$P(B(1),D,9))/100*(100-0)/100*(100+$P(B(1),D,21))/100
 S RAF=$$GRORDE^PRODUKT2(PR)
9 S RPL=$J(RPL,1,4),R=RPL D R S RPLL=R,RW=0 S:RPL RW=$P(B(1),D,24) S RHM=RPL/(100-RW/100)*RW/100,RHM=$J(RHM,1,4),R=RPL+RHM D R S RLPP=R S RV=RPL+RHM*$P(B(1),D,27)/100,RV=$J(RV,1,4),R=RV
90 S R9=$E(RAF,2) S:R9=1 R=R*100\1/100 S:R9=2 R=R*100\5*5/100 S:R9<3 R=$J(R,2,2) S:R9=3 R=R\1 S:R9=4 R=R\5*5 S:R9=5 R=R\10*10
10 S RVV=R,RVP=0 S:(RPL+RHM) RVP=RV/(RPL+RHM)*100,RVP=$J(RVP,1,0)
11 S B(1)=$P(B(1),D,1,19)_D_RHM_D_$P(B(1),D,21,22)_D_RPL_D_RW_D_(RPL+RHM)_D_RV_D_RVP_D_$P(B(1),D,28,99)
 ;
 ;
YZ K RAF,RHM,RI,RMA,RP,RPL,RV,RVP,RW,R,R9 Q
 Q
Z X ^cZ Q
ZZ ; 25.02.87 -  9 u 14