cPE18 G 1 ;KONTROLELIJST PRODUKTEN ;OVERLAY NAAR %P19 [ 11/08/2003  3:33 PM ]
 ;
T1 ;LIJST PER KLASSIFIKATIE OF PER LEVERANCIERSNUMMER
T2 ;"K[] = per klassifikatie   L[] = per leveranciersnummer"
T3 ;PLAATS BLANCO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN
T4 ;"[] = ok   ,[] = hernemen"
T5 ;IN ALFABETISCHE ORDE VANAF 
T6 ;IN ALFABETISCHE ORDE TOT   
T7 ;".[] = vanaf het begin   [] = specifieke 
T8 ;VANAF HET BEGIN
T9 ;".[] = tot het einde   [] = specifieke 
T10 ;   I[] = idem vorige"
T11 ;TOT HET EINDE
T12 ;ZELFDE 
T13 ;VOLGNUMMER OF 
T14 ;   [] = vervolg
T15 ;ZONDER
T16 ;KEUZE 
 ;
ER X F71 G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
1 S X=$N(@("^"_Q_"BA(18,-1)")) F X=0:1:9 S:$D(^(X)) PBTW(X)=$P(^(X),D,1) S:$D(^(X+10)) PTXT(X)=$P(^(X+10),D,1)
10 S NM1=@("^"_Q_"BA(99,2)"),NM2=^(3),I1=0,BLZ=0,U=";",I1X=" ",I2X="",LN=0,MAX=0
BREAK B 1
 S SW=0
