cT911 ;BTW-AANGIFTE ;%T91 ;%T91* ; [ 03/29/96  10:13 AM ]
 ;
T0 ;BTW-aangifte ;
T1 ;Verkoopdagboek;
T2 ;Aankoopdagboek;
T3 ;00%;6%;12%;19.5%;O.H.;0%;0%(47);
T4 ;00%;6%;12%;20.5%;O.H.;0%;0%(47);
T5 ;00%;6%;12%;21%;O.H.;0%;0%(47);
 ;
T0F ;Déclaration à la TVA ;
T1F ;Journal des ventes;
T2F ;Journal des achats;
T3F ;00%;6%;12%;19.5%;O.H.;0%;0%(47);
T4F ;00%;6%;12%;20.5%;O.H.;0%;0%(47);
T5F ;00%;6%;12%;21%;O.H.;0%;0%(47);
 ;
T0E ;BTW-aangifte ;
T1E ;Verkoopdagboek;
T2E ;Aankoopdagboek;
T3E ;00%;6%;12%;19.5%;O.H.;0%;0%(47);
T4E ;00%;6%;12%;20.5%;O.H.;0%;0%(47);
T5E ;00%;6%;12%;21%;O.H.;0%;0%(47);
 ;
1 S K="III" F I=0:1:3 S X(K,"A",I)=S
11 S X(K,"B",45)=S F I=46,47 S X(K,"C",I)=S,X(K,"D",I+2)=S
13 S K="IV" F I=54:1:58 S X(K,"A",I)=S
15 S X(K,"B",59)=S F I=61:1:64 S X(K,"C",I)=S
17 S X(K,"D",0)=S F I=71,72 S X(K,"E",I)=S
19 S K="A" F I=81:1:88 S X("V",K,I)=S S:I=83 K="B" S:I=85 K="C"
 ;         
2 D S1^cA305 S QQ=Q,SWI=0 F I=1:1:4 S SWI(I)=0
20 S BP=BP1,FP=1303 W:QP @F,@F1,$P($T(@("T1"_QT)),U,2),!
21 W:QP $J(BP,10) S FNR="",Q=$P(XQ,U),HQ=$P(XQ,U,2,999)
23 S FNR=$O(@("^"_Q_"VE(BP,FNR)")) G 23:FNR#1 I FNR="",$L(HQ) S Q=$P(HQ,U),HQ=$P(HQ,U,2,999) G 23
24 I FNR="" G 5:BP=BP2 S BP=$E(BP+.01_0,1,7) G 21
25 S N=^(FNR),FC=$P(N,D),BTW=$P(N,D,8),EGA=$P(N,D,9),A=$P(N,D,11),(I,T)=0 K MST
27 S B=$P(A,S) I $L(B) D S3 S A=$P(A,S,3,999) G 27
29 I T=1,'BTW S B=$O(MST(B)) I $L(B),$D(PBTW(B)),PBTW(B)="0%" D S1
 ;
3 S B=""
31 S B=$O(MST(B)) G 23:B="" S A=PBTW(B) I A="Z.B." G 31
33 D S2 G 4:FC="C",31:'V S V=$S(V=2:0,V=3:1,V=4:2,V=5:3,V=6:45,1:47-I)
35 S L=$S(V<45:"A",V=45:"B",1:"C"),T=$P(X("III",L,V),S),$P(X("III",L,V),S)=T+MST(B)
37 I BTW,V,V<45 S T=$P(X("IV","A",54),S),$P(X("IV","A",54),S)=T+BTW,BTW=0
39 S:EGA T=$P(X("IV","A",58),S),$P(X("IV","A",58),S)=T+EGA,EGA=0 G 31
 ;
4 S L="D",V=49-I,T=$P(X("III",L,V),S),$P(X("III",L,V),S)=T+MST(B)
41 S:BTW!EGA T=$P(X("IV","C",64),S,2),$P(X("IV","C",64),S,2)=T+BTW+EGA,(BTW,EGA)=0 G 31
 ;
