KPO0 G 5 ;OPENEN - RRADPL. - WIJZ. PRODUKTEN LEVERANCIERS ;Quit naar %P15, %P20, %P33 [ 04/25/2001  11:54 AM ]
 ;
R S R9=$E(RAF,2)
 S R=$$ROUND^KPRIJS(R)
 Q
 ;
S(RNR) 
 N RI
 S RI=100
 F  S RI=$O(A(RI)) Q:'RI  Q:$P(A(RI),U,16)=RNR
 D:RI
 .S FP=$P(A(RI),U,5)*100+$P(A(RI),U,6)-1 W @F,@F5
 .D C(RNR)
 Q
 ;
C(RNR) 
 N RI
 S RI=100
 F  S RI=$O(A(RI)) Q:'RI  Q:$P(A(RI),U,16)=RNR
 D:RI
 .S FP=$P(A(RI),U,5)*100+$P(A(RI),U,6)
 .W @F,$J("",$P(A(RI),U,9))
 .W:$L($P(A(RI),U,13)) $J("",$P(A(RI),U,13)) W @F
 Q
 ;
1 S RW=100*K/($P(B(1),D,23)+K),RW=$J(RW,1,0),B(1)=$P(B(1),D,1,23)_D_RW_D_$P(B(1),D,25,99) G 5
 ;
2 S RW=100-($P(B(1),D,23)/K*100),RW=$J(RW,0,4),B(1)=$P(B(1),D,1,23)_D_RW_D_$P(B(1),D,25,99) G 5
 ;
3 S RVP=K*100/$P(B(1),D,25),RVP=$J(RVP,1,0),B(1)=$P(B(1),D,1,26)_D_RVP_D_$P(B(1),D,28,99) G 5
 ;
5 I $G(EXTRA)="X" D IK^PROC K EXTRA
 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)
13 G YZ:$D(P24)!$D(BLZ) D S(119) W:RP RP," ",RMA D S(123) S FP=FP+9 W @F,@F5 S FP=FP-10 W:RPLL @F,@F4,RPLL," ",@F5
14 D S(120) W:(RLPP-RPLL) (RLPP-RPLL) D S(124) W:RW $J(RW,0,0)," %" D S(125) W:RLPP RLPP D S(126) W:RVV RVV
15 D S(127) W:RVP RVP," %" I RV>RHM S FP=$P(A(113),U,5)*100+$P(A(113),U,6)+9 W @F,@F5 S FP=FP-10 W @F,@F4,RVV," ",@F5
17 G YZ
 ;
19 S B(1)=$P(B(1),D,1,8)_D_D_D_$P(B(1),D,11,16)_D_D_$P(B(1),D,18)_D_D_D_D_$P(B(1),D,22)_D_D_D_D_D_D_D_$P(B(1),D,29,99)
21 G YZ:$D(P24)!$D(BLZ) F RNR=119,109,123,120,124:1:127,113 D C(RNR)
23 G YZ
 ;
YZ K RAF,RHM,RNR,RMA,RP,RPL,RV,RVP,RW,R,R9 Q
 ;
VWAUTOL(PR) 
 New R,HoofdGr,Groep,SubGroep,IDNr
 Set IDNr=$P(^KPRO(PR,2),D,25)
 If $TR($E(IDNr,3,8),".","")'=PR Quit 1
 Set R=$O(^KPRO(PR,"I")),R=^KPRO(PR,R),HoofdGr=$P(R,D),Groep=$P(R,D,2),SubGroep=$P(R,D,3)
 Quit $D(^KPH(HoofdGr,Groep,SubGroep))
 ;
AUTOL(PR) 
 New R,HoofdGr,Groep,SubGroep,KortComp,NPRNr,IDNr
 Set IDNr=$P(^KPRO(PR,2),D,25)
 If +$TR($E(IDNr,3,8),".","")'=PR Set R=5005
 Else  Do
 .Set R=$O(^KPRO(PR,"I")),R=^KPRO(PR,R),HoofdGr=$P(R,D),Groep=$P(R,D,2),SubGroep=$P(R,D,3),KortComp=""
 .For  Set KortComp=$O(^KPH(HoofdGr,Groep,SubGroep,"  ",KortComp)) Do  Quit:NPRNr'=PR
 ..Set NPRNr=^KPH(HoofdGr,Groep,SubGroep,"  ",KortComp)
 .Set R=$O(^KPRO(NPRNr,"J")),R=$E(R,2,9)
 Set LV=R,LX=^KL1(LV)
 Quit R
 ;