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;
	;
T0D	;Lieferantenliste ;
T1D	;Der Lieferant\Lieferanten\alphabetische\alphabetische;Pag :;
T3D	;  Nr.\ Name Lieferant\ Strasse + Nummer + Bus\Land\ Telefon 1\ MWST-Nummer;
T4D	;\ Name Zweite Linie\ Postcode + Ort\Spra\ Telefon 2\ Banknummer;
	;
	; BTW-nr
S1	S (K,U3)=$P(A,D,16),TXT(6)="" I $L(K) D S1^cA248 S TXT(6)=U3
S1Z	K S1,S2 Q
	;
	; banknr
S2	S (K,U3)=$P(B,D),TXT(6)="" I $L(K) D S1^cA299 S TXT(6)=U3
S2Z	K S1,S2 Q
	;
1	I 'QP S LIM1=PP(1),LIM2=PP(2) G 18
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	D ^cAN3223("","1#5",">80","")
17	G 13:K="-"!(K=",") I K="." S QPT=$T(+0) D ^cA109 G YZ
18	S HD(2)="",HD(3)="",HD(1)="\"_$P($T(@("T0"_QT)),U,2)_";C;F82\" S TAB="8\39\70\75\96\120"
19	S TIT(1)=$P($T(@("T3"_QT)),U,2),TIT(2)=$P($T(@("T4"_QT)),U,2)
	;
2	S R="LIM1\LE" D ^cA327 I LIM1="" S END=1 D ^cA334 G YZ
21	I $G(LNMAX),(LN+3>$G(LNMAX)) S LN=999
22	I $G(LN),(LN>1),(LN<999) S (TXT(1),TXT(2),TXT(3),TXT(4),TXT(5),TXT(6))="" S END=0 D ^cA334
23	S A=^(0),B=$S($D(^(1)):^(1),1:D)
25	S TXT(1)=$J($P(A,D),7),TXT(2)=$P(A,D,2),TXT(3)=$P(A,D,5),TXT(4)=$$SIG^cAFA1("ISO.LAND",$P(A,D,8),101),TXT(5)=$P(A,D,13)
27	D S1 S END=0 D ^cA334
28	S TXT(1)="",TXT(2)=$P(A,D,3),TXT(3)=$E($S($L($P(A,D,6)):$P(A,D,6)_" ",1:"")_$P(A,D,7),1,28)
29	S TXT(4)=$P(A,D,9),TXT(5)=$P(A,D,14) D S2 S END=0 D ^cA334 G 2
	;
YZ	Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8