cT392	;Jaarafsluiting ;%T39 ;do uit %T391 ; [ 01/02/01  5:14 PM ]
	G 1
	;
T0	;Jaarafsluiting ;
T1	;Saldo voor de verlies/winstrekeningen : ;
T2	;Dit saldo moet naar een resultatenrekening worden overgeboekt !;
T3	;De resultatenrekening;Bevestiging\".[] = rekening ok   ,[] = hernemen";
T4	;"Het boekjaar ",BJ-1," is volledig afgesloten.";
	;
T0F	;Clôture de l'année comptable ;
T1F	;Solde des comptes pertes & profits : ;
T2F	;Ce solde doit être imputé dans un compte de résultat !;
T3F	;Compte de résultat;Confirmation\".[] = compte ok   ,[] = reprendre";
T4F	;"L'année comptable ",BJ-1," est clôturée.";
	;
T0E	;Yearly closure ;
T1E	;Balance for loss/profit accounts : ;
T2E	;This saldo must be transfered to a results account !;
T3E	;The results account;Confirmation\".[] = account ok   ,[] = retry";
T4E	;"The fiscal year ",BJ-1," has been fully closed.";
	;
	; opzetten beginsaldo per KL/LE/AR
S1	L @("^"_Q_X):2 E  S R=14 D F2 G S1
S1A	S I1=0 D DMS^cAN000("UQC","USC",X) G YZ:UQC=""!(USC="") W /CUP(4,3),@F1,$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D,2)
S1B	S I1=$O(@("^"_Q_X_"(I1)")) G S1Z:I1="",S1B:'$D(^(I1,0)) W /CUP(6,3),$P(^(0),D,2),@F2
S1C	S S1=$G(^(BJ)),S2=$G(^(BJ+.02)) D S2
S1D	I 'S3,'$D(^(BJ+1)) G S1B
S1E	S $P(^(BJ+1),D)=S3 D S3 I X'="AR" G S1B
S1F	S @("^"_Q_"FIB(I1,0)")=2,^(1)=S3_D_D_DT_D_TD_D_$I_D_$P($T(@("T0"_QT)),U,2)_D_D_D
S1G	S S1=$S($D(@("^"_Q_X_"(I1,BJ+.01)")):^(BJ+.01),1:D),S2=$S($D(^(BJ+.03)):^(BJ+.03),1:D) D S2
S1H	I 'S3,'$D(^(BJ+1.01)) G S1B
S1I	S $P(^(BJ+1.01),D)=S3 D S3 S $P(@("^"_Q_"FIB(I1,1)"),D,2)=S3 G S1B
S1Z	K S1,S2,S3 Q
	;
	; berekenen saldo
S2	S S3=+S1 F K=2:1:23 S S3=S3+$P(S1,D,K)-$P(S2,D,K)
S2Z	Q
	;
	; opzetten nodes
S3	F S1=BJ+1:.01:BJ+1.02 S S2=$G(^(S1)),$P(S2,D,24)="",^(S1)=S2
S3Z	Q
	;
S4	S FP=403 W @F,@F1,$P($T(@("T1"_QT)),U,2)
S4Z	Q
	;
	; Jaarafsluiting
1	S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11	S @("^"_Q_"BA(2)")=BP\1*12+(BP#1*100)_D_$E(BP+1_0,1,7)_D_BP_D_X,X=^(2)
13	F AT=0:1 S K=$P(X,D,AT+1*3),K=K\1*12+(K#1*100) I K'=$P(X,D,AT*3+1) Q
15	S ^(26)=AT-1,BA39=^(39) I $P(X,D,2)\1=$P(BA39,D,6) G ^cT392E
17	K @("^"_Q_"FIB") F X="KL","LE","AR" D S1
19	S X=@("^"_Q_"BA(2)"),BJ=$P(X,D,2)\1
	;
2	; V/W-rekeningen
21	S (I1,T)=0 D S4
23	S I1=$O(@("^"_Q_"AR(I1)")) G 3:I1="",23:'$D(^(I1,0)),23:'$P(^(0),D,20)
25	I $D(^(BJ)) S T=T+^(BJ),$P(^(BJ),D)="",K=@("^"_Q_"FIB(I1,1)"),$P(K,D,7)=-$P(K,D),$P(K,D)="",^(1)=K W /CUP(6,3),I1,@F2
27	G 23
	;
	; Resultatenrekening
3	D S4 W $$IP^cAFA1(T,QD,0),BF I 'T S R=4 D F2 G 5
31	W !!?2,$P($T(@("T2"_QT)),U,2)
33	S I1=$$^cANSYN("AR") G 33:K="-" S K=^(I1,0),FP=1803 W @F,I1,$P(K,D,2)
35	I VERBOT[(D_I1_D)!$L($P(K,D,9))!$L($P(K,D,10))!$P(K,D,17)!$P(K,D,20) S R=25 D F2 G 33
37	I $P(K,D,13) S R=200 D F2 G 33
	;
	; GM 06.07.04 Ook om analytische rekening vragen
38	S ARA=$$ARA^cTA183(Q,I1) G 33:ARA="-"	
	S FP=1903 W @F2 I $L(ARA) S FP=1903 W @F,$P(ARA,D,2)_" "_$P(ARA,D,3)
	;	
39	S R="K\22\3\"_$P($T(@("T3"_QT)),U,3)_"\1\\""-,.""[K&$L(K)" D R0 G 33:K'="."
	;
	; Resultaat V/W
4	S K=$O(@("^"_Q_"AR(I1,0)")),K=D,$P(K,D,23)=D F R=BJ:.01:BJ+.02 I '$D(^(R)) S ^(R)=K
41	S $P(^(BJ),D)=$P(^(BJ),D)+T
43	I '$D(@("^"_Q_"FIB(I1,0)")) S ^(0)=2,^(1)=K
45	S K=^(1),^(1)=K+T_D_D_DT_D_TD_D_$I_D_$P($T(@("T0"_QT)),U,2)_D_T_D_D
	;
5	; GM 06.07.04 Extra cumuls (^DBH)
	D BS^cTA183(Q,BJ)					; Beginsaldi opzetten 
	I $L($G(I1)) D RESWV^cTA183(Q,BJ,I1,$G(ARA),"",T)	; Beginsaldo resultaat rekening
	;
6	S FP=403 W @F,@F1,@$P($T(@("T4"_QT)),U,2) S R=4 D F2
	;
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 04.11.04 - 10 u 11 * V8.02