cT9105	;BTW-aangifte ;%T91 ;%T9104>.>%T9106 ; [ 08/18/00  4:48 PM ]
	G 1
	;
T0	;BTW-aangifte;
T1	;A\B\D\M\J\C\D\Best. Periode;
T2	;NIET DOOR DE AANGEVER IN TE VULLEN;
T3	; BTW-NUMMER VAN; DE BOEKHOUDER;
T4	; AANVRAAG OM; TERUGBETALING;
T5	; AANVRAAG VAN; IDENTIFICATIE-ETIKETTEN;       
	;
T0F	;Déclaration à la TVA;
T1F	;A\B\J\M\A\C\D\Cde.  PERIODE;
T2F	;CADRE RESERVE A L'ADMINISTRATION;
T3F	; NUMERO DE TVA; DU COMPTABLE;
T4F	; DEMANDE DE; RESTITUTION;
T5F	; DEMANDE DE VIGNETTES; D'IDENTIFICATION;
	;
T0E	;BTW-aangifte;
T1E	;A\B\D\M\J\C\D\Best. Periode;
T2E	;NIET DOOR DE AANGEVER IN TE VULLEN;
T3E	; BTW-NUMMER VAN; DE BOEKHOUDER;
T4E	; AANVRAAG OM; TERUGBETALING;
T5E	; AANVRAAG VAN; IDENTIFICATIE-ETIKETTEN;       
	;
	; controletotaal
1	S CTRL=0
11	S BTWAG="" I $L($P(B(1),D,7)) S BTWAG=$TR($$BTW^cAFO1($P(B(1),D,7))," .","")
13	I $L(BTWAG) S CTRL=CTRL+$TR(BTWAG,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","")
15	S BTWBH="" I $L($P(B(1),D,8)) S BTWBH=$TR($$BTW^cAFO1($P(B(1),D,8))," .","")
17	I $L(BTWBH) S CTRL=CTRL+$TR(BTWBH,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","")
19	S (AANVR1,AANVR2)="" ; aanvragen: terugbetaling en id-etiketten
	;
	; lijn "niet door aangever in te vullen", en "BTW-nummer van" 
2	S TAB="39\79"
21	S TXT(1)=$P($T(@("T2"_QT)),U,2)_"\2" 
23	S TXT(2)=$P($T(@("T3"_QT)),U,2),$P(TXT(2),D,7)="K I 'PTS W @F81,K,@F83,$$CR^cA334 S K=""""" 
25	D ^cA334 I 'PTS W $$CR^cA334 W ?53,@F88,$J("",5),@F89,$$CR^cA334 W ?59,@F88,$J("",19),@F89
	;
3	; lijn: A,B,D,M, en "de boekhouder"
31	S TAB="39\53\57\59\65\71\77\79" K TXT
33	S TXT(1)="        A B  "_$P($P($T(@("T1"_QT)),U,2),D,3)_"   "_$P($P($T(@("T1"_QT)),U,2),D,4)_"     "_$P($P($T(@("T1"_QT)),U,2),D,5)
	; BTW-nr
35	S TXT(3)=$S($L($E(BTWBH)):$E(BTWBH),1:" ")_":"_$E(BTWBH,2),TXT(4)=" "
	S TXT(5)=$S($L($E(BTWBH,3)):$E(BTWBH,3),1:" ")_":"_$S($L($E(BTWBH,4)):$E(BTWBH,4),1:" ")_":"_$E(BTWBH,5)
	S TXT(6)=$S($L($E(BTWBH,6)):$E(BTWBH,6),1:" ")_":"_$S($L($E(BTWBH,7)):$E(BTWBH,7),1:" ")_":"_$E(BTWBH,8)
	S TXT(7)=$S($L($E(BTWBH,9)):$E(BTWBH,9),1:" ")_":"_$S($L($E(BTWBH,10)):$E(BTWBH,10),1:" ")_":"_$E(BTWBH,11)
37	S TXT(2)=$P($T(@("T3"_QT)),U,3),$P(TXT(2),D,7)="K I 'PTS W @F81,K,@F83,$$CR^cA334 S K=""""" D ^cA334
39	I 'PTS W $$CR^cA334 W ?6,@F88,$J("",23),@F89,$$CR^cA334 W ?53,@F88,$J("",5),@F89,$$CR^cA334 W ?59,@F88,$J("",19),@F89
	;
	;links: "1 1 *" + lege vakjes
4	S TAB="6\8\10\12\16\20\28\39\79" K TXT
41	S TXT(2)=1,TXT(3)=1,TXT(4)=BF="EUR",TXT(5)=" :",TXT(6)=" :",TXT(7)=" : : :" D ^cA334 I 'PTS W $$CR^cA334 W ?6,@F88,$J("",23),@F89
	;links: "2" + lege vakjes ;rechts: "aanvraag"
43	S TAB="6\8\10\12\16\20\28\39\59\79" K TXT
45	S TXT(2)=2
47	S TXT(5)=" :",TXT(6)=" :",TXT(7)=" : : :"
48	S TXT(9)=$P($T(@("T4"_QT)),U,2),$P(TXT(9),D,7)="K I 'PTS W @F81,K,@F83,$$CR^cA334 S K="""""
	S TXT(10)=$P($T(@("T5"_QT)),U,2),$P(TXT(10),D,7)="K I 'PTS W @F81,K,@F83,$$CR^cA334 S K=""""" D ^cA334
49	I 'PTS W $$CR^cA334 W ?6,@F88,$J("",23),@F89,$$CR^cA334 W ?53,@F88,"   ",@F89,$$CR^cA334 W ?76,@F88,"   ",@F89
	;
	;links "C D" ;rechts "Terugbetaling"
5	S TAB="39\53\55\59\76\78\79" K TXT
51	S TXT(1)="        C D  "_$P($P($T(@("T1"_QT)),U,2),D,8)
53	S TXT(2)=$P($T(@("T4"_QT)),U,3),$P(TXT(2),D,7)="K I 'PTS W @F81,K,@F83,$$CR^cA334 S K=""""",TXT(3)=AANVR1
55	S TXT(5)=$P($T(@("T5"_QT)),U,3),$P(TXT(5),D,7)="K I 'PTS W @F81,K,@F83,$$CR^cA334 S K=""""",TXT(6)=AANVR2
57	D ^cA334  I 'PTS W $$CR^cA334 W ?53,@F88,"   ",@F89,$$CR^cA334 W ?76,@F88,"   ",@F89 
	;
YZ	G ^cT9106
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00