cT9106	;BTW-aangifte ;%T91 ;%T9105>.>%T9107 ; [ 08/09/00  2:03 PM ]
	G 1
	;
T0	;BTW-aangifte;
T1	; AANVRAAG VAN; BETAALFORMULIEREN;
	;
T0F	;Déclaration à la TVA;
T1F	; DEMANDE DE FORMULES; DE PAIEMENT;
	;
T0E	;BTW-aangifte;
T1E	; AANVRAAG VAN; BETAALFORMULIEREN;
	;
1	S AANVR3=""
11	S TAB="39\59\79" K TXT
13	S TXT(3)=$P($T(@("T1"_QT)),U,2),$P(TXT(3),D,7)="K I 'PTS W @F81,K,@F83,$$CR^cA334 S K=""""" D ^cA334
15	I 'PTS W $$CR^cA334 W ?76,@F88,"   ",@F89
	;
	; rechts "betaalformulieren"
2	S TAB="39\59\76\78\79" K TXT
21	S TXT(3)=$P($T(@("T1"_QT)),U,3),$P(TXT(3),D,7)="K I 'PTS W @F81,K,@F83,$$CR^cA334 S K=""""",TXT(4)=AANVR3 D ^cA334
23	I 'PTS W $$CR^cA334 W ?76,@F88,"   ",@F89
25	I PTS S TAB=79,END=3,LN=1 D ^cA334 S TXT(1)="" D ^cA334
27	I 'PTS S TAB="39\79",END=0,LN=1,TXT(1)="" K TXT D ^cA334 S TAB=79 W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334
	;
YZ	G ^cT9107
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00