cTA56 ;WIJZIGEN NUMMERS ANALYTISCHE REKENINGEN ;%TA56; [ 01/11/01  10:39 AM ]
 G 1
 ;
T0 ;Wijzigen nummers analytische rekeningen ;
T1 ;Programma reeds in gebruik ! [] = ok ;
T2 ;Het wijzigen wordt tijdens de week alleen 's nachts tussen 17 en 8 uur gedaan;
T3 ;Nieuw nummer;
T4 ;De rekening;
T6 ;Nummer ok\"[] = ok    ,[] = hernemen";
T7 ;Updaten rekeningen\".[] = ok   A[] = annulatie wijzigingen   L[] = later wijzigen";
T8 ;De wijzigingen kunnen in de week alleen worden gedaan na 17.00 !!   [] = ok ;
T9 ; Druk STOP[] in om voortijdig te eindigen;
T10 ;Wijzigen :;
T11 ;,[] = hernemen   A[] = definitief annuleren\;
T12 ;Er zijn reeds nummers ingevoerd\;
T13 ;"V[] =  verwijderen nummers    .[] = vorige nummers behouden";
T14 ;,[] = hernemen   V[] = definitief verwijderen;
T15 ;Job kan niet opgestart worden;
T16 ;Nummer;4;2;;4;20;;;7;;;;;;;101;;;;;1;
T17 ;Omschrijving;5;2;;5;20;;;40;;;;;;;102;;;;;1;
T18 ;Rekeningsoort;6;2;;6;20;;$P("boekingsrek.\tekstrek.\buiten gebruik",D,K+1);20;;;;;;;113;;;;;1;
 ;
T0F ;Modification numérotation comptes analytiques ;
T1F ;Programme en usage ! [] = ok ;
T2F ;Modifications pendant la semaine seulement entre 17h et 18h ;
T3F ;Nouveau numéro;
T4F ;Compte;
T6F ;Numéro ok\"[] = ok   ,[] = reprendre";
T7F ;Mise à jour des comptes\".[] = ok   A[] = annuler modification   L[] = modifier plus tard";
T8F ;Les modifications pendant la semaine seulement après 17h00 !!  [] = ok ;
T9F ; Appuyez STOP[] pour terminer le programme ;
T10F ;Modifier :;
T11F ;,[] = reprendre   A[] = annulation définitive\;
T12F ;Il y a déjà des numéros prêts pour modification\;
T13F ;"V[] = annuler les numéros   .[] = garder les numéros";
T14F ;,[] = reprendre   V[] = annulation définitive;
T15F ;Le job ne peut pas être demarré;
T16F ;Numéro;4;2;;4;20;;;7;;;;;;;101;;;;;1;
T17F ;Description;5;2;;5;20;;;40;;;;;;;102;;;;;1;
T18F ;Genre compte;6;2;;6;20;;$P("comptable\texte\hors service",D,K+1);20;;;;;;;113;;;;;1;
 ;
T0E ;Modification of analytical account numbers ;
T1E ;Program is already in use ! [] = ok ;
T2E ;Modification during the week only at night between 17 and 8 hours;
T3E ;New number;
T4E ;The account;
T6E ;Number ok\"[] = ok    ,[] = retry";
T7E ;Update accounts\".[] = ok   A[] = cancel modification   L[] = modify afterwards";
T8E ;The modification can during the week only be done after 17.00 !!   [] = ok ;
T9E ; Press STOP[] to end prematurely;
T10E ;Modify :;
T11E ;,[] = retry   A[] = cancel definitly\;
T12E ;Numbers have already been entered\;
T13E ;"V[] =  remove numbers   .[] = keep previous numbers";
T14E ;,[] = retry   V[] = remove permanently;
T15E ;The job can not be started;
T16E ;Number;4;2;;4;20;;;7;;;;;;;101;;;;;1;
T17E ;Description;5;2;;5;20;;;40;;;;;;;102;;;;;1;
T18E ;Account type;6;2;;6;20;;$P("valid acc.\text acc.\out of use",D,K+1);20;;;;;;;113;;;;;1;
 ;
 ; te locken bestanden
S1 S K="(^"_Q_"RA9,^"_Q_"FI,^"_Q_"VE,^"_Q_"AA,^"_Q_"BA,^"_Q_"ARA,^"_Q_"OD,^"_Q_"UL,^"_Q_"PV,^"_Q_"TO,^"_Q_"TOL,^"_Q_"LE)"
S1Z Q
 ;
