cAT1190D	;Printen lijst BTW belastingsplichtige afnemers    ;cAT119D
	;
	G YZ
	;
T0	;BELASTING OVER DE TOEGEVOEGDE WAARDE;
T35	;KADER II : VOORBEHOUDEN AAN DE ADMINISTRATIE;
T36	;Datum ontvangst;
T37	;E;
T38	;Munt;
T39	;Aantal pag.;
T40	;A/B/L/R;
T41	;Datum verwerking;
T42	;KADER III : LIJST VAN DE AFNEMERS;
T43	;N;
T44	;BTW-NUMMER AFNEMER;
T45	;OMZETCIJFER (ZONDER BTW);
T46	;BEDRAG VAN BTW;
T47	;01;02;03;04;05;06;07;08;09;10;11;12;13;14;15;16;17;18;19;20;21;22;
T48	;725 - N - 2007;
T49	;TOTAALBEDRAG  PAGINA;
T51	;VERVOLG VAN KADER III : LIJST VAN DE AFNEMERS
	;
T0F	;BELASTING OVER DE TOEGEVOEGDE WAARDE;
T35F	;CADRE II: RESERVE A L'ADMINISTRATION;
T36F	;Date de réception;
T37F	;E;
T38F	;Monnaie;
T39F	;Nombre de pages;
T40F	;A/B/L/R;
T41F	;Date de traitement;
T42F	;CADRE III: LISTE DES CLIENTS
T43F	;N;
T44F	;NUMERO TVA CLIENT
T45F	;CHIFFRE D'AFFAIRES HTVA;
T46F	;MONTANT DE LA TVA;
T47F	;01;02;03;04;05;06;07;08;09;10;11;12;13;14;15;16;17;18;19;20;21;22;
T48F	;725 - F - 2007;
T49F	;TOTAL  DE  LA  PAGE;
T51F	;SUITE DU CADRE III: LISTE DES CLIENTS;
	;
T0D	;BELASTING OVER DE TOEGEVOEGDE WAARDE;
T35D	;RAHMEN II: NUR FÜR DIE VERWALTUNG;
T36D	;Eingegangen am;
T37D	;E;
T38D	;Währung;
T39D	;Anzahl Seiten;
T40D	;A/B/L/R;
T41D	;Datum der Bearbeitung;
T42D	;RAHMEN III: KUNDENAUFSTELLUNG
T43D	;N;
T44D	;MWST-NUMMER KUNDEN
T45D	;TOTALUMSATZ (OHNE MWST)
T46D	;MWST-BETRAG
T47D	;01;02;03;04;05;06;07;08;09;10;11;12;13;14;15;16;17;18;19;20;21;22;
T48D	;725 - D - 2007;
T49D	;GESAMTBETRAG  SEITE;
T51D	;FORTSETZUNG VON RAHMEN III: KUNDENAUFSTELLUNG;
	;
	;
