cT173	;Verkorte maandbalans ;%T173 ;overlay %T174 ; [ 01/11/01  2:48 PM ]
	;
T0	;Verkorte maandbalans ;
T1	;Boekingsmaand\"-[] = einde programma   jjjj.mm[] = bepaalde maand";
T2	;Selectie rekeningen\"[] = enkel rekeningen met bedragen   .[] = alle rekeningen";
T5	;Boekingsmaand : ;
T6	;Blz :;
T7	;Totaal groep ;Eindtotaal ;
T8	;Niveau subtotalen\"[] = 3 cijfers   1[] = 1 cijfer   2[] = 2 cijfers";
T9	;Lijst\"[] = doorlopende lijst   1[] = 1 klasse per blad";
T10	;: Naam van de rekening                   :    Totaal    :       Maandcumulatie        :        Jaarcumulatie        :    Begin-    :;
T11	;:                                        :    saldo     :    Debet     :    Credit    :    Debet     :    Credit    :    saldo     :;
T12	;Verkorte maandbalans ;Verkorte analytische maandbalans ;
	;
T0F	;Bilan mensuel dense ;
T1F	;Mois comptable\"-[] = fin du programme   aaaa.mm[] = mois spécifique";
T2F	;Sélection des comptes\"[] = seulement les comptes avec cumuls   .[] = tous les comptes";
T5F	;Mois comptable : ;
T6F	;Page:;
T7F	;Total groupe ;Total final ;
T8F	;Niveau des sous-totaux\"[] = 3 chiffres   1[] = 1 chiffre   2[] = 2 chiffres";
T9F	;Liste\"[] = liste continue   1[] = 1 classe par page";
T10F	;: Nom du compte                          :     Solde    :       cumuls mensuels       :        cumuls annuels       :    Solde     :;
T11F	;:                                        :     total    :    Débit     :    Crédit    :    Débit     :    Crédit    :   initial    :;
T12F	;Bilan mensuel dense ;Bilan mensuel analytique dense ;
	;
T0E	;Summary balance ;
T1E	;Fiscal month\"-[] = end program   yyyy.mm[] = particular month";
T2E	;Selection accounts\"[] = only accounts with amounts   .[] = all accounts";
T5E	;Fiscal month : ;
T6E	;Pge :;
T7E	;Total group ;Final total ;
T8E	;Level subtotals\"[] = 3 ciphers   1[] = 1 cipher   2[] = 2 ciphers";
T9E	;Report\"[] = continuous list   1[] = 1 class per page";
T10E	;: Name of the account                    :    Total     :     Global month amount     :      Global year amount     :   Initial    :;
T11E	;:                                        :   balance    :    Debit     :    Credit    :    Debit     :    Credit    :   balance    :;
T12E	;Summary balance ;Summary analytical balance ;
	;
G	S TIT=$P($T(@("T12"_QT)),U,2),Q0="AR" G 1
A	S TIT=$P($T(@("T12"_QT)),U,3),Q0="ARA" G 1
	;
1	S BPX=@("^"_Q_"BA(7)"),BPB=^(2),BA39=^(39),NM1=^(99,1),NM2=^(2),NM3=^(3) I 'QP S BP=PP(1),SWK=PP(2),ST=PP(3),BS=PP(4) G 3
11	S K=TIT_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13	S BPX=$E(BPX+.01_0,1,7) S:BPX#1=.13 BPX=BPX+.88
	;
