cT9101	;BTW-aangifte ;%T91 ;%T91>.>%T9102 ; [ 05/03/2002 - 14:55:47 - 58868,53747 ]
	G 1
	;
T0	;BTW-aangifte ;
T1	;Identificatie-etiket;kleven;printen;
T2	;Lijn ;
T3	;BTW-nr v/d aangever;
T4	;BTW-nr v/d boekhouder;
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;
T97	;U moet beide BTW-nummers invullen! ;
T98	;Meerdere muntcodes in de geselecteerde maanden ;
T99	;Nummer element\"P[] = printen aangifte";
	;
T0F	;Déclaration à la TVA ;
T1F	;Vignette d'identific.;coller;imprimer;
T2F	;Ligne ;
T3F	;N° TVA du déclarant;
T4F	;N° TVA du comptable;
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;
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	;Identificatie-etiket;kleven;printen;
T2E	;Lijn ;
T3E	;BTW-nr v/d aangever;
T4E	;BTW-nr v/d boekhouder;
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;
T97E	;U moet beide 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>6:I-4,I>1:2,1:1)_QT)),U,2) I I>1,I<7 W I-1
S1A	W @F9 S K=$P(B(BI\100),D,BI#100),FP=FP+12 I I=1!(I>6) S FP=FP+13
S1B	W @F,": ",K,@F2,@F,": "
S1C	I I=1 W $P($T(@("T1"_QT)),U,K+3)
S1D	I I>6,I<9,$L(K) W $$BTW^cAFO1(K)
S1E	I I>8,$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)"))
21	S I=1,BI=101 D S1             ; etiket
23	F I=2:1:6 S BI=100+I D S1     ; lijn 1-5
25	F I=7,8 S BI=100+I D S1       ; BTW-nrs
27	F I=9:1:11 S BI=200+I-8 D S1  ; 61/62/91 
29	S I=12,BI=204 D S1            ; vak 59
	;
	; 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
	; 05.03.02 - KO - Nieuwe richtlijnen BTW-aangifte: BTW boekhouder moet leeg zijn
	; I K="P",$L($P(B(1),D,7)),$L($P(B(1),D,8)) D ^cAN3223("","1#2","","") G 2:K="-",^cT9102
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<13 G 9:K=12,8:K>8,7:K=8,6:K=7,4:K=1,5:K<7
39	G 3
	;
	; etiket
4	S I=$T(@("T1"_QT)),BI=101,KR=$P(B(1),D)
41	S R="KR\22\3\"_$P(I,U,2)_"\C4\1\\""-01""[K&$L(K)",$P(R,D,13)=1 D R0
43	I K'="-" D S2 G 2
45	G 3
	;
C4	W !?2,"0[] = ",$P(I,U,3),"   1[] = ",$P(I,U,4) Q
	;
	; lijn 1-5
5	S I=$T(@("T2"_QT)),BI=100+K,KR=$P(B(1),D,K)
51	S R="KR\22\3\"_$P(I,U,2)_(K-1)_"\\30",$P(R,D,13)=1 D R0
53	I K'="-" D S2 G 2
55	G 3
	;
	; BTW-nr aangever
6	S I=$T(@("T3"_QT)),BI=107,KR=$P(B(1),D,7)
61	S R="KR\22\3\"_$P(I,U,2)_"\\12\\$$BTW^cAFI1(K)!(K=""-"")",$P(R,D,13)=1 D R0
63	I K'="-" D S2 G 2
65	G 3
	;
	; BTW-nr boekhouder
7	S I=$T(@("T4"_QT)),BI=108,KR=$P(B(1),D,8)
71	S R="KR\22\3\"_$P(I,U,2)_"\\12\\$$BTW^cAFI1(K)!(K=""-"")",$P(R,D,13)=1 D R0
73	I K'="-" D S2 G 2
75	G 3
	;
	; Vak 61/62/91
8	S I=$T(@("T"_(K-4)_QT)),BI=200+K-8,KR=$P(B(2),D,K-8)
80	I K=11,BP1'[".12" S K=$P(I,U,2)_$P(I,U,4) D F1 G 3
81	S R="K\22\3\"_$P(I,U,2)_"\C8\12\\$$W^cAFI2(K,QD,0)!(K=""-"")" D R0
83	I "-"'[K D S2 G 2
85	G 3
	;
C8	W !?2,$P(I,U,3),BF I KR W "   [] = ",$J(KR,0,QD)
C8Z	Q
	;
	; BTW bankkosten
9	S I=$T(@("T8"_QT)),BI=204,KR=$P(B(2),D,4)
91	S R="KR\22\3\"_$P(I,U,2)_"\C9\12\\$$W^cAFI2(K,QD,0)!(K=""-"")!(""S""[K)\\\1\\1" D R0
93	I K'="-" D S2 G 2
95	G 3
	;
C9	W !?2,$P(I,U,3),BF
C9Z	Q
	;
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