cAL307 ;LASER-ETIKETTEN VOOR ;%AL307;Do naar %A306 [ 04/12/00   9:06 AM ]
 ;op laserprinter - etiketten: 105 x 42.3 (14/blad)
 ;
T0 ;LASER-ETIKETTEN VOOR ;
T1 ;DE KLANT\KLANTEN\ALFABETISCHE\alfabetische\KL\K1\1;
T2 ;DE LEVERANCIER\LEVERANCIERS\ALFABETISCHE\alfabetische\LE\L1\1;
T3 ;AFDRUK NUMMER\"[] = met afdruk nummer   .[] = zonder afdruk nummer";
T4 ;MET;ZONDER; AFDRUK NUMMER;
T5 ;HET PROSPEKT\PROSPEKTEN\ALFABETISCHE\alfabetische\NP\NP1\1;
T6 ;STARTEN OP ETIKET\"1 tot ;STARTEN OP ETIKET: ;
 ;
T0F ;LASER-ETIKETTEN VOOR ;
T1F ;DE KLANT\KLANTEN\ALFABETISCHE\alfabetische\KL\K1\1;
T2F ;DE LEVERANCIER\LEVERANCIERS\ALFABETISCHE\alfabetische\LE\L1\1;
T3F ;AFDRUK NUMMER\"[] = met afdruk nummer   .[] = zonder afdruk nummer";
T4F ;MET;ZONDER; AFDRUK NUMMER;
T5F ;HET PROSPEKT\PROSPEKTEN\ALFABETISCHE\alfabetische\NP\NP1\1;
T6F ;STARTEN OP ETIKET\"1 tot ;STARTEN OP ETIKET: ;
 ;
K S Z="K",TXT=$P($T(@("T1"_QT)),U,2) G 1
L S Z="L",TXT=$P($T(@("T2"_QT)),U,2) G 1
P S Z="P",TXT=$P($T(@("T5"_QT)),U,2) G 1
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_$P(TXT,D,2)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S Q1=$P(TXT,D,5) D ^cA306 G YZ:K="-"
12 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-.""[K" D R0 S SW=$L(K) G @Z:K="-"
13 S FP=1403,K=$T(@("T4"_QT)) W @F,$P(K,U,SW+2),$P(K,U,4),@F2
14 S K="\\\\\\\2\38.1\99\10\4",LASER=2,A1=$P(K,D,8),A2=$P(K,D,10)+$P(K,D,11)*11\28
15 S A3=$P(K,D,9)+2*6\25,A4=$P(K,D,12)*11\28,AEPB=297\$P(K,D,9),AEPMAX=AEPB*A1,A3=70\AEPB
16 S R="EAR\22\3\"_$P($T(@("T6"_QT)),U,2)_AEPMAX_"""\2\\K?.N&K!(K=""-"")\" D R0 G 12:K="-"
17 S FP=1443,K=$T(@("T6"_QT)) W @F,$P(K,U,3),EAR,@F2
19 S R=6_D_1 D ^cA345 G 16:K="-",@Z:K=","
 ;
2 X F70 D ^cAL320 K ^HULP(boot,$J+(500/10000)) S (AE,AEP)=0
21 F XX=1:1:EAR-1 S AE=AE+1 D S1:AE>A1 F Y=1:1:A3 S ^HULP(boot,$J+(500/10000),Y,AE)=""
 ;
3 S I1=""
31 S R="I1\"_Q1 D ^cA327 I I1="" G 9
33 S K=@("^"_Q_Q1_"(I1,0)"),AE=AE+1 I AE>A1 D S1
 ;
4 S ^HULP(boot,$J+(500/10000),3,AE)=$S($L($P(K,D,4)):$P(K,D,4)_" ",1:"")_$P(K,D,2)
41 S ^HULP(boot,$J+(500/10000),4,AE)=$P(K,D,3) I 'SW S $E(^(AE),28)=" ",^(AE)=^(AE)_$P(K,D)
42 S ^HULP(boot,$J+(500/10000),5,AE)=$P(K,D,5)
43 S ^HULP(boot,$J+(500/10000),6,AE)=$P(K,D,6)_"  "_$P(K,D,7)
44 G 31
 ;
9 D S1 I AEP W $$FF^cA334 
91 X F71 G @Z
 ;
YZ Q
 ;
S1 F X=1:1:A3-LASER W !,?A4 I $D(^HULP(boot,$J+(500/10000),X,1)) F I=1:1:A1 I $D(^(I)) S J=$E(^(I),1,A2-1) W J,$J("",A2-$L(J))
 S AEP=AEP+2 I LASER,AEP<AEPMAX W $C(27),"&l",AEPB,"D",!,$C(27),"&l6D",!    ; <Aantal etiketten boven elkaar> lines/inch,<lf>,6 lines/inch,<lf>
 I AEP=AEPMAX W $$FF^cA334 S AEP=0
 K ^HULP(boot,$J+(500/10000)) S AE=1
S1Z Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
ZZ ; 19.04.00 - 14 u 04 * V7.3