cTN8023	;BTW-aangifte ;%T91 ;%T9102>.>%T9104 ;     [ 30/11/09  14:53:01 ]
	;
T0	;BTW-aangifte ;
T1	;BTW-rekeningen;
	;
T0F	;Déclaration à la TVA ;
T1F	;Comptes de TVA;
	;
T0E	;VAT declaration ;
T1E	;VAT accounts;
	;
	; BTW-rekeningen
1	S Q=$P(XQ,U),HQ=$P(XQ,U,2,999),I1=0,FP=2003 W:'$G(SWVB) @F,@F1,$P($T(@("T1"_QT)),U,2),!
11	S FP=2104,I1=$O(@("^"_Q_"AR(I1)")) G 19:I1="" W:'$G(SWVB) @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"[$P(B(2),D,4) S BB=BB+DBT S:$G(SWVB) VAK("59b")=$G(VAK("59b"))+DBT I $P(B(2),D,4)="S" S BB=BB-CDT S:$G(SWVB) VAK("59b")=$G(VAK("59b"))-CDT
16	I $P(N,D,18)=3 S VAK(82)=VAK(82)+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=0 G 11
	;
	; overige vakken samentellen
2	S VAK(59)=VAK(59)+BB
21	I '$G(SWVB) S I="" F  S I=$O(VAK(I)) Q:I=""  I VAK(I)<0 S NVAK(I)=VAK(I),VAK(I)=0
	;
3	I $G(SWVB) S VAK("59a")=VAK(59)-VAK("59b")
	; overige vakken samentellen
4	D S4
	;
	;
YZ	G:($$DC^cAFD1(DT)>20070212) ^cTN8024 G:(BP1<2003) ^cT9104 G:(BP1<2007) ^cT9111 G ^cT9121
	;
	; historieken van 1 maand
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
	;
	; detailhist.                                maandhist.
S3	S (DBT,CDT)=0,I2=1_BP*100,I2Z=I2+.999 D S2 S I2=1_BP*100_"B",I2Z=I2_"Z" D S2
S3Z	K I2,I2A,I2Z Q
	;
	; Samentellen andere vakken
S4	N XX,YY
	S $ZT="TRAP^cAN000"
S4A	S VAK(59)=VAK("59a")+VAK("59b")
	S XX=VAK(54)+VAK(55)+VAK(56)+VAK(57)+VAK(61)+VAK(63)+VAK(65)
	S YY=VAK(59)+VAK(62)+VAK(64)+VAK(66)
	S VAK(71)=0,VAK(72)=0
	I XX>YY S VAK(71)=XX-YY
	I YY>XX S VAK(72)=YY-XX
	;
S4B	I '$G(SWXW) G S4Z   ; komt niet vanuit wijzigen hoofding
	D W^cAN220("BA.DET","",UI1_" 71",106,VAK(71)) I K="-" X "STOP"
	D W^cAN220("BA.DET","",UI1_" 72",106,VAK(72)) I K="-" X "STOP"
	D W^cAN220("BA.DET","",UI1_" 59",106,VAK(59)) I K="-" X "STOP"
S4Z	Q
	;
ZZ	; 16.10.08 - 14 u 11 * V9.04