操作系统资讯中心

e_o=E

code=e_o.code

coderule=[3,6,9]

r=coderule[2:]

Levels=1

101

For i In coderule[Levels-1:]:

i=6

try:

coderule[i+1]

Expire IndexError:

break

Update Ma_Coa_Acc b

Set b.Acc_Name1 = (Select (Select Acc_Name1

From Ma_Coa_Acc

Where Substr(a.Acc_Code, 1, i) = Acc_Code

And Length(Acc_Code) = i

And a.Coa_Code = Coa_Code

And a.Fiscal = Fiscal) || ‘_’ || Acc_Name Name1

From Ma_Coa_Acc a

Where Length(Acc_Code) = coderule[i+1]

And b.Acc_Code = Acc_Code

And b.Coa_Code = Coa_Code

And b.Fiscal = Fiscal)

Where Length(b.Acc_Code) = coderule[i+1]

And acc_code Like ‘code%’;