cT9103	;BTW-aangifte ;%T91 ;%T9102>.>%T9104 ;  [ 10/07/09  09:27:44 ]
	;
T0	;BTW-aangifte ;
T1	;BTW-rekeningen;
	;
T0F	;Déclaration à la TVA ;
T1F	;Comptes de TVA;
	;
T0E	;BTW-aangifte ;
T1E	;BTW-rekeningen;
	;
	; BTW-rekeningen
1	S Q=$P(XQ,U),HQ=$P(XQ,U,2,999),I1=0,FP=2003 W @F,@F1,$P($T(@("T1"_QT)),U,2),!
11	S FP=2104,I1=$O(@("^"_Q_"AR(I1)")) G 19:I1="" W @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 I $P(B(2),D,4)="S" S BB=BB-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	S I="" F  S I=$O(VAK(I)) Q:I=""  I VAK(I)<0 S NVAK(I)=VAK(I),VAK(I)=0
	;
	; overige vakken samentellen
3	S XX=VAK(54)+VAK(55)+VAK(56)+VAK(57)+VAK(61)+VAK(63)+VAK(65)
31	S YY=VAK(59)+VAK(62)+VAK(64)+VAK(66)
33	I XX>YY S VAK(71)=XX-YY
35	I YY>XX S VAK(72)=YY-XX
	;
YZ	G:($$DC^cAFD1(DT)>20070212) ^cT9121 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
	;
ZZ	; 08.02.08 - 15 u 00 * V9.00