cT9108	;BTW-aangifte ;%T91 ;%T9107>.>%T9109 ; [ 08/09/00  2:11 PM ]
	G 1
	;
T0	;BTW-aangifte;
T1	; VII VOORSCHOT; 
T2	; Controletotaal : ;
T3	; VIII DATUM en HANDTEKENING(EN);
T4	;Ik verklaar dat deze aangifte oprecht en volledig is.;
T5	;Datum :;Telefoon :;
T6	;  Niet door de aangever in te vullen;
	;
T0F	;Déclaration à la TVA;
T1F	; VII ACOMPTE; 
T2F	; Total de contrôle : ;
T3F	; VIII DATE et SIGNATURE(S);
T4F	;Déclaration certifiée sincère et complète.;
T5F	;Date :;Téléphone n° :;
T6F	;  Cadre réservé à l'administration;
	;
T0E	;BTW-aangifte;
T1E	; VII VOORSCHOT; 
T2E	; Controletotaal : ;
T3E	; VIII DATUM en HANDTEKENING(EN);
T4E	;Ik verklaar dat deze aangifte oprecht en volledig is.;
T5E	;Datum :;Telefoon :;
T6E	;  Niet door de aangever in te vullen;
	;
1	I PTS S TAB="16\19\36\39\56\59\79" S END=3 D ^cA334 
	I 'PTS K TXT S END=0 D ^cA334 S TAB="16\19\36\39\56\59\79" W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334
11	S I="49",TXT(1)="",TXT(2)=I I VAK(I) S TXT(1)=VAK(I)_"\\\\1\"_QD
13	S TXT(3)="",TXT(4)=""
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	I PTS S END=3 D ^cA334
	I 'PTS K TXT S END=0 D ^cA334 W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334
	;
2	S TAB="16\19\36\39\56\59\76\79" 
21	S TXT(1)="",TXT(2)=""
23	S TXT(3)="",TXT(4)=""
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	I PTS D ^cA334 S TAB="39\79",END=3 D ^cA334 S END=1 D ^cA334 G 5^cT91 
	I 'PTS D ^cA334 S END=0 K TXT D ^cA334 S TAB="39\79" W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334
	;
	; controletotaal berekenen
3	F I="00","01","02","03",45:1:91 I $G(VAK(I)) S T=VAK(I)*$S(QD:10000,1:100)+I,CTRL=CTRL+T
	;
	; controletotaal eraanhangen  
4	S TXT(1)="",TXT(2)=$P($T(@("T2"_QT)),U,2)_$$IP^cAFA1(CTRL,0,0) D ^cA334
41	S TXT(1)=$P($T(@("T3"_QT)),U,2),$P(TXT(1),D,7)="K I 'PTS W @F86,K,@F87,$$CR^cA334 S K="""""
43	I PTS S TXT(2)=SL D ^cA334
45	I 'PTS S TXT(2)=VL D ^cA334
	;
	; oprecht en volledig ...
5	S TAB=79,LN=1
51	S TXT(1)=$P($T(@("T4"_QT)),U,2)_"\0\2",$P(TXT(1),D,7)="K I 'PTS W @F84,K,@F83,$$CR^cA334 S K=""""" D ^cA334
53	S TXT(1)="" D ^cA334 I 'PTS W $$CR^cA334 W ?39,@F88,$J("",39),@F89
55	S TAB="39\77\79",TXT(1)=$P($T(@("T5"_QT)),U,2)_"\0\2",$P(TXT(1),D,7)="K I 'PTS W @F84,K,@F83,$$CR^cA334 S K=""""" D ^cA334
57	S TXT(1)="",TXT(2)=$P($T(@("T6"_QT)),U,2),$P(TXT(2),D,7)="K I 'PTS W @F86,K,@F87,$$CR^cA334 S K=""""" D ^cA334
59	S TXT(1)=$P($T(@("T5"_QT)),U,3)_"\0\2",$P(TXT(1),D,7)="K I 'PTS W @F84,K,@F83,$$CR^cA334 S K=""""",TXT(2)="" D ^cA334
	;
YZ	G ^cT9109
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00