【结贴】选择流程流转修改主题

zhjkill · 发表于 2009-9-16 09:38:49

如图。流转时，选择部长审核，主题为部长审核：某字段+某字段等
选择人力资源主管审核，主题为人力资源主管审核：某字段+某字段等。
下面是代码，怎么改能实现上面的功能
procedure THR_DEMAND_SQBFORM.ModifyFlowSubject(Command: TFlowOutCommand);
var
  i: integer;
  lTask: TFlowTask;
begin
  for i:=0 to Command.FlowTasks.Count-1 do
  begin
lTask := Command.FlowTasks as TFlowTask;
lTask.Subject := '部长审核:'+ dsbMaster.DataSet.FieldByName('SQBM').asString + '-' + dsbMaster.DataSet.FieldByName('GWMC').asString;
//lTask.Description := '修改描述';
  end;
end;

procedure THR_DEMAND_SQBFORM.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
begin
   ModifyFlowSubject(Command);
end;

zfang · 发表于 2009-9-16 10:20:10

通过 Command.AllowFlowTasks去控制试试。

zhjkill · 发表于 2009-9-16 10:50:18

Command.AllowFlowTasks怎么做控制？
具体点

zfang · 发表于 2009-9-16 10:55:19

跟你一楼的代码类似的写法。

zhjkill · 发表于 2009-9-16 11:16:16

Command.AllowFlowTasks 是什么在那

zfang · 发表于 2009-9-16 11:25:15

procedure TMainForm.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  i : Integer;
  lFlowTask: TFlowTask;
begin
  for i := 0 to Command.AllowFlowTasks.Count -1 do
  begin
lFlowTask := Command.AllowFlowTasks;
lFlowTask.Subject := lFlowTask.ProcUnit.DisplayName + ' ' + SysUtils.IntToStr(i);
  end;

zhjkill · 发表于 2009-9-16 11:38:07

按照你的修改点流转以后出现流转界面
如图人力资源主管审批主题都没修改

zhjkill · 发表于 2009-9-16 11:41:28

删除执行者后点击部长审批流程
这个主题修改了

zfang · 发表于 2009-9-16 11:45:21

再配合你自己1楼的代码

zhjkill · 发表于 2009-9-16 13:08:36

好了结

		自动登录	找回密码
密码			立即注册