cT179 ;Betalingsgedrag : toestand met vergelijking ;%T179 ;do naar %T180 ; [ 01/03/01  6:08 PM ]
 G 1
 ;
T0 ;Betalingsgedrag : toestand met vergelijking ;
T1 ;De klant\klanten\alfabetische\alfabetische;
T2 ;Bijkomende selectie\"[] = alle geselecteerde klanten   xxx[] = enkel klanten vanaf 'xxx' dagen";
T3 ;Alle geselecteerde klanten;enkel klanten vanaf ; dagen;
T4 ;Betalingsgedrag; [] = vergelijking actuele toestand met vorige berekening;.[] = vergelijking afgesloten maanden tussen 2 te bepalen periodes;
T5 ;Actueel betalingsgedrag;Afgesloten maanden;
T6 ;Eerste maand;Laatste maand;
T7 ;Huidige periode;Vorige periode;
T8 ;Meerdere muntcodes in de geselecteerde maanden/jaren ;
T11 ;jjjj.mm[] = bepaalde maand;   I[] = idem als eerste maand;
T12 ;De berekening werd nog niet gemaakt ;
 ;
T0F ;Statistique de paiement : comparaison ;
T1F ;client\clients\alphabétique\alphabétique;
T2F ;Sélection additionnelle\"[] = tous les clients   xxx[] = seulement clients à partir de xxx jours";
T3F ;Tous les clients sélectionnés;seulement clients à partir de ; jours;
T4F ;Statistique; [] = comparaison de la situation actuelle par rapport au calcul précédent;.[] = comparaison entre 2 périodes clôturées;
T5F ;Situation actuelle;Mois clôturés;
T6F ;Premier mois;Dernier mois;
T7F ;Période actuelle;Période précédente;
T8F ;Plusieurs codes mon. dans les mois/années sélectionné(e)s ;
T11F ;aaaa.mm[] = mois spécifique;   I[] = même mois que le premier;
T12F ;Le calcul manque ;
 ;
T0E ;Payment behaviour : situation with comparison ;
T1E ;The customer\customers\alphabetic\alphabetic;
T2E ;Extra selection\"[] = all selected customers   xxx[] = only customers from 'xxx' days";
T3E ;All selected customers;only customers from ; days;
T4E ;Payment behaviour; [] = comparison of the actual situation with previous calculation;.[] = comparison of closed months between 2 periods to be appointed;
T5E ;Actual payment behaviour;Closed months;
T6E ;First month;Last month;
T7E ;Current period;Previous period;
T8E ;More than one currency in the selected months/years ;
T11E ;yyyy.mm[] = particular month;   I[] = the same as the first month;
T12E ;The calculation has not yet been done ;
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
1 I QP S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S Q2="^"_Q_"BA(96)" L @Q2:2 E  D TXT^cAFA1(14) G YZ
12 I '$D(@Q2) S K=$P($T(@("T12"_QT)),U,2) D TXT^cAFA1(250) G YZ
13 S HDVD=@Q2,BPA=^(7),BPB=^(2),AT=$D(^(26)) D S2:'AT S AT=^(26),J3=$E(^(25)/100+BPA_0,1,7),BJ=$P(BPB,D,2)\1
14 F K=0:1:AT S BPX=$P(BPB,D,K*3+1,K+1*3),J1=$P(BPX,D,2)\1,M2(J1)=$E($P(BPX,D,2)_0,1,7),M1(J1)=$E($P(BPX,D,3)+.01_0,1,7) I M1(J1)#1>.12 S M1(J1)=M1(J1)+.88
15 S:J3#1>.12 J3=$E(J3+.88_0,1,7) S J4=BJ I J3>M2(BJ) S J4=J4+1,M2(J4)=J3,M1(J4)=$E(M2(BJ)+.01_0,1,7) I M1(J4)#1>.12 S M1(J4)=M1(J4)+.88
16 F K=J1:1:J4 I '$D(M1(K)) S (M1(K),M2(K))=K-1+.99
17 K BPX I 'QP S TP=1 F K=1,2,4:1:9 S @$P("LIM1\LIM2\\BP1\BP2\BP3\BP4\SWV\BETG",D,K)=PP(K)
18 S J1=J1-1,M1(J1)=$E(M1(J1+1)-1_0,1,7),M2(J1)=$E(M1(J1+1)-.01_0,1,7) S:'(M2(J1)#1) M2(J1)=M1(J1+1)-.89 G 57:'QP,21
 ;
