cTN8022	;BTW-AANGIFTE ;%T91 ;%T9101>.>%T9103 ;                          [ 02/12/09  10:58:27 ]
	;
T0	;BTW-aangifte ;
T1	;Verkoopdagboek;
T2	;Aankoopdagboek;
T5	;00%;6%;12%;21%;O.H.;0%;0%(47);0%(44);
	;
T0F	;Déclaration à la TVA ;
T1F	;Journal des ventes;
T2F	;Journal des achats;
T5F	;00%;6%;12%;21%;O.H.;0%;0%(47);0%(44);
	;
T0E	;VAT declaration ;
T1E	;Sales Journal;
T2E	;Purchase Journal;
T5E	;00%;6%;12%;21%;O.H.;0%;0%(47);0%(44);
	;
	; initialisatie
1	I BP1>2010 F K=0:1:3,44:1:49,54:1:57,59,61:1:66,71,72,81:1:88,91 S V=$E(100+K,2,3),VAK(V)=0   ; KU : 12.11.09
	I BP1<2010 F K=0:1:3,45:1:49,54:1:57,59,61:1:66,71,72,81:1:87,91 S V=$E(100+K,2,3),VAK(V)=0   ; KU : 12.11.09
11	S VAK(61)=$P(B(2),D)
12	S VAK(62)=$P(B(2),D,2)
13	S VAK(91)=$P(B(2),D,3)
15	S BB=+$P(B(2),D,4)
	I $G(SWVB) S VAK("59a")=0,VAK("59b")=0
	;         
	; verkoopdagboek
