cT181A4	;Controle analytische boekhouding ;^cT181A3 ; Go naar ^cT181A5 [ 17/06/04  1:40 PM ]
	;
	; De controle-globals worden doorlopen en op elk niveau worden de 
	; totalen weggeschreven.
	;
T0	;Controle analytische boekhouding ;
T1	;Totaal van de dagboeken ;
T2	;Totaal van historiek rekeningen ;
T3	;Fdiversen;
	;
T0F	;Contrôle comptabilité analytique ;
T1F	;Total des journaux
T2F	;Total des historiques comptes;
T3F	;Fdivers  ;
	;
T0E	;Controle analytische boekhouding ;
T1E	;Totaal van de dagboeken ;
T2E	;Totaal van historiek rekeningen ;
T3E	;Fdiversen;
	;
	; initialisatie
1	S Q0="^"_Q_"CNTRLA(I,I1,SR)",Q1="^"_Q_"CNTRLA(I,I1)",Q2="^"_Q_"CNTRLA(I,I1,I2)"
	S Q3="^"_Q_"CNTRLA(I,I1,I2,I3)",Q4="^"_Q_"CNTRLA(I,I1,I2,I3,I4)"
	S Q5="^"_Q_"CNTRLA(I)"
11	W !,$P($T(@("T1"_QT)),U,2) S I=10,(I1,I2,I3,I4)=""
	;
	; totaal dagboeken en historieken
2	S I1=$O(@Q1),(TA,TB)=0 G 3:I1=""
21	S I2=$O(@Q2),(XA,XB)=0 I I2="" S @Q1=TA_D_TB D S4 G 2
23	S I3=$O(@Q3),(A,B)=0 I I3="" S @Q2=XA_D_XB,TA=TA+XA,TB=TB+XB G 21
24	S I4=$O(@Q4) I I4="" S @Q3=A_D_B,XA=XA+A,XB=XB+B G 23
25	S X=^(I4),Y=$P(X,D),Z=$P(X,D,2),A=A+Y,B=B+Z,SR="F" S:I4="A" SR="A" S:I4="V" SR="V" I I<9!(I>99) D S1
27	I I4?.N!(I4?.N1" ")!($E(I4)="D") S SR="F"_(+I4) S:$E(I4)="D" SR=$P($T(@("T3"_QT)),U,2)_$E(I4,2,99) I I<9!(I>99) D S1
29	G 24
	;
3	K TA,TB S I=I+10 S:I=30 I=11 G YZ:(I>21) 
33	I I=20 W !,$P($T(@("T2"_QT)),U,2) 
35	G 2 
	;
YZ	K TA,TB G ^cT181A5
	;
	; totaal per soort A/V/F
S1	S TA(SR)=$G(TA(SR))+Y,TB(SR)=$G(TB(SR))+Z
S1Z	Q
	;
	; totaal per soort per boekingsmaand
S4	S SR=0
S4A	S SR=$O(TA(SR)) I $L(SR) S @Q0=TA(SR)_D_TB(SR) G S4A
S4Z	K TA,TB Q
	;
ZZ	; 04.11.04 - 10 u 11 * V8.02