2 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
21 S TXT=$P($T(@("T1"_QT)),U,2)_"\KL\K1\1" D ^cA306 G YZ:K="-"
23 S R="BETG\22\3\"_$P($T(@("T2"_QT)),U,2)_"\3\\""-,""[K!(K?.N)" D R0 G 2:K="-"!(K=",")
25 S K=$T(@("T3"_QT)),FP=1403 W @F,@F1,$P(K,U,$S(BETG:3,1:2)) I BETG W BETG,$P(K,U,4)
27 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\S1\1\\""-,.""[K" D R0 G 23:K="-",2:K="," S SWV=$L(K)
29 S FP=1503 W @F,@F1,$P($T(@("T5"_QT)),U,2+SWV)
 ;
3 S RH="1715#1766\1915#1966",RV="1635#2035\1651#2051" D ^cA319
31 S K=$T(@("T6"_QT)),FP=1637 W @F,@F8,$P(K,U,2) S FP=FP+16 W @F,$P(K,U,3)
32 S K=$T(@("T7"_QT)),FP=1815 W @F,$P(K,U,2) S FP=FP+200 W @F,$P(K,U,3) G 4:SWV
33 S K=$P(HDVD,D),BP2=$P(K,".",3) S:BP2<80 BP2=BP2+100 S BP2=BP2+1900_$E(K,3,5),BP1=BP2\1_".01",(BP3,BP4)=""
34 S K=$P(HDVD,D,2),BP4=$P(K,".",3) I K S:BP4<80 BP4=BP4+100 S BP4=BP4+1900_$E(K,3,5),BP3=BP4\1_".01"
35 F K=1:1:4 S FP=$P("1840\1856\2040\2056",D,K) W @F,@("BP"_K)
36 G 5
 ;
4 S FP=1840,R="BP1\22\3\"_$P($T(@("T7"_QT)),U,2)_", "_$P($T(@("T6"_QT)),U,2)_"\S4\7\PCTR\\18\40" D S3,R0 G 27:K="-",2:K=","
41 S FP=1856,R="BP2\22\3\"_$P($T(@("T7"_QT)),U,2)_", "_$P($T(@("T6"_QT)),U,3)_"\S4\7\PCTR2\\\\1"
43 D S3,R0 G 4:K="-",2:K="," S:K="I" BP2=BP1 S FP=1856 W @F,BP2
45 S FP=2040,R="BP3\22\3\"_$P($T(@("T7"_QT)),U,3)_", "_$P($T(@("T6"_QT)),U,2)_"\S4\7\PCTR\\20\40" D S3,R0 G 41:K="-",2:K=","
47 S FP=2056,R="BP4\22\3\"_$P($T(@("T7"_QT)),U,3)_", "_$P($T(@("T6"_QT)),U,3)_"\S4\7\PCTR4\\\\1"
49 D S3,R0 G 45:K="-",2:K="," S:K="I" BP4=BP3 S FP=2056 W @F,BP4
 ;
5 S BJ1=$$BJ^cAFE1(Q,BP1),MNT1=$$MNTC^cAFE1(Q,BJ1)
501 S BJ2=$$BJ^cAFE1(Q,BP2),MNT2=$$MNTC^cAFE1(Q,BJ2)
502 I MNT1'=MNT2 S K=$P($T(@("T8"_QT)),U,2) D TXT^cAFA1(250) G 27
503 S BJ3=$$BJ^cAFE1(Q,BP3),MNT3=$$MNTC^cAFE1(Q,BJ3)
504 S BJ4=$$BJ^cAFE1(Q,BP4),MNT4=$$MNTC^cAFE1(Q,BJ4)
505 I MNT3'=MNT4 S K=$P($T(@("T8"_QT)),U,2) D TXT^cAFA1(250) G 27
506 I MNT2'=MNT4 S K=$P($T(@("T8"_QT)),U,2) D TXT^cAFA1(250) G 27
50 D ^cA347 G 2:K=",",47:K="-"&SWV,27:K="-",53:K="."
51 S TP=0 G 57 ; scherm
53 S TP=1 F K=4:1:9 S PP(K)=@$P("\\\BP1\BP2\BP3\BP4\SWV\BETG",D,K)
55 S R=0_D_'$L(LIM2) D ^cA345 G 50:K="-",2:K="," I K="." D S9 G YZ
57 W:$G(QW) /WWR(1) D ^cT180 I QP W:$G(QW) /WWR(0) G 2
 ;
YZ L  Q
 ;
S1 W !?2,$P($T(@("T4"_QT)),U,3),!?2,$P($T(@("T4"_QT)),U,4) Q
 ;
S2 S AT=AT+1,BPX=$P(BPB,D,AT*3+1,AT+1*3) I $P(BPX,D)?5N,$P(BPX,D,2)?4N1"."2N,$P(BPX,D,3)?4N1"."2N G S2
S2Z S AT=AT-1,^(26)=AT K BPX Q
 ;
S3 W @F,"   ?   " S FP=$S(FP=1840:1856,FP=1856:2040,FP=2040:2056,1:2101) W @F,$J("",7) Q
 ;
S4 W !?2,$P($T(@("T11"_QT)),U,2),$S($P(R,D)="BP2"!($P(R,D)="BP4"):$P($T(@("T11"_QT)),U,3),1:"") Q
 ;
PCTR ;K?4N1"."2N&(K#1)&(K#1<.13)&(K'>BPA)&(K'<M1(J1))!(K="-")!(K=",")
PCTR2 ;K?4N1"."2N&(K#1)&(K#1<.13)&(K'<BP1)&(K'>BPA)!(K="-")!(K=",")!(K="I")
PCTR4 ;K?4N1"."2N&(K#1)&(K#1<.13)&(K'<BP3)&(K'>BPA)!(K="-")!(K=",")!(K="I")
 ;
S9 S QPT=$T(+0) D ^cA109
S9Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84