【结贴】用下面代码怎么将回退流转窗口弹出

江振辉

procedure TSCJSBSHCT.FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);

var ACommand: TFlowBackCommand;

begin
  DataSetBroker1.DataSet.DisableControls;
  try
    DataSetBroker1.DataSet.First;
    while not DataSetBroker1.DataSet.Eof do
    begin
      if DataSetBroker1.DataSet.FieldByName('status').AsInteger <> 1 then
      begin
        Command.Accept := False;
        Break;
      end;
      DataSetBroker1.DataSet.Next;
    end;
  finally
    DataSetBroker1.DataSet.EnableControls;
  end;
  if not Command.Accept then
   begin
    [U] ACommand.Create(FlowBroker1.FlowControl);
     SystemCore.TSystemCore.SystemInterface.EditFlowBackFlowTasks[/U] (ACommand);
     ACommand.Free;
   end;
  end;
下划线部分代码我写的不对，能编译，但运行时报错！如下图

zfang

为什么要这么做呢？

江振辉

那怎么做呢，因为这是会签，用条件分支环节不起作用，所以就想用代码控制！

zfang

你可以按这个思路去做：如果会签不同意，那么当他做流转时给出提示，只能回退，不能流转。
按你同事的做法
http://bbs.justep.com/forum.php?mod=viewthread&tid=29528

江振辉

我知道4楼的做法，还是我弄出来的！但这样和以前的流转动作就不一样了，我想弄成能弹出回退流转窗口的怎么做呢？

zfang

那你这样吧
procedure TMainForm.FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
  if DataSetBroker1.DataSet.FieldByName('sl').AsFloat > 1 then
  begin
    Command.Accept := False;
    Command.FlowControl.FlowBack(nil);
  end;
end;

但是这样子做对操作者来说，感觉不是很好（就是指执行的是流转操作，结果执行的是回退）

江振辉

好的，谢谢！可以结贴了！