KP0 G 5 ;OPENEN - RRADPL. - WIJZ. PRODUKTEN LEVERANCIERS ;Quit naar %P15, %P20, %P33 [ 03/14/2002  11:27 AM ]
 ;
R S R9=$E(RAF),R=R*$S(R9="H":100,1:1)
 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,$$ABDCFRS()),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,0,2),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
 N ABdCfrs
 S ABdCfrs=$$ABDCFRS()
 S RAF=$$GRORDE^PRODUKT2(PR)
9 S RPL=$J(RPL,1,ABdCfrs),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,ABdCfrs),R=RPL+RHM D R S RLPP=R
 S RV=RPL+RHM*$P(B(1),D,27)/100,RV=$J(RV,1,ABdCfrs),R=RV
 S R9=$E(RAF),R=R*$S(R9="H":100,1:1)
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,0,2)
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,1)," %" D S(125) W:RLPP RLPP_" "_$$MUNT^vhRtn1(,1)_$$VGO(PR) 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(^KPR(PR,2),D,25)
 If $TR($E(IDNr,3,8),".","")'=PR Quit 1
 Set R=$O(^KPR(PR,"I")),R=^KPR(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(^KPR(PR,2),D,25)
 If +$TR($E(IDNr,3,8),".","")'=PR Set R=5005
 Else  Do
 .Set R=$O(^KPR(PR,"I")),R=^KPR(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(^KPR(NPRNr,"J")),R=$E(R,2,9)
 Set LV=R,LX=^KL1(LV)
 Quit R
 ;
ABDCFRS() 
 Quit 4+$$MUNT^vhRtn1(,4)
 ;
VGO(PR) 
 N X,VGO
 S X="S VGO=$E($$GRORDE^PRODUKT2(PR"_$S($G(Schaduw):",""S""",1:"")_"))"
 X X S:VGO="" VGO="E"
 S VGO=$J($S(VGO="E":"",VGO="H":"/%",1:"/"_VGO),2)
 Q VGO
 ;