cTA561 ;WIJZIGEN NUMMERS ANALYTISCHE REKENINGEN ;%TA56; [ 01/03/01  12:29 PM ]
 ;
T0 ;Wijzigen nummers analytische rekeningen ;
 ;
T0F ;Modification numérotation comptes analytique ;
 ;
T0E ;Modification of analytical account numbers ;
 ;
1 S G="AR" D S5
 ;
YZ Q
 ;
 ; link grootboek - analytische (detail + globaal)
S5 S I=0
S5A S I=$O(@("^"_Q_G_"(I)")),J=2E7
S5B I $L(I) S J=$O(@("^"_Q_G_"(I,J)")) I $L(J) D S50 G S5B
S5C I $L(I) G S5A
S5Z Q
 ;
S50 I $E(J)=2,$E(I1_$J("",7),1,7)=$E(J,2,8),J?1N7E6N1"."1N.N!(J?1N7E6N1U.UN) S ^($E(J)_$E(I2_$J("",7),1,7)_$E(J,9,99))=^(J) K ^(J)
S50Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84