cT184A	;Controle boekhouding ;%T181 ;%T183>.>%T185 ; [ 05/26/98  1:35 PM ]
	;
T0	;Controle boekhouding ;
T1	;Analytische verrichtingen;
	;
T0F	;Contrôle comptabilité ;
T1F	;Opérations analytiques;
	;
T0E	;Controle boekhouding ;
T1E	;Analytische verrichtingen;
	;
	; initialisatie
1	S Q0="^"_Q_"FIE(BP)",Q1="^"_Q_"CNTRL(SW,BP,R,J1)",Q2="^"_Q_"FIE(BP,I1)"
11	S BP=BPA S:BPC BP=BPC-.01 W !,$P($T(@("T1"_QT)),U,2),!
	;
	; 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," " S I1=""
23	S I1=$O(@Q2),J1=I1,I2=0 I I1="" G 2
25	S I2=0 K T,TAN
27	S I2=$O(@("^"_Q_"FIE(BP,I1,I2)")) I I2="" D S1 G 23
	;
	; alle detaillijnen per fin.rekening
3	S A=^(I2),DC=$P(A,D,6),BE=$P(A,D,5),KLA=$P(A,D,7),DC=DC="C"
35	S R=$P(A,D,16) S:R="" R=0 S TAN(R,DC)=$G(TAN(R,DC))+BE
37	I $S<1999 D S1 K T,TAN
39	G 27
	;
YZ	K KLA,DC,T,TA,TB,TAN D:$P($G(@("^"_Q_"BA(300)")),D,8) ^cT184I Q
	;
	; (tussen)resultaat in bestand
S1	S R="",SW=100 F  S R=$O(TAN(R)) Q:R=""  S A=$P($G(@Q1),D)+$G(TAN(R,0)),B=$P($G(@Q1),D,2)+$G(TAN(R,1)),@Q1=A_D_B
S1Z	Q
	;
ZZ	; 04.11.04 - 10 u 11 * V8.02