KFKR G 1 ;ORDERVERWERKING MODULE PRODUKTREFERENTIE KLANT;KFKR; [ 01/08/2001  11:48 AM ]
 ;
M1 S MSG="MUNT KLANT NIET TOEGELATEN VOOR "_UOU G MY
MY S SW12=1,FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K G YZ
 ;
1 K A S SW25=1,SW12=0,Q15="^(""W    0.0""_UOR_UOD_$J(UR,6,0)_$J(UZ,3,0))"
2 S X=^(1),UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(X,D,2)),"DS"),D,"")
 S UOR=$P("R\O",D,$P(X,D,17)+1),UVM=$P(X,D,18)
3 S UAF=$P(X,D,22),UTYP=$P(X,D,25) G M1:'$$CHKMUNT^FLOW(UVM)
5 S R="K\"_($P(UD,D,2)+2*100)_"\REFERENTIE\PR\PRR\1" D ^KPS7C G YZ:K="-" S PR=$P(K," ",2) G 10^KF0
YZ K X,UOD,UOR,UVM,UAF Q
 ;