cAT1171	;BTW-listing ;%AT11 ;go uit %AT116
	;
	G 1
	;
T0	; Kwartaalopgave van de I.C.-leveringen;
T1	;Kwartaalopgave van de vrijgestelde;
T2	;intracommunautaire leveringen van goederen;
T3	;en de daarmee gelijkgestelde handelingen;
T4	;CD-ROM/DISKETTE(*) MET EEN ENKELE OPGAVE;
T5	;BEGELEIDINGSNOTA;
T6	;Naam of benaming van de belastingplichtige:;
T7	;BTW-registratienummer:;
T8	;Contactpersoon:;
T9	;Telefoonnummer:;
T10	;Periode waarop de opgave betrekking heeft:;
T11	;Aantal in de opgave opgenomen klantenrecords:;
T12	;Totaal van de opgave:;
T13	;Oprecht en waar verklaard,;
T14	;                (datum);
T15	;         (handtekening);
T16	;(naam en hoedanigheid);
	;
T0F	; Kwartaalopgave van de I.C.-leveringen;
T1F	;Relevé trimestriel des livraisons intracommunautaires;
T2F	;des marchandises et des actions comparables;
T3F	;;
T4F	;CD-ROM/DISQUETTE(*) AVEC UN SEUL FICHIER;
T5F	;DOCUMENT ACCOMPAGNANT;
T6F	;Nom ou dénomination de l'assujetti:;
T7F	;Numéro d'immatriculation:;
T8F	;Personne à contacter:;
T9F	;Numéro de télephone:;
T10F	;Période à laquelle se rapporte ce relevé:;
T11F	;Nombre de clients repris dans ce relevé:;
T12F	;Montant total du relevé:;
T13F	;Déclaré complet et correcte,;
T14F	;          (Date);
T15F	;     (Signature);
T16F	;(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)
	. W !,?(78-$L($P($T(@("T2"_QT)),U,2))/2),$P($T(@("T2"_QT)),U,2)
	. W !,?(78-$L($P($T(@("T3"_QT)),U,2))/2),$P($T(@("T3"_QT)),U,2)
	. S LIJN="--------------"
	. W !!,?(78-$L(LIJN)/2),LIJN
	. W !!,?(78-$L($P($T(@("T4"_QT)),U,2))/2),$P($T(@("T4"_QT)),U,2)
	. W !!,?(78-$L(LIJN)/2),LIJN
	. W !!,?(78-$L($P($T(@("T5"_QT)),U,2))/2),$P($T(@("T5"_QT)),U,2)
	. W !!,?(78-$L(LIJN)/2),LIJN
	. W !!,?2,$P($T(@("T6"_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)
	. I ((BP1\1)<2007),($$DC^cAFD1(DT)<20070212) W !,?46,$P($G(@("^"_Q_"BTW(0,0)")),D,6)
	. W !!!,?2,$P($T(@("T7"_QT)),U,2)_" "_$S(((BP1\1)<2007)&($E($P($G(@("^"_Q_"BTW(0,0)")),D,7),3,999)?10N)&($$DC^cAFD1(DT)<20070212):$E($P($G(@("^"_Q_"BTW(0,0)")),D,7),1,2)_" "_$E($P($G(@("^"_Q_"BTW(0,0)")),D,7),4,6)_"."_$E($P($G(@("^"_Q_"BTW(0,0)")),D,7),7,9)_"."_$E($P($G(@("^"_Q_"BTW(0,0)")),D,7),10,12),1:$$BTW^cAFO1($P($G(@("^"_Q_"BTW(0,0)")),D,7)))
	. W !!!,?2,$P($T(@("T8"_QT)),U,2)_" "_$P($G(@("^"_Q_"BA(""%T"",13,""K"",1)")),D)
	. W !!!,?2,$P($T(@("T9"_QT)),U,2)_" "_$P($G(@("^"_Q_"BA(""%T"",13,""K"",1)")),D,2)
	. W !!!,?2,$P($T(@("T10"_QT)),U,2),?50,KW_"/"_(BP1\1)
	. W !!!!,?2,$P($T(@("T11"_QT)),U,2),?50,VNR
	. W !!!,?2,$P($T(@("T12"_QT)),U,2),?50,$$IP^cAFA1(TOT,QD,"")_" "_BF
	. W !!!!!,?(78-$L($P($T(@("T13"_QT)),U,2))/2),$P($T(@("T13"_QT)),U,2)
	. W !!!!,?2,$P($T(@("T14"_QT)),U,2)
	. W !!!,?2,$P($T(@("T15"_QT)),U,2)
	. W !!!,?2,$P($T(@("T16"_QT)),U,2)
	. W $$FF^cA334
	;
3	X F71
31	G 4^cAT117
	;
YZ	Q
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00