|

楼主 |
发表于 2009-3-12 10:47:26
|
显示全部楼层
procedure TKGQSJ_FORM.FlowBrokerCreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
lFlowTask,lFlowTask1: TFlowTask;
sFlowName,sTaskName,s: String;
begin
lFlowTask := Command.FlowTasks.FindFlowTask('GCKGSJKZSP1FUNC');//根据环节找任务
s := lFlowTask.Subject;
sFlowName := FlowBroker.FlowControl.Flow.Subject;
sTaskName := s.substring(0,stringUtils.Pos(sFlowName,s)-1);
lFlowTask.Subject:=sTaskName+dsbXMB.DataSet.FieldByName('XMMC').AsString;
end;
现在如图这个并发的找后续任务就出错
如 安监科审查的后续环节工程开工科长审批 GCKGSJKZSP1FUNC
就lFlowTask := Command.FlowTasks.FindFlowTask('GCKGSJKZSP1FUNC');//根据环节找任务 这个出错找不到环节
|
-
-
1.jpg
26.42 KB, 下载次数: 110
|