cT195 ;LISTING 2 : OVERZICHT MAANDCIJFERS ;%T194 ;do uit %T194 [ 01/02/01  12:07 PM ]
 G 1
 ;
T0 ;Listing 2 : overzicht maandcijfers ;
T1 ;: Naam van de klant;
T2 ;: Totaal;
T3 ;blz :;
T4 ;Vervolg   [] = ok ;
T5 ;Betalingsgedrag : afgesloten maanden;
T6 ;Betalingstermijn;
 ;
T0F ;Liste 2 : Aperçu chiffres mensuels ;
T1F ;: Nom du client;
T2F ;: Total;
T3F ;page:;
T4F ;Suite   [] = ok ;
T5F ;Statistique : mois clôturés;
T6F ;Terme de paiement;
 ;
T0E ;Report 2 : amounts by month ;
T1E ;: Name of the customer;
T2E ;: Total;
T3E ;pge :;
T4E ;Next   [] = ok ;
T5E ;Payment behaviour : closed months;
T6E ;Payment period;
 ;
S3 S OK=0,X=1 F J2=J1:1:J4 Q:X1'>M2(J2)
S3A S K=M1(J2) F BX=1:1:24 Q:K=X1  S K=$E(K+.01_0,1,7) I K#1>.12 S K=K+.88
S3B S L=$S($D(^(J2+.12)):^(J2+.12),1:D)
S3C S A=$P(L,D,BX),B=$P(A,"#",2),A=$P(A,"#"),X=X+1 S:A!B OK=1 G S3Z:X>12!OK
S3D S BX=BX+1,X1=$E(X1+.01_0,1,7) S:X1#1>.12 X1=X1+.88 G S3C:X1'>M2(J2) S J2=J2+1,BX=1 G S3B
S3Z Q
 ;
S4 S X=1 F J2=J1:1:J4 Q:X1'>M2(J2)
S4A S K=M1(J2) F BX=1:1:24 Q:K=X1  S K=$E(K+.01_0,1,7) I K#1>.12 S K=K+.88
S4B S L=$S($D(^(J2+.12)):^(J2+.12),1:D)
S4C S A=$P(L,D,BX),B=$P(A,"#",2),A=$P(A,"#"),A(X+I)=B*A+A(X+I),B(X+I)=B+B(X+I) W $J($S(A>999!(A<-99):"***",A:A,1:""),3),":" S X=X+1 I X>12 G S4Z
S4D S BX=BX+1,X1=$E(X1+.01_0,1,7) S:X1#1>.12 X1=X1+.88 G S4C:X1'>M2(J2) S J2=J2+1,BX=1 G S4B
S4Z Q
 ;
4 S KNM=$P(^(0),D,2),X1=$S(SWV:BP3,1:BP1) D S3 I SWV,'OK S X1=BP1 D S3
41 G 49:'OK D:'LN HD W !,": ",KNM,?31,":" S X1=$S(SWV:BP3,1:BP1),X2=$S(SWV:BP4,1:BP2),I=0 D S4
43 I SWV W !,":",?31,":" S X1=BP1,X2=BP2,I=12 D S4
45 S LN=LN+1+SWV I TP,LN>LNMAX D HDZ
47 I 'TP,LN>14 S LN=1,FP=2403+F60 W @F,@F4,$P($T(@("T4"_QT)),U,2),@F5,@F2,@F0 R K S FP=SWV*100+801 W @F,@F1 S FP=FP-100 W @F
49 Q
 ;
1 S (BLZ,LN)=0,NM2=@("^"_Q_"BA(99,2)"),NM3=^(3)
11 F K=1:1:24 S (A(K),B(K))=0
 ;
2 I TP X F70 W @F80 S LNMAX=LNMAX-3
21 S R="LIM1\KL" D ^cA327 I 'LN,'TP S FP=301 W @F,@F1
23 I LIM1'="" D 4 I K'="-" G 21
29 I LN D S2
 ;
3 D:'LN HD W !,$P($T(@("T2"_QT)),U,2),?31,":" F K=1:1:12 W $J($S(B(K):$J(A(K)/B(K),0,0),1:""),3),":"
31 I SWV W !,":",?31,":" F K=13:1:24 W $J($S(B(K):$J(A(K)/B(K),0,0),1:""),3),":"
33 D S2 I TP W $$FF^cA334 X F71 G YZ
35 D TXT^cAFA1(4)
 ;
YZ Q
 ;
HD I TP W:BLZ $$FF^cA334 S BLZ=BLZ+1 W !,QN,?72,$P($T(@("T3"_QT)),U,2),$J(BLZ,3)
HDA I TP W !,NM2,?30,$P($T(@("T0"_QT)),U,2),$$CR^cA334 W ?30,$P($T(+1),U,2),?72,DT,!,NM3,?73,TD,!!?30,$P($T(@("T5"_QT)),U,2),$$CR^cA334 W ?30,$P($T(@("T5"_QT)),U,2)
HDB W !,":" S R=30 D S1 S R=47 D S1 W !,$P($T(@("T1"_QT)),U,2),?31,":",$S(SWV:BP3\1,1:BP1\1)
HDC S K=$P($T(@("T6"_QT)),U,2),R=50-$L(K)\2+31 W ?R,K,?75,$S(SWV:BP4\1,1:BP2\1),":"
HDD I SWV W !,":",?31,":",BP1\1,?75,BP2\1,":"
HDE W !,":",?31,":" S R=BP1 F K=1:1:12 W " ",$P(R,".",2),":" S R=$E(R+.01_0,1,7) I R#1>.12 S R=R+.88
HDZ D S2 S LN='TP Q
 ;
S1 F R1=1:1:R W "-"
S1Z W ":" K R,R1 Q
S2 W !,":" S R=30 D S1 F K=1:1:12 S R=3 D S1
S2Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84