cTA5 ;BEHEER ANALYTISCHE VERDEELKURVEN ;%TA4;Do %A102 [ 01/02/01  6:22 PM ]
 G 1
 ;
T0 ;Beheer analytische verdeelcurves ;
T1 ;Boekingspercentage\"xxx[] = ;geef het boekingspercentage\"[] = ;
T2 ;Lijnnummer\"xx[] = wijzigen lijn   [] = bijvoegen lijn   .[] = overzicht";
T3 ;Wijzigen element\COM;1[] = analytische rekening   2[] = percentage   V[] = verwijderen lijn;-[] = einde;
T4 ;De rekening;
T5 ;Verwijderen lijn ;",[] = hernemen   V[] = definitief verwijderen";
T6 ;   [] = ok ;
T7 ;De som van de percentages moet = 100;
T8 ;Enkel boekingsrekeningen zijn toegelaten;
T9 ;Deze lijn staat niet op het scherm;
 ;
T0F ;Gestion des courbes analytiques ;
T1F ;Pourcentage d'imputation\"xxx[] = ;pourcentage d'imputation\"[] = ;
T2F ;N° de ligne\"xx[] = modific. ligne xx   [] = ajouter ligne   .[] = aperçu";
T3F ;Modification élément\COM;1[] = compte analytique   2[] = pourcentage   V[] = radier ligne;-[] = fin;
T4F ;Compte;
T5F ;Radiation ligne ;",[] = reprendre   V[] = radiation définitive";
T6F ;   [] = ok ;
T7F ;Le total des pourcentages n'est pas 100;
T8F ;Uniquement des comptes comptables s.v.p.;
T9F ;Cette ligne ne se trouve pas à l'écran;
 ;
T0E ;Analytical divide curves ;
T1E ;Accounting percentage\"xxx[] = ;Enter the accounting percentage\"[] = ;
T2E ;Line number\"xx[] = modification of line   [] = add line   .[] = survey";
T3E ;Modification element\COM;1[] = analytical account   2[] = percentage   V[] = remove line;-[] = end;
T4E ;The account;
T5E ;Remove line ;",[] = retry   V[] = remove permanently";
T6E ;   [] = ok ;
T7E ;The sum of the percentages must be = 100;
T8E ;Only valid accounts are allowed;
T9E ;This line is not on the screen ;
 ;
S1 S R="K\2000\"_$P($T(@("T4"_QT)),U,2)_"\ARA" D @$G(@("^"_Q_"ARA(0,5)"),"^cTA2") G S1Z:K="-" I $P(^(K,0),D,13) D F2 G S1
S1A S $P(@("^"_Q_"AK(I1,L)"),D,1)=K,K=^(L) D S9
S1Z Q  ; invullen analytische rekening
 ;
S2 D S10 S S3=100-S2+$P(^(L),D,2),S4=S3>0&S2
S2A S R="K\22\3\"_$P($T(@("T1"_QT)),U,2+S4)_$S(S4:S3,1:"xxx")_" %""\3\\K?.N&K&(K'>100)!(""-""[K)" I 'S4 S R=R_"&$L(K)"
S2B D R0 G S2Z:K="-" I K="" S K=S3
S2C S $P(@("^"_Q_"AK(I1,L)"),D,2)=K,K=^(L) D S9
S2Z Q  ; invullen boekingspercentage
 ;
S9 S FP=L-B1*100+B0 I L'>B1!(L>(B1+B)) S FP=2001
S9A W @F,@TK,$J(L,4)," ",@TK," ",$P(K,D,1),$J("",8-$L($P(K,D,1))),"  " I '$L($P(K,D,1)) G S9C
S9B I $D(@("^"_Q_"ARA($P(K,D,1),0)")) W $P(^(0),D,2),$J("",40-$L($P(^(0),D,2))) G S9D
S9C W $J("",40)
S9D W " ",@TK,$J($P(K,D,2),5)," ",@TK
S9Z Q  ; afdruk van een lijn
 ;
S10 S S1=0,S2=@("^"_Q_"AK(I1,S1)"),S2=0
S10A S S1=S1+1 I $D(^(S1)) S S2=S2+$P(^(S1),D,2) G S10A
S10Z Q  ; berekening som boekingspercentages
 ;
1 S B0=501,B=13
11 S FP=B0+100 W @F,@F1 S:'$D(@("^"_Q_"AK(I1,T)")) T=0 S B1=T K SC
12 I $D(@("^"_Q_"AK(I1,T+1)")),T+1'>(B1+B) S T=T+1,K=^(T),L=T,FP=T-B1*100+B0,SC(T)=D D S9 G 12
 ;
2 S R="L\22\3\"_$P($T(@("T2"_QT)),U,2)_"\3\\K?.N&K!(K=""."")!(""-""[K)" D R0 G 5:K="-",3:K="",21:K=".",4:$D(SC(L)) D F3 G 2
21 S:'$D(@("^"_Q_"AK(I1,T+1)")) T=0 G 11
 ; openen lijn
3 S L=$P(@("^"_Q_"AK(I1,0)"),D,3)+1
31 D S1 I K="-" K @("^"_Q_"AK(I1,L)") S FP=$S(L>B1&(L'>B1+B):L-B1*100+B0,1:2001) W @F,@F2 G 39
32 D S2 G 31:K="-" S FP=2001 W @F,@F1
33 S $P(@("^"_Q_"AK(I1,0)"),D,3)=L I L>B1,L'>(B1+B) S T=L,SC(T)=D
39 G 2
 ; wijzigen of verwijderen van een lijn
4 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""12V-""[K&$L(K)\\\1" D R0 G 2:K="-" I K D @("S"_K) G 2
41 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_L_D_$P($T(@("T5"_QT)),U,3)_"\1\\""-,V""[K&$L(K)\\\1" D R0 G 4:K="-",2:K=","
42 S K=$P(@("^"_Q_"AK(I1,0)"),D,3) F I=L:1:K-1 S ^(I)=^(I+1)
43 S $P(^(0),D,3)=K-1,T=T-1 K ^(K),SC(K)
44 S FP=2001 W @F,@F1 S FP=L-B1*100+B0 W @F,@FDL F L=L:1:T S FP=L-B1*100+B0 W @F,@TK,$J(L,4)
45 I $D(^(T+1)) S T=T+1,SC(T)=D,FP=T-B1*100+B0,K=^(T),L=T D S9
46 G 2
 ; afsluiting verdeelkurve
5 D S10 I S2'=100 D F1 G 2
 ;
YZ Q
 ;
COM W !?2,$P($T(@("T3"_QT)),U,3),!?2,$P($T(@("T3"_QT)),U,4) Q
 ;
F1 S K=$P($T(@("T7"_QT)),U,2) G FZ
F2 S K=$P($T(@("T8"_QT)),U,2) G FZ
F3 S K=$P($T(@("T9"_QT)),U,2) G FZ
FZ S FP=2403+F60 W @F,@F4,K,$P($T(@("T6"_QT)),U,2),@F5,@F2,@F0 R K Q
 ;
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
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84