cT500 ;BTW-overeenstemming ;%T50 ;%T50>.>%T501 ; [ 08/31/98  3:49 PM ]
 G 1
 ;
T0 ;BTW-overeenstemming ;
 ;
T0F ;Concordance de TVA ;
 ;
T0E ;BTW-overeenstemming ;
 ;
 ; detailhistorieken
S1 S S2=I2A
S1A S S2=$O(@("^"_Q_"AR(I1,S2)")) G S1Z:S2]I2Z!($E(S2,1,7)'=$E(I2A,1,7)) S S1=^(S2)
S1B S S3=$P(S1,D),S1=$P(S1,D,2,999) I S3="" G S1B:$L(S1),S1A
S1C I $E(S3)="A" S S4="AA" D S3 G S1B
S1D I $E(S3)="V" S S4="VE" D S3 G S1B
S1E S S4=$E($P(S3,"#"),2,99),S5=$P(S3,"#",2),S3=@("^"_Q_"FI(BP,S4,S5)"),B=$P(S3,D,5),CD=$P(S3,D,6) D S4 G S1B
S1Z K S1,S2,S3,S4,S5,B,CD Q
 ;
 ; maandhistorieken
S2 S S2=I2A
S2A S S2=$O(@("^"_Q_"AR(I1,S2)")) G S2Z:S2]I2Z!($E(S2,1,7)'=$E(I2A,1,7)) S S1=^(S2)
S2B I $E(S2,8)="A" S S4="AA" G S2E
S2C I $E(S2,8)="V" S S4="VE" G S2E
S2D S S4=$E(S2,9)
S2E S CD="D",B=$P(S1,D,3) D S4 S CD="C",B=$P(S1,D,4) D S4 G S2A
S2Z K S1,S2,S3,S4,B,CD Q
 ;
 ; ventilaties
S3 S S5=$E(S3,2,99),S3=@("^"_Q_S4_"(BP,S5)"),CD=$S(S4="AA"&($P(S3,D)="F")!(S4="VE"&($P(S3,D)="C")):"D",1:"C")
S3A S S5=$O(^(S5)) G S3Z:'(S5#1) S S3=^(S5)
S3B S S6=$P(S3,D),S3=$P(S3,D,2,999) I S6="" G S3B:$L(S3),S3A
S3C I $P(S6,"#")=I1 S B=$P(S6,"#",4) D S4
S3D G S3B
S3Z K S6 Q
 ;
 ; bedrag
S4 S B=$$BEDR^cAFE1(Q,B,$P(MNTC,D),$P(MUNT,D),$S(S4="AA":"A",S4="VE":"V",1:"F"))
S4A S K=$S(S4="VE":2,S4="AA":4,$E(S4)="D":6,1:8)+$S(CD="D":0,1:1),$P(Z,D,K)=$P(Z,D,K)+B
S4Z Q
 ;
 ; enkel ventilatierekeningen uit verkoopdagboek
1 K A,^HULP(boot,$J) S:'PP(1) PP(3)=PP(2)+.01,PP(4)=PP(2)+.12 S I1=PP(3),I2="",(KK(1),KK(2))=0,QD=$P(MUNT,D,2) I QP S FP=2203 W @F,@F1
10 S BJ=$$BJ^cAFE1(Q,I1),MNTC=$$MNTC^cAFE1(Q,BJ)
11 S I2=$O(@("^"_Q_"VE(I1,I2)")) I I2="" S I1=$E(I1+.01_0,1,7) S:I1#1>.12 I1=I1+.88 G 2:I1>PP(4),10
13 S A=^(I2) I '(I2#1) S B=$P(A,D,10),R=$S($P(A,D)="F":2,1:1),KK(R)=KK(R)+$$BEDR^cAFE1(Q,B,$P(MNTC,D),$P(MUNT,D),"V") W:QP @F,I2 G 11
15 S B=$P(A,D),A=$P(A,D,2,999) I '$L(B) G 15:$L(A),11
17 S R=$P(B,"#") I '$D(^HULP(boot,$J,R)) S ^(R)=D
19 G 15
 ;
 ; historieken per rekening
2 S I1=""
21 S I1=$O(^HULP(boot,$J,I1)) G 3:I1="" S Z=$S($D(@("^"_Q_"AR(I1,0)")):$P(^(0),D,2),1:"?"),BP=PP(3) W:QP @F,@F2,I1
22 S BJ=$$BJ^cAFE1(Q,BP),MNTC=$$MNTC^cAFE1(Q,BJ)
23 S I2A=1_BP*100,I2Z=I2A+.999 D S1
25 S I2A=1_BP*100_" ",I2Z=1_BP*100_"Z" D S2
27 S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=BP+.88 I BP>PP(4) S ^HULP(boot,$J,I1)=Z G 21
29 G 22
 ;
3 G ^cT501
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84