cT9109	;BTW-aangifte ;%T91 ;%T9108>.>%T91 ; [ 08/09/00  2:12 PM ]
	G 1
	;
T0	;BTW-aangifte;
T1	;Handtekening(en) :;
T2	;Naam en hoedanigheid van de ondertekenaar(s) :;
	;
T0F	;Déclaration à la TVA;
T1F	;Signature(s) :;
T2F	;Nom et qualité du (des) signataire(s) :;
	;
T0E	;BTW-aangifte;
T1E	;Handtekening(en) :;
T2E	;Naam en hoedanigheid van de ondertekenaar(s) :;
	;
1	I 'PTS W $$CR^cA334 W ?39,@F88,$J("",39),@F89 
11	S END=132 D ^cA334
13	S TXT(1)=$P($T(@("T1"_QT)),U,2)_"\0\2",$P(TXT(1),D,7)="K I 'PTS W @F84,K,@F83,$$CR^cA334 S K=""""",TXT(2)="" D ^cA334
15	I 'PTS&(BF="EUR") W $$CR^cA334 W ?41,@F88,$J("",35),@F89
17	I 'PTS&(BF'="EUR") W $$CR^cA334 W ?43,@F88,$J("",33),@F89
	;
2	I BF="EUR" S TAB="39\41\45\51\57\63\69\75\77\79" K TXT S TXT(3)=" :",(TXT(4),TXT(5),TXT(6),TXT(7),TXT(8))=" : :"
	I BF'="EUR" S TAB="39\43\45\51\57\63\69\75\77\79" K TXT S (TXT(4),TXT(5),TXT(6),TXT(7),TXT(8))=" : :"
21	D ^cA334 I 'PTS&(BF="EUR") W $$CR^cA334 W ?41,@F88,$J("",35),@F89
	I 'PTS&(BF'="EUR") W $$CR^cA334 W ?43,@F88,$J("",33),@F89
23	S TAB="39\77\79" D ^cA334,^cA334 I 'PTS W $$CR^cA334 W ?39,@F88,$J("",39),@F89
25	S TAB=79,TXT(1)=$P($T(@("T2"_QT)),U,2)_"\0\2",$P(TXT(1),D,7)="K I 'PTS W @F84,K,@F83,$$CR^cA334 S K=""""" D ^cA334
27	S END=132 D ^cA334 S END=132 D ^cA334
28	I PTS S END=1 D ^cA334 G YZ
29	W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334 S END=6 D ^cA334
	;
YZ	G 5^cT91
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00