KPE21 G 170 ;RAADPLEGEN PRODUKTEN ;OVERLAY VAN KPE20
 ;
T1 ;RAADPLEGEN : 
T2 ;x[] = SCHERM 1
T3 ;E[] = EINDPRODUKT      
T4 ;D[] = DEELPRODUKTEN 
T5 ;K[] = KLASSIFIKATIES   
T6 ;L[] = LEVERANCIERS     
T7 ;-[] = EINDE
T8 ;EINDPRODUKTEN 
T9 ;DEELPRODUKTEN
T10 ;DEELPRODUKTEN   [] = VERVOLG   -[] = SELEKTIE : 
T11 ;KLASSIFIKATIES 
T12 ;LEVERANCIERS 
T13 ;$P("KLASSIFIKATIE\LEVERANCIER",D,SW+1)
T14 ;$P("\   [] = VERVOLG",D,VVE+1)
T15 ;   -[] = EINDE : 
 ;
170 K A S U4=0 G 265:SW10 S I1=HI1,(SW1,SW5,SW7)=1,FP=2203+F60 W @F,@F1,$P($T(T1),";",2)
175 W !?2,$P($T(T2),";",2) W:SW4>1 "-",SW4 W:SW4=1 "  " W $J("",7) W:$D(@("^"_Q_"PR(HI1,""E"")")) $P($T(T3),";",2) W:$D(@("^"_Q_"PR(HI1,""D"")")) $P($T(T4),";",2)
180 W !?2 W:$D(@("^"_Q_"PR(HI1,""I"")")) $P($T(T5),";",2) W:$D(@("^"_Q_"PR(HI1,""J"")")) $P($T(T6),";",2) W $P($T(T7),";",2),@F0
190 S FP=2216+F60 W @F,@F2,@F0 R U5 G 190:U5?.E1C.E,190:$L(U5)>1,90^KPE20:U5="-",190:U5="",210:"EDKL"[U5,190:U5<1!(U5>SW4),200:U5?1N,190
200 S SW2=U5,X=SW2*100,U4=2,FP=455 W @F,@F2 S:SW2=1 X=X+2 G 95^KPE20
 ;
210 K A,B,T S (SW2,SW10)=0,FP=255 W @F,@F2 S FP=455 W @F,@F2 S FP=601 W @F,@F1 S FP=471 W @F,@F5 G 250:"KL"[U5,170:'$D(@("^"_Q_"PR(HI1,U5)")) S (Y,I2)=U5,VN=0
215 S FP=455 W @F,@F4 W:U5="E" $P($T(T8),";",2) W:U5="D" $P($T(T9),";",2) W @F5
220 G 230:SW10=0 S FP=2303+F60 W @F,$P($T(T10),";",2),@F0 R U5 G 220:U5?.E1C.E,220:"-"'[U5 I U5="-" S SW10=0 G 170
230 S FP=602 W @F,@F1
235 S FP=FP+100 G 240:(FP\100)=17 S VN=VN+1,Y=$N(@("^"_Q_"PR(HI1,Y)")) G 240:$E(Y,1)'=I2 S K=$P(^(Y),D,1),X=$P(@("^"_Q_"PR($E(Y,2,99),0)"),D,1) W @F,$J(VN,2),". ",X W $J("",28-$L(X)+4-$L(K)),"x",K,"   ",$P(^(2),D,25) G 235
240 I $E(Y,1)'=I2 S SW10=0 G 170
245 S SW10=1 G 220
 ;
250 S U4=2,I2="I",(SW,Y)=0 S:U5="L" I2="J",SW=1,Y=100 G 170:'$D(@("^"_Q_"PR(HI1,I2)")) S HI2=I2,SW10=1
253 S FP=455 W @F,@F4 W:'SW $P($T(T11),";",2) W:SW $P($T(T12),";",2) W @F5
254 S X=I2,X=$N(@("^"_Q_"PR(HI1,X)")) G 170:$E(X,1)'=I2 S T(1)=X,X=$N(^(X)) G 255:$E(X,1)=I2
255 S FP=$P(L,D,2)*100+3 I 'SW F I="HG","GR","SG" S (X,FP)=FP+$P(@I,D,3)+3 S:I'="HG" (X,FP)=FP+2 W @F,@F5 S FP=FP-$P(@I,D,3)-3 W @F,@F4,$P(@I,D,2),$J("",($P(@I,D,3)-$L($P(@I,D,2))+1)),@F5 S FP=X
257 I SW F I="LE","MK","LP" S (X,FP)=FP+$P(@I,D,3)+3 S:I'="LE" (X,FP)=FP+2 W @F,@F5 S FP=FP-$P(@I,D,3)-3 W @F,@F4,$P(@I,D,2),$J("",($P(@I,D,3)-$L($P(@I,D,2))+1)),@F5 S FP=X
258 K T S LN=$P(L,D,2)+1,VN=0,VVE=1,FP=LN*100+2 W @F,@F1
259 S LN=LN+1 G 264:LN=22 S VN=VN+1,I2=$N(@("^"_Q_"PR(HI1,I2)")) G 264:$E(I2,1)'=HI2 S U7=^(I2),T(VN)=I2,X=4 S FP=LN*100+1 W @F,VN
260 I 'SW W:$P(U7,D,35)="*" " *" F I=1:1:3 S FP=LN*100+X W @F,$P(U7,D,I) S X=X+$P(@($P("HG\GR\SG",D,I)),D,3)+5
262 I SW W:$P(U7,D,35)="*" " *" F I=1:1:3 S FP=LN*100+X W @F W:I'=1 $P(U7,D,I) W:I=1 $P(@("^"_Q_"LE(@(""^""_Q_""L1($P(U7,D,I))""),0)"),D,2) S X=X+$P(@($P("LE\MK\LP",D,I)),D,3)+5
263 G 259
264 I $D(T(1))&('$D(T(2))) S U5=1 G 270
265 S:$E(I2,1)'=HI2 VVE=0 S FP=2303+F60 W @F,@F1,"x[] = ",@$P($T(T13),";",2),@$P($T(T14),";",2),$P($T(T15),";",2),@F0 R U5
267 G 265:U5?.E1C.E,258:VVE&(U5=""),265:U5="",280:U5="-",265:'$D(T(U5))
270 S B(1)=@("^"_Q_"PR(HI1,T(U5))"),X=$D(@("^"_Q_"PR(0,0)")),X=SW4*100+100,(X,Z)=$N(^(X))+Y-1,K=100 G 110^KPE20
280 S (SW10,Z)=0,SW5=1 G 170
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32