cA307 ;ETIKETTEN VAN ;%A307;Do naar %A306 [ 01/10/01  9:09 PM ]
 ;
T0 ;Printen etiketten ;
T1 ;klanten\KL;
T2 ;leveranciers\LE;
T3 ;Nummer\"[] = printen   .[] = niet printen";
T4 ;Met;zonder; afdruk nummer;
T5 ;prospecten\NP;
T6 ;Type etiket\"[] = laser (105x42.3, 14 per blad, enkel PCL-5)   1[] = matrix (24x89)";
T7 ;Starten op etiket\"1 tot ;Starten op etiket : ;
T8 ;contactpersonen\CP;
 ;
T0F ;Edition d'étiquettes ;
T1F ;clients\KL;
T2F ;fournisseurs\LE;
T3F ;Impression du numéro\"[] = oui   .[] = non";
T4F ;Avec;sans; numéro;
T5F ;prospects\NP;
T6F ;Type d'étiquette\"[] = laser (105x42.3, 14 par page, seulement PCL5)   1[] = matrice (24x89)";
T7F ;Commencer par étiquette\"1 à ;Commencer par étiquette : ;
T8F ;personnes de contact\CP;
 ;
T0E ;Print labels ;
T1E ;customers\KL;
T2E ;suppliers\LE;
T3E ;Number\"[] = print   .[] = don't print";
T4E ;With;without; print number;
T5E ;prospects\NP;
T6E ;Label\"[] = laser (105x42.3, 14 labels on paper, only PCL-5)   1[] = matrix (24x89)";
T7E ;Start on label\"1 until ;Start on label : ;
T8E ;contacts\CP;
 ;
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
C S Z="C",TXT=$P($T(@("T8"_QT)),U,2) G 1
 ;
1 ;D O^cA612(2,1,20,80,1,0,1,1),T^cA612($P($T(@("T0"_QT)),U,2)_$P(TXT,D),0,0,7,1,1) ;10.03.00
 D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T0"_QT)),U,2)_$P(TXT,D),0,0,7,1,1)
11 D ^cAN003(4,$P(TXT,D,2)) G YZ:K="-"
13 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-.""[K" D R0 S SW=$L(K) I K="-" G @Z
 S FP=203,K=$T(@("T4"_QT)) W @F,$P(K,U,SW+2),$P(K,U,4),@F2
15 S R="KEU\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""-1""[K" D R0 G 13:K="-",19:K
 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
 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
17 S R="EAR\22\3\"_$P($T(@("T7"_QT)),U,2)_AEPMAX_"""\2\\K?.N&K!(K=""-"")\" D R0 G 15:K="-"
 S FP=243,K=$T(@("T7"_QT)) W @F,$P(K,U,3),EAR,@F2
19 D ^cAN3223("",1) I K="-" G 17:'KEU,15
 ;
2 I 'KEU D ^cA3071 G 99
 X F70 W @F80
 ;
3 S I1=""
31 D ^cAN004("I1",$P(TXT,D,2)) G 9:I1=""
33 S A1=$$SIGN^cAFA1($P(TXT,D,2),I1,0)
 ;
4 W ! W:$L($P(A1,D,4)) $P(A1,D,4)_" " W $P(A1,D,2),!,$P(A1,D,3)
41 W:'SW ?28,$P(A1,D) W !,$P(A1,D,5),!,$P(A1,D,6),"  ",$P(A1,D,7),!! G 31
 ;
9 X F71
99 G @Z
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84