11 S FP=228+$L(QN) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),U,2),QN," ",@F5
20 S Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" "
50 S Y=$N(^(Y)) G 500:Y=-1 S @Y=^(Y) G 50
500 G 505:$D(T("MK")) S R="K\19\3\"_$P($T(T1),U,2)_D_$P($T(T2),U,2)_"\1\\""-KL""[K&$L(K)\" D R0
502 G YZ:K="-" I K="K" D 60^cPE8 G YZ
505 S LN=403,LGT=0 F I="LE","MK","LP" S T(I)=$P($T(T16),U,2)_$P(@I,D,2) S:$L($P(@I,D,2))>LGT LGT=$L($P(@I,D,2))
510 S (H,HH,G,GG,S,SS,M,MM,P)="" G 520:$P(LE,D,2)="" S SEL=$P(LE,D,2),SEK=$P(LE,D,4),NIV="",LN=403
512 S (H,HH,G,GG,S,SS,M,MM)="" D S3 G YZ:K="-" S H=R I K="" S H=K
514 S HH="" S:$P(LE,D,2)="" H=" " G 510:K="-"&($P(LE,D,2)="") S SEL=$P(LE,D,2),SEK=$P(LE,D,4),NIV="" D S4 G 512:K="-" S HH=R S:K="" HH=K S:K="."&(H'="") HH=H G 550:HH=""&(K'=".") I H]HH!(K="."&(H="")) S LN=LN-100,FP=LN+131+LGT W @F,@F2 G 514
516 G 550:H'=HH
520 S:$P(MK,D,2)="" G="" G 530:$P(MK,D,2)="",514:K="-"&(H'=HH) S LN=703,SEL=$P(MK,D,2),SEK=$P(MK,D,4),NIV="H"
522 S (G,GG,S,SS,M,MM)="" D S3 G 510:K="-" S G=R I K="" S G=K
524 S GG="" G 514:K="-"&($P(MK,D,2)="") S SEL=$P(MK,D,2),SEK=$P(MK,D,4),NIV="H" D S4 G 522:K="-" S GG=R S:K="" GG=K S:K="."&(G'="") GG=G G 550:GG=""&(K'=".") I G]GG!(K="."&(G="")) S LN=LN-100,FP=LN+131+LGT W @F,@F2 G 524
526 G 550:G'=GG
530 S:$P(LP,D,2)="" S=" " G 550:$P(LP,D,2)="",524:K="-"&(G'=GG) S LN=1003,SEL=$P(LP,D,2),SEK=$P(LP,D,4),NIV="H,G"
532 S (S,SS,M,MM)="" D S3 G 520:K="-" S S=R I K="" S S=K
534 S SS="" G 524:K="-"&($P(LP,D,2)="") S SEL=$P(LP,D,2),SEK=$P(LP,D,4),NIV="H,G" D S4 G 532:K="-" S SS=R S:K="" SS=K S:K="."&(S'="") SS=S G 550:SS=""&(K'=".") I S]SS!(K="."&(S="")) S LN=LN-100,FP=LN+131+LGT W @F,@F2 G 534
536 G 550:S'=SS
550 S R="K\23\3\"_$P($T(T3),U,2)_D_$P($T(T4),U,2)_"\1\\""-,""[K\\\" D R0 G 510:K=","
60 I K="-" S LN=LN-100 G 510:H=""&(HH=""),520:G=""&(GG=""),530:S=""&(SS=""),534
80 K LE,MK,LP,MK,LE,LP,L D ^cPE19 G 11
 ;
YZ B 0 Q
 ;
 ;
S3 S FP=LN+100 W @F,@F1,$P($T(T5),U,2),SEL,$J("",LGT-$L(SEL)+1)," : " W !,?2,$P($T(T6),U,2),SEL,$J("",LGT-$L(SEL)+1)," : "
S3A S R="K\23\3\"_$P($T(T5),U,2)_SEL_D_$P($T(T7),U,2)_SEK_"""\1\\"".-""[K\\" D R0 S:K="-" LN=LN-100 Q:K="-"  S R=""
S3B I K="" S R=L*100_D_SEL_D_NIV D S7 I K="-" S FP=L*100 W @F,@F1 G S3A
S3C S LN=LN+100,FP=LN+31+LGT W @F,@F2 W:K="." $P($T(T8),U,2) S:K="." K="" I R'="" W R
S3Z Q
 ;
S4 S R="K\23\3\"_$P($T(T6),U,2)_SEL_D_$P($T(T9),U,2)_SEK_$P($T(T10),U,2)_"\1\\"".-I""[K\\" D R0 S:K="-" LN=LN-100 Q:K="-"  S R=""
S4A I K="" S R=L*100_D_SEL_D_NIV D S7 I K="-" S FP=L*100 W @F,@F1 G S4
S4B S LN=LN+100,FP=LN+31+LGT W @F,@F1 W:K="." $P($T(T11),U,2) W:K="I" $P($T(T12),U,2),SEL S:K="." K="" I R'="" W R
S4Z S:K="I" K="." Q
 ;
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
 ;
S7 S S4=$P(R,D,1)+1+F60,S0=0,S10=$P(R,D,4),SA=$P(R,D,2),S8="^"_Q_"PL("_$P(R,D,3) S:$L($P(R,D,3)) S8=S8_"," S S8=S8_"S2)",FP=S4 W @F,@F1
S7A S FP=2403+F60 W @F,@F1 W:$D(ST) $P($T(T13),U,2) W SA W:S0 $P($T(T14),U,2) W " : ",@F0
S7B R K G S7A:K?.E1C.E,S7Z:K="-" S:$L(K) S0=0 S FP=S4,S9=0 W @F,@F1 G S7D:K=""&('S0) I K="" K ST G S7H
S7C G S7D:'$D(ST(K)) S S3=ST(K) G S7M
S7D K ST S S6=K S:K=" " S6=""
S7E S S5=$E(S6,1,28),S1=S4 S:S6="" (S2,S3,S5)=0 S:S6'="" (S2,S3,S5)=S5_" " G S7M:$D(@(S8)) S (S2,S3)=$N(@(S8)) G S7K:S2=-1 S S2=$N(^(S2))
S7F I $E($E(S2,1,$L(S2)-1),1,$L(S6))'=S6&'S0&($E($E(S3,1,$L(S3)-1),1,$L(S6))=S6) G S7M
S7G S S2=S5
S7H S S2=$N(@(S8)) G S7K:($E(S2,1,$L(S6))]S6)&'S0&(S1=S4) G S7L:S2=-1 I $E(S2,1,$L(S6))'=S6 S S0=0 G S7A
S7I S FP=S1,S9=S9+1,ST(S9)=S2 W @F,$C(13),?2,S9,". ",?6 W:S2="  " $P($T(T15),U,2) W:S2'="  " S2 W:NIV=""&(S2'="  ") "   ",$P(@("^"_Q_"LE(@(""^""_Q_""L1($E(S2,1,$L(S2)-1))""),0)"),D,2)
S7J S S1=S1+100 G S7H:S1<(2300+F60) S S0=1,S1=S4 G S7A
S7K X ^cTXT(0,"N",156) R K
S7L S (S2,S0)=0 G S7A
S7M S R=S3
S7Z K S0,S1,S2,S3,S4,S5,S6,S7,S8,S9,SA,ST Q
 ;
Z X ^cZ Q
ZZ ; 16.10.85 - 17 u 57