cT912 ;BTW-AANGIFTE ;%T91 ;%T91* ; [ 07/20/95   5:13 PM ]
 ;
T0 ;BTW-aangifte ;
T1 ;BTW-rekeningen;
 ;
T0F ;Déclaration de la TVA ;
T1F ;Comptes de TVA;
 ;
T0E ;BTW-aangifte ;
T1E ;BTW-rekeningen;
 ;
1 S Q=$P(XQ,U),HQ=$P(XQ,U,2,999),I1=" ",FP=1903 W:QP @F,@F1,$P($T(@("T1"_QT)),U,2),!
11 S FP=2004,I1=$O(@("^"_Q_"AR(I1)")) G 19:I1="" W:QP @F,I1,@F2 S N=^(I1,0) I $P(N,D,18)<2 G 11
13 S BP=BP1
15 D S3 I $P(N,D,18)=2 S T=$P(X("IV","B",59),S,2),$P(X("IV","B",59),S,2)=T+DBT
16 I $P(N,D,18)=3 S T=$P(X("V","A",82),S),$P(X("V","A",82),S)=T+DBT-CDT
17 S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=$E(BP+.88_0,1,7) I BP'>BP2 G 15
18 G 11
19 S Q=QQ I $L(HQ) S Q=$P(HQ,U),HQ=$P(HQ,U,2,999),I1=" " G 11
 ;
2 F I="A","B","C","D" F J=1,2 S T=$P(X("IV","C",60+J),S,J),$P(X("IV","C",60+J),S,J)=T+$P(X("IV","C",I),S,J)
21 F I=54:1:58 S T=$P(X("IV","D",0),S),$P(X("IV","D",0),S)=T+$P(X("IV","A",I),S)
23 F I=61:2:63 S T=$P(X("IV","D",0),S),$P(X("IV","D",0),S)=T+$P(X("IV","C",I),S)
25 S I=59 S T=$P(X("IV","D",0),S,2),$P(X("IV","D",0),S,2)=T+$P(X("IV","B",I),S,2)
27 F I=62:2:64 S T=$P(X("IV","D",0),S,2),$P(X("IV","D",0),S,2)=T+$P(X("IV","C",I),S,2)
 ;
3 S A=$P(X("IV","D",0),S),B=$P(X("IV","D",0),S,2),J=1,T=A-B I T<0 S J=2,T=-T
31 S $P(X("IV","D",1),S,J)=$S(J=1:B,1:A),$P(X("IV","E",70+J),S,J)=T
33 F I=71,72 S X("VI","A",I)=X("IV","E",I)
 ;
4 I 'SWI,BP1=BP2 D S4
 ;
YZ G ^cT913
 ;
S1 G S1Z:'$D(^(J2)) S S1=^(J2),S2=^(J2+.02) I SWBJ S BSAL=+S1,SWBJ=0
S1A F K=2:1:24 S S3=$P(S1,D,K),S4=$P(S2,D,K),DBTJ=DBTJ+S3,CDTJ=CDTJ+S4 I K<BX S DBTX=DBTX+S3,CDTX=CDTX+S4
S1Z K S1,S2,S3,S4 Q
 ;
S2 S I2A=I2,I2=$O(@("^"_Q_"AR(I1,I2)")) I $E(I2,1,7)'=$E(I2A,1,7)!(I2]I2Z) G S2Z
S2A S A=^(I2) I I2'["." S DBT=DBT+$P(A,D,3),CDT=CDT+$P(A,D,4) G S2
S2B S B=$P(A,D),A=$P(A,D,2,99),X=$E(B,1) G S2:'$L(B),S2B:X'="B" S B=$E(B,2,99),REK=$P(B,S),VNR=$P(B,S,2)
S2C S L=@("^"_Q_"FI(BP,REK,VNR)"),B=$P(L,D,5),CD=$P(L,D,6) S:CD="C" CDT=CDT+B S:CD="D" DBT=DBT+B G S2B
S2Z Q
 ;
S3 S (DBT,CDT)=0,I2=1_BP*100,I2Z=I2+.99 D S2 S I2=1_BP*100_"B",I2Z=I2_"Z" D S2
S3Z K I2,I2A,I2Z Q
 ;
S4 S BP=BP1#1*100-1\3+1*3,S1=$E(BP-.02_0,1,7),S2=$E(BP-.01_0,1,7) S:S1>BP1 S1=BP1 S:S2>BP1 S2=BP1 S BP=S1,FNR=""
S4A S FNR=$O(@("^"_Q_"VE(BP,FNR)")) G S4A:FNR#1 I FNR="" G S4Z:S1=S2 S (BP,S1)=S2 G S4A
S4B 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
S4C S B=$P(A,S) I $L(B) S MST(B)=$P(A,S,2),A=$P(A,S,3,999),T=T+1 G S4C
S4D I T=1,'BTW S B=$O(MST(B)) I $L(B),$D(PBTW(B)),PBTW(B)="0%" D S1^cT911
S4E I 'SWI G S4A
S4Z K S1,S2 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84