cT0 ;Voorbereiden maandafsluiting ;%T0 ; [ 01/09/01  3:42 PM ]
 G 1
 ;
T0 ;Voorbereiden maandafsluiting ;
T1 ;Boekingsmaand\"jjjj.mm[] = bepaalde maand";
T2 ;Welke lijsten\"[] = alle lijsten   .[] = enkel lijsten die nog niet geprint werden";
T3 ;Printopdrachten voor programma 'Uitgestelde printprogramma's' (8.1);
T4 ;Klantenbalans;Leveranciersbalans;Proefbalans;Verkoopdagboek;Aankoopdagboek;Fin. dagboek;Dagboek diversen;Aankoopventilatie;Verkoopventilatie;Centralisatiedagboek;
 ;
T0F ;Préparation de la clôture mensuelle ;
T1F ;Mois comptable\"aaaa.mm[] = période spécifique";
T2F ;Quelles listes\"[] = toutes les listes   .[] = les listes qui ne sont pas encore imprimées";
T3F ;Fichiers à imprimer via le programme des 'Impressions différées' (8.1);
T4F ;Balance comptes clients;Balance comptes fournisseurs;Bilan de vérification;Journal des ventes;Journal des achats;Journaux financiers;Journal opér.diverses;Ventilations des achats;Ventilations des ventes;Journal centralisateur;
 ;
T0E ;Preparation monthly closure ;
T1E ;Fiscal month\"yyyy.mm[] = particular month";
T2E ;Which lists\"[] = all lists   .[] = only lists that have not yet been printed";
T3E ;Print orders for program 'Deferred print orders' (8.1);
T4E ;Customer balance;Supplier balance;Trial balance;Sales journal;Purchase journal;Financial journal;Journal misc. trans.;Purchase ventilation;Sales ventilation;Centralisation journal;
 ;
S1 S Y=$P(Y,",",2)/100000+Y Q
 ;
 ; schermopbouw
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
13 S BPX=$E(@("^"_Q_"BA(7)")+.01_0,1,7) S:BPX#1>.12 BPX=BPX+.88
 ;
 ; vraagstelling
2 S BP=BPX,R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\K?4N1"".""2N&($E(K,6,7)<13&$E(K,6,7))!(K=""-"")\\\\\1" D R0 G YZ:K="-"
20 S FP=403 W @F,@F1,$P($P($T(@("T1"_QT)),U,2),D)," : ",BP,!!?2,$P($T(@("T3"_QT)),U,2)
21 S R="SW\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-.""[K" D R0 G 2:K="-" S SW=$L(K) F I=0:1:9 S A(I)=1
23 S FP=701 W @F,@F1 G 3:'SW S K=$O(@("^"_Q_"BA(BP,0)")) F I=0:1:9 S A(I)=0
25 I $D(^(110)) S Y=^(110) D S1 S K=Y F I=0,2,3,8,9 I 'A(I) S A(I)=1 I $D(^(I+100)) S Y=^(I+100) D S1 S:Y>K A(I)=0
27 I $D(^(111)) S Y=^(111) D S1 S K=Y F I=1,2,4,7,9 I 'A(I) S A(I)=1 I $D(^(I+100)) S Y=^(I+100) D S1 S:Y>K A(I)=0
29 I $D(^(112)) S Y=^(112) D S1 S K=Y F I=0,1,2,9 I 'A(I) S A(I)=1 I $D(^(I+100)) S Y=^(I+100) D S1 S:Y>K A(I)=0
 ;
 ; verkoop/aankoop dagboek/ventilatie
3 S PP(1)=BP,PP(2)="A",PP(3)="",PP(4)="",R1="%T72" D S9:A(3) S R1="%T28" D S9:A(8) S R1="%T32" D S9:A(4) S R1="%T33" D S9:A(7)
 ; klanten- en leveranciersbalans
35 S PP(1)=BP,PP(2)="",R1="%T11" D S9:A(0) S R1="%T12" D S9:A(1)
 ; centralisatiedagboek
37 S PP(1)=BP,PP(2)=7,R1="%T65" D S9:A(9)
 ; proefbalans
39 S PP(1)=1,PP(2)="",PP(3)="~",PP(4)=BP,PP(5)="",R1="%T20" D S9:A(2)
 ; financieel en diversen dagboek
4 S K=112,PP(1)=BP,PP(2)=".",(PP(3),PP(4),PP(5),PP(6))="",R1="%T38" I 'SW D S9 G Y
41 S K=$O(@("^"_Q_"BA(BP,K)")) G Y:K="" I $E(K,1)="D" S PP(2)="D",PP(6)=+$E(K,2,4) S:'PP(6) PP(6)="" G 45
43 S PP(2)=K
45 S R1="%T38" D S9 G 41
 ;
Y D TXT^cAFA1(4)
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
 ; tonen  + klaarstellen
S9 W !?2,$P($T(@("T4"_QT)),U,$S(R1="%T11":2,R1="%T12":3,R1="%T20":4,R1="%T72":5,R1="%T32":6,R1="%T33":9,R1="%T28":10,R1="%T65":11,1:12))
S9A I R1="%T38" W $P($T(@("T4"_QT)),U,$S(PP(2)="D":8,1:7))," " W:PP(2)="D" PP(6) W:PP(2)'="D" PP(2)
S9B S QPT=R1 I $ZV'["MSM" S QPT=$TR(QPT,"%","c")
S9Z D ^cA109 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84