cT9107 ;BTW aangifte ;%T91 ;%T9106>.>%T9108 ; [ 08/09/00  2:10 PM ]
 G 1
 ;
T0 ;BTW aangifte;
T1 ; II UITGAANDE;    HANDELINGEN;
T2 ; III INKOMENDE;     HANDELINGEN;
T3 ; IV VERSCHULDIGDE;    BELASTING;
T4 ; V AFTREKBARE;   BELASTING;
T5 ; VI SALDO;
 ;
T0F ;Déclaration à la TVA;
T1F ; II OPERATIONS;    A LA SORTIE;
T2F ; III OPERATIONS;     A L'ENTREE;
T3F ; IV TAXES;    DUES;
T4F ; V TAXES;   DEDUCTIBLES;
T5F ; VI SOLDE;
 ;
T0E ;BTW aangifte;
T1E ; II UITGAANDE;    HANDELINGEN;
T2E ; III INKOMENDE;     HANDELINGEN;
T3E ; IV VERSCHULDIGDE;    BELASTING;
T4E ; V AFTREKBARE;   BELASTING;
T5E ; VI SALDO;
 ;
 ; 2de gedeelte: grote tabel
1 I PTS S END=3 D ^cA334 S END=0
 I 'PTS D ^cA334,^cA334 W $$CR^cA334,?1,@F88,$J("",78),@F89,$$CR^cA334 
11 S TAB="19\39\59\79"
13 F I=1:1:4 S TXT(I)=$P($T(@("T"_I_QT)),U,2),$P(TXT(I),D,7)="K I 'PTS W @F86,K,@F87,$$CR^cA334 S K="""""
15 D ^cA334
17 F I=1:1:4 S TXT(I)=$P($T(@("T"_I_QT)),U,3),$P(TXT(I),D,7)="K I 'PTS W @F86,K,@F87,$$CR^cA334 S K="""""
19 I PTS D ^cA334 S END=3 D ^cA334
 I 'PTS D ^cA334 K TXT S END=0 D ^cA334 W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334
 ;
 ; vakken
2 S TAB="16\19\36\39\56\59\76\79"
21 S I="00",TXT(1)="",TXT(2)=I I VAK(I) S TXT(1)=VAK(I)_"\\\\1\"_QD
23 S I="81",TXT(3)="",TXT(4)=I I VAK(I) S TXT(3)=VAK(I)_"\\\\1\"_QD
25 S I="54",TXT(5)="",TXT(6)=I I VAK(I) S TXT(5)=VAK(I)_"\\\\1\"_QD
27 S I="59",TXT(7)="",TXT(8)=I I VAK(I) S TXT(7)=VAK(I)_"\\\\1\"_QD
29 I PTS D ^cA334 S END=3 D ^cA334
 I 'PTS D ^cA334 K TXT S END=0 D ^cA334 W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334
 ;
3 S I="01",TXT(1)="",TXT(2)=I I VAK(I) S TXT(1)=VAK(I)_"\\\\1\"_QD
31 S I="82",TXT(3)="",TXT(4)=I I VAK(I) S TXT(3)=VAK(I)_"\\\\1\"_QD
33 S I="55",TXT(5)="",TXT(6)=I I VAK(I) S TXT(5)=VAK(I)_"\\\\1\"_QD
35 S I="62",TXT(7)="",TXT(8)=I I VAK(I) S TXT(7)=VAK(I)_"\\\\1\"_QD
37 I PTS D ^cA334 S END=3 D ^cA334
 I 'PTS D ^cA334 K TXT S END=0 D ^cA334 W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334
39 S LN=1
 ;
