cT9113	;BTW-aangifte ;%T91 ;%T9112;       [ 16/11/09  14:35:01 ]
	G 1
	;
T0	;BTW-aangifte;
T1	; VII VOORSCHOT; 
	;
T0F	;Déclaration à la TVA;
T1F	; VII ACOMPTE; 
	;
T0E	;BTW-aangifte;
T1E	; VII VOORSCHOT; 
	;
1	S TAB="16\19\36\39\56\59\79" S END=3 D ^cA334
11	S I="48",TXT(1)="",TXT(2)=I I VAK(I) S TXT(1)=VAK(I)_"\\\\1\"_QD
13	S I="87",TXT(3)="",TXT(4)=I I VAK(I) S TXT(3)=VAK(I)_"\\\\1\"_QD
15	S TXT(5)="",TXT(6)=""
17	S TXT(7)=$P($T(@("T1"_QT)),U,2),$P(TXT(7),D,7)="K I 'PTS W @F86,K,@F87,$$CR^cA334 S K=""""" D ^cA334
19	S END=3 D ^cA334
	;
2	S TAB="16\19\36\39\56\59\76\79" 
21	S I="49",TXT(1)="",TXT(2)=I I VAK(I) S TXT(1)=VAK(I)_"\\\\1\"_QD
23	I BP1<2010 S TXT(3)="",TXT(4)="" G 25
	; KU : 12.11.09
	S I="88",TXT(3)="",TXT(4)=I I VAK(I) S TXT(3)=VAK(I)_"\\\\1\"_QD
	;
25	S TXT(5)="",TXT(6)=""
27	S I="91",TXT(7)="",TXT(8)=I I VAK(I) S TXT(7)=VAK(I)_"\\\\1\"_QD
29	D ^cA334 S TAB="39\79",END=3 D ^cA334 S END=1 D ^cA334 G 5^cT91 
	;
YZ	Q
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00