cT180 ;LISTING 1 : TOESTAND MET VERGELIJKING ;%T179 ;do uit %T179 ;do naar %A327 ; [ 01/03/01 6:00 PM ] G 1 ; T0 ;Listing 1 : toestand met vergelijking ; T1 ;: Nummer + naam van de klant : Betalingstermijn :: Dagen vervallen :; T2 ;: Totaal; T3 ;Vervolg [] = ok ; T4 ;Huidige periode;Vorige periode ; T5 ;Blz :; T6 ;Betalingsgedrag : ;Actuele toestand;Afgesloten maanden; ; T0F ;Liste 1 : Situation avec comparaison ; T1F ;: Numéro et nom du client : Période paiement :: Jours échus :; T2F ;: Total; T3F ;Suite [] = ok ; T4F ;Période actuelle;Période précédente; T5F ;Page:; T6F ;Statistique : ;Situation actuelle;Mois clôturés; ; T0E ;Report 1 : situation with comparison ; T1E ;: Number + name of the customer : Payment period :: Days overdue :; T2E ;: Total; T3E ;Next [] = ok ; T4E ;Current period;Previous period ; T5E ;Pge :; T6E ;Payment behaviour : ;Actual situation;Closed months; ; S4 W $S(K1K3:"+",1:" "),$J($S(K1-K3>999!(K3-K1>999):"***",K1K3:K1-K3,1:""),3),?47,":" S4A W $J($S(K1>999:"***",K1:K1,1:""),4),?53,":",$J($S(K3>999:"***",K3:K3,1:""),4),?59,":" S4B W ": ",$S(K2K4:"+",1:" "),$J($S(K2-K4>999!(K4-K2>999):"***",K2K4:K2-K4,1:""),3),?67,":" S4C W $J($S(K2>999:"***",K2:K2,1:""),4),?73,":",$J($S(K4>999:"***",K4:K4,1:""),4),?79,":" S4Z Q ; S5 S (X,Y,X(I),Y(I))=0 F J2=J1:1:J4 Q:X1'>M2(J2) S5A 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 S5B S L=$S($D(^(J2+.12)):^(J2+.12),1:"") S5C S A=$P(L,D,BX),B=$P(A,"#",2),A=$P(A,"#"),X=A*B+X,Y=B+Y G S5E:X1=X2 S5D S BX=BX+1,X1=$E(X1+.01_0,1,7) S:X1#1>.12 X1=X1+.88 G S5C:X1'>M2(J2) S J2=J2+1,BX=1 G S5B S5E S X(I)=$S(Y:$J(X/Y,0,0),1:0),Y(I)=Y S5Z Q ; 4 S K="",KC=$P(^(0),D),KNM=$P(^(0),D,2) I 'SWV S L=D S:$D(^(12)) L=^(12) G 47 41 S X1=BP1,X2=BP2,I=1 D S5 43 S X1=BP3,X2=BP4,I=2 D S5 45 S L=X(1)_D_Y(1)_D_D_D_X(2)_D_Y(2)_D 47 S K1=$S($P(L,D,2):$P(L,D),1:0),K2=$S($P(L,D,4):$P(L,D,3),1:0),K3=$S($P(L,D,6):$P(L,D,5),1:0),K4=$S($P(L,D,8):$P(L,D,7),1:0) 48 I BETG,K1LNMAX D S2 S LN=0 W ":" D S3 55 I 'TP,LN>12 S LN=1,FP=2403+F60 W @F,@F4,$P($T(@("T3"_QT)),U,2),@F5,@F2,@F0 R K S FP=901 W @F,@F1 S FP=801 W @F 57 Q ; 1 S (BLZ,LN)=0,NM2=@("^"_Q_"BA(99,2)"),NM3=^(3) 11 I SWV S H1=$E(BP1,6,7)_"."_$E(BP1,3,4),H3=$E(BP2,6,7)_"."_$E(BP2,3,4),H2=$E(BP3,6,7)_"."_$E(BP3,3,4),H4=$E(BP4,6,7)_"."_$E(BP4,3,4) 13 I 'SWV S H1=$E(HDVD,1,5),H3=" '"_$E(HDVD,7,8),(H2,H4)=$J("",5) I BP3 S H2=$E(HDVD,10,14),H4=" '"_$E(HDVD,16,17) 15 F K=1:1:4 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=279 W @F,@F1 23 I LIM1'="" D 4 I K'="-" G 21 29 I LN D S2 W ":" D S3 ; 3 S K1=$S(B(1):$J(A(1)/B(1),0,0),1:0),K3=$S(B(2):$J(A(2)/B(2),0,0),1:0),K2=$S(B(3):$J(A(3)/B(3),0,0),1:0) 31 S K4=$S(B(4):$J(A(4)/B(4),0,0),1:0) D:'LN HD W !,$P($T(@("T2"_QT)),U,2),?40,": " D S4,S2 W ":" D S3 33 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,?30,$P($T(@("T0"_QT)),U,2),$$CR^cA334 W ?30,$P($T(+1),U,2),?72,$P($T(@("T5"_QT)),U,2),$J(BLZ,3) HDA I TP W !,NM2,?30,$P($T(@("T4"_QT)),U,2)," : ",BP1," - ",BP2,?72,DT HDB I TP W !,NM3,?30,$P($T(@("T4"_QT)),U,3)," : ",BP3," - ",BP4,?73,TD,! HDC S K=$T(@("T6"_QT)),K=$P(K,U,2)_$P(K,U,3+SWV),R=$S(TP:30,1:2) W !?R,K I TP W $$CR^cA334 W ?R,K HDD W !,":" S R=39 D S1 S R=18 D S1 W ":" S R=18 D S1 HDE W !,$P($T(@("T1"_QT)),U,2) HDF W !,":",?40,": +/- :",H1,":",H2,":",": +/- :",H1,":",H2,":" HDG W !,":",?40,":",?47,":",H3,":",H4,":",":",?67,":",H3,":",H4,":" HDH D S2 W ":" D S3 HDZ S LN='TP Q ; S1 F R1=1:1:R W "-" S1Z W ":" K R,R1 Q S2 W !,":" S R=39 D S1 S3 S R=6 D S1 S R=5 D S1 S R=5 D S1 Q ; Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84