4 S I="02",TXT(1)="",TXT(2)=I I VAK(I) S TXT(1)=VAK(I)_"\\\\1\"_QD
41 S I="83",TXT(3)="",TXT(4)=I I VAK(I) S TXT(3)=VAK(I)_"\\\\1\"_QD
43 S I="56",TXT(5)="",TXT(6)=I I VAK(I) S TXT(5)=VAK(I)_"\\\\1\"_QD
45 S I="64",TXT(7)="",TXT(8)=I I VAK(I) S TXT(7)=VAK(I)_"\\\\1\"_QD
47 I PTS D ^cA334 S END=3 D ^cA334
48 I 'PTS D ^cA334 K TXT S END=0 D ^cA334 W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334
 ;
5 S I="03",TXT(1)="",TXT(2)=I I VAK(I) S TXT(1)=VAK(I)_"\\\\1\"_QD
51 S I="84",TXT(3)="",TXT(4)=I I VAK(I) S TXT(3)=VAK(I)_"\\\\1\"_QD
53 S I="57",TXT(5)="",TXT(6)=I I VAK(I) S TXT(5)=VAK(I)_"\\\\1\"_QD
55 S I="66",TXT(7)="",TXT(8)=I I VAK(I) S TXT(7)=VAK(I)_"\\\\1\"_QD
57 I PTS D ^cA334 S TAB="16\19\36\39\56\59\79",END=3 D ^cA334
58 I 'PTS D ^cA334 K TXT S END=0 D ^cA334 S TAB="16\19\36\39\56\59\79" W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334
 ;
6 S I="45",TXT(1)="",TXT(2)=I I VAK(I) S TXT(1)=VAK(I)_"\\\\1\"_QD
61 S I="85",TXT(3)="",TXT(4)=I I VAK(I) S TXT(3)=VAK(I)_"\\\\1\"_QD
63 S TXT(5)="",TXT(6)=""
65 S TXT(7)="",TXT(8)=""
67 I PTS D ^cA334 S END=3 D ^cA334
68 I 'PTS D ^cA334 K TXT S END=0 D ^cA334 W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334
 ;
7 S I="46",TXT(1)="",TXT(2)=I I VAK(I) S TXT(1)=VAK(I)_"\\\\1\"_QD
71 S I="86",TXT(3)="",TXT(4)=I I VAK(I) S TXT(3)=VAK(I)_"\\\\1\"_QD
73 S I="61",TXT(5)="",TXT(6)=I I VAK(I) S TXT(5)=VAK(I)_"\\\\1\"_QD
75 S TXT(7)=$P($T(@("T5"_QT)),U,2),$P(TXT(7),D,7)="K I 'PTS W @F86,K,@F87,$$CR^cA334 S K=""""" 
77 I PTS D ^cA334 S END=3 D ^cA334
78 I 'PTS D ^cA334 K TXT S END=0 D ^cA334 W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334
 ;
8 S TAB="16\19\36\39\56\59\76\79" 
81 S I="47",TXT(1)="",TXT(2)=I I VAK(I) S TXT(1)=VAK(I)_"\\\\1\"_QD
83 S I="87",TXT(3)="",TXT(4)=I I VAK(I) S TXT(3)=VAK(I)_"\\\\1\"_QD
85 S I="63",TXT(5)="",TXT(6)=I I VAK(I) S TXT(5)=VAK(I)_"\\\\1\"_QD
87 S I="71",TXT(7)="",TXT(8)=I I VAK(I) S TXT(7)=VAK(I)_"\\\\1\"_QD
89 I PTS D ^cA334 S END=3 D ^cA334
 I 'PTS D ^cA334 K TXT S END=0 D ^cA334 W $$CR^cA334 W ?1,@F88,$J("",78),@F89,$$CR^cA334
 ;
9 S I="48",TXT(1)="",TXT(2)=I I VAK(I) S TXT(1)=VAK(I)_"\\\\1\"_QD
91 S TXT(3)="",TXT(4)=""
93 S I="65",TXT(5)="",TXT(6)=I I VAK(I) S TXT(5)=VAK(I)_"\\\\1\"_QD
95 S I="72",TXT(7)="",TXT(8)=I I VAK(I) S TXT(7)=VAK(I)_"\\\\1\"_QD
97 D ^cA334
 ;
YZ G ^cT9108
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84