【结帖】问个有关任务主题的问题**

bsit

procedure TMainForm.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 := '修改主题';
    lTask.Description := '修改描述';
  end;
end;
procedure TMainForm.FlowDDLRCreateFlowOutFlowTasks(...);
begin
  ModifyFlowSubject(Command);
end;
这段代码修改主题后是否每一个环节的主题都改变了？我像这样写的代码只对一个环节有效果，我想要改变所有的环节主题，请问怎么修改每一个环节的主题？

bsit

for i:=0 to Command.FlowTasks.Count-1 do
  begin

             lTask:=Command.FlowTasks as TFlowTask;
            lTask.Subject:=bhString +lTask.Subject;
  end;

这段代码已经试过，流程如果有多个环节，执行这个代码后第一次流转，代办的主题改为代码设定的了，但是下一个环节再次流转主题就跟没有修改是一样的了

bsit

有没有人哦？

bsit

还在睡觉吗

bsit

黄花菜都凉了 ！！！

yancm

您这段代码写在哪儿的？

lixy

每个环节都调用这段函数

bsit

CreateFlowOutFlowTasks  这个事件是不是在一个流程中不管有多少个环节都只触发一次 啊？

bsit

不行哦
procedure TMAINFORM.ModifyFlowSubject(Command: TFlowOutCommand);
var
  i: integer;
  lTask: TFlowTask;
  sql : TQuery;
  idString,bhString : string;
begin
  for i:=0 to Command.FlowTasks.Count-1 do
  begin
     idString := Command.FlowControl.Flow.ID;
     sql := TQuery.Create(nil);
     sql.ConnectionString := 'DATABASEURL=Biz:\TMS\TMSSJK.Database';
     sql.CommandText := 'SELECT DDH,HWMC,JSDX FROM JSGLB WHERE JSGLB.SJBM =''客户结算表'' and KHJSBH = :KHJSBH';
     sql.Params.ParamByName('KHJSBH').AsString := idString;
     sql.Open;
     if sql.recordcount>0 then
     bhString := sql.FieldByName('DDH').AsString+sql.FieldByName('JSDX').AsString+sql.FieldByName('HWMC').AsString;
     sql.Close;
     lTask := Command.FlowTasks as TFlowTask;
     lTask.Subject :=bhString +lTask.Subject;
  end;
end;

调用地方：
procedure TMAINFORM.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);  
begin
ModifyFlowSubject(Command);   
end;

怎么改不了呢  到下一个环节发现主题并没有改变 ？

bsit

55555