cAT1121	;BTW-listing ;%AT11 ;go uit %AT112
	;
	G 1
	;
T0	; BTW-listing op diskette;
T1	;Jaarlijkse opgave van de afnemers-belastingplichtigen;
T2	;CD-ROM/DISKETTE(*) MET EEN ENKELE OPGAVE;
T3	;BEGELEIDINGSNOTA;
T4	;Naam of benaming van de belastingplichtige:;
T5	;BTW-registratienummer:;
T6	;Contactpersoon:;
T7	;Telefoonnummer:;
T8	;Jaar waarin de handelingen ;werden verricht die in de opgave zijn opgenomen:;
T9	;Aantal in de opgave opgenomen afnemers:;
T10	;Totaal omzetcijfer (belastingen niet inbegrepen):;
T11	;Totaal bedrag van de belastingen:;
T12	;Oprecht en waar verklaard,;
T13	;                (datum);
T14	;         (handtekening);
T15	;(naam en hoedanigheid);
	;
T0F	; BTW-listing op diskette;
T1F	;Relevé annuel des acheteurs-assujettis;
T2F	;CD-ROM/DISQUETTE(*) AVEC UN SEUL FICHIER;
T3F	;DOCUMENT ACCOMPAGNANT;
T4F	;Nom ou dénomination de l'assujetti:;
T5F	;Numéro d'immatriculation:;
T6F	;Personne à contacter:;
T7F	;Numéro de téléphone:;
T8F	;Année à laquelle se rapporte ce relevé:;
T9F	;Nombre d'assujettis repris dans ce relevé:;
T10F	;Chiffre d'affaires total (taxes non compris):;
T11F	;Montant total des taxes:;
T12F	;Déclaré complet et correcte,;
T13F	;          (Date);
T14F	;     (Signature);
T15F	;(Nom et qualité);
	;
1	N LIJN
11	S $ZT="TRAP^cAN000"
13	X F70
	;
2	F I=1:1:3 D
	. W !!!,?(78-$L($P($T(@("T1"_QT)),U,2))/2),$P($T(@("T1"_QT)),U,2)
	. S LIJN="--------------"
	. W !!,?(78-$L(LIJN)/2),LIJN
	. W !!,?(78-$L($P($T(@("T2"_QT)),U,2))/2),$P($T(@("T2"_QT)),U,2)
	. W !!,?(78-$L(LIJN)/2),LIJN
	. W !!,?(78-$L($P($T(@("T3"_QT)),U,2))/2),$P($T(@("T3"_QT)),U,2)
	. W !!,?(78-$L(LIJN)/2),LIJN
	. W !!,?2,$P($T(@("T4"_QT)),U,2)
	. W ?46,$P($G(@("^"_Q_"BTW(0,0)")),D,2)
	. W !,?46,$P($G(@("^"_Q_"BTW(0,0)")),D,3)
	. W !,?46,$P($G(@("^"_Q_"BTW(0,0)")),D,4)
	. W !,?46,$P($G(@("^"_Q_"BTW(0,0)")),D,5)
	. ; W !,?46,$P($G(@("^"_Q_"BTW(0,0)")),D,6)
	. W !!!!,?2,$P($T(@("T5"_QT)),U,2)_" "_$$BTW^cAFO1($P($G(@("^"_Q_"BTW(0,0)")),D,7))
	. W !!!,?2,$P($T(@("T6"_QT)),U,2)_" "_$P($G(@("^"_Q_"BA(""%T"",13,""J"",1)")),D)
	. W !!!,?2,$P($T(@("T7"_QT)),U,2)_" "_$P($G(@("^"_Q_"BA(""%T"",13,""J"",1)")),D,2)
	. I QT'="F" W !!!,?2,$P($T(@("T8"_QT)),U,2),!,?2,$P($T(@("T8"_QT)),U,3),?54,KJ
	. I QT="F" W !!!,?2,$P($T(@("T8"_QT)),U,2),?54,KJ
	. W !!!!,?2,$P($T(@("T9"_QT)),U,2),?54,TEL
	. W !!!,?2,$P($T(@("T10"_QT)),U,2),?54,$$IP^cAFA1(T(1),QD,10)_" "_BF
	. W !!!,?2,$P($T(@("T11"_QT)),U,2),?54,$$IP^cAFA1(T(2),QD,10)_" "_BF
	. W !!!!!,?(78-$L($P($T(@("T12"_QT)),U,2))/2),$P($T(@("T12"_QT)),U,2)
	. W !!!!,?2,$P($T(@("T13"_QT)),U,2)
	. W !!!,?2,$P($T(@("T14"_QT)),U,2)
	. W !!!,?2,$P($T(@("T15"_QT)),U,2)
	. W $$FF^cA334
	;
3	X F71
31	G 3^cAT112
	;
YZ	Q
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00