KPWAMP G 1 ;INSTELLEN MUNPARITEITEN (WIJZIGEN PRODUKTEN);KPWAMP; [ 03/21/2001  3:29 PM ]
 ;
1 S FP=2003 W @F,@F1 S FP=2403 W @F,@F4,"AANPASSEN PRODUKTEN MET MUNT AANKOOP = ",VM," ",@F5
3 L +^KPR:2 E  S FP=2403+F60 W @F,@F1,@F4,"PRODUKTENBESTAND IN GEBRUIK [] = ok ",@F5,@F0 R K W @F,@F1 G 3
4 L +^KPR1:2 E  S FP=2403+F60 W @F,@F1,@F4,"PRODUKTENBESTAND IN GEBRUIK [] = ok ",@F5,@F0 R K W @F,@F1 G 4
5 S FP=2203 W @F,"PRODUKT     :",!?2,"LEVERANCIER :" S PR=0
7 S PR=$N(@("^"_Q_"PR(PR)")) G YZ:PR=-1 S PI2="J",PC=$P(^(PR,0),D,1),FP=2217 W @F,@F2,PC S FP=2317 W @F,@F2
9 S PI2=$N(@("^"_Q_"PR(PR,PI2)")) G 7:$E(PI2,1)'="J" S B(1)=^(PI2) G 9:$P(B(1),D,17)'=VM S LR=$P(B(1),D,1)
11 S LC=@("^"_Q_"L1(LR)"),LN=$P(@("^"_Q_"LE(LC,0)"),D,2),FP=2317 W @F,@F2,LN
13 S RMA=$P(B(1),D,17),(RP,RPL)=$P(B(1),D,19)
15 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
17 S RPL=$J(RPL,1,4),RW=0 S:RPL RW=$P(B(1),D,24) S RHM=RPL/(100-RW/100)*RW/100,RHM=$J(RHM,1,4),RV=RPL+RHM*$P(B(1),D,27)/100,RV=$J(RV,1,4)
19 S RVP=0 S:(RPL+RHM) RVP=$P(B(1),D,27)
21 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)
23 S @("^"_Q_"PR(PR,PI2)")=B(1) K RHM,RI,RMA,RP,RPL,RPLL,RV,RVP,RW,R,R9 G 9
 ;
YZ K PR,PI2,B(1),LC,LN,LR
 L -^KPR,-^KPR1
 Q
 ;