2	S BP=BPX,R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\K?4N1"".""2N&($P(K,""."",2)<13&$P(K,""."",2))!(K=""-"")\\\\\1"
20	D R0 G YZ:K="-" S FP=450 W @F,$P($T(@("T5"_QT)),U,2),BP I BP'>$P(BPB,D,3) D TXT^cAFA1(61) G 2
21	D ^cA347:Q0="AR" G 2:K="-"!(K=","),^cT174:'$L(K)&(Q0="AR")
23	S R="SWK\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-.,""[K" D R0 G 2:K=",",21:K="-"
25	S R="ST\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\""12-,""[K" D R0 G 2:K=",",23:K="-" S:'ST ST=3
26	S R="BS\22\3\"_$P($T(@("T9"_QT)),U,2)_"\1\\""1-,""[K" D R0 G 2:K=",",25:K="-"
27	S R=1 D ^cA345 G 2:K=",",26:K="-"
29	I K="." S PP(1)=BP,PP(2)=SWK,PP(3)=ST,PP(4)=BS,QPT=$S(Q0="ARA":"A^",1:"")_$T(+0)_"#"_TIT D ^cA109 G YZ
	;
3	S SW=0,X=BPB,BM=BP#1*100,BJ=BP\1,MNM=^cBA(2,$E(QT_"N"),BP#1*100)_" "_BJ,K=$P(X,D,2) S:BP>K X=K\1*12+(K#1*100),K=K+1,SW=1
31	S I1=0,SWK=$L(SWK),BLZ=0,BX=BJ*12+BM-X+1,BJ=$$BJ^cAFE1(Q,BP),BPB=$P(X,D,2) X F70 W @F80 D 8 K ^HULP(boot,$J)
33	S MUNT=$$MNTC^cAFE1(Q,BJ),QD=$P(MUNT,D,2),MUNT=$P(MUNT,D)
	;
4	S I1=$O(@("^"_Q_Q0_"(I1)")) G 5:I1="" S B(1)=^(I1,0) F I=1:1:6 S A(I)=0
41	I SW S S1=$G(^(BJ-1)),S2=$G(^(BJ-.98)),A(6)=$P(S1,D) F X=2:1:24 S A(6)=A(6)+$P(S1,D,X)-$P(S2,D,X)
410	I SW,BJ=$P(BA39,D,6) S A(6)=$$BEDR^cAFE1(Q,A(6),$P(BA39,D,9),$P(BA39,D,7),"F")
42	S S1=$G(^(BJ)),S2=$G(^(BJ+.02)),A(2)=$P(S1,D,BX),A(3)=$P(S2,D,BX) S:'SW A(6)=$P(S1,D) I SW&$P(B(1),D,20) S A(6)=""
43	F X=2:1:BX S A(4)=A(4)+$P(S1,D,X),A(5)=A(5)+$P(S2,D,X)
45	S A(1)=A(4)-A(5)+A(6)
47	F X=1:1:6 I A(X)!SWK F I=0:1:ST S S1=$E(I1,1,I)_"z",K=A(X) S:$D(^HULP(boot,$J,S1,X)) K=^(X)+K S ^HULP(boot,$J,S1,X)=K
49	G 4
	;
5	S S1=I1,I1=$O(^HULP(boot,$J,I1)) G Y:I1="" S K=$O(^(I1,0)) F I=1:1:6 S A(I)=0 S:$D(^(I)) A(I)=^(I)
51	I $L(S1)=2&($L(I1)>1)&BLZ&BS W $$FF^cA334 D 8
53	S LN=LN+1 I LN>LNMAX D 85 W $$FF^cA334 D 8
55	S I=$E(I1,1,$L(I1)-1)_" ",K=$P($T(@("T7"_QT)),U,2+($L(I)=1))_I S:$L(I)=4 K=K_"-------" S:$D(@("^"_Q_Q0_"(I,0)")) K=I_$P(^(0),D,2) D 85:$L(I)=1
57	W !,": ",$E(K,1,39),?41,":" F I=1:1:6 S R=A(I)_D_13_D_D_QD D R3 W ":"
58	D 85:$L(I1)<4 I $L(I1)=4 W !,":",?41,":" F I=1:1:6 W $J(":",15) S LN=LN+1
59	G 5
	;
8	S BLZ=BLZ+1,LN=0 W !,NM1,?124,$P($T(@("T6"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,TIT,@F83,$$CR^cA334 W ?124,DT
81	W !,NM3,?30,@F82,MNM,@F83,$$CR^cA334 W ?125,TD,! D 85 W !,$P($T(@("T10"_QT)),U,2),!,$P($T(@("T11"_QT)),U,2)
85	W !,":----------------------------------------:--------------:--------------:--------------:--------------:--------------:--------------:" Q
	;
Y	W $$FF^cA334 X F71 K ^HULP(boot,$J)
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
R3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A	S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B	W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z	K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
	;
ZZ	; 29.10.02 - 11 u 38 * V7.93