5 S BP=BP1,FP=1603 W:QP @F,@F1,$P($T(@("T2"_QT)),U,2),!
51 W:QP $J(BP,10) S FNR="",Q=$P(XQ,U),HQ=$P(XQ,U,2,999)
53 S FNR=$O(@("^"_Q_"AA(BP,FNR)")) G 53:FNR#1 I FNR="",$L(HQ) S Q=$P(HQ,U),HQ=$P(HQ,U,2,999) G 53
54 I FNR="" G YZ:BP=BP2 S BP=$E(BP+.01_0,1,7) G 51
55 S N=^(FNR),FC=$P(N,D),AFBTW=$P(N,D,8),NABTW=$P(N,D,9),BTWOH=$P(N,D,11),BTWIC=$P(N,D,12),BTWVL=$P(N,D,16),BTWMC=$P(N,D,17),I=(+BTWIC'=0)
 ;
6 I FC="F",I,BTWIC S T=$P(X("IV","A",55),S),$P(X("IV","A",55),S)=T+BTWIC
61 I FC="F",'I,BTWOH!BTWMC S T=$P(X("IV","A",56),S),$P(X("IV","A",56),S)=T+BTWOH+BTWMC
63 I FC="F",'I,BTWVL S T=$P(X("IV","A",57),S),$P(X("IV","A",57),S)=T+BTWVL
65 I FC="F",AFBTW S T=$P(X("IV","B",59),S,2),$P(X("IV","B",59),S,2)=T+AFBTW
67 I FC="C" S T=$P(X("IV","C",63),S),$P(X("IV","C",63),S)=T+AFBTW-BTWIC-BTWOH-BTWMC-BTWVL
 ;
7 S MST=$P($P(N,D,6),S,2),MSTG=$P($P(N,D,7),S,2),MSTD=$P($P(N,D,14),S,2),MSTI=$P($P(N,D,13),S,2)
71 S:FC="C" MSTG=-MSTG,MSTD=-MSTD,MSTI=-MSTI,NABTW=-NABTW
73 I MSTG S T=$P(X("V","A",81),S),$P(X("V","A",81),S)=T+MSTG+NABTW,NABTW=0
75 I MSTD S T=$P(X("V","A",82),S),$P(X("V","A",82),S)=T+MSTD+NABTW,NABTW=0
77 I MSTI S T=$P(X("V","A",83),S),$P(X("V","A",83),S)=T+MSTI+NABTW,NABTW=0
 ;
8 I FC="C" S T=$P(X("V","B",85-I),S),$P(X("V","B",85-I),S)=T+MST,MST=-MST
81 I I,BTWIC S T=$P(X("V","C",86),S),$P(X("V","C",86),S)=T+MST
83 I 'I,BTWOH S T=$P(X("V","C",87),S),$P(X("V","C",87),S)=T+MST
85 I 'I,BTWVL!BTWMC S T=$P(X("V","C",88),S),$P(X("V","C",88),S)=T+MST
87 G 53
 ;
YZ G ^cT912
 ;
S1 S I1=$P(N,D,4) S:$D(@("^"_Q_"K1(I1)")) I1=^(I1)       
S1A I $D(@("^"_Q_"KL(I1,0)")) S K=$P(^(0),D,16),K=$E(K,1,2) I K?2U,$D(^BA(5,K)),K'=$P(@("^"_Q_"BA(39)"),D,4) S (I,SWI)=1,SWI(BP#1*100-1\3+1)=1
S1Z Q
 ;
S2 S V=0
S2A I BP<1994 F S1=2:1 S S2=$P($T(@("T3"_QT)),U,S1) Q:S2=""  I A=S2 S V=S1 Q
S2B I BP>1994,BP<1996 F S1=2:1 S S2=$P($T(@("T4"_QT)),U,S1) Q:S2=""  I A=S2 S V=S1 Q
S2C I BP>1996 F S1=2:1 S S2=$P($T(@("T5"_QT)),U,S1) Q:S2=""  I A=S2 S V=S1 Q
S2Z K S1,S2 Q
 ;
S3 I PBTW(B)'="Z.B." S MST(B)=$P(A,S,2),T=T+1
S3Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84