cT181A1	;Controle analytische boekhouding ;cT181A ;Go naar cT181A2 [ 01/06/2004  11:00 AM ]
	;
	; Dagboeken worden doorlopen en volgende controle-globals worden opgezet:
	;  - ^Q_CNTRLA(0	: cumuls per maand - AR - ARA - IAS - periode (~DBH)
	;  - ^Q_CNTRLA(10	: cumuls per maand - ARA - AR - Soort (~2-historieken anal.rek)
	;  - ^Q_CNTRLA(20	: cumuls per maand - AR - ARA - Soort (~2-historieken grootb.rek)
	;
T0	;Controle analytische boekhouding ;
T1	;Verkoopdagboek;
T2	;Aankoopdagboek;
T3	;Financieel dagboek;
T4	;Analytische diverse verrichtingen;
T5	;Segment diverse verrichtingen;
T6	;Cumul rekeningen (DBH)
T7	;Dagboeken rekeningen ;(AR - ARA);(ARA - AR)
T8	;Historieken grootboekrekeningen (2-nodes)
T9	;Historieken analytische rekeningen (2-nodes)
T10	;Fouten dagboeken <-> historiek analytische rekeningen
T11	;Fouten dagboeken <-> historiek grootboekrekeningen
T12	;Beginsaldi rekeningen (DBH)
	;
T0F	;Contrôle analytique comptabilité ;
T1F	;Journal des ventes;
T2F	;Journal des achats;
T3F	;Journaux financiers;
T4F	;Opérations div. analytiques;
T5F	;Opérations de segment div.;
T6F	;Cumul comptes (DBH)
T7F	;Journaux comptes ;(AR - ARA);(ARA - AR)
T8F	;Historiques comptes de grand-livre (2-nodes)
T9F	;Historiques comptes analytiques (2-nodes)
T10F	;Erreurs journaux <-> historique comptes analytique
T11F	;Erreurs journaux <-> historique comptes de grand-livre
T12F	;Soldes initiaux comptes (DBH)
	;
T0E	;Controle boekhouding ;
T1E	;Verkoopdagboek;
T2E	;Aankoopdagboek;
T3E	;Financieel dagboek;
T4E	;Analytische diverse verrichtingen;
T5E	;Segment diverse verrichtingen;
T6E	;Cumul rekeningen (DBH)
T7E	;Dagboeken rekeningen ;(AR - ARA);(ARA - AR)
T8E	;Historieken grootboekrekeningen (2-nodes)
T9E	;Historieken analytische rekeningen (2-nodes)
T10E	;Fouten dagboeken <-> historiek analytische rekeningen
T11E	;Fouten dagboeken <-> historiek grootboekrekeningen
T12E	;Beginsaldi rekeningen (DBH)
 ;
T0D ;Controle analytische boekhouding ;
T1D ;Verkoopdagboek;
T2D ;Aankoopdagboek;
T3D ;Financieel dagboek;
T4D ;Analytische diverse verrichtingen;
T5D ;Segment diverse verrichtingen;
T6D ;Cumul rekeningen (DBH)
T7D ;Dagboeken rekeningen ;(AR - ARA);(ARA - AR)
T8D ;Historieken grootboekrekeningen (2-nodes)
T9D ;Historieken analytische rekeningen (2-nodes)
T10D ;Fouten dagboeken <-> historiek analytische rekeningen
T11D ;Fouten dagboeken <-> historiek grootboekrekeningen
T12D ;Beginsaldi rekeningen (DBH)
	;
 	; Opzetten ^CNTRLA global
A1	K @("^"_Q_"CNTRLA") I '$G(JOB),$G(QW) D X^cA612
	S I=$T(@("T2"_QT)),@("^"_Q_"CNTRLA")=QN_D_DT_D_TD
	S @("^"_Q_"CNTRLA(0)")=$P($T(@("T6"_QT)),U,2)	; Cumul
	S ^(1)=$P($T(@("T12"_QT)),U,2)			; Beginsaldi
	S ^(10)=$P($T(@("T7"_QT)),U,2)_$P($T(@("T7"_QT)),U,3)	; Dagboeken
	S ^(11)=$P($T(@("T8"_QT)),U,2)			; Historieken
	S ^(12)=$P($T(@("T11"_QT)),U,2)			; Fouten
	S ^(20)=$P($T(@("T7"_QT)),U,2)_$P($T(@("T7"_QT)),U,4)	; Dagboeken
	S ^(21)=$P($T(@("T9"_QT)),U,2)			; Historieken
	S ^(22)=$P($T(@("T10"_QT)),U,2)			; Fouten
	;
	; Initialisatie
A2	S Q0="^"_Q_"CNTRLA(0,I2)",Q1="^"_Q_"CNTRLA(10,BP,AR,ARA,SOORT)",Q2="^"_Q_"CNTRLA(20,BP,ARA,AR,SOORT)"	
	S Q3="^"_Q_"AA(BP)",Q4="^"_Q_"VE(BP)",Q5="^"_Q_"FI(BP)",Q6="^"_Q_"FIE(BP)",Q7="^"_Q_"FII(BP)",S="#"
	S BP=BPA S:BPC BP=BPC-.01 	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)
	K FOUT
	D 
	. N BPA
	. D ^cT489	
 	;
 	; Aankoopdagboek
C1	S BP=BPA S:BPC BP=BPC-.01 W !,$P($T(@("T2"_QT)),U,2),!
C2	S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=BP+.88 G D1:BP>(BPH+1),C2:'$D(@Q3),C2:BP'=BPC&BPC!(BP'>BPA&'BPC) ;S:BP>BPH BPH=BP
	I BP<$G(KM1($$STARTJR^cTA180(Q)),"2004.01") G C2
C3	W BP," " S I1=""
C4	D 3 G C2
 	;
 	; Verkoopdagboek
D1	S BP=BPA S:BPC BP=BPC-.01 W !,$P($T(@("T1"_QT)),U,2),!
D2	S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=BP+.88 G E1:BP>(BPH+1),D2:'$D(@Q4),D2:BP'=BPC&BPC!(BP'>BPA&'BPC) ;S:BP>BPH BPH=BP
	I BP<$G(KM1($$STARTJR^cTA180(Q)),"2004.01") G D2
D3	W BP," " S I1=""
D4	D 4 G D2
 	;
 	; Financieel dagboek
E1	S BP=BPA S:BPC BP=BPC-.01 W !,$P($T(@("T3"_QT)),U,2),!
E2	S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=BP+.88 G F1:BP>(BPH+1),E2:'$D(@Q5),E2:BP'=BPC&BPC!(BP'>BPA&'BPC) ;S:BP>BPH BPH=BP
	I BP<$G(KM1($$STARTJR^cTA180(Q)),"2004.01") G E2
E3	W BP," " S I1=""
E4	D 5 G E2
 	;
 	; Analytische diverse verrichtingen
F1	S BP=BPA S:BPC BP=BPC-.01 W !,$P($T(@("T4"_QT)),U,2),!
F2	S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=BP+.88 G G1:BP>(BPH+1),F2:'$D(@Q6),F2:BP'=BPC&BPC!(BP'>BPA&'BPC) ;S:BP>BPH BPH=BP
	I BP<$G(KM1($$STARTJR^cTA180(Q)),"2004.01") G F2
F3	W BP," " S I1=""
F4	D 6 G F2
 	;
 	; Segment diverse verrichtingen
G1	I '$P($G(@("^"_Q_"BA(300)")),D,8) G YZ	; Enkel indien IAS geactiveerd
	S BP=BPA S:BPC BP=BPC-.01 W !,$P($T(@("T5"_QT)),U,2),!
G2	S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=BP+.88 G YZ:BP>(BPH+1),G2:'$D(@Q7),G2:BP'=BPC&BPC!(BP'>BPA&'BPC) ;S:BP>BPH BPH=BP
	I BP<$G(KM1($$STARTJR^cTA180(Q)),"2004.01") G G2
G3	W BP," " S I1=""
G4	D 7 G G2
 	;
 	; 
	; Aankoopdagboek
3	S I2=""
32	S I2=$O(@("^"_Q_"AA(BP,I2)")) G 39:I2="" S N=^(I2)
33	I '(I2#1) S FC=$P(N,D),PER=$P(N,D,23) S:'PER PER=0 D  G 32
	. S DEB=0,CRE=$P($P(N,D,6),"#") I FC="C" S DEB=CRE,CRE=0
	. I DEB!CRE D CUM(B(15,FC="C"),"","",BP,PER,DEB,CRE,"")	; 440.000
	. S DEB=$P(N,D,8),CRE=0 I FC="C" S CRE=DEB,DEB=0
	. I DEB!CRE D CUM(B(15,FC="C"+2),"","",BP,PER,DEB,CRE,"")  ; Aftr.BTW
	. S DEB=0,CRE=$P(N,D,12) I FC="C" S DEB=CRE,CRE=0
	. I DEB!CRE D CUM(B(15,FC="C"+4),"","",BP,PER,DEB,CRE,"")  ; BTWIC
	. S DEB=0,CRE=$P(N,D,11)+$P(N,D,17) I FC="C" S DEB=CRE,CRE=0
	. I DEB!CRE D CUM(B(15,FC="C"+6),"","",BP,PER,DEB,CRE,"")  ; BTWOH+MC
	. S DEB=0,CRE=$P(N,D,16) I FC="C" S DEB=CRE,CRE=0
	. I DEB!CRE D CUM(B(15,FC="C"+8),"","",BP,PER,DEB,CRE,"")  ; BTWVL
34	S A=$P(N,D),N=$P(N,D,2,999) I A="" G 32
35	S BR=$P(A,S),BRA=$P(A,S,9),IBRA=$P(A,S,10) 
36	S DEB=$P(A,S,4),CRE=0 I FC="C" S CRE=DEB,DEB=0
37	D CUM(BR,BRA,IBRA,BP,PER,DEB,CRE,"A")
38	G 34
39	Q
	;
	; Verkoopdagboek
4	S I2=""
42	S I2=$O(@("^"_Q_"VE(BP,I2)")) G 49:I2="" S N=^(I2)
43	I '(I2#1) S FC=$P(N,D),PER=$P(N,D,20) S:'PER PER=0 D  G 42
	. S DEB=$P(N,D,6),CRE=0 I FC="C" S CRE=DEB,DEB=0
	. I DEB!CRE D CUM(B(14,FC="C"),"","",BP,PER,DEB,CRE,"")   ; 400.000
	. S DEB=0,CRE=$P(N,D,8) I FC="C" S DEB=CRE,CRE=0
	. I DEB!CRE D CUM(B(14,FC="C"+2),"","",BP,PER,DEB,CRE,"") ; BTW
	. S DEB=0,CRE=$P(N,D,9) I FC="C" S DEB=CRE,CRE=0
	. I DEB!CRE D CUM(B(14,FC="C"+4),"","",BP,PER,DEB,CRE,"") ; egalis.
	. S DEB=0,CRE=$P(N,D,18) I FC="C" S DEB=CRE,CRE=0
	. I DEB!CRE D CUM(B(14,FC="C"+6),"","",BP,PER,DEB,CRE,"") ; luxetaks
44	S A=$P(N,D),N=$P(N,D,2,999) I A="" G 42
45	S BR=$P(A,S),BRA=$P(A,S,9),IBRA=$P(A,S,10) 
46	S CRE=$P(A,S,4),DEB=0 I FC="C" S DEB=CRE,CRE=0
47	D CUM(BR,BRA,IBRA,BP,PER,DEB,CRE,"V")
48	G 44
49	Q
	;
	; Financieel dagboek
5	S (I2,I3)=""
52	S I2=$O(@("^"_Q_"FI(BP,I2)")) G 59:I2=""
53	S I3=$O(@("^"_Q_"FI(BP,I2,I3)")) G 52:I3="" S N=^(I3)
54	S PER=$P(N,D,10) S:'PER PER=0 D  I $P(N,D,7)'="A" G 53
	. S DEB=$P(N,D,5),CRE=0 I $P(N,D,6)="C" S CRE=DEB,DEB=0
	. I $P(N,D,7)="K" D CUM(B(14,$P(N,D,6)="D"),"","",BP,PER,DEB,CRE,"") ; 400.000
	. I $P(N,D,7)="L" D CUM(B(15,$P(N,D,6)="C"),"","",BP,PER,DEB,CRE,"") ; 440.000
	. I $E(I2)'="D" D CUM($TR(I2,"W","")_" ","","",BP,PER,CRE,DEB,"")   ; fin.rek
55	S BR=$P($P(N,D,8),"#")_" ",BRA=$P(N,D,16),IBRA=$P(N,D,40) 
56	S DEB=$P(N,D,5),CRE=0 I $P(N,D,6)="C" S CRE=DEB,DEB=0
57	D CUM(BR,BRA,IBRA,BP,PER,DEB,CRE,I2)
58	G 53
59	Q
	;
	; Analytische diverse verrichtingen
6	S (I2,I3)=""
62	S I2=$O(@("^"_Q_"FIE(BP,I2)")) G 69:I2=""
63	S I3=$O(@("^"_Q_"FIE(BP,I2,I3)")) G 62:I3="" S N=^(I3)
64	S PER=$P(N,D,10) S:'PER PER=0 D  I $P(N,D,7)'="A" G 63
	. S DEB=$P(N,D,5),CRE=0 I $P(N,D,6)="C" S CRE=DEB,DEB=0
	. I $E(I2)'="D" D CUM(I2_" ","","",BP,PER,CRE,DEB,"")    ; financiële rekening
65	S BR=$P($P(N,D,8),"#")_" ",BRA=$P(N,D,16)
	S IBRA=$P(N,D,31) I IBRA="" S IBRA=BRA
66	S DEB=$P(N,D,5),CRE=0 I $P(N,D,6)="C" S CRE=DEB,DEB=0
67	D CUM(BR,BRA,IBRA,BP,PER,DEB,CRE,I2)
68	G 63
69	Q
	;
	; Segment diverse verrichtingen
7	S (I2,I3)=""
72	S I2=$O(@("^"_Q_"FII(BP,I2)")) G 79:I2=""
73	S I3=$O(@("^"_Q_"FII(BP,I2,I3)")) G 72:I3="" S N=^(I3)
74	S PER=$P(N,D,10) S:'PER PER=0 D  I $P(N,D,7)'="A" G 73
	. S DEB=$P(N,D,5),CRE=0 I $P(N,D,6)="C" S CRE=DEB,DEB=0
	. I $E(I2)'="D" D CUM(I2_" ","","",BP,PER,CRE,DEB,"")    ; financiële rekening
75	S BR=$P($P(N,D,8),"#")_" ",BRA=$P(N,D,16),IBRA=$P(N,D,31) 
76	S DEB=$P(N,D,5),CRE=0 I $P(N,D,6)="C" S CRE=DEB,DEB=0
77	D CUM(BR,BRA,IBRA,BP,PER,DEB,CRE,I2)
78	G 73
79	Q
	;
	;
CUM(AR,ARA,IARA,BP,BPE,DEBET,CREDIT,SOORT)	       ; cumul op niveau AR+ARA+IAS+BP+BPE
	N I2
	S I2=BP*100_" "_$P(AR," ")_" "_$$REK^cTA180(ARA)_$$REK^cTA180(IARA,1)_$S(BPE:BPE*100,1:0)
CUMA	S CUM=$G(@Q0)
CUMB	S ^(I2)=$P(CUM,D)+DEBET_D_($P(CUM,D,2)+CREDIT) 	; data: debet,credit
CUMC	I '$L(ARA) G CUMZ
CUMD	; Niveau BP-AR-ARA
CUME	S CUM=$G(@Q1)
CUMF	S ^(SOORT)=$P(CUM,D)+DEBET_D_($P(CUM,D,2)+CREDIT) 	; data: debet,credit
CUMG	; Niveau BP-ARA-AR
CUMH	S CUM=$G(@Q2)
CUMI	S ^(SOORT)=$P(CUM,D)+DEBET_D_($P(CUM,D,2)+CREDIT) 	; data: debet,credit
CUMZ	Q
	;
	; 
YZ	K KLA,DC,TB,TA,TL,T,TAN G ^cT181A2
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 04.04.05 - 14 u 29 * V8.03