2	D S1^cA305 S QQ=Q,SWI=0 F I=1:1:4 S SWI(I)=0
20	S BP=BP1,FP=1803 W:QP&('$G(SWVB)) @F,@F1,$P($T(@("T1"_QT)),U,2),!
21	W:QP&('$G(SWVB)) $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),FDAT=$P(N,D,2),BTW=$P(N,D,8),A=$P(N,D,11),(I,T)=0 K MST
	I $L($P(N,D,36)) D  G 23                ; VJ 27.07.01
	. S VM=$P(N,D,24),US=$P(N,D,31) I US="" D  I US="" Q
	.. F  S US=$O(@("^"_Q_"FA")@(US)) Q:US=""  I $D(^(US,FNR)) Q
	. S (A,B)=0
	. S UR="U" F  S UR=$O(@("^"_Q_"FA")@(US,FNR,UR)) Q:UR=""  D
	.. S UZ=100 F  S UZ=$O(@("^"_Q_"FA")@(US,FNR,UR,UZ)) Q:UZ=""  D
	... S U2=^(UZ),UB=$P(U2,D,8) I UB="" Q
	... I PBTW(UB)="Z.B." Q
	... S B=B+$P(U2,D,10)  ; maatstaf /verkoop
	... S A=A+$P(U2,D,32)  ; kostprijs/aankoop
	. S VAK(47)=VAK(47)+$$OMREK^cAFE1(Q,B,VM,BF,"V","") ; verkoop
	. S VAK(49)=VAK(49)+$$OMREK^cAFE1(Q,A,VM,BF,"V","") ; aankoop
27	S B=$P(A,S) I $L(B) D S3 S A=$P(A,S,3,999) G 27
29	S I=$$ICVE^cT00A(Q,BP,FNR) I I D S1     ; VJ 26.07.01
	;I $D(MST(7)) S BTW=0		    ; GM 13.01.05 ENKEL te activeren voor Vanloot (ivm Franse BTW 19.6%)!
	;
	; bedragen optellen in vakken
3	S B=""
31	S B=$O(MST(B)) G 23:B="" S A=PBTW(B) I A="Z.B." G 31
	S IC=(U_$P(I,D,2)_U)[(U_B_U)   ; KU : 02.12.0 : IC = BTW-code is een IC-BTWcode : 0% en vanaf 2010 0%(44)
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,V=9:44,V=8:47,1:47-IC)  ; KU : 12.11.09
	; S V=$S(V=2:0,V=3:1,V=4:2,V=5:3,V=6:45,1:47-I)
35	S V=$E(100+V,2,3),VAK(V)=VAK(V)+MST(B)
37	I BTW,V,V<(45-(BP>2010)) S VAK(54)=VAK(54)+BTW,BTW=0  ; KU : 12.11.09
	; I BTW,V,V<45 S VAK(54)=VAK(54)+BTW,BTW=0
39	G 31
	;
	; creditnota's verkoop
4	I V=8 S V=49 G 40   ; 0%(47) steeds in vak 49  ; KU/AM : 26.11.09
	I V=9 S V=48 G 40   ; 0%(44) steeds in vak 48  ; KU/AM : 26.11.09
	I "\0\1\2\3\45\" S V=49 G 40  ; 00%, 6%, 12%, 21% en O.H.
	S V=49-IC
40	S VAK(V)=VAK(V)+MST(B)
41	S VAK(64)=VAK(64)+BTW,BTW=0 G 31
	;
	; aankoopdagboek
5	S BP=BP1,FP=1903 W:QP&('$G(SWVB)) @F,@F1,$P($T(@("T2"_QT)),U,2),!
51	W:QP&('$G(SWVB)) $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 9: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)
	S BTWOH=$P(N,D,11),BTWIC=$P(N,D,12),BTWVL=$P(N,D,16),BTWMC=$P(N,D,17)  ; BTW
	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)  ; Maatstaf
	S I=(+BTWIC'=0)  ; Intracommunautair
	;
555	; KU : 12.11.09
	S (MSTIG,MSTID)=""
	I 'I G 6
	I BP<2010 G 6
	S MSTIG=MSTG    ; maatstaf goederen
	S MSTID=MSTD    ; maatstaf diensten
	I '$L($P(N,D,41)) G 559
	I 'MSTI G 559
	; Investeringen
	I '$P(N,D,41) S MSTIG=MSTIG+MSTI  ; Investeringen als goederen
	I $P(N,D,41) S MSTID=MSTID+MSTI   ; Investeringen als dientsten
559	S MST=MST-MSTIG-MSTID             ; Overschot van de totale maatstaf
	;
	;
	; bedragen optellen in vakken
6	I FC="F",I,BTWIC S VAK(55)=VAK(55)+BTWIC
61	I FC="F",'I,BTWOH!BTWMC S VAK(56)=VAK(56)+BTWOH+BTWMC
63	I FC="F",'I,BTWVL S VAK(57)=VAK(57)+BTWVL
65	I FC="F",AFBTW S VAK(59)=VAK(59)+AFBTW
67	I FC="C" S VAK(63)=VAK(63)+AFBTW-BTWIC-BTWOH-BTWMC-BTWVL
	;
7	S:FC="C" MSTG=-MSTG,MSTD=-MSTD,MSTI=-MSTI,NABTW=-NABTW
	; S:FC="C" MSTG=-MSTG,MSTD=-MSTD,MSTI=-MSTI,NABTW=-NABTW
73	I MSTG S VAK(81)=VAK(81)+MSTG+NABTW,NABTW=0
75	I MSTD S VAK(82)=VAK(82)+MSTD+NABTW,NABTW=0
77	I MSTI S VAK(83)=VAK(83)+MSTI+NABTW,NABTW=0
	;
8	I FC="C" D
	. S VAK(85-I)=VAK(85-I)+MST,MST=-MST
	. I BP<2010 Q                                     ; KU : 12.11.09
	. I MSTIG S VAK(84)=VAK(84)+MSTIG,MSTIG=-MSTIG    ; maatstaf goederen IC CN's
	. I MSTID S VAK(84)=VAK(84)+MSTID,MSTID=-MSTID    ; maatstaf diensten IC CN's
81	I I,BTWIC D
	. S VAK(86)=VAK(86)+MST
	. I BP<2010 Q                        ; KU : 12.11.09
	. I MSTIG S VAK(86)=VAK(86)+MSTIG    ; maatstaf goederen IC
	. I MSTID S VAK(88)=VAK(88)+MSTID    ; maatstaf diensten IC
83	I 'I,BTWOH S VAK(87)=VAK(87)+MST
85	I 'I,BTWVL!BTWMC S VAK(87)=VAK(87)+MST
87	G 53
	;
	; transfertdocumenten (TBK)
9	S FNR=""
91	S FNR=$O(^DATA(Q,"COM.TRA",FNR)) I FNR="" G YZ
	S N=^(FNR,0),BP=$P(N,D,5) I BP<BP1!(BP>BP2) G 91
	S VAK(46)=VAK(46)+$P(N,D)-$P(N,D,2)
	G 91
	;
YZ	G ^cTN8023
	;
	; I=intracomm.
S1	S SWI=1,SWI(BP#1*100-1\3+1)=1
S1Z	Q
	;
	; V=veld uit T-label
S2	S V=0
S2A	F S1=2:1 S S2=$P($T(@("T5"_QT)),U,S1) Q:S2=""  I A=S2 S V=S1 Q
	I V=9,BP<2010 S V=7  ; indien jaar kleiner dan 2010 en er werd op 0%(44) geregistreerd dan naar 0% (vak 47 of 46) zetten)
S2Z	K S1,S2 Q
	;
	; T=aantal BTW-codes ; MST()=maatstaf
S3	I PBTW(B)'="Z.B." S MST(B)=$P(A,S,2),T=T+1
S3Z	Q
	;
ZZ	; 16.10.08 - 14 u 11 * V9.04