cT181A3	;Controle analytische boekhouding ;^cT181A2 ;Go naar ^cT181A4 [ 02/23/00  9:03 AM ]
	;
	; 2-historieken van de grootboekrekeningen en analytische rekeningen worden doorlopen
	; en volgende controle global worden opgebouwd:	; 
	;  - ^Q_CNTRLA(11	: cumuls per maand - ARA - AR - Soort 
	;  - ^Q_CNTRLA(21	: cumuls per maand - AR - ARA - Soort 
	;
T0	;Controle analytische boekhouding ;
T1	;Historieken analytische rekeningen (2-nodes);
T2	;bestaat niet in dagboek;geen ventilatie in dagboek;van andere rekening;
T3	;Historieken grootboekrekeningen (2-nodes);
	;
T0F	;Contrôle comptabilité analytique ;
T1F	;Historiques comptes analytique (2-nodes)
T2F	;n'existe pas dans le journal;pas d'imputation dans le journal;d'un autre compte;
T3F	;Historiques comptes de grand-livre (2-nodes)
	;
T0E	;Controle analytische boekhouding ;
T1E	;Historieken analytische rekeningen (2-nodes);
T2E	;bestaat niet in dagboek;geen ventilatie in dagboek;van andere rekening;
T3E	;Historieken grootboekrekeningen (2-nodes);
	;
	; initialisatie
1	S Q0="^"_Q_"CNTRLA(21,I1,I2,REK,I3)",Q1="^"_Q_"ARA(I2)",Q2="^"_Q_"ARA(I2,Y)"
11	S Q3="^"_Q_"FI(I1,I3,N)",Q4="^"_Q_"VE(I1,N)",Q5="^"_Q_"AA(I1,N)"
12	S Q30="^"_Q_"FIE(I1,I3,N)",Q300="^"_Q_"FII(I1,I3,N)"
	S Q10="^"_Q_"AR(REK)"
13	S Q7="^"_Q_"CNTRLA(22,I1,I2,V)"
15	S BP=BPA+.01 S:BPC BP=BPC W !,$P($T(@("T1"_QT)),U,2),!
17	S I2=0,LOOP=0
	D IBJ^cT00A(Q,"","KM1","KM2")          ; opbouwen KM1 en KM2
	S EBM=$G(KM1($$STARTJR^cTA180(Q)),"2004.01")
	;
	; alle rekeningen doorlopen
2	S I2=$O(@Q1) G 3:I2="" S REK=0
20	S REK=$O(@Q10) G 2:'$L(REK) S Y="2"_$P(REK," ")_$J("",8-$L("2"_$P(REK," ")))_$E($TR(BP,".","")_"0",1,6)
21	S Y=$O(@Q2),V="" G 20:$P($E(Y,2,8)," ")'=$P(REK," ") S I1=$E(Y,9,12)_"."_$E(Y,13,14),A=^(Y) I I1<BP!(I1'=BP&BPC) G 21
	I I1<EBM G 21
	W $E(I2)
	;
22	I $E(Y)'=2 G 21   ; enkel analyt. historieken (2-nodes)
23	I $E(Y,15)="B" S I3=$E(Y,9,99),A(0)=$P(A,D,3),A(1)=$P(A,D,4) D S1 G 21
25	I $E(Y,15)="V"!($E(Y,15)="A") S I3=$E(Y,15),A(0)=$P(A,D,3),A(1)=$P(A,D,4) D S1 G 21
27	I Y["." D S2   ; detailhistorieken
29	G 21
	;
3	I $G(LOOP) G YZ
	W !,$P($T(@("T3"_QT)),U,2),!
	S Q1="^"_Q_"AR(I2)",Q2="^"_Q_"AR(I2,Y)"
	S Q10="^"_Q_"ARA(REK)"
	S Q0="^"_Q_"CNTRLA(11,I1,I2,REK,I3)"
	S Q7="^"_Q_"CNTRLA(12,I1,I2,V)"
	S LOOP=1
	G 2
	;
YZ	K A,A1,A2,A3,B1,B2,B3,N,CD G ^cT181A4 Q
	;
	; resultaat controle historiek
S1	I A(0)!A(1) S:'$D(@Q0) @Q0=D S ^(I3)=^(I3)+A(0)_D_($P(^(I3),D,2)+A(1))
S1Z	Q
	;
	; aflopen velden detailhistoriek
S2	S (A(0),A(1))=0,Z=$P(A,D),A=$P(A,D,2,99) G S2Z:'$L(A)&'$L(Z) S I3=$E(Z),N=$E(Z,2,99) G S2:V=Z S V=Z
S2A	I I3="V" G S2E:'$D(@Q4) S B=@Q4,CD=$P(B,D)="F",SW=1 D S3,S1 G S2
S2B	I I3="A" G S2E:'$D(@Q5) S B=@Q5,CD=$P(B,D)="C",SW=1 D S3,S1 G S2
S2C	I I3="B" S I3=$P(N,"#"),N=$P(N,"#",2) G S2E:'$D(@Q3) S B=@Q3 G S2F:$P(B,D,7)'="A",S2F:'(($P(B,D,16)=I2)!($P($P(B,D,8),"#")_" "=I2))
	I I3="E" S I3=$P(N,"#"),N=$P(N,"#",2) G S2E:'$D(@Q30) S B=@Q30 G S2F:$P(B,D,7)'="A",S2F:'(($P(B,D,16)=I2)!($P($P(B,D,8),"#")_" "=I2))
	I I3="I" S I3=$P(N,"#"),N=$P(N,"#",2) G S2E:'$D(@Q300) S B=@Q300 G S2F:$P(B,D,7)'="A",S2F:'(($P(B,D,16)=I2)!($P($P(B,D,8),"#")_" "=I2))
S2D	S CD=$P(B,D,6)="C",A(CD)=$P(B,D,5) D S1 G S2
S2E	S @Q7=$P($T(@("T2"_QT)),U,2),FOUT=3 G S2
S2F	S @Q7=$P($T(@("T2"_QT)),U,4),FOUT=3 G S2
S2Z	Q
	;
	; aflopen ventilaties per factuur
S3	S N=N+.01 G S3Z:'$D(^(N)) S B=^(N)
S3A	F I=1:1 S K=$P(B,D),B=$P(B,D,2,999) Q:K=B  I $S(LOOP=1:$P(K,"#"),1:$P(K,"#",9))=I2 S SW=0 I $S(LOOP=1:$P(K,"#",9),1:$P(K,"#"))=REK S A(CD)=A(CD)+$P(K,"#",4)
S3B	G S3
S3Z	S:SW @Q7=$P($T(@("T2"_QT)),U,3),FOUT=3 Q
	;
ZZ	; 04.11.04 - 10 u 11 * V8.02