cT177 ;BETALINGSGEDRAG PER KLANT ;%T177 ;do uit %T391 ; [ 01/03/01  6:05 PM ]
 ;
T0 ;Betalingsgedrag per klant ;
T1 ;Berekening van het betalingsgedrag ... even geduld a.u.b. ;
T2 ;De berekening wordt afgebroken   [] = ok ;
 ;
T0F ;Statistique de paiement par client ;
T1F ;Calcul du statistique de paiement ... un instant s.v.p. ;
T2F ;Le calcul est interrompu   [] = ok ;
 ;
T0E ;Payment behaviour per customer ;
T1E ;Calculation of the payment behaviour ... one moment please. ;
T2E ;The calculation is being interrupted   [] = ok ;
 ;
1 S FP=2401+F60 W @F,@F2 S K=$P($T(@("T1"_QT)),U,2),FP=80-$L(K)\2+FP W @F,@F4,K,@F5,@F2
11 S BP=$E(@("^"_Q_"BA(7)")_0,1,7),BPB=^(2),(REK,VNR)="" K ^HULP(boot,$J) S @%Q1=0
13 S REK=$O(@("^"_Q_"FI(BP,REK)")) I REK="" G 2
15 S VNR=$O(@("^"_Q_"FI(BP,REK,VNR)")) G 13:VNR="" S L=^(VNR) G 15:$P(L,D,7)'="K"
17 S KC=$P($P(L,D,8),"#"),BE=$P(L,D,5),AD=$P(L,D,12)*BE S:$P(L,D,6)="D" BE=-BE,AD=0 S L=D I $D(^HULP(boot,$J,KC)) S L=^(KC)
19 S AD=AD+$P(L,D),BE=BE+$P(L,D,2),^(KC)=AD_D_BE G 15
 ;
2 S BPB=$S(BP=$P(BPB,D,3):$P(BPB,D,4,6),1:$P(BPB,D,1,3)),BJ=$P(BPB,D,2)\1,K=$P(BPB,D,3),KC=""
21 F BX=1:1:24 S K=K+.01 S:K#1>.12 K=K+.88 S K=$E(K_0,1,7) I K=BP Q
23 I BX=24 S FP=2401+F60 W @F,"  ",@F4,$P($T(@("T2"_QT)),U,2),@F5,@F2,@F0 R K G YZ
25 S KC=$O(^HULP(boot,$J,KC)) G YZ:KC="" S L=^(KC),K=$D(@("^"_Q_"K1(KC)")) G 25:'K S I1=^(KC)
27 S BE=$P(L,D,2),AD=$S(+BE=0:0,1:$J($P(L,D)/BE,0,0)),$P(@("^"_Q_"KL(I1,BJ+.12)"),D,BX)=AD_"#"_BE G 25
 ;
YZ K ^HULP(boot,$J) S @%Q1=1 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84