KOFKR G 1 ;MODULE BEPALEN PRODUKT VIA PRODUKTREFERENTIE KLANT ;
 ;
1 S R="K\"_($P(UD,D,2)+2*100)_"\REFERENTIE\PR\PRR\1" D ^KPS7C G 9^KOFT2:K="-" S PR=$P(K," ",2) G 11^KOFT2
YZ K X,UVM Q
 ;
 Q
Z X ^cZ Q
ZZ ; 04.06.91 -  9 u 44