cT9110	;BTW-aangifte ;cT91 ;cT91>.>cT9111 ; [ 05/03/2002 - 14:55:47 - 58868,53747 ]  ; Compiled December 8, 2011 12:06:21
	G 1
	;
T0	;BTW-aangifte ;
T1	;Lijn ;
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 v/d ondertekenaar(s);
T10	;Hoedanigheid v/d ondertekenaar(s);
T11	;Telefoonnr. v/d ondertekenaar(s);
T97	;U moet het BTW-nummers invullen! ;
T98	;Meerdere muntcodes in de geselecteerde maanden ;
T99	;Nummer element\"P[] = printen aangifte";
	;
T0F	;Déclaration à la TVA ;
T1F	;Ligne ;
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 du (des) signataire(s);
T10F	;Qualité du (des) signataire(s);
T11F	;Téléphone du (des) signataire(s);
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";
	;
T0E	;BTW-aangifte ;
T1E	;Lijn ;
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 v/d ondertekenaar(s);
T10E	;Hoedanigheid v/d ondertekenaar(s);
T11E	;Telefoonnr. v/d ondertekenaar(s);
T97E	;U moet het BTW-nummers invullen! ;
T98E	;Meerdere muntcodes in de geselecteerde maanden ;
T99E	;Nummer element\"P[] = printen aangifte";
	;
	; gegevens tonen
S1	S FP=I+5*100+2 W @F,$J(I,2),".",@F6,$P($T(@("T"_$S(I>5:I-4,I<5:1,1:1)_QT)),U,2) I I<6 W I
S1A	W @F9 S K=$P(B(BI\100),D,BI#100),FP=FP+12 I (I>5) S FP=FP+25
S1B	W @F,": ",K,@F2,@F,": "
S1C	I I=6,$L(K) W $$BTW^cAFO1(K)
S1D	I I=7!(I=8) W $$JN^cAFO1(K)
S1E	I I>8,(I<13),$L(K),K'="S" S R=K_"\12\\"_QD D ^cA103 W BF
S1F	I I=12,"S"[K W $P($T(@("T8"_QT)),U,K="S"+4)
S1Z	Q
	;
	; 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)"))
22	F I=1:1:5 S BI=100+I+1 D S1     ; lijn 1-5
23	F I=6 S BI=100+I+1 D S1               ; BTW-nr van de aangever
24	F I=7,8 S BI=200+I D S1         ; Aanvraag om terugbetaling + aanvraag van betaalformulieren
25	F I=9:1:11 S BI=200+I-8 D S1          ; 61/62/91 
27	S I=12,BI=204 D S1                    ; vak 59
29	F I=13:1:15 S BI=100+I-4 D S1         ; Naam, hoedanigheid en telefoonnr. van de ondertekenaar
	;
	; nummer element
3	S R="KEU\22\3\"_$P($T(@("T99"_QT)),U,2)_"\2\\\\\1" D R0
31	I K="-"!(K=",") K KW S R=U_$G(XQ) G ^cT91  ; terugkeren
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
35	S K=+K I K,K<16 G 96:K=15,9:K=14,86:K=13,8:K=12,76:K>8,7:K=8,6:K=7,5:K=6,4:K<6
39	G 3
	;
	; lijn 1-5
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_"\\30",$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-4)_QT)),BI=200+K-8,KR=$P(B(2),D,K-8)
77	I K=11,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	S I=$T(@("T9"_QT)),BI=109,KR=$P(B(1),D,9)
87	S R="KR\22\3\"_$P(I,U,2)_"\\30",$P(R,D,13)=1 D R0
88	I K'="-" D S2 G 2
89	G 3
	;
	;  Hoedanigheid van de ondertekenaar(s)
9	S I=$T(@("T10"_QT)),BI=110,KR=$P(B(1),D,10)
91	S R="KR\22\3\"_$P(I,U,2)_"\\30",$P(R,D,13)=1 D R0
93	I K'="-" D S2 G 2
95	G 3
	;
	;  Telefoonnummer van de ondertekenaar(s)
96	S I=$T(@("T11"_QT)),BI=111,KR=$P(B(1),D,11)
97	S R="KR\22\3\"_$P(I,U,2)_"\\30",$P(R,D,13)=1 D R0
98	I K'="-" D S2 G 2
99	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	; 08.02.08 - 15 u 00 * V9.00