cT182	;Controle boekhouding ;%T181 ;%T181>.>%T183 ; [ 05/26/98  5:37 PM ]
	G 1
	;
T0	;Controle boekhouding ;
T1	;Verkoopdagboek; (analytisch);
T2	;dagboeken ;historieken ;cumul ;fouten ;
T3	;rekeningen;klanten;leveranciers;
T4	;Ventilatie verschilt : ;
T5	;Uitsplitsing verschilt : ;
T6	;Maatstaven en netto verschillen : ;
	;
T0F	;Contrôle comptabilité ;
T1F	;Journal des ventes; (analytique);
T2F	;journaux ;historiques ;cumul ;erreurs ;
T3F	;comptes;clients;fournisseurs;
T4F	;Ventilation diffère : ;
T5F	;Répartition diffère : ;
T6F	;Bases taxables et montants nets diffèrent : ;
	;
T0E	;Controle boekhouding ;
T1E	;Verkoopdagboek; (analytisch);
T2E	;dagboeken ;historieken ;cumul ;fouten ;
T3E	;rekeningen;klanten;leveranciers;
T4E	;Ventilatie verschilt : ;
T5E	;Uitsplitsing verschilt : ;
T6E	;Maatstaven en netto verschillen : ;
	;
	; initialisatie
1	K @("^"_Q_"CNTRL") I '$G(JOB),$G(QW) D X^cA612
11	S I=$T(@("T2"_QT)),@("^"_Q_"CNTRL")=QN_D_DT_D_TD,@("^"_Q_"CNTRL(9)")=$P(I,U,5)_$P(I,U,2)
13	F X=0,10,20 S A=$P($T(@("T3"_QT)),U,X/10+2),^(X)=$P(I,U,2)_A,^(X+1)=$P(I,U,3)_A,^(X+2)=$P(I,U,4)_A,^(X+3)=$P(I,U,5)_A
14	S X=100,A=$P($T(@("T3"_QT)),U,2)_$P($T(@("T1"_QT)),U,3),^(X)=$P(I,U,2)_A,^(X+1)=$P(I,U,3)_A,^(X+2)=$P(I,U,4)_A,^(X+3)=$P(I,U,5)_A
15	S Q0="^"_Q_"VE(BP)",Q1="^"_Q_"CNTRL(SW,BP,R,""V"")",Q2="^"_Q_"CNTRL(9,BP,""V"",OI)",Q3="^"_Q_"CNTRL(10,BP,$P(A,D,4),""V"")"
17	S BP=BPA S:BPC BP=BPC-.01 W !,$P($T(@("T1"_QT)),U,2),!
19	D S1^cA305 F X=0:1:9 I $D(@("^"_Q_"BA(14,X)")) S TL(X)=$P(^(X),D)_" "
	;
	; gevraagde boekingsmaanden
2	S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=BP+.88 G YZ:BP>(BPH+1),2:'$D(@Q0),2:BP'=BPC&BPC!(BP'>BPA&'BPC) S:BP>BPH BPH=BP
21	W BP," "
23	S (I,OI)=0 K B,T,TAN F X=0:1:9 S T(X)=0
25	S I=$O(@("^"_Q_"VE(BP,I)")) S:I A=^(I) I I["." S:'$D(B) B=0 D S1 G 25
27	I $D(B) S X=NT-B K B I X S VV(OI)=$S($D(VV(OI)):VV(OI)_" & ",1:"")_$P($T(@("T4"_QT)),U,2)_X
29	S:$D(VV(OI)) @Q2=VV(OI),FOUT=1 K VV G 5:'I
	;
	; narekenen factuur
3	S FC=$P(A,D),TT=$P(A,D,6),NT=$P(A,D,7),BT=$P(A,D,8),EG=$P(A,D,9),LT=$P(A,D,18),IT=$P(A,D,15)
31	S FC=FC="C",T(FC)=T(FC)+TT,X=TT-NT-BT-EG-LT-IT I X S VV(I)=$P($T(@("T5"_QT)),U,2)_X
33	S C=$P(A,D,11),X=NT F J=2:2:$L(C,"#") S X=X-$P(C,"#",J)
35	S X=X-$P(A,D,10) I $$BBTW(Q,A),X'=0 S VV(I)=$S($D(VV(I)):VV(I)_" & ",1:"")_$P($T(@("T6"_QT)),U,2)_X
37	S $P(@Q3,D,FC+1)=$P($G(@Q3),D,FC+1)+TT
	;
4	S T(FC+2)=T(FC+2)+BT,T(FC+4)=T(FC+4)+EG,T(FC+6)=T(FC+6)+LT,T(FC+8)=T(FC+8)+IT
41	; G 49:'$D(@("^"_Q_"BA(39)")),49:$P(^(39),D,3)'="NL" S C=$P(A,D,11) K MST
43	; F X=1:1 S A=$P(C,"#",1,2),C=$P(C,"#",3,99) S:'$D(MST(+A)) MST(+A)=0 S MST(+A)=MST(+A)+$P(A,"#",2) Q:C=""
45	; I $D(MST(2)),MST(2) S X=$J(MST(2)*PBTW(2)/100,0,QD),T(FC+4)=T(FC+4)+X,T(FC+2)=T(FC+2)-X
47	; I $D(MST(3)),MST(3) S X=$J(MST(3)*PBTW(3)/100,0,QD),T(FC+6)=T(FC+6)+X,T(FC+2)=T(FC+2)-X
49	S OI=I K MST G 25
	;
	; einde boekingsmaand
5	S R=20,SW=0
51	S R=$O(T(R)) I $L(R) S B=$G(T(R,0)),A=$G(T(R,1)),@Q1=A_D_B G 51
53	F X=0,3,5,7,9 I $D(TL(X)) S R=TL(X),A=$G(@Q1),^("V")=T(X)+$P(A,D)_D_$P(A,D,2)
55	F X=1,2,4,6,8 I $D(TL(X)) S R=TL(X),A=$G(@Q1),^("V")=$P(A,D)_D_(T(X)+$P(A,D,2))
57	S R="",SW=100 F  S R=$O(TAN(R)) Q:R=""  S @Q1=$G(TAN(R,1))_D_$G(TAN(R,0))
59	G 2:'BPC,YZ
	;
YZ	K TT,NT,BT,EG,LT,IT,PBTW,PTXT,T,TAN,TL G ^cT183
	;
	; ventilaties
S1	S A0=$P(A,D),A=$P(A,D,2,99) I '$L(A)&'$L(A0) G S1Z
S1A	S BE=$P(A0,"#",4),R=$P(A0,"#"),B=B+BE,T(R,FC)=$G(T(R,FC))+BE
S1B	S R=$P(A0,"#",9) S:$L(R) TAN(R,FC)=$G(TAN(R,FC))+BE G S1
S1Z	Q
	;
	; Wordt er gefactureerd vanuit een Belgisch BTW-nummer ?
	; Input  : Q = Q-waarde boekhouding   A = record Q-VE(BP,FNR)
	; Output : BBTW=1 (Belgisch BTW-nummer)   BBTW=0 (niet-Belgisch BTW-nummer) 
BBTW(Q,A)	
	N BBTW,BA39 S $ZT="TRAP^cAN000"
	S BBTW=1,BA39=$G(@("^"_Q_"BA(39)"))
	I '$L($P(A,D,36)),$P(BA39,D,4)'="BE" S BBTW=0 G BBTWZ
	I $L($P(A,D,36)),$E($P(A,D,36),1,2)'="BE" S BBTW=0
BBTWZ	Q BBTW
	;
ZZ	; 15.04.03 -  9 u 31 * V7.94