BLANC	; kader 3
	W $C(27),"(s0b10.00V"
	W $C(27),"*p",X+250,"X",$C(27),"*p",Y+1785,"Y",$P($T(@("T35"_QT)),U,2)    ;KADER II : 
	W $C(27),"(s0b9.00V"
	W $C(27),"*p",X+155,"X",$C(27),"*p",Y+1930,"Y",$P($T(@("T36"_QT)),U,2)    ;Datum ontvangst
	W $C(27),"(s0b12.00V"
	W $C(27),"*p",X+775,"X",$C(27),"*p",Y+1865,"Y",$P($T(@("T37"_QT)),U,2)    ;E
	W $C(27),"(s0b9.00V"
	I QT="" W $C(27),"*p",X+753,"X",$C(27),"*p",Y+1930,"Y",$P($T(@("T38"_QT)),U,2)    ;Munt 
	I QT="F" W $C(27),"*p",X+753,"X",$C(27),"*p",Y+1930,"Y",$P($T(@("T38"_QT)),U,2)    ;Munt (F)
	I QT="D" W $C(27),"*p",X+753,"X",$C(27),"*p",Y+1930,"Y",$P($T(@("T38"_QT)),U,2)
	I QT="" W $C(27),"*p",X+1030,"X",$C(27),"*p",Y+1930,"Y",$P($T(@("T39"_QT)),U,2)    ;Aantal blz
	I QT="F" W $C(27),"*p",X+1000,"X",$C(27),"*p",Y+1930,"Y",$P($T(@("T39"_QT)),U,2)    ;Aantal blz (F)
	I QT="D" W $C(27),"*p",X+1000,"X",$C(27),"*p",Y+1930,"Y",$P($T(@("T39"_QT)),U,2)
	W $C(27),"*p",X+1405,"X",$C(27),"*p",Y+1930,"Y",$P($T(@("T40"_QT)),U,2)    ;A/B/L/R
	W $C(27),"*p",X+1795,"X",$C(27),"*p",Y+1930,"Y",$P($T(@("T41"_QT)),U,2)    ;Datum verwerking
	;Kader 4
	W $C(27),"(s0b10.00V"
	W $C(27),"*p",X+250,"X",$C(27),"*p",Y+2030,"Y",$P($T(@("T42"_QT)),U,2)    ;KADER III : 
	W $C(27),"(s0b10.00V"
	W $C(27),"*p",X,"X",$C(27),"*p",Y+3315,"Y",$P($T(@("T48"_QT)),U,2)    ;725 - N - 2003
	W $C(27),"(s0b10.00V"
	I QT="" W $C(27),"*p",X+290,"X",$C(27),"*p",Y+3250,"Y",$P($T(@("T49"_QT)),U,2)    ;Totaal.. (F)
	I QT="F" W $C(27),"*p",X+310,"X",$C(27),"*p",Y+3250,"Y",$P($T(@("T49"_QT)),U,2)    ;Totaal.. (F)
	I QT="D" W $C(27),"*p",X+310,"X",$C(27),"*p",Y+3250,"Y",$P($T(@("T49"_QT)),U,2)
	;  Printen gegevens BTW-aangifte
	W $C(27),"(1O"                   ; OCR-B
	W $C(27),"(s0p10.00h20.00v0s0b110T"
	W $C(27),"*p",X+45,"X",$C(27),"*p",Y+2125,"Y",$P($T(@("T43"_QT)),U,2)    ;Nr
	W $C(27),"*p",X+170,"X",$C(27),"*p",Y+2125,"Y",$P($T(@("T44"_QT)),U,2)    ;BTW - nummer
	I QT="" W $C(27),"*p",X+850,"X",$C(27),"*p",Y+2125,"Y",$P($T(@("T45"_QT)),U,2)    ;Omzet
	I QT="F" W $C(27),"*p",X+850,"X",$C(27),"*p",Y+2125,"Y",$P($T(@("T45"_QT)),U,2)    ;Omzet (F)
	I QT="D" W $C(27),"*p",X+850,"X",$C(27),"*p",Y+2125,"Y",$P($T(@("T45"_QT)),U,2)
	I QT="" W $C(27),"*p",X+1620,"X",$C(27),"*p",Y+2125,"Y",$P($T(@("T46"_QT)),U,2)    ;BTW - Bedrag
	I QT="F" W $C(27),"*p",X+1620,"X",$C(27),"*p",Y+2125,"Y",$P($T(@("T46"_QT)),U,2)    ;BTW - Bedrag (F)
	I QT="D" W $C(27),"*p",X+1620,"X",$C(27),"*p",Y+2125,"Y",$P($T(@("T46"_QT)),U,2)
	W $C(27),"*p",X+43,"X",$C(27),"*p",Y+2230,"Y",$P($T(@("T47"_QT)),U,2)    ;1
	W $C(27),"*p",X+43,"X",$C(27),"*p",Y+2330,"Y",$P($T(@("T47"_QT)),U,3)    ;2
	W $C(27),"*p",X+43,"X",$C(27),"*p",Y+2430,"Y",$P($T(@("T47"_QT)),U,4)    ;3
	W $C(27),"*p",X+43,"X",$C(27),"*p",Y+2530,"Y",$P($T(@("T47"_QT)),U,5)    ;4
	W $C(27),"*p",X+43,"X",$C(27),"*p",Y+2630,"Y",$P($T(@("T47"_QT)),U,6)    ;5
	W $C(27),"*p",X+43,"X",$C(27),"*p",Y+2730,"Y",$P($T(@("T47"_QT)),U,7)    ;6
	W $C(27),"*p",X+43,"X",$C(27),"*p",Y+2830,"Y",$P($T(@("T47"_QT)),U,8)    ;7
	W $C(27),"*p",X+43,"X",$C(27),"*p",Y+2930,"Y",$P($T(@("T47"_QT)),U,9)    ;8
	W $C(27),"*p",X+43,"X",$C(27),"*p",Y+3030,"Y",$P($T(@("T47"_QT)),U,10)    ;9
	W $C(27),"*p",X+39,"X",$C(27),"*p",Y+3130,"Y",$P($T(@("T47"_QT)),U,11)    ;10
BLANCZ	Q
	;
YZ	Q
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00