cTA181(QQ,QU,WAT,OUTPUT)	 ;Cumuls K-code,A-code,IAS-code opzetten (DBH) [ 21/04/2004 - 12:19:21 ]  ; Compiled December 8, 2011 12:06:22
	S $ZT="^cA407"
	G 0
	;
	; Deze cumuls (DBH) kunnen ten vroegste voor opgezet vanaf het startjaar.
	; Beginsaldi worden NIET verwijderd, de verschillen voor de beginsaldi
	; van alle afgesloten boekjaren vanaf startjaar worden op de dummy-
	; rekeningen gezet.
	;
	; QQ = meerdere Q-waardes, gescheiden door spaties
	; QU = initialen
	; WAT= ""  : volledig boekjaar vanaf starjaar Extra Cumuls e.v.
	;      JJJJ: volledig boekjaar JJJJ e.v.
	; OUTPUT = op scherm of niet
	;
	; bepalen muntcode cumuls
S1	S MNTC=$P($$MNTC^cAFE1(Q,$$BJ^cAFE1(Q,I1)),D)
S1Z	Q
	;
0	S tQ=Q I '$G(OUTPUT) S OUTPUT=0
	;
	; Per firma
1	S Q=$P(QQ," "),QQ=$P(QQ," ",2,999) I Q="" G Y
	S:($G(WAT)<$$STARTJR^cTA180(Q))!'$L(WAT) WAT=$$STARTJR^cTA180(Q) ; Ten vroegste vanaf het startjaar
11	S ^HULP(boot,$J)=WAT_"\"_QQ
13	I Q'?1.3U G 1
	I '$D(@("^"_Q_"BA(99,1)")) G 1
	S QN=^(1),D="\",U=";" D ^cA106,^cA105,QT^cQ5
	S QL="",%Q1="^TEMP(""%1"",$J)",@%Q1=0,JOBBED=1
15	S QQ=^HULP(boot,$J),WAT=$P(QQ,D),QQ=$P(QQ,D,2)
17	K ^HULP(boot,$J)  ; Kill ^HULP
19	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)
	;
2	D ^cT489 S BF="EUR"
	;
	; Enkel indien analytische BH
	I '$P($G(@("^"_Q_"BA(300)")),D) G 1
	;
	S BM=KM1(WAT) 
21	D DMS^cAN000("UQC","USC","CUM.AR.ARA",1) G 1:UQC="",1:USC=""
23	S UREF=^DMC(UQC,USC,"DATA","REF"),UI1=$S($L(WAT):WAT,1:BJ)_"00 " L @UREF:2 E  G 1
	; 
	; Verwijderen van de maandcijfers
25	I OUTPUT W !,"Verwijderen maandsaldi "
	S I1=$TR(BM,".","")_" ",BMAAND=""
	F  S I1=$O(^DBH(Q,"CUM.AR.ARA",I1)) Q:'$L(I1)  D
	. I $E(I1,5,6)="00" Q           ; Geen beginsaldi
	. I OUTPUT I BMAAND'=$P(I1," ") S BMAAND=$P(I1," ") W BMAAND_" "
29	. D X^cAN220("CUM.AR.ARA","",I1) W K_"." 
	;
	; Aankoopdagboek
3	I OUTPUT W !,"Aankoopdagboek "
	S I1=BM-.01,I2="",S="#"
31	S I1=$E($J(I1+.01,0,2)_0,1,7) S:I1#1>.12 I1=I1+.88 D S1 I I1>J3 G 4
	I OUTPUT W "@"_I1
32	S I2=$O(@("^"_Q_"AA(I1,I2)")) G 31:I2="" G:(I2#1) 32 D ECUM^cTA180("AA",I1,I2) W "." G 32
	;
	; Verkoopdagboek
4	I OUTPUT W !,"Verkoopdagboek "
	S I1=BM-.01,I2=""
41	S I1=$E($J(I1+.01,0,2)_0,1,7) S:I1#1>.12 I1=I1+.88 D S1 I I1>J3 G 5
	I OUTPUT W "@"_I1
42	S I2=$O(@("^"_Q_"VE(I1,I2)")) G 41:I2="" G:(I2#1) 42 D ECUM^cTA180("VE",I1,I2) W "." G 42
	;
	; Financieel dagboek
5	I OUTPUT W !,"Financieel dagboek "
	S I1=BM-.01,(I2,I3)=""
51	S I1=$E($J(I1+.01,0,2)_0,1,7) S:I1#1>.12 I1=I1+.88 D S1 I I1>J3 G 6
	I OUTPUT W "@"_I1
52	S I2=$O(@("^"_Q_"FI(I1,I2)")) G 51:I2=""
53	S I3=$O(@("^"_Q_"FI(I1,I2,I3)")) G 52:I3="" D ECUM^cTA180("FI",I1,I2,I3) W "." G 53
	;
	; Analytische verrichtingen
6	I OUTPUT W !,"Analytische verrichtingen "
	S I1=BM-.01,(I2,I3)=""
61	S I1=$E($J(I1+.01,0,2)_0,1,7) S:I1#1>.12 I1=I1+.88 D S1 I I1>J3 G 7
	I OUTPUT W "@"_I1
62	S I2=$O(@("^"_Q_"FIE(I1,I2)")) G 61:I2=""
63	S I3=$O(@("^"_Q_"FIE(I1,I2,I3)")) G 62:I3="" D ECUM^cTA180("FIE",I1,I2,I3) W "." G 63
	;
	; Segment verrichtingen
7	I OUTPUT W !,"Segment verrichtingen "
	S I1=BM-.01,(I2,I3)=""
71	S I1=$E($J(I1+.01,0,2)_0,1,7) S:I1#1>.12 I1=I1+.88 D S1 I I1>J3 G 8
	I OUTPUT W "@"_I1
72	S I2=$O(@("^"_Q_"FII(I1,I2)")) G 71:I2=""
73	S I3=$O(@("^"_Q_"FII(I1,I2,I3)")) G 72:I3="" D ECUM^cTA180("FII",I1,I2,I3) W "." G 73
	;
	; Beginsaldi
8	F JR=WAT:1:BJ D
	. I OUTPUT W !,"Beginsaldi "_JR
81	. S BR=0 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
	.. D OPDUMMY^cTA18(BR,JR,Q) W "."
83	G 1	
	;
	; Opkuisen
Y	K ^HULP(boot,$J) 
	L  S Q=tQ I OUTPUT W !,"Done"  ; kill hulpbestand
YZ	Q
	;
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
BG(QQ,QU,WAT)	
	S QQ=$G(QQ),QU=$G(QU),WAT=$G(WAT)
	D LOW^%PRIO,cTA181(QQ,QU,WAT),LOG^cQCTK1 Q
	;
ZZ	; 15.12.05 - 12 u 16 * V8.05