cT910 ;BTW-AANGIFTE ;%T91 ;%T91* ; [ 04/12/00   9:03 AM ]
 ;
T0 ;BTW-aangifte ;
T1 ;Kader IV.;Verschuldigde belasting;Aftrekbare belasting;
T2 ;C. Herzieningen;a) ontoereikende heffingen;b) vatbaar voor teruggave;c) herzieningen;d) regularisaties;
T3 ;Invullen\"[] = neen   .[] = ja";
 ;
T0F ;Déclaration à la TVA ;
T1F ;Cadre IV.;Taxes dues;Taxes à déduire;
T2F ;C. Régularisations;a) insuffisances de taxation;b) remboursement possible;c) revisions des déductions;d) régularisations;
T3F ;Remplir\"[] = non   .[] = oui";
 ;
T0E ;BTW-aangifte ;
T1E ;Kader IV.;Verschuldigde belasting;Aftrekbare belasting;
T2E ;C. Herzieningen;a) ontoereikende heffingen;b) vatbaar voor teruggave;c) herzieningen;d) regularisaties;
T3E ;Invullen\"[] = neen   .[] = ja";
 ;
1 S FP=601 W @F,@F1,$$CR^cA334 W ?2,$P($T(@("T1"_QT)),U,2),?33,$P($T(@("T1"_QT)),U,3),?58,$P($T(@("T1"_QT)),U,4)
11 W !?3,$P($T(@("T2"_QT)),U,2) F I=3:1:6 W !?4,$P($T(@("T2"_QT)),U,I)
13 S RH="733#780",RV="633#1133\658#1158\680#1180" D ^cA319
15 F I="A","B","C","D" S X("IV","C",I)=S
17 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,.""[K" D R0 G YZ:K'="."
 ;
2 S R="K\22\3\"_$P($T(@("T2"_QT)),U,3)_"\C1\10\INCTR" D R0 G YZ:K="-"!(K=",")
21 S $P(X("IV","C","A"),S)=K,R=K_D_14_D_D_QD,FP=838 W @F D R3
23 S R="K\22\3\"_$P($T(@("T2"_QT)),U,4)_"\C2\10\INCTR" D R0 G 2:K="-",YZ:K=","
25 S $P(X("IV","C","B"),S,2)=K,R=K_D_14_D_D_QD,FP=961 W @F D R3
 ;
3 S R="K\22\3\"_$P($T(@("T2"_QT)),U,5)_"\C1\10\INCTR" D R0 G 23:K="-",YZ:K=","
31 S $P(X("IV","C","C"),S)=K,R=K_D_14_D_D_QD,FP=1038 W @F D R3
33 S R="K\22\3\"_$P($T(@("T2"_QT)),U,5)_"\C2\10\INCTR" D R0 G 3:K="-",YZ:K=","
35 S $P(X("IV","C","C"),S,2)=K,R=K_D_14_D_D_QD,FP=1061 W @F D R3
 ;
4 S R="K\22\3\"_$P($T(@("T2"_QT)),U,6)_"\C1\10\INCTR" D R0 G 33:K="-",YZ:K=","
41 S $P(X("IV","C","D"),S)=K,R=K_D_14_D_D_QD,FP=1138 W @F D R3
43 S R="K\22\3\"_$P($T(@("T2"_QT)),U,6)_"\C2\10\INCTR" D R0 G 4:K="-",YZ:K=","
45 S $P(X("IV","C","D"),S,2)=K,R=K_D_14_D_D_QD,FP=1161 W @F D R3
 ;
YZ Q
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=$S($P(R,D,5):"",1:" "),R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
INCTR ;K?.N!(K?.N1"."1.N&QD&($L(K#1)-1'>QD))!("-,"[K)
 ;
C1 S K=$P($T(@("T1"_QT)),U,3) G CZ
C2 S K=$P($T(@("T1"_QT)),U,4)
CZ W !?2,$TR(K,"ABCDEFGHIJKLMNOPQRSTUVWXYZ","abcdefghijklmnopqrstuvwxyz") 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
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84