cT39 ;MAANDBALANS ;%T39 ;go naar %T390 ; [ 01/03/01  7:07 PM ]
 G 1
 ;
T0 ;Maandbalans ;
T1 ;Boekingsmaand : ;
T2 ;Selectie rekeningen\"-[] = einde programma   .[] = alle rekeningen   [] = enkel deze met bedragen";
T3 ;via %A345;
T4 ;<- werd nog niet geprint ;
T5 ;Voor de maand kan afgesloten worden, moeten volgende listings voor die maand;geprint zijn :;
T6 ;Klantenbalans;Leveranciersbalans;Proefbalans;Verkoopdagboek;Aankoopdagboek;Financieel dagboek;Dagboek diversen;Aankoopventilatie;Verkoopventilatie;Centralisatiedagboek;
 ;
T0F ;Bilan mensuel ;
T1F ;Mois comptable : ;
T2F ;Sélection des comptes\"-[] = fin du programme   .[] = tous    [] = comptes avec cumuls";
T3F ;via %A345;
T4F ;<- n'est pas encore imprimé ;
T5F ;Avant que le mois puisse être clôturé, il faut avoir imprimé les ;listes suivantes de ce mois :;
T6F ;Balance comptes clients;Balance comptes fourniseurs;Bilan de verification;Journal des ventes;Journal des achats;Journal financier;Journal des O.D.;Ventilations des achats;Ventilations des ventes;Journal centralisateur;
 ;
T0E ;Monthly balance ;
T1E ;Fiscal month : ;
T2E ;Accounts selection\"-[] = end program   .[] = all accounts   [] = only those with amounts";
T3E ;via %A345;
T4E ;<- has not yet been printed ;
T5E ;Before the month can be closed, the following reports for that ;month must be printed :;
T6E ;Customer balance;Supplier balance;Trial balance;Sales journal;Purchase journal;Financial journal;Misc. journal;Purchase ventilaton;Sales ventilation;Centralisation journal;
 ;
S1 S Y=$P(Y,",",2)/100000+Y Q
 ;
S2 S SW=1,FP=I-91*100+75 W @F,@F5 S FP=FP-40 W @F,@F4,X,@F5,@F2 Q
 ;
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 SWAT=0 I $D(@("^"_Q_"BA(100)"))#2,^(100)=2 S SWAT=1
13 S BP=$E(^(7)+.01_0,1,7) S:BP#1>.12 BP=BP+.88 S R=+$P(BP,".",2)_D_1 D ^cT163 I OK D ^cT164
15 G YZ:'OK S I1=0,MNM=^cBA(2,$E(QT_"N"),+BM)_" "_(BP\1)
17 S FP=403 W @F,$P($T(@("T1"_QT)),U,2),BP," ( ",MNM," ) " D ^cT393 I OK,$D(@("^"_Q_"BA(87)")),$L(^(87)) X ^(87)
19 G YZ:'OK,3:SWAT!'$D(@("^"_Q_"BA(BP)")) S FP=603,K=$T(@("T5"_QT)) W @F,$P(K,U,2),@F1,!?2,$P(K,U,3),! S K=$T(@("T6"_QT)) F I=2:1:11 W !?4,$P(K,U,I)
 ;
2 S K=$O(^(BP,0)),X=$P($T(@("T4"_QT)),U,2),SW=0
21 I $D(^(110)) S Y=^(110) D S1 S K=Y F I=100,102,103,108,109 S:'$D(^(I)) ^(I)=0 S Y=^(I) D S1,S2:K>Y
22 I $D(^(111)) S Y=^(111) D S1 S K=Y F I=101,102,104,107,109 S:'$D(^(I)) ^(I)=0 S Y=^(I) D S1,S2:K>Y
23 I $D(^(112)) S Y=^(112) D S1 S K=Y F I=100:1:102,109 S:'$D(^(I)) ^(I)=0 S Y=^(I) D S1,S2:K>Y
24 S Y=$O(^(112)) G 28:Y="" S K=$O(^("C")) I $E(K)="D" S I=106,X=$E(K,2,9) S:X=" " X="" S X=X_$P($T(@("T4"_QT)),U,2) D S2 G 28:$E(Y)="D"
25 I '$D(@("^"_Q_"AR(Y,0)"))  K @("^"_Q_"BA(BP,Y)") G 24
26 S K=$P(^(0),D,10) I '$L(K) K @("^"_Q_"BA(BP,Y)") G 24
27 S SW=1,K=Y_" "_$P(^(0),D,2)_" " S FP=1475 W @F,@F5 S FP=1435 W @F,@F4,K,@F5,@F2
28 I SW S R=4 D F2 G YZ
29 S FP=601 W @F,@F1
 ;
3 L @("^"_Q_"BA(7)"):2 E  S R=14 D F2 G YZ
31 I SWAT S SWA=0 G YZ:K="-",33
32 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-.""[K" D R0 G YZ:K="-" S SWA=$L(K)
33 S R=1_D_1 D ^cA345 G 31:K="-",^cT390
 ;
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