cT391	;MAANDAFSLUITING ;%T39 ;overlay %T39* ; [ 02/21/01  10:35 AM ]
	G 1
	;
T0	;Maandafsluiting ;
T1	;Boekingsmaand : ;
T2	;Beginsaldo   : eindresultaat moet nul zijn ! ;
T3	;Maandcumulatie : debet verschilt van credit! ;
T4	;Jaarcumulatie  : debet verschilt van credit! ;
T5	;Totaal saldo : eindresultaat moet nul zijn ! ;
T6	;****** Gelieve dit verschil te melden ****** ;
T7	;De maand kan dus nog niet worden afgesloten. ;
T8	;"Het boekjaar ",BJ," wordt afgesloten.";
T12	;Maandafsluiting doorvoeren\".[] = ok   -[] = einde programma";
T13	;Bevestiging\".[] = ok   ,[] = hernemen";
T14	;De conversie naar EUR is nog niet uitgevoerd? ;
T15	;Saldo voor de verlies/winstrekeningen : ;
T16	;De jaarafsluiting van de lokale firma moet eerst doorgevoerd worden  [] = ok ;
T17	;Saldo V/W rekeningen verschillend van 0. Afsluiting niet mogelijk.
	;
T0F	;Clôture mensuelle ;
T1F	;Mois comptable : ;
T2F	;Solde initial  : total final doit être zéro ! ;
T3F	;Cumuls mensuels : débit et crédit diffèrent ! ;
T4F	;Cumuls annuels  : débit et crédit diffèrent ! ;
T5F	;Solde total : résultat final doit être zéro ! ;
T6F	;**** Veuillez rapporter cette différence **** ;
T7F	;Il est donc impossible de clôturer ce mois.   ;
T8F	;"Clôture de l'année comptable ",BJ,".";
T12F	;Clôturer le mois\".[] = oui   -[] = fin du programme";
T13F	;Confirmation\".[] = ok   ,[] = reprendre";
T14F	;La conversion pour EUR n'est pas encore exécutée? ;
T15F	;Solde des comptes pertes & profits : ;
T16F	;La clôture annuelle de la firma locale doit être exécutée d'abord  [] = ok ;
T17F	;Solde comptes p/p différent de 0. Clôture impossible.
	;
T0E	;Monthly closure ;
T1E	;Fiscal month  : ;
T2E	;Start balance : end result must be zero ! ;
T3E	;Global month amount : debit differs from credit ! ;
T4E	;Global year amount : debit differs from credit ! ;
T5E	;Total balance : end result must be zero ! ;
T6E	;****** Please mention this difference ****** ;
T7E	;Consequently, the month can not be closed yet. ;
T8E	;"The fiscal year ",BJ," is being closed.";
T12E	;Close month\".[] = ok   -[] = end program";
T13E	;Confirmation\".[] = ok   ,[] = retry";
T14E	;The conversion to EUR has not yet been executed? ;
T15E	;Balance for loss/profit accounts : ;
T16E	;The yearly closure of the local company must be done first  [] = ok;
T17E	;Balance for loss/profit accounts is not 0. Yearly closure is not possible.
	;
S1	S FP=SW*100+502 W @F,@F4,$P($T(@("T"_K_QT)),U,2),@F5,@F1
S1Z	Q
	;
S2	S FP=2003 W @F,@F1,$P($P($T(@("T12"_QT)),U,2),D) Q
	;
	; test op fouten
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 FP=403 W @F,$P($T(@("T1"_QT)),U,2),BP," ( ",MNM," ) "
13	S SW=0 I 'SWAT,T(0,8) S SW=SW+1,K=2 D S1
14	I T(0,4)'=T(0,5) S SW=SW+1,K=3 D S1
15	I T(0,6)'=T(0,7) S SW=SW+1,K=4 D S1
16	I 'SWAT,T(0,3) S SW=SW+1,K=5 D S1
17	I SW F K=6,7 S SW=SW+1 D S1
18	I SW W ! D KON^cQ4 S R=4 D F2 G YZ
	;
	; test op jaarafsluiting
2	S X=@("^"_Q_"BA(2)") I BP'=$P(X,D,2) G 3
21	S FP=603 W @F,@$P($T(@("T8"_QT)),U,2)
23	S BA39=^(39) I BJ+1=$P(BA39,D,6),$P(BA39,D,11)="" S K=14,SW=3 D S1 G 18
25	S (I1,T)=0 ; saldo V/W-rekeningen
26	S I1=$O(@("^"_Q_"AR(I1)")) G 29:I1="",26:'$D(^(I1,0)),26:'$P(^(0),D,20)
27	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
28	G 26
29	W /CUP(10,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)
	;
	; FB - 06.12.05 - test op SALDOVW (opgezet in cT393) en veld 18 van BA39 (blokkeren ?)
	I '$P(BA39,D,18) G 290
	I $G(SALDOVW) S K=17,SW=18 D S1 R K G YZ
	;
290	; GM 09.07.04 Een I-firma mag pas worden afgesloten indien lokale firma is afgesloten
	I '$P(BA39,D,17) G 3
	I BJ'<($P(@("^"_$P(Q,"I",2,99)_"BA(2)"),D,2)\1) S K=16,SW=18 D S1 R K G YZ
	;
	; bevestiging
3	S R="K\22\3\"_$P($T(@("T12"_QT)),U,2)_"\1\\""-.""[K&$L(K)" D R0 G YZ:K="-" D S2
31	S R="K\22\3\"_$P($T(@("T13"_QT)),U,2)_"\1\\""-.,""[K&$L(K)" D R0 G 3:K="-",1:K="," D S2
33	B 0
35	S @%Q1=0,@("^"_Q_"BA(7)")=BP K ^(BP) I BP=$P(X,D,2) D ^cT392 ;jaarafsl.
37	D ^cT177 ;betalingsgedrag
39	I $D(@("^"_Q_"BA(23)")),$L(^(23)) X ^(23)
	;
	; explo-data
6	G 7
	;
	; opkuis
7	S REK=0,K=BP*100
71	S REK=$O(@("^"_Q_"BA(4,REK)")) G 75:REK="" S X=$O(^(REK,0)),X=K
73	S X=$O(^(X)) G 71:X=""!($E(X,1,6)>K) K ^(X) G 73
75	; (2000) ; S K=$E(K,3,6)*100 ;+99 voor vroege afsluiters
77	S REK=$O(@("^"_Q_"L3(REK)")) G 8:REK="" S X=$O(^(REK,K)),X=""
79	S X=$O(^(X)) G 77:X=""!($E(X,1,6)>K) K ^(X) G 79
	;
8	S REK=$O(@("^"_Q_"K3(REK)")) G 83:REK="" S X=$O(^(REK,K)),X=""
81	S X=$O(^(X)) G 8:X=""!($E(X,1,6)>K) K ^(X) G 81
83	S REK=$O(@("^"_Q_"K4(REK)")) G YZ:REK="" S X=$O(^(REK,K)),X=""
85	S X=$O(^(X)) G 83:X=""!($E(X,1,6)>K) K ^(X) G 85
	;
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	; 15.12.05 - 12 u 16 * V8.05