【结帖】关于任务列表

daisy

如何在flowout 或者其它事件中取得 任务列表中选中的是哪个任务？
主要想实现的目的是：当流转到最后一个节点时，给流转结束的数据打上"核可"的标志，对于单任务来说这个好办，当前记录即可，可是对于多任务，需得 判断哪些任务是被充许结束的.要如何取得任务表中中的是哪(几)个任务呢？

daisy

up

lixy

请参考
说明：
  aa是数据集的关键字字段，如果是多个就要用循环BizDataKeys
    bb=1 不流转
  执行完这个程序以后，delete掉不允许流转的，剩下的可以流转
procedure TMainForm.FlowBroker1GetFlowOutTasks(Sender: TObject; Command: TGetTasksCommand);
var
  i: Integer;
  lTask: TTask;
begin
  for i:=Command.Selected.Count-1 downto 0 do
  begin
    lTask := Command.Selected as TTask;
    if DataSetBroker1.DataSet.Locate('aa', lTask.BizDatas.Items[0].BizDataKeys.Items[0].Value, [TLocateOption.loCaseInsensitive]) then
    begin
      if DataSetBroker1.DataSet.FieldByName('bb').AsInteger=1 then
      begin
        Command.Selected.Delete;
        Command.Source.Delete;
      end;
    end;
  end;
end;

lisb

3楼代码中 for i:=Command.Selected.Count-1 downto 0 do  中的Command.Selected 即为选中的任务
通过 if DataSetBroker1.DataSet.Locate('aa', lTask.BizDatas.Items[0].BizDataKeys.Items[0].Value, [TLocateOption.loCaseInsensitive]) then 这一句就定位到了业务数据集的业务数据记录

daisy

这个我有试过了哦，但GetFlowOutTasks事件是在任务列表show出来之前，运行的。
我若是要写在flowout 事件里，Command: TGetTasksCommand 这个command要怎么取。。。。》？？

lisb

这样试试
procedure TZCT.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
  i: Integer;
  ls: string;
begin
  Inherited;
//  ls := objecthelper.tostring(command.InvolvedTaskByIndex[0].bizdatas[0].bizdatakeys[0].value)
  for i := Command.InvolvedTaskCount - 1 downto 0 do
  begin
    if DataSetBroker1.DataSet.Locate('aa', command.InvolvedTaskByIndex.bizdatas[0].bizdatakeys[0].value, [TLocateOption.loCaseInsensitive]) then
    begin
      //
    end;
  end;

end;

zfang

问题解决了吗？

zfang

由于楼主长期未反馈，先结帖！
有问题请重新开帖！