[请求]关于自流程任务主题获取错误**

dupit

这个勾 不勾的话对流程有什么影响

zfang

看用户手册第9章第373页

dupit

经测试 如果不够的话 子流程实咧就看不到了，请问有什么方法可以解决这个问题吗 因为我这个勾还是要勾的 否则就看不到子流程的实例了

zfang

如果按你目前的设置，就只能等解决这个缺陷后才可以了。（我的测试环境是3102）
如果目前要规避这个缺陷的话，只能自己代码去做了。

dupit

如果是代码的话 要如何处理

zfang

当前流程主题
FlowBroker1.FlowControl.Flow.Subject
当前任务主题
FlowBroker1.FlowControl.CurrentTask.Subject

dupit

procedure TGCKGBMLDSPFORM.FlowBrokerAfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
  FlowBroker.FlowControl.CurrentTask.Subject := FlowBroker.FlowControl.Flow.Subject;
end;

还是不行的

zfang

楼主，你多试试就知道了，或者论坛里搜索一下也行呀。
我大概这样子试了一下，没什么问题。仅供参考
//代码处理子流程的流程主题和任务主题
procedure TMainForm.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lFlowTask: TFlowTask;
begin
  lFlowTask := Command.FlowTasks.FindFlowTask('ZLCZTCSZJ');//根据环节找任务
  if lFlowTask <> nil then
  begin
    lFlowTask.Subject := FlowBroker1.FlowControl.Flow.Subject + ':' + DataSetBroker1.DataSet.FieldByName('spbh').AsString;//主题是某个字段的值
  end;
  FlowBroker1.FlowControl.Flow.Subject := FlowBroker1.FlowControl.Flow.Subject + ':' + DataSetBroker1.DataSet.FieldByName('spbh').AsString;
end;

dupit

procedure TJCDWKGSQFORM.FlowBrokerCreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lFlowTask: TFlowTask;
begin
  lFlowTask := Command.FlowTasks.FindFlowTask('GCKGBMLDSPFUNC');//根据环节找任务
  if lFlowTask <> nil then
  begin
    lFlowTask.Subject :=lFlowTask.Subject+':'+ dsbXMB.DataSet.FieldByName('XMMC').AsString;
  end;
  FlowBroker.FlowControl.Flow.Subject :=lFlowTask.Subject;
end;

lFlowTask.Subject   取值怎么是 环节任务名称：当前流程名称
我只要 环节任务名称 就可以了

dupit

工程开工部门领导审批:工程开工申请:灵溪所后洋村电气化村标准村改造

但是我只要 工程开工部门领导审批:灵溪所后洋村电气化村标准村改造