cT392E ;Jaarafsluiting ;%T39 ;do uit %T391 ; [ 01/02/01  5:18 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.";
T5 ;Omrekeningsverschillen : ;
 ;
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.";
T5F ;Différences de conversion : ;
 ;
T0E ;Yearly closure ;
T1E ;Balance of loss/profit accounts : ;
T2E ;This balance 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.";
T5E ;Conversion differences : ;
 ;
 ; 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)
 I X'="AR" S SAL(X)=0
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=$G(@("^"_Q_X_"(I1,BJ+.01)")),S2=$G(^(BJ+.03)) D S2
S1H I 'S4,'$D(^(BJ+1.01)) G S1B
S1I S $P(^(BJ+1.01),D)=S4 D S3 S $P(@("^"_Q_"FIB(I1,1)"),D,2)=S4 G S1B
S1Z K S1,S2,S3,S4 Q
 ;
 ; berekenen saldo: wissels apart optellen
 ; S3=beginsaldo in euro, S4=beginsaldo in VM
S2 I X'="AR" S S1=$G(^(BJ+1)),S2=$G(^(BJ+1.02)) D
 . S S3=0 F K=2:1:23 S S3=S3-$P(S1,D,K)+$P(S2,D,K) ; cumuls
 . S I2=9999 F  S I2=$O(^(I2)) Q:I2'?5.6N  D       ; openstaande doc.
 .. S S1=^(I2),S2=$P(S1,D,10)
 .. I I2?5N,X="KL" S SAL(X,$P(S1,D,14))=$G(SAL(X,$P(S1,D,14)))+S2 Q
 .. I I2?5N,X="LE" S SAL(X,$P(S1,D,14))=$G(SAL(X,$P(S1,D,14)))-S2 Q
 .. I X="KL" S S3=$P(S1,D)="F"*2-1*S2+S3
 .. I X="LE" S S3=$P(S1,D)="C"*2-1*S2+S3
 . S SAL(X)=SAL(X)+S3
S2A I X="AR" D  S S4=S3,S3=$$BEDR^cAFE1(Q,S3,$P(BA39,D,9),$P(BA39,D),"F")
 . 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
 ;
S5 S FP=403 W @F,@F1,$P($T(@("T5"_QT)),U,2)
S5Z Q
 ;
 ; Jaarafsluiting ivm overgang naar euro
1 K @("^"_Q_"FIB") F X="KL","LE","AR" D S1
11 S I1=$P(VERBOT,D,2),$P(@("^"_Q_"AR(I1,BJ+1)"),D)=SAL("KL") D S3
12 S X=$G(@("^"_Q_"FIB(I1,0)"),1),^(0)=X+1,^(X)=SAL("KL")_D_D_DT_D_TD_D_$I_D_$P($T(@("T0"_QT)),U,2)_"KL\\\"
13 S I1=$P(VERBOT,D,4),$P(@("^"_Q_"AR(I1,BJ+1)"),D)=SAL("LE") D S3
14 S X=$G(@("^"_Q_"FIB(I1,0)"),1),^(0)=X+1,^(X)=SAL("LE")_D_D_DT_D_TD_D_$I_D_$P($T(@("T0"_QT)),U,2)_"LE\\\"
15 S X="KL",I1="" ; wisselrekeningen
16 S I1=$O(SAL(X,I1)) I I1="" G 19:X="LE" S X="LE" G 16
17 S $P(@("^"_Q_"AR(I1,BJ+1)"),D)=SAL(X,I1) D S3
18 S K=$G(@("^"_Q_"FIB(I1,0)"),1),^(0)=K+1,^(K)=SAL(X,I1)_D_D_DT_D_TD_D_$I_D_$P($T(@("T0"_QT)),U,2)_X_"-W\\\" G 16
19 S X=@("^"_Q_"BA(2)"),BJ=$P(X,D,2)\1,BF=$P(BA39,D,7),QD=$P(BA39,D,8)
 ;
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
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 ; omrekeningsverschillen
51 S (I1,T)=0 D S5
53 S I1=$O(@("^"_Q_"AR(I1)")) G 6:I1="",53:'$D(^(I1,0))
55 S T=T+$G(^(BJ))
57 G 53
 ;
 ; Verschillenrekening
6 D S5 W $$IP^cAFA1(T,QD,0),BF I 'T S R=4 D F2 G 9
63 S I1=$$^cANSYN("AR") G 63:K="-" S K=^(I1,0),FP=1803 W @F,I1,$P(K,D,2)
65 I VERBOT[(D_I1_D)!$L($P(K,D,9))!$L($P(K,D,10))!$P(K,D,17) S R=25 D F2 G 63
67 I $P(K,D,13) S R=200 D F2 G 63
69 S R="K\22\3\"_$P($T(@("T3"_QT)),U,3)_"\1\\""-,.""[K&$L(K)" D R0 G 63:K'="."
 ;
 ; Resultaat omrekening
7 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
71 S $P(^(BJ),D)=$P(^(BJ),D)-T
73 I '$D(@("^"_Q_"FIB(I1,0)")) S ^(0)=2,^(1)=K
75 S K=^(1),^(1)=K-T_D_D_DT_D_TD_D_$I_D_$P($T(@("T0"_QT)),U,2)_D_-T_D_D
 ;
 ; einde
9 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 ; 05.02.01 - 16 u 23 * V7.84