cT9120	;BTW-aangifte ;cT91 ;cT91>.>cT9111 ;           [ 16/11/09  16:37:43 ]
	G 1
	;
T0	;BTW-aangifte ;
T1	;Naam + adres ;
T2	;BTW-nr v/d aangever;
T3	;Aanvraag om terugbetaling;"[] = neen   1[] = ja";
T4	;Aanvraag van betaalformulieren;"[] = neen   1[] = ja"; 
T5	;Herzieningen (vak 61);in ;
T6	;Herzieningen (vak 62);in ;
T7	;Voorschot (vak 91);in ; niet wijzigbaar ;
T8	;BTW bankkosten (v 59);[] = enkel debet   S[] = saldo   xxxxx[] = bedrag in ;debet;saldo;
T9	;Naam + functie van ondertekenaar ;
T10	;Hoedanigheid v/d ondertekenaar(s);
T11	;Telefoonnr. v/d ondertekenaar(s);
T12	;E-mail van ondertekenaar ;
T13	;Telefoon van ondertekenaar ;
T95	;Aangifte van 2010 kan maar vanaf 05.02.10 worden ingediend.;
T96	;BTW-nummer is geen ondernemingsnummer;
T97	;U moet het BTW-nummers invullen! ;
T98	;Meerdere muntcodes in de geselecteerde maanden ;
T99	;Nummer element\"P[] = printen aangifte   N[] = nihil-aangifte   X[] = elektronische aangifte";
	;
T0F	;Déclaration à la TVA ;
T1F	;Nom + adresse ;
T2F	;N° TVA du déclarant;
T3F	;Demande de restitution;"[] = non   1[] = oui";
T4F	;Demande de formules de paiement;"[] = non   1[] = oui";
T5F	;Régularisation (61);en ;
T6F	;Régularisation (62);en ;
T7F	;Acompte (91);en ; ne pas modifiable ;
T8F	;TVA frais banque (59);[] = seulement débit   S[] = solde   xxxxx[] = montant en ;débit;solde;
T9F	;Nom + fonction signataire ;
T10F	;Qualité du (des) signataire(s);
T11F	;Téléphone du (des) signataire(s);
T12F	;E-mail du signataire ;
T13F	;Téléphone du signataire ;
T95F	;Une déclaration de 2010 ne peut être déposée qu'à partir du 05.02.10.;
T96F	;Numéro de TVA n'est pas un numéro d' entreprise;
T97F	;Il faut remplir les 2 numéros de TVA! ;
T98F	;Plusieurs codes mon. dans les mois sélectionnés ;
T99F	;Numéro d'élément\"P[] = imprimer la déclaration   N[] = déclaration nulle   X[] = déclaration électronique";
	;
T0E	;BTW-aangifte ;
T1E	;Naam + adres ;
T2E	;BTW-nr v/d aangever;
T3E	;Aanvraag om terugbetaling;"[] = neen   1[] = ja";
T4E	;Aanvraag van betaalformulieren;"[] = neen   1[] = ja"; 
T5E	;Herzieningen (vak 61);in ;
T6E	;Herzieningen (vak 62);in ;
T7E	;Voorschot (vak 91);in ; niet wijzigbaar ;
T8E	;BTW bankkosten (v 59);[] = enkel debet   S[] = saldo   xxxxx[] = bedrag in ;debet;saldo;
T9E	;Naam + functie ondertekenaar ;
T10E	;Hoedanigheid v/d ondertekenaar(s);
T11E	;Telefoonnr. v/d ondertekenaar(s);
T12E	;E-mail van ondertekenaar ;
T13E	;Telefoon van ondertekenaar ;
T95E	;It is only possible to submit the declaration of 2010 as from 05.02.10.;
T96E	;BTW-nummer is geen ondernemingsnummer;
T97E	;U moet het BTW-nummers invullen! ;
T98E	;Meerdere muntcodes in de geselecteerde maanden ;
T99E	;Nummer element\"P[] = printen aangifte   N[] = nihil-aangifte   X[] = elektronische aangifte";
	;
	; gegevens updaten
