cAT117	;BTW-listing ;%AT11 ;go uit %AT116 ; [ 01/04/01  2:02 PM ]
	G 1
	;
T0	;BTW-listing ;
T1	;Printen verzendingsborderel;
T3	;Bevestiging\".[] = goed geprint   ,[] = hernemen";
T4	;Technische gegevens;
T5	;Systeem;MS-DOS;
T6	;Codering;Ascii;
T7	;Record lengte;128 bytes;
T8	;Record separator;CR LF (Hex : 0D 0A);
T9	;Naam bestand;
T10	;Controlegegevens;
T11	;BTW-registratienummer;
T12	;Contactpersoon;
T13	;Telefoonnummer;
T14	;Periode van de opgave;
T15	;Aantal klanten;
T16	;Totaal bedrag;
T17	;    Kwartaalopgave van de vrijgestelde;intracommunautaire leveringen van goederen; en de daarmee gelijkgestelde handelingen;
T18	;Identificatie-vignet;
T19	;;Oprecht en waar verklaard,;
T20	;(Datum);(Handtekening);(Naam en hoedanigheid);
T21	;Begeleidingsnota voor diskette met een enkele opgave;
	;
T0F	;Listing annuel de TVA ;
T1F	;Edition du bordereau d'envoi;
T3F	;Confirmation\".[] = bien imprimé   ,[] = reprendre";
T4F	;Données techniques;
T5F	;Système;MS-DOS;
T6F	;Codage;Ascii;
T7F	;Longueur records;128 octets;
T8F	;Séparateur records;CR LF (Hex : 0D 0A);
T9F	;Nom du fichier;
T10F	;Données de contrôle;
T11F	;Numéro d'immatriculation;
T12F	;Personne à contacter;
T13F	;Numéro de téléphone;
T14F	;Trimestre du relevé;
T15F	;Nombre de clients;
T16F	;Montant total;
T17F	;Relevé trimestriel des livraisons;intracommunautaires des marchandises;et des actions comparables;
T18F	;Vignette d'identification;
T19F	;;Déclaré complet et correcte,;
T20F	;(Date);(Signature);(Nom et fonction);
T21F	;Document accompagnent disquette avec un seul fichier;
	;
T0E	;VAT-report ;
T1E	;Print shipment list;
T3E	;Confirmation\".[] = printed correctly   ,[] = retry";
T4E	;Technical data;
T5E	;System;MS-DOS;
T6E	;Encoding;Ascii;
T7E	;Record length;128 bytes;
T8E	;Record separator;CR LF (Hex : 0D 0A);
T9E	;File name;
T10E	;Check data;
T11E	;VAT registration number;
T12E	;Contact;
T13E	;Telephone number;
T14E	;Statement period;
T15E	;Number of customers;
T16E	;Total amount;
T17E	;    Quarter statement of the exempt;intracommunity deleveries of goods; and equalized acts;
T18E	;Identification-vignette;
T19E	;;Declared sincere and true,;
T20E	;(Date);(Signature);(Name and in the capacity of);
T21E	;Accompagnying note for diskette of with one statement;
	;
	; blanco lijn
S1	S TXT(1)="",TXT(2)="" D ^cA334
S1Z	Q
	;
	; tekst rechts
S2	S TXT(2)=$P($T(@("T"_X_QT)),U,3)_"\\1" D S3
S2Z	Q
	;
	; tekst links
S3	S TXT(1)=$P($T(@("T"_X_QT)),U,2)_"\\1" D ^cA334
S3Z	Q
	;
	; muntcode
S4	W $$CR^cA334 W ?48,BF Q
	;
1	S FP=2003 W @F,@F1,$P($T(@("T1"_QT)),U,2) S AEX=0
11	D ^cAN3223(0,1,80,0) I K="-" G 11
	G ^cAT1171
13	S HD(1)=D_$P($T(@("T17"_QT)),U,2)_";C;F81",HD(2)=D_$P($T(@("T17"_QT)),U,3)_";C;F81",HD(3)=D_$P($T(@("T17"_QT)),U,4)_";C;F81",TAB=30_D_78
15	S TOP(1,1)=$P($T(@("T21"_QT)),U,2)_";C",TOP(2,1)=""
	;
2	D S1 S X=18 D S2 F X=1:1:7 D S1
21	S END=145 D ^cA334,S1 S X=10 D S2,S1
23	S TXT(2)=U3_D_D_1,X=11 D S3 F X=12,13 D S2
25	S TXT(2)=KW_"/"_(BP1\1)_D_D_1,X=14 D S3
27	S TXT(2)=VNR_"\\\31\1\0",X=15 D S3
29	S TXT(2)=TOT_"\\\31\1\"_QD,X=16 D S3,S4,S1
	;
3	S END=145 D ^cA334,S1 S X=4 D S2,S1 F X=5:1:8 D S2
31	S K=$E($P(^HULP("TR",Q,TNR,0),D,6),3,999),TXT(2)=$P(K,U,$L(K,U))_"\\1",X=9 D S3,S1
33	S END=145 D ^cA334,S1 S X=19 D S2,S1
35	F X=2:1:4 D S1 S TXT(1)=$P($T(@("T20"_QT)),U,X)_D_1_D_D_1 D ^cA334
37	D S1 S END=4 D ^cA334 S AEX=AEX+1 G 2:AEX<3 S END=6 D ^cA334
	;
4	S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G ^cA702:K=".",11
	;
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00