cT183	;Controle boekhouding ;%T181 ;%T182>.>%T184 ; [ 05/26/98  4:38 PM ]
	;
T0	;Controle boekhouding ;
T1	;Aankoopdagboek;
T3	;Ventilatie verschilt : ;
T4	;Uitsplitsing verschilt : ;
T5	;Maatstaven verschillen : ;
	;
T0F	;Contrôle comptabilité ;
T1F	;Journal des achats;
T3F	;Ventilation diffère : ;
T4F	;Répartition diffère : ;
T5F	;Bases taxables diffèrent : ;
	;
T0E	;Controle boekhouding ;
T1E	;Aankoopdagboek;
T3E	;Ventilatie verschilt : ;
T4E	;Uitsplitsing verschilt : ;
T5E	;Maatstaven verschillen : ;
	;
T0D	;Controle boekhouding ;
T1D	;Aankoopdagboek;
T3D	;Ventilatie verschilt : ;
T4D	;Uitsplitsing verschilt : ;
T5D	;Maatstaven verschillen : ;
	;
	; initialisatie
1	S Q0="^"_Q_"AA(BP)",Q1="^"_Q_"CNTRL(SW,BP,R,""A"")",Q2="^"_Q_"CNTRL(9,BP,""A"",OI)",Q3="^"_Q_"CNTRL(20,BP,$P(A,D,4),""A"")"
11	S BP=BPA S:BPC BP=BPC-.01 W !,$P($T(@("T1"_QT)),U,2),!
13	F X=0:1:21 I $D(@("^"_Q_"BA(15,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_"AA(BP,I)")) S:I A=^(I) I I["." S:'$D(B) B=0 D S1 G 25
27	I $D(B) S X=GOE+DIE+INV+AND+NABTW-B K B I X S VV(OI)=$S($D(VV(OI)):VV(OI)_" & ",1:"")_$P($T(@("T3"_QT)),U,2)_X
29	S:$D(VV(OI)) @Q2=VV(OI),FOUT=2 K VV G 5:'I
	;
	; narekenen factuur
3	S FC=$P(A,D),TTB=$P(A,D,6),GOE=$P(A,D,7),DIE=$P(A,D,14),INV=$P(A,D,13),AND=$P(A,D,15)
30	S AFBTW=$P(A,D,8),NABTW=$P(A,D,9),BTWOH=$P(A,D,11),BTWIC=$P(A,D,12),BTWVL=$P(A,D,16),BTWMC=$P(A,D,17)
	S AFBTWA=$P(A,D,38) ;GM 17.01.05 Aanpassing ivm "Aftrekbare BTW andere" (~Hannecard")
31	S FC=FC="C",OI=I,X=TTB-GOE-DIE-INV-AND-AFBTW-AFBTWA-NABTW+BTWIC+BTWOH+BTWVL+BTWMC I X S VV(I)=$P($T(@("T4"_QT)),U,2)_X
32	S X=$P(TTB,"#",2)-$P(GOE,"#",2)-$P(DIE,"#",2)-$P(INV,"#",2) I X S VV(I)=$S($D(VV(I)):VV(I)_" & ",1:"")_$P($T(@("T5"_QT)),U,2)_X
33	S T(FC)=T(FC)+TTB,T(FC+2)=T(FC+2)+AFBTW,T(FC+4)=T(FC+4)+BTWIC,T(FC+6)=T(FC+6)+BTWOH+BTWMC,T(FC+8)=T(FC+8)+BTWVL
	S T(FC+20)=$G(T(FC+20))+AFBTWA ;GM 17.01.05 Aanpassing ivm "Aftrekbare BTW andere" (~Hannecard")
37	S $P(@Q3,D,2-FC)=$P($G(@Q3),D,2-FC)+TTB G 25
	;
	; einde boekingsmaand
5	S R=25,SW=0
51	S R=$O(T(R)) I $L(R) S A=$G(T(R,0)),B=$G(T(R,1)),@Q1=A_D_B G 51
53	F X=1,2,5,7,9,20 S R=$G(TL(X)) I $L(R) S A=$G(@Q1),^("A")=$G(T(X))+$P(A,D)_D_$P(A,D,2)	;GM 17.01.05 Aanpassing ivm "Aftrekbare BTW andere" (~Hannecard")
55	F X=0,3,4,6,8,21 S R=$G(TL(X)) I $L(R) S A=$G(@Q1),^("A")=$P(A,D)_D_($G(T(X))+$P(A,D,2))	;GM 17.01.05 Aanpassing ivm "Aftrekbare BTW andere" (~Hannecard")
57	S R="",SW=100 F  S R=$O(TAN(R)) Q:R=""  S @Q1=$G(TAN(R,0))_D_$G(TAN(R,1))
59	G 2:'BPC,YZ
	;
YZ	K OI,TTB,GOE,AFBTW,NABTW,BTWOH,BTWIC,INV,BTWVL,BTWMC,B,T,TAN,TL G ^cT184
	;
	; 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
	;
ZZ	; 04.04.05 - 14 u 29 * V8.03