1 S JOB=$P(R,U,2),Q1="^"_Q_"ARA(I1,0)",I1=0,Y=100
10 F K=16:1:18 S Y=Y+1,A(Y)=$P($T(@("T"_K_QT)),U,2,99)
11 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
12 L @("^"_Q_"RA9"):2 E  S K=$P($T(@("T1"_QT)),U,2) D F1 G YZ
121 W /CUP(22,3),$P($T(@("T2"_QT)),U,2) S R=4 D F2 G YZ:K="-"
13 I $D(@("^"_Q_"RA9")) G V
14 I '$D(@("^"_Q_"RA9")) S @("^"_Q_"RA9(0)")=1
15 S X=0,Y=-1,FP=401 W @F,@F1
17 S X=X+1,Y=$N(A(Y)) G 19:Y=-1 S FP=$P(A(Y),U,2)*100+$P(A(Y),U,6)-3 W @F,@F9,":"
18 S FP=$P(A(Y),U,2)*100+$P(A(Y),U,3) W @F,X,@F6,$P(A(Y),U,1),@F9 G 17
19 S FP=1000+$P(A(101),U,6)-3 W @F,@F9,":" S FP=1003 W @F,@F6,$P($T(@("T3"_QT)),U,2),@F9
 ;
2 S R="I1\2000\"_$P($T(@("T4"_QT)),U,2)_"\ARA\RA1" D @$G(@("^"_Q_"ARA(0,5)"),"^cTA2") G 6:K="-" S Y=-1,X=@Q1
21 S Y=$N(A(Y)) G 25:Y=-1 S K=$P(X,D,($P(A(Y),U,16)#100)),FP=$P(A(Y),U,5)*100+$P(A(Y),U,6)
22 S J="S J=K" S:$L($P(A(Y),U,8)) J="S K="_$P(A(Y),U,8) X J W @F,@F2,K G 21
25 S I=$N(@("^"_Q_"RA9(0)")),I=0
26 S I=$N(^(I)) I I>-1 G 26:$P(^(I),D,1)'=I1 D TXT^cAFA1(11) G 2
3 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_D_D_$P(A(101),U,9)_"\\K?1AN.AN!(K=""-"")" D R0 G 2:K="-"
32 S I2=K_" ",FP=1000+$P(A(101),U,6) W @F,K,@F2
33 I $D(@("^"_Q_"ARA(I2)")) D XT1 I 'K D TXT^cAFA1(12) G 3
34 S I=0
35 S I=I+1 I $D(@("^"_Q_"RA9(I)")) G 35:$P(^(I),D,2)'=I2 D TXT^cAFA1(13) G 3
4 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\"",-""[K" D R0 G 3:K="-",2:K=","
41 S @%Q1=0,K=@("^"_Q_"RA9(0)"),^(0)=K+1,^(K)=I1_D_I2,@%Q1=1 G 2
 ;
6 G Y1:$N(@("^"_Q_"RA9(0)"))=-1
61 S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\"".-AL""[K&$L(K)\\\1" D R0 G 15:K="-",YZ:K="L",Y:K="A"
64 D S1 S K=K_":3" L @K E  D TXT^cAFA1(14) G 61
65 S K=$P($H,",",2)\3600,X=$H#7 I K>7,K<17,X'=2,X'=3 S FP=2380+F60 W @F,@F5 S FP=2302+F60 W @F,@F4,$P($T(@("T8"_QT)),U,2),@F5,@F1,@F0 R K G YZ
66 I 'JOB S FP=402 W @F,$P($T(@("T9"_QT)),U,2),@F1 S FP=603 W @F,$P($T(@("T10"_QT)),U,2)
69 K R,A I 'JOB G ^cTA560
690 I JOB J JOB^cTA560(Q)::3 E  D E1
6900 G YZ
 ;
Y S R="K\22\3\"_$P($T(@("T11"_QT)),U,2)_"\1\\""A-,""[K&$L(K)\\\1" D R0 G 6:'(K="A")
Y1 K @("^"_Q_"RA9")
YZ Q
 ;
XT1 S K=0,I=0
XT11 S I=I+1 I $D(@("^"_Q_"RA9(I)")) S:$P(^(I),D,1)=I2 K=K+1 G XT11
XT12 Q
 ;
V S R="K\22\3\"_$P($T(@("T12"_QT)),U,2)_$P($T(@("T13"_QT)),U,2)_"\1\\""-V.""[K&$L(K)\\\1" D R0 G YZ:K="-",14:K="."
V1 S R="K\22\3\"_$P($T(@("T14"_QT)),U,2)_"\\1\\""V,-""[K&$L(K)\\\1" D R0 G V:K'="V" K @("^"_Q_"RA9") G 14
 ;
E1 S K=$P($T(@("T15"_QT)),U,2) G F1
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R 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