cT181A2	;Controle analytische boekhouding ;cT181A1 ;Go naar cT181A3 [ 01/06/2004  11:00 AM ]
	;
	; ^DBH-global wordt vergeleken met de de controle-global, opgebouwd
	; via de dagboeken.
	;
T0	;Controle analytische boekhouding ;
T1	;Cumul rekeningen (DBH);
T2	;vgl met dagboeken; debet verschilt : ; credit verschilt :; 
T3	; klopt; verschilt ;
T4	;vgl met rekeningen beginsaldo verschilt : ;
	;
T0F	;Contrôle comptabilité analytique ;
T1F	;Cumul comptes (DBH);
T2F	;par rapport aux journaux; débit diffère : ; crédit diffère :;
T3F	; ok; diffère ;
T4F	;par rapport aux comptes solde initial diffère : ;
	;
T0E	;Controle analytische boekhouding ;
T1E	;Cumul rekeningen (DBH);
T2E	;vgl met dagboeken; debet verschilt : ; credit verschilt :; 
T3E	; klopt; verschilt ;
T4E	;vgl met rekeningen beginsaldo verschilt : ;
	;
	; Initialisatie
A1	S Q3="^"_Q_"CNTRLA(0)",Q0="^"_Q_"CNTRLA(0,I3)"
	S Q1="^"_Q_"CNTRLA(0,BP,I4)",Q2="^"_Q_"CNTRLA(0,BP)"
	S Q4="^"_Q_"CNTRLA(1,BJR,BR)"
	S @Q3=$P($T(@("T1"_QT)),U,2)
A11	S BP=BPA S:BPC BP=BPC-.01
A13	F I=14,15 F J=0:1:9 S BR=$P($G(@("^"_Q_"BA(I,J)")),D),B(I,J)=$S($L(BR):BR_" ",1:0)
 	;
 	; Gevraagde maanden
C1	S BJR="" D 
	. N BPA
 	. D ^cT489
	S BP=BPA S:BPC BP=BPC-.01 W !,$P($T(@("T1"_QT)),U,2),!
C2	S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=BP+.88 G 4:BP>(BPH+1),C2:BP'=BPC&BPC!(BP'>BPA&'BPC) 
	I BP<$G(KM1($$STARTJR^cTA180(Q)),"2004.01") G C2
	I BJR'=$$BJ^cAFE1(Q,BP) S BJR=$$BJ^cAFE1(Q,BP) D 5
	S OUTPUT=0
C3	S I3=$TR(BP,".","")_" "
C4	D 3 G C2
	; 
	; Extra cumuls (DBH vergelijken met cumuls uit de dagboeken)
3	S I3=$O(^DBH(Q,"CUM.AR.ARA",I3)) G 39:$P(I3," ")'=$TR(BP,".","") S N=^(I3,0)
	I 'OUTPUT W BP," " S OUTPUT=1
34	S DEB=$P($G(@Q0),D)-$P(N,D,6)
	S CRED=$P($G(@Q0),D,2)-$P(N,D,7)
	K @Q0
	S $P(@Q2,D)=$P($G(@Q2),D)+$P(N,D,6),$P(@Q2,D,2)=$P($G(@Q2),D,2)+$P(N,D,7)
	S I4=$P(I3," ",2,99) 
	I (+DEB'=0) D  G 37
	. S ERR=$P($T(@("T2"_QT)),U,2)_" :"_$P($T(@("T2"_QT)),U,3)_DEB
	. I (+CRED'=0) S ERR=ERR_" &"_$P($T(@("T2"_QT)),U,4)_CRED
	. S @Q1=ERR,FOUT=200
	I (+CRED'=0) S @Q1=$P($T(@("T2"_QT)),U,2)_" :"_$P($T(@("T2"_QT)),U,4)_CRED,FOUT=200
37	G 3
39	Q
	;
4	; Global doorlopen: OK / NOK
	S BP="" F  S BP=$O(@(Q2)) Q:'$L(BP)  D
	. S $P(^(BP),D,3)=$P($T(@("T3"_QT)),U,2) 
	. ; Indien node niet voorkwam in DBH
	. I $L(BP," ")>2 D 
	.. S INH=^(BP),FOUT=200
	.. K @Q2
	.. S I4=$P(BP," ",2,99)
	.. S BP=$E(BP,1,4)_"."_$E(BP,5,6)
	.. S ERR=""
	.. I (+$P(INH,D)'=0) S ERR=$P($T(@("T2"_QT)),U,2)_" :"_$P($T(@("T2"_QT)),U,3)_$P(INH,D)
	.. I (+$P(INH,D,2)'=0) D
	... I $L(ERR) S ERR=ERR_" &"_$P($T(@("T2"_QT)),U,4)_$P(INH,D,2)
	... I '$L(ERR) S ERR=$P($T(@("T2"_QT)),U,2)_" :"_$P($T(@("T2"_QT)),U,4)_$P(INH,D,2)
	.. S @Q1=ERR
	G YZ
	; 
5	; Beginsaldi controleren
	I BJR>BJ G 59
	I BJ<$$STARTJR^cTA180(Q) G 59
	S BR=0,D="\" F  S BR=$O(@("^"_Q_"AR(BR)")) Q:'$L(BR)  D 
	. I $P(^(BR,0),D,13)=1 Q  	; Tekstrekening
	. ;I $P(^(0),D,30) Q       ; Verwijderd of buiten gebruik
	. S (BS,TOT)=0
	. S BS=$$BSAL^cAFE1(Q,BJR,"AR",BR)  
	. S I=BJR_"00 "_BR F  S I=$O(^DBH(Q,"CUM.AR.ARA",I)) Q:$P(I," ",1,2)'=($P((BJR_"00 "_BR)," ",1,2))  D
	.. S INH=^(I,0)
	.. I $P(INH,D,30) Q
	.. S TOT=TOT+$P(INH,D,10) 
	. S VERS=(BS-TOT) I 'VERS Q
	. S @Q4=$P($T(@("T4"_QT)),U,2)_VERS
	. S FOUT=1
59	Q
	; 
YZ	K KLA,DC,TB,TA,TL,T,TAN G ^cT181A3 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 15.12.05 - 12 u 16 * V8.05