cTA562 ;WIJZIGEN NUMMERS ANALYTISCHE REKENINGEN ;%TA56; [ 01/03/01  12:29 PM ]
 ;
T0 ;Wijzigen nummers analytische rekeningen ;
 ;
T0F ;Modification numérotation comptes analytiques ;
 ;
T0E ;Modification of analytical account numbers ; 
 ;
 ; UGL'kes aankoop
1 F UGL="TO","TOL" I $D(@("^"_Q_UGL)) D S1
 ;
 ; rubriek analytische ventilatie bij de grootboekrekeningen
2 S A=0
21 S A=$O(@("^"_Q_"AR(A)")) G 3:A="" S B=$P(^(A,0),D,6)
23 I $P(B,"#")="A",$P($P(B,"#",2)," ")=II1 S $P(B,"#",2)=I2,$P(^(0),D,6)=B
25 G 21
 ;
 ; A-kodes
3 G 7:'$D(@("^"_Q_"BA(""%F"",300)")) S A="",K=$D(^(300,0))
31 S A=$O(^(A)) G 7:A="" S K=^(A) S:$P($P(K,D,2)," ")=II1 $P(K,D,2)=II2 S ^(A)=K G 31
 ;
 ; automatische diverse boekingen
7 S A=0
71 S A=$O(@("^"_Q_"FIA(A)")) G 8:A="" S B=0
73 S B=$O(@("^"_Q_"FIA(A,B)")) G 71:B="" S K=^(B)
75 I $P($P(K,D,4)," ")=II1 S $P(K,D,4)=I2 S ^(B)=K
77 G 73
 ;
 ; analytische verdeelkurves
8 S A=0
81 S A=$O(@("^"_Q_"AK(A)")) G 9:A="" S B=0
83 S B=$O(@("^"_Q_"AK(A,B)")) G 81:B="" S K=^(B)
85 I $P($P(K,D)," ")=II1 S $P(K,D)=I2 S ^(B)=K
87 G 83
 ;
 ; analytische verrichtingen
9 S (A,B,C)=""
91 S A=$O(@("^"_Q_"FIE(A)")) G YZ:A=""
93 S B=$O(@("^"_Q_"FIE(A,B)")) G 91:B=""
95 S C=$O(@("^"_Q_"FIE(A,B,C)")) G 93:C="" S K=^(C)
97 I $P(K,D,16)=I1 S $P(K,D,16)=I2,^(C)=K
99 G 95
 ;
YZ Q
 ;
S1 S A=0
S1A S A=$O(@("^"_Q_UGL_"(A)")) G S1Z:A="" S B=""
S1B S B=$O(@("^"_Q_UGL_"(A,B)")) G S1A:B="" S C=""
S1C S C=$O(@("^"_Q_UGL_"(A,B,C)")) G S1B:C="" S E=100
S1D S E=$O(@("^"_Q_UGL_"(A,B,C,E)")) G S1C:E="" S K=^(E)
S1E I $P(K,D,44)=I1 S $P(K,D,44)=I2
S1F I $P(K,D,44)=I2 S ^(E)=K
S1G G S1D
S1Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84