cT98 ;TERUGREKENEN KUMUL OMZETCIJFER KLANTEN BIJ OPSTARTEN ;%T98 [ 01/03/01  4:13 PM ]
 G 1
 ;
T0 ;Terugrekenen cumul omzetcijfer klanten bij opstarten ;
T1 ;\\\\\\\\\\\\\\\\\\\\\\\\;
 ;
T0F ;Calcul cumul du chiffre d'aff. cumulé des clients ;
T1F ;\\\\\\\\\\\\\\\\\\\\\\\\;
 ;
T0E ;Recalculate global turnover customers at start up ;
T1E ;\\\\\\\\\\\\\\\\\\\\\\\\;
 ;
1 S Q2="^"_Q_"K9(KC)"
10 B 0 S @("^"_Q_"K9(0)")="*",KC=0,BJ=@("^"_Q_"BA(7)")+.88\1,Q1="^"_Q_"KL(I1,"_(BJ+.01)_")"
12 S KC=$N(@Q2) G Y:KC=-1 S I1=@("^"_Q_"K1(KC)"),K=$P($T(@("T1"_QT)),U,2) S:'$D(@Q1) @Q1=K S:'$D(^(BJ)) ^(BJ)=K,^(BJ+.02)=K
14 S Z1=^(BJ+.01),Z2=@Q2,@Q1=$P(Z1,D,1)_D_($P(Z1,D,2)-$P(Z2,D,1))_D_($P(Z1,D,3)-$P(Z2,D,2))_D_($P(Z1,D,4)-$P(Z2,D,3))_$P(Z1,D,5,99) G 12
 ;
Y K @("^"_Q_"K9")
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84