cT174 ;Verkorte maandbalans ;%T174 ;overlay %T173 ; [ 01/11/01  2:49 PM ]
 G 1
 ;
T0 ;Verkorte maandbalans ;
T1 ;Gegevens op scherm;
T2 ;Bevestiging\"[] = ok   ,[] = hernemen";
T3 ; Klasse ;     Totaal     ;         Maandcumulatie          ;      Begin-    ;
T4 ;        ;     saldo      ;      Debet     ;     Credit     ;      saldo     ;
T5 ; Totaal ;
 ;
T0F ;Bilan mensuel dense ;
T1F ;Données à l'écran;
T2F ;Confirmation\"[] = ok   ,[] = reprendre";
T3F ; Classe ;     Solde      ;         Cumuls mensuels         ;      Solde     ;
T4F ;        ;     total      ;      Débit     ;     Crédit     ;     initial    ;
T5F ; Total  ;
 ;
T0E ;Summary balance ;
T1E ;Data on screen;
T2E ;Confirmation\"[] = ok   ,[] = retry";
T3E ; Class  ;     Total      ;       Global month amount       ;     Initial    ;
T4E ;        ;    balance     ;      Debit     ;     Credit     ;     balance    ;
T5E ; Total  ;
 ;
S1 W ! F S1=1:1:5 W $C(124) F S2=1:1:$P("8\16\16\16\16",D,S1) W "-"
S1Z W $C(124) K S1,S2 Q
 ;
S2 W ! F S1=1:1 S S2=$P(K,U,S1) Q:'$L(S2)  W $C(124),S2
S2Z W $C(124) K S1,S2 Q
 ;
S3 S S1=$G(^(BJ)),S2=$G(^(BJ+.02))
S3A I SW S C(6)=$P(S1,D) I SWX F S3=2:1:24 S C(6)=C(6)+$P(S1,D,S3)-$P(S2,D,S3)
S3B G S3Z:SWX&SW S S4=$P(BPB,D,3-SWX) D S4
S3C F S3=2:1:24 S C(4)=C(4)+$P(S1,D,S3),C(5)=C(5)+$P(S2,D,S3) S:S4=BP C(2)=$P(S1,D,S3),C(3)=$P(S2,D,S3) Q:S4=BP  D S4
S3Z K S1,S2,S3,S4 Q
 ;
S4 S S4=$E(S4+.01_0,1,7) I S4#1>.12 S S4=S4+.88
S4Z Q
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=$S($P(R,D,5):"",1:" "),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
 ;
1 S BJ=$$BJ^cAFE1(Q,BP)
101 S MUNT=$$MNTC^cAFE1(Q,BJ),QD=$P(MUNT,D,2),MUNT=$P(MUNT,D)
102 S FP=1003 W @F,@F1,$P($T(@("T1"_QT)),U,2)
11 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,""[K" D R0 G 1^cT173:$L(K)
13 S FP=601 W @F,@F1 D S1 S K=$P($T(@("T3"_QT)),U,2,99) D S2 S K=$P($T(@("T4"_QT)),U,2,99) D S2,S1
15 S I1=" ",J1="",SW=0,SWX=$S(BP>$P(BPB,D,2):1,1:0) F K=1:1:6 S T(K)=0
 ;
2 S I1=$O(@("^"_Q_Q0_"(I1)")) G 3:$E(I1)'=$E(J1)
21 S J1=I1,SW=1,B(1)=^(I1,0) F K=1:1:6 S C(K)=0
23 S BJ=$P(BPB,D,2)\1 I SWX D S3 S SW=0 I $P(B(1),D,20) S C(6)=0
24 I SWX,BJ+1=$P(BA39,D,6) S C(6)=$$BEDR^cAFE1(Q,C(6),$P(BA39,D,9),$P(BA39,D,7),"V")
25 S BJ=BJ+SWX D S3 S C(1)=C(6)+C(4)-C(5) F K=1:1:6 S A(K)=A(K)+C(K)
27 G 2
 ;
3 I $L(J1) W !,$C(124),"   ",$E(J1),"    ",$C(124) F K=1:1:3,6 S R=A(K)_"\15\\"_QD D R3 W $C(124) S T(K)=T(K)+A(K)
31 F K=1:1:6 S A(K)=0
33 G 21:$L(I1)
 ;
4 D S1 W !,$C(124),$P($T(@("T5"_QT)),U,2),$C(124) F K=1:1:3,6 S R=T(K)_"\15\\"_QD D R3 W $C(124)
41 D S1 D TXT^cAFA1(4)
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84