KP5 G 5 ; BEPALEN PRODUCT UITZONDERINGEN PRIJSKLASSE KLANTEN; Quit naar KP3 [ 09/30/93  10:50 AM ]
 ;
5 S KN=3,(A,SW8,SW9)=0,FP=LN+1*100+1 W @F,@F1
 Set PR=$$SELECT^PRODUKT6() Set:'PR PR="-"
 S K=PR,FP=2000 W @F,@F1
 ;
YZ K A,B,BLA,I,I1,I2,I3,I4,IB,JP,K1,K2,KN,LV,L1,M,Q16,Q17,R,SX,T,V1,V2,V3,V4,VN,VVE,HG,GR,SG,LE,LP,MK Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32