|

楼主 |
发表于 2007-10-24 15:39:02
|
显示全部楼层
??
流程设计中只通知时将执行者指定到最初申请人,中间过程的指定执行者代码控制的,已注销掉这段代码,第一次点击流转速度仍就慢,第一次点击后,选择取消,再次流转速度很快不到2秒.
在外面,明天去单位联系!
lnextlcid:=THQLCXX.GetSuccedentUnits(FlowSBZYSQ); //FlowSBZYSQ流程控件的名称
lczzjsid :=TSBGGDY.GetOperatorPositionMemberID(Self.Context);
lczzid :=TSBGGDY.GetOperatorID(Self.Context);
lxxdw :=Command.FlowControl.Executor.DeptID;
lxxjs :=Command.FlowControl.Executor.PositionID;
lxxry :=Command.FlowControl.Executor.PersonID;
THQLCXX.GetLcspry(ljszbmid,ljszjsid,ljszid,lnextlcid,FDeptID,lczzjsid,lczzid,lxxdw,lxxjs,lxxry);
if Assigned(Orgsys.OrgSystem.FindUnit(ljszbmid,ljszid,ljszid)) then
begin
lFlowTask := Command.FlowTasks.FindFlowTask(lnextlcid);
if lFlowTask <> nil then
begin
lFlowTask.Executors.Clear; //删除缺省执行者
lOrgURL := TOrgURL.Create(ljszbmid,ljszjsid,ljszid ); //部门、岗位、人员创建组织单元
lFlowTask.Executors.Add(lOrgURL);//添加执行者
end;
end
else
begin
exit;
end;
|
|