KBSKP1 G 10 ; BEHEER PRIJSVERGELIJKEN (BEPALEN PRODUKT) ;Do van KBSBK, KBSBP ; Go naar KBSKP2 [ 09/27/93  2:45 PM ]
 ;
T3 ; PRODUKT VIA : .
T4 ;K[] = klassif  L[] = leveranc  P[] = produktk  -[] = einde
T5 ;\PRODUKTKODE
 ;
10 Q:$D(KE)  S KN=3,SW2=1,(A,SW8,SW9,SW10)=0,FP=1901+F60 W @F,@F1 S FP=2303+F60 W @F,RVW,$P($T(T3),";",2),!,?2 W:SW69 $E($P(PNR,D,2),1),"[] = ",$P(PNR,D,4),"  " W:$L($P(MK,D,2)) $E($P(MK,D,2),1),"[] = ",$E($P(MK,D,4),1,4),"   " W $P($T(T4),";",2)
20 S FP=2318+F60+$L(RVW) W @F,@F0 R K S K1=K G 10:K?.E1C.E,240:K1="-",10:K="",70^KBSKP2:K="K"!(K=$E($P(MK,D,2),1)),170^KBSKP2:K="L",230:K="P",10:'SW69,10:K'=$E($P(PNR,D,2),1)
 ;
30 S R="R\2000\"_$P(PNR,D,2)_"\PR\PR2" D R7^cA107 G 10:K="-" S K1=$P(@("^"_Q_"PR2(R)"),D,1) G 240
230 S R="R\2000"_$P($T(T5),";",2)_"\PR\PR1" D R7^cA107 G 10:K="-" S K1=$P(@("^"_Q_"PR1(R)"),D,1)
240 S (I1,PR)=K1,FP=1901 W @F,@F1
 ;
YZ K A,B,I,I2,I3,I4,IB,JP,K,K1,K2,KN,LV,L1,M,Q1,Q2,R,SX,T,V1,V2,V3,V4,VN,VVE Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 29