【逻辑】
(0)获取业务流程归档文件记录表的文件记录
(1)获取同一个业务对象的分录内码
(2)对这一批分录进行文件到归档表激活
【说明】
请在开发指导的情况下使用
【代码】
```chsarp
import clr
clr.AddReference("mscorlib")
clr.AddReference("Kingdee.BOS")
clr.AddReference("Kingdee.BOS.ServiceHelper")
clr.AddReference("Kingdee.BOS.Core")
clr.AddReference("Kingdee.BOS.App")
clr.AddReference("Kingdee.BOS.App.Core")
clr.AddReference("System.Data")
clr.AddReference("System.Core")
clr.AddReference("Kingdee.BOS.DataEntity")
from Kingdee.BOS import *
from Kingdee.BOS.KDThread import *
from Kingdee.BOS.ServiceHelper import *
from Kingdee.BOS.App.Data import *
from Kingdee.BOS.App.Core import *
from Kingdee.BOS.ServiceHelper import *
from Kingdee.BOS.Core.DynamicForm.PlugIn import *
from Kingdee.BOS.Core.DynamicForm.PlugIn.Args import *
from Kingdee.BOS.Util import *
from System import *
from System.Collections.Generic import *
from System.Data import *
from Kingdee.BOS.DataEntity import *
from System.Reflection import *
def BarItemClick(e):
if (e.BarItemKey.Equals("tbMoveFileToBackup", StringComparison.OrdinalIgnoreCase)):
MainWorker.QuequeTask(this.View.Context, InnerExecute2,None);
if (e.BarItemKey.Equals("tbMoveFileToBackupTest", StringComparison.OrdinalIgnoreCase)):
MoveFileToBackCustom202112();
def InnerExecute():
for idx in range(50):
BusinessFlowDataServiceHelper.BackUpInstance(this.View.Context);
def InnerExecute2():
for idx in range(100):
MoveFileToBackCustom();
def MoveFileToBackCustom():
fileIds = HashSet[Int64]();
sql = 'select top 50 FFileId from t_BF_ArchiveFiles';
ans = DBUtils.ExecuteDynamicObject(this.View.Context, sql);
for idx in range(ans.Count):
item = ans[idx];
fileIds.Add(Convert.ToInt64(item[0]));
bfServiceType = TypesContainer.GetOrRegister("Kingdee.BOS.App.Core.BusinessFlow.Repositories.BFHisDataRepository,Kingdee.BOS.App.Core");
bfService = Activator.CreateInstance(bfServiceType,this.Context);
flags = BindingFlags.Instance | BindingFlags.Static | BindingFlags.Public | BindingFlags.NonPublic;
method = bfService
