控制流转按钮是否流转

atiger

步骤：
1、在功能窗体上有个功能代理funcbroker，BizClassRef 是否有值为是 'Default'。 如果没有流程代理，需要添加一个，并设置BizClassRef 的值
2、在功能窗体上拖一个流程代理FlowBroker1
3、在流程代理的 FlowBroker1BeforeFlowOut ，参考代码
var
   bUrl:TBizUrl;
   lFunc:TFunc;
   lCCurrent:TContextCurrent;
begin
   lCCurrent:=TContextCurrent.Create(self.Context);
   try
     bUrl:=TBizUrl.Create;
     bUrl.URL :='Biz:\ECIS\FUNC_SYSHELP_EDT.FUNC';
     lFunc:=lCCurrent.GetFunc(bUrl);
     if lFunc.UpdatesPending then
     begin
          dialogs.showmessage('有数据集还没有保存');         
           Command.Accept := False;
      end;
  finally
    lCCurrent.Free ;
  end;
end;