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 : ;
 ;
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 : ;
 ;
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 : ;
 ;
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)
 ;
 ; 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 ; 30.03.01 - 13 u 39 * V7.85