【结贴】子流程中 遇到XOR选择时 主题如何自定义生成**

dupit

子流程中 遇到XOR选择时 主题如何自定义生成
如图 3和4

dupit

图4

shangxy

在施工图会审 环节的1楼你说的那个事件中看看如果不行参考一下下面这个帖子看看
http://bbs.justep.com/forum.php? ... F%DA%2A%D6%F7%CC%E2

shangxy

//待选择的流程任务，流转对话框中，所有可选的环节
  property AllowFlowTasks: TFlowTasks; readonly;
  //已经选中的流程任务，流转对话框中，默认选中的环节
  property FlowTasks: TFlowTasks; readonly;

dupit

procedure TSGTPSFORM.FlowBrokerCreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lFlowTask,lFlowTask1: TFlowTask;
  sFlowName,sTaskName,s: String;
begin
  lFlowTask := Command.FlowTasks.FindFlowTask('SGTQRFUNC');//根据环节找任务
  if lFlowTask<> nil then
  begin
    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;
  lFlowTask1 := Command.FlowTasks.FindFlowTask('SGTXG_FUNC');
  if lFlowTask1<> nil then
  begin
    s := lFlowTask1.Subject;
    sFlowName := FlowBroker.FlowControl.Flow.Subject;
    sTaskName := s.substring(0,stringUtils.Pos(sFlowName,s)-1);
    lFlowTask1.Subject:=sTaskName+ dsbXMB.DataSet.FieldByName('XMMC').AsString;//
  end;

施工图会审后的默认环节是“否”，也就是施工图确认环节，
这样的话我用lFlowTask := Command.FlowTasks.FindFlowTask('SGTQRFUNC');//我可以实现主题修改
但是lFlowTask1 := Command.FlowTasks.FindFlowTask('SGTXG_FUNC');
也就是施工图修改环节 这个值是取不到的  主题就没法修改

zfang

你看4楼，用AllowFlowTasks这个。

dupit

OK结贴