cT393	;MAANDBALANS ;%T39 ;do uit %T39 ; [ 02/21/01  10:15 AM ]
	;
T0	;Maandbalans ;
T1	;Er moeten nog diverse boekingen verwerkt worden ;
T2	;Er moeten nog aankoopfacturen verwerkt worden ;
T3	;Saldo klasse 8 en 9 -> ;Dit saldo moet 0 zijn ;
T4	;Even geduld ... ;
T5	;Rekening;Mnt;EMU;Saldo (munt);Omgerek. (;Balansw. (;Verschil (;
T8	;"Het boekjaar ",BJ," wordt afgesloten.";
T15	;Saldo voor de verlies/winstrekeningen : ;
	;
T0F	;Bilan mensuel ;
T1F	;Il y a encore des opérations diverses à inscrire ;
T2F	;Il y a encore des factures d'achat à inscrire ;
T3F	;Solde des classes 8 et 9 -> ;Ce solde doit être zéro ;
T4F	;Un instant ... ;
T5F	;Compte;Mon;UME;Solde (mon.);Converti (;V.bilan (;Diff. (;
T8F	;"Clôture de l'année comptable ",BJ,".";
T15F	;Solde des comptes pertes & profits : ;
	;
T0E	;Monthly balance ;
T1E	;Miscellaneous accountings must still be processed ;
T2E	;Purchase vouchers must still be processed ;
T3E	;Balance class 8 en 9 -> ;This balance must be 0 ;
T4E	;One moment ... ;
T5E	;Account;Cur;EMU;Bal. (cur.);Convers. (;Bal. v. (;Diff. (;
T8E	;"The fiscal year ",BJ," is being closed.";
T15E	;Balance for the loss/profit accounts  : ;
	;
1	S FP=2403 W @F,@F1,$P($T(@("T4"_QT)),U,2)
11	S X=""
13	S X=$O(@("^"_Q_"FID(X)")) I $L(X),X'>BP S K=$P($T(@("T1"_QT)),U,2),OK=0 D F1 G YZ
15	I $L(X) G 13
17	S X=$O(@("^"_Q_"AAD(X)")) I $L(X),X'>BP S K=$P($T(@("T2"_QT)),U,2),OK=0 D F1 G YZ
19	I $L(X) G 17
	;
	; saldo klasse 8/9
2	S BA39=@("^"_Q_"BA(39)") I $P(BA39,D,3)'="BE" G 3
21	S K=0,X="7Z"
23	S X=$O(@("^"_Q_"AR(X)")) G 29:X="",23:'$D(^(X,0)),23:'$P(^(0),D,20),23:'$D(^(BJ))
25	S K=K+^(BJ) F R=2:1:BX S K=K+$P(^(BJ),D,R)-$P(^(BJ+.02),D,R)
27	G 23
29	I K'=0 W /CUP(22,3),$P($T(@("T3"_QT)),U,2),$$IP^cAFA1(K,$S(BJ+1=$P(BA39,D,6):$P(BA39,D,10),1:QD),0) S K=$P($T(@("T3"_QT)),U,3),OK=0 D F1
	;
	; saldo V/W-rekeningen bij jaarafsluiting
3	S X=@("^"_Q_"BA(2)") I BP'=$P(X,D,2) G YZ
31	S FP=603 W @F,@$P($T(@("T8"_QT)),U,2)
33	S BF=$P(BA39,D)
35	S (I1,T)=0 ; saldo V/W-rekeningen
36	S I1=$O(@("^"_Q_"AR(I1)")) G 39:I1="",36:'$D(^(I1,0)),36:'$P(^(0),D,20)
37	S S1=$G(^(BJ)),S2=$G(^(BJ+.02)) D
	. S S3=$P(S1,D) F K=2:1:23 S S3=S3+$P(S1,D,K)-$P(S2,D,K)    ; saldo BF
	. I BJ+1=$P(BA39,D,6) S S3=$$BEDR^cAFE1(Q,S3,$P(BA39,D,9),$P(BA39,D,7),"F")
	. S T=T+S3
38	G 36
39	W /CUP(8,3),@F1,$P($T(@("T15"_QT)),U,2),$$IP^cAFA1(T,$S(BJ+1=$P(BA39,D,6):$P(BA39,D,8),1:QD),0),$S(BJ+1=$P(BA39,D,6):$P(BA39,D,7),1:BF)
	S SALDOVW=T   ; FB - 06.12.05 - bijhouden saldo voor test op veld 18 van BA39 in cT391
	;
	; koersverschil VM-rekeningen
4	S (I1,T,X)=0
41	S I1=$O(@("^"_Q_"AR(I1)")) G 49:I1="",41:'$D(^(I1,0))
	S VM=$P(^(0),D,11) I VM=BF!(VM="") G 41
	S S1=$G(^(BJ+.01)),S2=$G(^(BJ+.03)) D
	. S S3=$P(S1,D) F K=2:1:23 S S3=S3+$P(S1,D,K)-$P(S2,D,K)    ; saldo VM
	S S1=$G(^(BJ)),S2=$G(^(BJ+.02)) D
	. S S5=$P(S1,D) F K=2:1:23 S S5=S5+$P(S1,D,K)-$P(S2,D,K)    ; saldo BF
	S S4=$$OMREK^cAFE1(Q,S3,VM,BF,"F","") I S4-S5=0 G 41
42	I 'T S X=$T(@("T5"_QT)) D  S T=1   ; kolomtitels
	. W /CUP(10,2),@F6,$P(X,U,2),@F9,@F1
	. W /CUP(10,11),@F6,$P(X,U,3),@F9
	. W /CUP(10,15),@F6,$P(X,U,4),@F9
	. S T=$P(X,U,5) W /CUP(10,34-$L(T)),@F6,T,@F9
	. S T=$P(X,U,6)_BF_")" W /CUP(10,49-$L(T)),@F6,T,@F9
	. S T=$P(X,U,7)_BF_")" W /CUP(10,64-$L(T)),@F6,T,@F9
	. S T=$P(X,U,8)_BF_")" W /CUP(10,79-$L(T)),@F6,T,@F9
43	W /CUP(10+T,3),$E(I1,1,3),".",$E(I1,4,7)     ; rekening
	W /CUP(10+T,12),VM                           ; muntcode + EMU
	W /CUP(10+T,16),$$JN^cAFO1($P($G(@("^"_Q_"BA")@(11,VM)),D,12))
	S DEC=$$DEC^cAFA1(VM)
	W /CUP(10+T,20),$$IP^cAFA1(S3,DEC,15)        ; saldo VM
	W /CUP(10+T,35),$$IP^cAFA1(S4,QD,15)         ; omgerekend
	W /CUP(10+T,50),$$IP^cAFA1(S5,QD,15)         ; saldo BF
	W /CUP(10+T,65),$$IP^cAFA1(S4-S5,QD,15)      ; verschil
	S T=T+1 I T>10 S R=4 D F2 S T=0
	G 41
49	I T!$D(@("^"_Q_"BA(BP)")) S R=4 D F2
	;
YZ	Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 15.12.05 - 12 u 16 * V8.05