S2	S $P(B(BI\100),D,BI#100)=K
S2A	S @("^"_Q_"BTW(0,0)")=B(1),@("^"_Q_"BTW(BP2,0)")=B(2)
S2Z	Q
	;
	; muntcode & decimalen
1	S K=$$BJ^cAFE1(Q,BP2),MNT=$$MNTC^cAFE1(Q,K),BF=$P(MNT,D),QD=$P(MNT,D,2)
11	I BP1<BP2 S K=$$BJ^cAFE1(Q,BP1) I $$MNTC^cAFE1(Q,K)'=MNT S K=$P($T(@("T98"_QT)),U,2) D F1 S K="-" G 31
	;
	; data lezen + scherm opbouwen
2	S B(1)=$G(@("^"_Q_"BTW(0,0)")),B(2)=$G(@("^"_Q_"BTW(BP2,0)"))
	F I=1:1:4 W /CUP(4+I,2),$J(I,2),".",@F6,$P($T(@("T1"_QT)),U,2),I,@F9 W /CUP(4+I,26)," : ",@F2,$P(B(1),D,I+1)
	W /CUP(9,2)," 5.",@F6,$P($T(@("T2"_QT)),U,2),@F9," : " W /CUP(9,29),@F2,$$BTW^cAFO1($P(B(1),D,7))
	W /CUP(11,2)," 6.",@F6,$P($T(@("T9"_QT)),U,2),@F9 W /CUP(11,41)," : ",@F2,$P(B(1),D,9)
	; W /CUP(12,2)," 7.",@F6,$P($T(@("T9"_QT)),U,2)_"2",@F9 W /CUP(12,41)," : ",@F2,$P(B(1),D,12)
	W /CUP(12,2)," 7.",@F6,$P($T(@("T12"_QT)),U,2),@F9 W /CUP(12,41)," : ",@F2,$P(B(1),D,14)
	; W /CUP(13,2)," 8.",@F6,$P($T(@("T9"_QT)),U,2)_"3",@F9 W /CUP(13,41)," : ",@F2,$P(B(1),D,13)
	W /CUP(13,2)," 8.",@F6,$P($T(@("T13"_QT)),U,2),@F9 W /CUP(13,41)," : ",@F2,$P(B(1),D,15)
	W /CUP(15,2)," 9.",@F6,$P($T(@("T3"_QT)),U,2),@F9 W /CUP(15,41)," : ",@F2,$$JN^cAFO1($P(B(2),D,7))
	W /CUP(16,2),"10.",@F6,$P($T(@("T4"_QT)),U,2),@F9 W /CUP(16,41)," : ",@F2,$$JN^cAFO1($P(B(2),D,8))	
	W /CUP(17,2),"11.",@F6,$P($T(@("T5"_QT)),U,2),@F9 W /CUP(17,41),@F2," : " I $L($P(B(2),D)) W $$IP^cAFA1($P(B(2),D),QD,12)_BF
	W /CUP(18,2),"12.",@F6,$P($T(@("T6"_QT)),U,2),@F9 W /CUP(18,41),@F2," : " I $L($P(B(2),D,2)) W $$IP^cAFA1($P(B(2),D,2),QD,12)_BF
	W /CUP(19,2),"13.",@F6,$P($T(@("T7"_QT)),U,2),@F9 W /CUP(19,41),@F2," : " I $L($P(B(2),D,3)) W $$IP^cAFA1($P(B(2),D,3),QD,12)_BF
	W /CUP(20,2),"14.",@F6,$P($T(@("T8"_QT)),U,2),@F9 
	S K=$P(B(2),D,4)
	W /CUP(20,41)," : ",@F2
	I $L(K),K'="S" W /CUP(20,41)," : "_$$IP^cAFA1(K,QD,12)_BF
	I "S"[K W /CUP(20,41)," : ",$P($T(@("T8"_QT)),U,K="S"+4)
	;
	; nummer element
3	S R="KEU\22\3\"_$P($T(@("T99"_QT)),U,2)_"\2\\\\\1" D R0
	K SWNIHIL,XML	
31	I K="-"!(K=",") K KW S R=U_$G(XQ) G ^cT91  ; terugkeren
	; KD - 06.04.07 - Electronische aangifte
	; I (K="P"!(K="N"))&($P(@("^"_Q_"BA(39)"),D,3)="BE"&($E($P(B(1),D,7),1,3)'="BE0")) S K=$P($T(@("T96"_QT)),U,2) D F1 G 3
	I ((K="P")!(K="N")!(K="X"))&($P(@("^"_Q_"BA(39)"),D,3)="BE"&($E($P(B(1),D,7),1,3)'="BE0")) S K=$P($T(@("T96"_QT)),U,2) D F1 G 3
33	I K="P",$L($P(B(1),D,7)) D ^cAN3223("","1#2","","") G 2:K="-",^cT9102
34	I K="P" S K=$P($T(@("T97"_QT)),U,2) D F1 G 3
	I K="N",$L($P(B(1),D,7)) S SWNIHIL=1 D ^cAN3223("","1#2","","") G 2:K="-",^cT9102
	I K="N" S K=$P($T(@("T97"_QT)),U,2) D F1 G 3
	; KU : 12.11.09
	I K="X",BP1>2010,$$DC^cAFD1(DT)<20100205 S K=$P($T(@("T95"_QT)),U,2) D F1 G 3
	;
	; KD - 06.04.07 - Electronische aangifte
	I K="X",$L($P(B(1),D,7)) S XML=1,PTS=0 D ^cT9102 G 3:'$G(TEMPOK),YZ
	I K="X" S K=$P($T(@("T97"_QT)),U,2) D F1 G 3
35	S K=+K I K,K<16 G 8:K=14,76:K>10,7:K=10,6:K=9,86:K>5,5:K=5,4:K<5
39	G 3
	;
	; lijn 1-4
4	S I=$T(@("T1"_QT)),BI=100+K+1,KR=$P(B(1),D,(K+1))
41	S R="KR\22\3\"_$P(I,U,2)_K_"\\36",$P(R,D,13)=1 D R0
43	I K'="-" D S2 G 2
45	G 3
	;
	; BTW-nr aangever
5	S I=$T(@("T2"_QT)),BI=107,KR=$P(B(1),D,7)
51	S R="KR\22\3\"_$P(I,U,2)_"\\12\\$$BTW^cAFI1(K)!(K=""-"")",$P(R,D,13)=1 D R0
53	I K'="-" D S2 G 2
55	G 3
	;
	; Aanvraag om terugbetaling
6	S I=$T(@("T3"_QT)),BI=207,KR=$P(B(2),D,7)
61	S R="KR\22\3\"_$P(I,U,2)_"\"_$P(I,U,3)_"\1\\""1-""[K",$P(R,D,13)=1 D R0
63	I K'="-" D S2 G 2
65	G 3
	;
	; Aanvraag van betaalforumier
7	S I=$T(@("T4"_QT)),BI=208,KR=$P(B(2),D,8)
71	S R="KR\22\3\"_$P(I,U,2)_"\"_$P(I,U,3)_"\1\\""1-""[K",$P(R,D,13)=1 D R0
73	I K'="-" D S2 G 2
75	G 3   
	;
	; Vak 61/62/91
76	S I=$T(@("T"_(K-6)_QT)),BI=200+K-10,KR=$P(B(2),D,K-10)
77	I K=13,BP1'[".12" S K=$P(I,U,2)_$P(I,U,4) D F1 G 3
78	S R="KR\22\3\"_$P(I,U,2)_"\C8\12\\$$W^cAFI2(K,QD,0)!(K=""-"")",$P(R,D,13)=1 D R0
79	I K'="-" D S2 G 2
791	G 3
	;
C8	W !?2,$P(I,U,3),BF
C8Z	Q
	;
	; BTW bankkosten
8	S I=$T(@("T8"_QT)),BI=204,KR=$P(B(2),D,4)
81	S R="KR\22\3\"_$P(I,U,2)_"\C9\12\\$$W^cAFI2(K,QD,0)!(K=""-"")!(""S""[K)\\\1\\1" D R0
83	I K'="-" D S2 G 2
85	G 3
	;
C9	W !?2,$P(I,U,3),BF
C9Z	Q
	;
	;  Naam van de ondertekenaar(s)
86	I K=6 S I=$T(@("T9"_QT)),BI=$S(K=6:109,K=7:114,1:115),KR=$P(B(1),D,$S(K=6:9,K=7:14,1:15))
	I K=7 S I=$T(@("T12"_QT)),BI=$S(K=6:109,K=7:114,1:115),KR=$P(B(1),D,$S(K=6:9,K=7:14,1:15))
	I K=8 S I=$T(@("T13"_QT)),BI=$S(K=6:109,K=7:114,1:115),KR=$P(B(1),D,$S(K=6:9,K=7:14,1:15))
87	S R="KR\22\3\"_$P(I,U,2)_$S(K=6:(K-5),1:"")_"\\36",$P(R,D,13)=1 D R0
88	I K'="-" D S2 G 2
89	G 3
	;
YZ	Q
	;
R0	S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A	S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z	S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 11.12.09 - 14 u 25 * V9.06