【结】流程问题**

rzport_lq1

如果任务未完成，点击流转的时候会弹出对话框，任务停在本流程，如代码
  lTasks1 := TList.Create;
  lTasks2 := TList.Create;
  try
    lDataSet := DataSetBroker1.DataSet;
    for i:=0 to FlowBroker1.FlowControl.TaskCount-1 do
    begin
      lTask := FlowBroker1.FlowControl.TaskByIndex;
      if lDataSet.Locate('JHBH', lTask.BizDatas[0].BizDataKeys[0].Value, []) then
      begin
        if lDataSet.FieldByName('SFWC').AsString='0' then  //是否完成的判断
     begin
          lTasks2.Add(lTask);
          Business.Forms.Dialogs.showmessage('计划未完成');
          end
        else
          lTasks1.Add(lTask);
          FlowBroker1.FlowControl.FlowOut(lTasks1);
      end;
    end;

  finally
    lTasks1.Free;
    lTasks2.Free;
  end;
end;
为什么在单条任务的时候，点流转后可以出现“任务未完成”对话框，可任务还是继续流转了呢？

rzport_lq1

时间就是金钱

gaihl

1.当前代码是写在哪个位置的？

2.你说的单条任务，是不是还有多条任务？

3.如果有多条任务，多条是在点击什么执行的呢？ 现知道单条点的是流转。

rzport_lq1

自定义的button，功能是流转；
多条也是流转，测试过，可以过滤出来“未完成的任务”；
通过循环遍历所有任务，过滤未完成的任务停留，完成的则正常流转

lixy

调试一下代码
         FlowBroker1.FlowControl.FlowOut(lTasks1);
是否走到了没有。
效果图贴一下。

gaihl

1.你先确认一下代码，如果流转了，就一定执行过 FlowBroker1.FlowControl.FlowOut(lTasks1);
2.单步调试一下，看是否是FlowBroker1.FlowControl.FlowOut(lTasks1); 将当前任务流转了

rzport_lq1

begin
        if lDataSet.FieldByName('SFWC').AsString='0' then  //是否完成的判断
     begin
          lTasks2.Add(lTask);
          Business.Forms.Dialogs.showmessage('计划未完成');
          end
        else
          lTasks1.Add(lTask);
          FlowBroker1.FlowControl.FlowOut(lTasks1);
      end;
    end;
任务完成的时候可以从走到FlowBroker1.FlowControl.FlowOut(lTasks1);
想知道如何让“未完成”的时候不流转

rzport_lq1

‘0’代表未完成

rzport_lq1

谢谢，我单步调试下

lixy

效果图贴一下。