KPE82 G 1 ;SELEKTIE MODULE KLASSIFIKATIE OF PRODUKTNAAM ;OVERLAY VAN KPET1 NAAR %P81 [ 09/27/93  2:55 PM ]
 ;
T1 ;SELEKTIE PER KLASSIFIKATIE OF PER PRODUKTNAAM
T2 ;"K[] = per klassificatie   P[] = per produktnaam"
T11 ;PRODUKTNAAM
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
1 S FP=301 W @F,@F1 S R="KZ\23\3\"_$P($T(T1),U,2)_D_$P($T(T2),U,2)_"\1\\""KP-""[K\\" D R0 G 1:K="",YZ:K="-" G 100:K="P"
60 D ^cPE81 I K="-" S FP=401 W @F,@F2 G 1
70 K P1,P2 G YZ
 ;
100 S FP=401 W @F,@F1
110 S FP=603 W @F,$P($T(T11),U,2)," :"
130 S R="K\1500\"_$P($T(T11),U,2)_"\PR\PR1" D R7^cA107 G 1:K="-" S FP=617 W @F,@F2,$P(@("^"_Q_"PR($P(@(""^""_Q_""PR1(K)""),D,1),0)"),D,1)
140 S (P1,P2)=K
 ;
YZ S FP=2301 W @F,@F1 Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32