cT9102 ;BTW-AANGIFTE ;%T91 ;%T9101>.>%T9103 ; [ 03/10/99  4:59 PM ]
 ;
T0 ;BTW-aangifte ;
T1 ;Verkoopdagboek;
T2 ;Aankoopdagboek;
T5 ;00%;6%;12%;21%;O.H.;0%;0%(47);
 ;
T0F ;Déclaration à la TVA ;
T1F ;Journal des ventes;
T2F ;Journal des achats;
T5F ;00%;6%;12%;21%;O.H.;0%;0%(47);
 ;
T0E ;BTW-aangifte ;
T1E ;Verkoopdagboek;
T2E ;Aankoopdagboek;
T5E ;00%;6%;12%;21%;O.H.;0%;0%(47);
 ;
 ; initialisatie
1 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
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)
 ;         
 ; 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 @F,@F1,$P($T(@("T1"_QT)),U,2),!
21 W:QP $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),BTW=$P(N,D,8),A=$P(N,D,11),(I,T)=0 K MST
27 S B=$P(A,S) I $L(B) D S3 S A=$P(A,S,3,999) G 27
29 I T=1,'BTW S B=$O(MST(B)) I $L(B),$D(PBTW(B)),PBTW(B)="0%" D S1
 ;
 ; 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
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,1:47-I)
35 S V=$E(100+V,2,3),VAK(V)=VAK(V)+MST(B)
37 I BTW,V,V<45 S VAK(54)=VAK(54)+BTW,BTW=0
39 G 31
 ;
 ; creditnota's verkoop
4 S V=49-I,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 @F,@F1,$P($T(@("T2"_QT)),U,2),!
51 W:QP $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 YZ: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),BTWOH=$P(N,D,11),BTWIC=$P(N,D,12),BTWVL=$P(N,D,16),BTWMC=$P(N,D,17),I=(+BTWIC'=0)
 ;
 ; 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 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)
71 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" S VAK(85-I)=VAK(85-I)+MST,MST=-MST
81 I I,BTWIC S VAK(86)=VAK(86)+MST
83 I 'I,BTWOH S VAK(87)=VAK(87)+MST
85 I 'I,BTWVL!BTWMC S VAK(87)=VAK(87)+MST
87 G 53
 ;
YZ G ^cT9103
 ;
 ; I=intracomm.
S1 S I1=$P(N,D,4) S:$D(@("^"_Q_"K1(I1)")) I1=^(I1)       
S1A I $D(@("^"_Q_"KL(I1,0)")) S K=$P(^(0),D,16),K=$E(K,1,2) I K?2U,$D(^BA(5,K)),K'=$P(@("^"_Q_"BA(39)"),D,4) S (I,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
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 ; 05.02.01 - 16 u 23 * V7.84