cT390 ;MAANDBALANS ;%T39 ;overlay %T39* ; [ 01/02/01  4:48 PM ]
 G 1
 ;
T0 ;Maandbalans ;
T1 ; Nummer\ Naam van de rekening\Totaal;2\\\       Jaarcumulatie;;3\\Begin;2;
T2 ;\\Saldo;2\Debet;2\Credit;2\Debet;2\Credit;2\saldo;2;
T3 ;      Maandcumulatie;
T4 ; Totaal groep ; Eindtotaal;
 ;
T0F ;Bilan mensuel ;
T1F ; Numéro\ Description compte\Solde;2\\\         Cumuls annuels;;3\\Solde;2;
T2F ;\\Total;2\Débit;2\Crédit;2\Débit;2\Crédit;2\init.;2;
T3F ;      Cumuls mensuels;
T4F ; Total classe ; Total final;
 ;
T0E ;Monthly balance ;
T1E ; Number\ Name of the account\Total;2\\\  Global year amount;;3\\Start;2;
T2E ;\\Bal.;2\Debit;2\Credit;2\Debit;2\Credit;2\bal.;2;
T3E ; Global month amount;
T4E ; Total group  ; Final total;
 ;
 ; totaal groep op N cijfers
S1(N) S SW=0 F X=3:1:8 I T(N,X) S SW=1 Q
S1A I SW!SWA D
 . S TXT(1)="",TXT(2)=$P($T(@("T4"_QT)),U,2)_@("J"_N) I N=3 D
 .. S TXT(2)=TXT(2)_" ---------------"
 . F X=3:1:8 S TXT(X)=T(N,X)_"\\\\1\"_QD S T(N-1,X)=T(N-1,X)+T(N,X)
 . D ^cA334 S END=$S(N=3:132,N=2:145,I1="":161,1:4) D ^cA334
S1B S @("J"_N)=$E(I1,1,N) F X=3:1:8 S T(N,X)=0
S1Z Q
 ;
 ; algemene init.
1 D ^cT489
11 S Q0="AR"
 ;
 ; printen
3 S BM=BP#1*100,BJ=BP\1
31 S HD(1)=D,HD(2)=D_$P($T(@("T0"_QT)),U,2)_";C;F82",HD(3)=D_MNM_" ;C;F82"
33 S TAB="11\41\56\71\86\101\116\131",TIT(1)=$P($T(@("T1"_QT)),U,2,99),TIT(2)=$P($T(@("T2"_QT)),U,2,99),$P(TIT(1),D,4)=$P($T(@("T3"_QT)),U,2)_";;3"
35 F BJ=J1:1:J4 Q:BP'>KM2(BJ)
37 S K=KM1(BJ) F BX=2:1:24 Q:K=BP  S K=$E(K+.01_0,1,7) I K#1>.12 S K=K+.88
39 S I2D=BJ,I2C=BJ+.02
 ;
 ; bestand aflopen
4 S I1=0 F I=0:1:3 S @("J"_I)="" F X=3:1:8 S T(I,X)=0
41 F  S I1=$O(@("^"_Q_Q0_"(I1)")) D  Q:I1=""
 . I $L(I1) Q:'$D(^(I1,0))  Q:$P(^(0),D,13)=1
 . I J1="" S J1=$E(I1)
 . I J2="" S J2=$E(I1,1,2)
 . I J3="" S J3=$E(I1,1,3)
 . I $E(I1,1,3)'=J3 D S1(3)
 . I $E(I1,1,2)'=J2 D S1(2)
 . I $E(I1)'=J1 D S1(1)
 . I I1="" Q
 . S TXT(1)=$P(@("^"_Q_Q0_"(I1,0)"),D)_"\\1\\\\$E(K,1,3)_$S($L(K)>3:"".""_$E(K,4,9),1:"""")"
 . S TXT(2)=$P(^(0),D,2)_"\\1" F X=3:1:8 S TXT(X)=""
 . S S1=$G(^(I2D)),S2=$G(^(I2C)),TXT(4)=$P(S1,D,BX),TXT(5)=$P(S2,D,BX),TXT(8)=$P($G(^(BJ)),D)
 . F X=2:1:BX S TXT(6)=TXT(6)+$P(S1,D,X),TXT(7)=TXT(7)+$P(S2,D,X)
 . S TXT(3)=TXT(8)+TXT(6)-TXT(7) S SW=0 F X=3:1:8 I TXT(X) S SW=1 Q
 . I $P(^(0),D,30)=2&'SW Q
 . I SW!SWA D
 .. S N=$L($P(TXT(1),D)) I N>3 S N=3
 .. F X=3:1:8 S TXT(X)=TXT(X)_"\\\\1\"_QD,T(N,X)=T(N,X)+TXT(X)
 .. D ^cA334 F X=1:1:N S @("J"_X)=$E(I1,1,X)
43 S TXT(1)="",TXT(2)=$P($T(@("T4"_QT)),U,3)
45 F X=3:1:8 S TXT(X)=T(0,X)_"\\\\1\"_QD
47 D ^cA334 S END=1 D ^cA334
 ;
YZ G ^cT391
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84