【结帖】流程流转时，不能启动事务**

cdz0451

流转时，提示如图错误。

cdz0451

sssssssssssssssssssssss

cdz0451

如图

gaihl

能定位到错误的代码吗?  贴个图来看看

zfang

什么时候报的这个错误呢？
跟踪一下，错误停在哪里。

cdz0451

FlowBroker1.FlowControl.FlowOut(nil);

zfang

贴出你完整代码。

cdz0451

unit MainForm;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data,
  Business.Model.Flow;

type
  TMainForm = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerKSXX: TInfoBroker;
    Panel: TPanel;
    DocViewKSXX_TZ: TDocView;
    CoolBar1: TCoolBar;
    BizToolBar1: TBizToolBar;
    DataSetBroker1: TDataSetBroker;
    FlowBroker1: TFlowBroker;
    procedure BizFormCreate(Sender: TObject);
    procedure FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
    procedure FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
  private
    {private declarations}
  public
    {public declarations}
    procedure Flow_StartClick(Sender:TObject);
  end;

implementation


procedure TMainForm.Flow_StartClick(Sender:TObject);
var
  sMsg:string;
begin
// if(jsDialogs.ConfirmBox('确认下发通知吗？', '提示', 2)) then
  begin
     //if(VerifyData())then
     begin
       //调用流程
       FlowBroker1.FlowControl.FlowOut(nil);
      //Self.Close();
     end;
  end;
end;

procedure TMainForm.BizFormCreate(Sender: TObject);
begin
  DataSetBroker1.DataSet.ReadOnly := true;
  BizToolBar1.Buttons[0].Visible := false;
  BizToolBar1.Buttons[2].Visible := false;
  BizToolBar1.Buttons[1].Caption := '关闭通知';
  BizToolBar1.Buttons[3].Visible := false;
  BizToolBar1.Buttons[1].OnClick := Flow_StartClick;
end;

procedure TMainForm.FlowBroker1AfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
     Self.Close();
end;

procedure TMainForm.FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
begin
Command.UserModify:=False;  //控制流程窗体不会弹出
end;

end.

cdz0451

CALL ME QQ: 296627599

cdz0451

如图