cA224 ;Gesorteerde leverancierslijst ;%A224 ; [ 12/29/00  3:40 PM ]
 G 1
 ;
T0 ;Leverancierslijst ;
T1 ;De leverancier\leveranciers\alfabetische\alfabetische;Blz :;
T3 ;  Nr.; Naam van de leverancier; Straat + nummer + bus;Land; Telefoon 1; BTW-nummer;
T4 ;; Naam tweede lijn; Postnummer + Woonplaats;Taal; Telefoon 2; Banknummer;
 ;
T0F ;Liste de fournisseurs ;
T1F ;Fournisseur\fournisseurs\alphabétique\alphabétique;Page:;
T3F ;  N°.; Nom du fournisseur; Rue + numéro + boîte;Pays; Télephone 1; N° de T.V.A.;
T4F ;; Nom deuxième ligne; Code postal + Localité;Lang; Téléphone 2; N° bancair;
 ;
T0E ;Supplier report ;
T1E ;The supplier\supplier\alphabetic\alphabetic;Page:;
T3E ;  Nr.; Name supplier    ; Street + number + box;Nat.; Telephone 1; VAT-number;
T4E ;; Name 2; ZIP code + City;Lang; Telephone 2; Bank account;
 ;
 ; BTW-nr
S1 S (K,U3)=$P(A,D,16) I $L(K) D S1^cA248 W ?$P(TAB,D,5)+2,U3
S1Z K S1,S2 Q
 ;
 ; banknr
S2 S (K,U3)=$P(B,D) I $L(K) D S1^cA299 W ?$P(TAB,D,5)+2,U3
S2Z K S1,S2 Q
 ;
S3 W !,@F30 F K=1:1:6 D S4:'LN W ?$P(TAB,D,K),@F30
S3Z W $$CR^cA334 Q
 ;
S4 S S1=$S(K>1:$P(TAB,D,K-1),1:0),S2=$P(TAB,D,K)-2 F S3=S1:1:S2 W "-"
S4Z K S1,S2,S3 Q
 ;
1 I 'QP S LIM1=PP(1),LIM2=PP(2) G 19
11 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13 S TXT=$P($T(@("T1"_QT)),U,2)_"\LE\L1\1" D ^cA306 G YZ:K="-"
15 S R=1_D_('$L(LIM2)) D ^cA345
17 G 13:K="-"!(K=",") I K="." S QPT=$T(+0) D ^cA109 G YZ
19 S (BLZ,LN)=0,NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),TAB="8\39\70\75\96\120" X F70 W @F80 S LNMAX=LNMAX-3
 ;
2 S R="LIM1\LE" D ^cA327 I LIM1="" G Y
21 D HD:'LN I LN'<LNMAX S LN=0 D S3 G 21
23 S LN=LN+1 D S3:LN>1 S LN=LN+2 D S3 S A=^(0),B=$S($D(^(1)):^(1),1:D)
25 W $J($P(A,D),7),?$P(TAB,D)+2,$P(A,D,2),?$P(TAB,D,2)+2,$P(A,D,5),?$P(TAB,D,3)+2,$$SIG^cAFA1("ISO.LAND",$P(A,D,8),101),?$P(TAB,D,4)+2,$P(A,D,13)
27 D S1,S3 W ?$P(TAB,D)+2,$P(A,D,3),?$P(TAB,D,2)+2,$E($S($L($P(A,D,6)):$P(A,D,6)_" ",1:"")_$P(A,D,7),1,28)
29 W ?$P(TAB,D,3)+2,$P(A,D,9),?$P(TAB,D,4)+2,$P(A,D,14) D S2 G 2
 ;
Y I LN S LN=0 D S3
YA W:BLZ $$FF^cA334 X F71 K ^HULP(boot,$J)
YZ Q
 ;
HD W:BLZ $$FF^cA334 S BLZ=BLZ+1,LN=0 W !,NM1,?$P(TAB,D,6)-7,$P($T(@("T1"_QT)),U,3),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334
HDA W ?$P(TAB,D,6)-7,DT,!,NM3,?$P(TAB,D,6)-6,TD,!
HDB D S3 F T=3,4 W !,@F30 F K=1:1:6 W $P($T(@("T"_T_QT)),U,K+1),?$P(TAB,D,K),@F30
HDZ D S3 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84