cAT112	;BTW-listing ;%AT11 ;go uit %AT111 ; [ 01/03/01  5:15 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	;Aantal klanten;
T12	;Totaal omzet;
T13	;Totaal BTW;
T14	;Totaal omzet+BTW;
T15	;BTW-nummer;
T16	;Kalenderjaar;
	;
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	;Long.record;128 bytes;
T8F	;Record separator;CR LF (Hex : 0D 0A);
T9F	;Nom fichier;
T10F	;Données de contrôle;
T11F	;Nombre clients;
T12F	;C.A. total;
T13F	;T.V.A. total;
T14F	;C.A.+T.V.A total;
T15F	;N° T.V.A.;
T16F	;Année civile;
	;
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	;Number of customers;
T12E	;Turnover total;
T13E	;VAT total;
T14E	;Turnover+VAT total;
T15E	;VAT number;
T16E	;Calender-year;
	;
	; 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)
11	D ^cAN3223("","1") I K="-" G 11
12	G ^cAT1121
13	S HD(1)=D,HD(2)=D_$P($T(@("T0"_QT)),U,2)_";C;F82",HD(3)=D,TAB=30_D_78
	;
2	D S1 S X=4 D S2,S1 F X=5:1:8 D S2
21	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
22	S END=145 D ^cA334,S1 S X=10 D S2,S1
23	S TXT(2)=TEL_"\\\30\1\0",X=11 D S3
24	S TXT(2)=T(1)_"\\\30\1\"_QD,X=12 D S3,S4
25	S TXT(2)=T(2)_"\\\30\1\"_QD,X=13 D S3,S4
26	S TXT(2)=T(1)+T(2)_"\\\30\1\"_QD,X=14 D S3,S4,S1
27	S U3=$$BTW^cAFO1(UBTW),TXT(2)=U3_"\\1",X=15 D S3,S1
28	S TXT(2)=KJ_"\\1",X=16 D S3,S1
29	S END=1 D ^cA334
	;
3	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