cT194 ;Betalingsgedrag : overzicht maandcijfers ;%T194 ;do naar %T195 [ 01/02/01  12:03 PM ]
 G 1
 ;
T0 ;Betalingsgedrag : overzicht maandcijfers ;
T1 ;De klant\klanten\alfabetische\alfabetische;
T2 ;Laatste maand\"jjjj.mm[] = bepaalde maand   [] = ;
T3 ;Aantal maanden\"[] = 12   .[] = 24";
T4 ; maanden;
T5 ; kan niet meer berekend worden   [] = ok ;
T6 ;Uiterste periode : ;
T8 ;Meerdere muntcodes in de geselecteerde maanden/jaren ;
 ;
T0F ;Statistique de paiement : chiffres mensuels ;
T1F ;client\clients\alphabétique\alphabétique;
T2F ;Dernier mois\"aaaa.mm[] = mois spécifique   [] = ;
T3F ;Nombre de mois\"[] = 12   .[] = 24";
T4F ; mois;
T5F ; ne se laisse plus calculer   [] = ok ;
T6F ;Période ultime : ;
T8F ;Plusieurs codes mon. dans les mois/années sélectionné(e)s ;
 ;
T0E ;Payment behaviour : report amount by month ;
T1E ;The customer\customers\alphabetical\alphabetical;
T2E ;Last month\"yyyy.mm[] = particular month   [] = ;
T3E ;Number of months\"[] = 12   .[] = 24";
T4E ; months;
T5E ; can no longer be calculated   [] = ok ;
T6E ;Ultimate period : ;
T8E ;More than one currency in the selected months/years ;
 ;
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 K R0,R1 D ^cA100 Q
 ;
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
13 S BPA=@("^"_Q_"BA(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:8 S @$P("LIM1\LIM2\\BP1\BP2\BP3\BP4\SWV",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="BP2\22\3\"_$P($T(@("T2"_QT)),U,2)_BPA_"""\7\PCTR" D R0 G 2:K="-"!(K=",") S:'K BP2=BPA S FP=1403 W @F,@F1,BP2
27 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 23:K="-",2:K="," S SWV=$L(K)
 ;
3 S BP1=$E(BP2-.99_0,1,7) S:BP1#1>.12 BP1=$E(BP1+.88_0,1,7) S BP3=$S(SWV:$E(BP1-1_0,1,7),1:0),BP4=$S(SWV:$E(BP2-1_0,1,7),1:0)
31 S FP=1403 W @F,@F1 W:SWV BP3," - ",BP4,!?2 W BP1," - ",BP2," = ",SWV+1*12,$P($T(@("T4"_QT)),U,2)
33 S BP=BP1 D F1 G 27:'OK
35 I BP3 S BP=BP3 D F1 G 27:'OK
 ;
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=",",27:K="-",53:K="."
51 S TP=0 G 57 ; scherm
53 S TP=1 F K=4:1:8 S PP(K)=@$P("\\\BP1\BP2\BP3\BP4\SWV",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 ^cT195 I QP W:$G(QW) /WWR(0) G 2
 ;
YZ Q
 ;
F1 S OK=1 I BP<M1(J1) S FP=2203+F60 W @F,@F1,$P($T(@("T6"_QT)),U,2),M1(J1) S FP=FP+200 W @F,@F4,BP,$P($T(@("T5"_QT)),U,2),@F5,@F2,@F0 R K S OK=0
F1Z 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
 ;
PCTR ;K?4N1"."2N&(K#1)&(K#1<.13)&(K'>BPA)&(K'<M1(J1+1))!("-,"[K)
 ;
S9 S QPT=$T(+0) D ^cA109
S9Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84