【结】严重BUG**

pingeo

流程流转前,出现错误提示:cannot foucs a disabled or invisible window
电话沟通时说是代码错误,应该是窗体的显示属性设置引起的.
代码里只有一段改变数据业务状态的代码,不显示任何窗体,
如:FlowBrokerAfterFlowOut中:
    TSQLDataset(InfoBroker.Info.DataSetByID('CommonInfo')).Edit;
    TSQLDataset(InfoBroker.Info.DataSetByID('CommonInfo')).FieldByName('Status').AsString := 'B';
    TSQLDataset(InfoBroker.Info.DataSetByID('CommonInfo')).FieldByName('Def1').AsString := '1';
    TSQLDataset(InfoBroker.Info.DataSetByID('CommonInfo')).ApplyUpdates;


此问题无规律的出现,而且是大面积的出现,只有关掉IE再打开才可能能使用.
经过跟踪代码,此错误是流程流转窗体在打开前报出来的,请尽快给出解决办法!!

jiahaiming

afterflowout发生在流转窗体关闭后！

你注释掉这段代码还有错误吗？

pingeo

确实和这段代码没关系,是在弹出窗体时报的,代码中除此之外没有和流程相关的代码,将与流程相关的代码全部取掉,还是有可能报出来!!

pingeo

另外,以前从来没出现过这个问题,自从用3002版本以来,才出现了这样的问题.

pingeo

现在越来越多的地方出现了这种错误,请尽快给出解决方案!

jiahaiming

这个错误的出现有什么规律吗？

把错误的调用栈贴出来看看。

pingeo

static function TFLOWOUTFORM.EditFlowOutFlowTasks(AContext: TContext;
  AFlowTasks, AAllowFlowTasks: TFlowTasks; AFlowTaskGraph: TFlowTaskGraph;
  const AShowUnPassNode: Boolean): Boolean;
begin
  with TFlowOutForm.Create(AContext) do
    try
      FlowTasks := AFlowTasks;
      AllowFlowTasks := AAllowFlowTasks;

      ShowUnPassNode := AShowUnPassNode;
      FlowTaskGraph := AFlowTaskGraph;

      Result := (ShowModal = Business.Forms.Controls.mrOk);
    finally
      Free;
    end;
end;

function TBASESYSTEMINTERFACE.EditFlowOutFlowTasks(ACommand: TFlowOutCommand): Boolean;
begin
  if ACommand.FlowControl.CurrentProcUnit.ID = '' then
    Result := TAdHocFlowTasksForm.EditAdHocFlowOutFlowTask(Self.Context, ACommand.FlowTasks)
  else
    Result := TFlowOutForm.EditFlowOutFlowTasks(Self.Context, ACommand.FlowTasks,
      ACommand.AllowFlowTasks, ACommand.FlowTaskGraph, True);
end;

function TPrepareFlowTasksBizMessageHandler.DoPrepareFlowCommand(ACommand: TFlowCommand;
  const AAbstractSystemFormLibrary: TAbstractSystemInterface): Boolean;
var
  lCommand: TFlowTaskCommand;
begin
  Result := True;
  lCommand := ACommand as TFlowTaskCommand;
  if not lCommand.UserConfirm then
    Exit;
  TSystemCore.FlowManager.doOnPrepareFlowTasksCommand(lCommand);
  case lCommand.ID of
    Flow.FLC_FLOWOUT:
      Result := AAbstractSystemFormLibrary.EditFlowOutFlowTasks(ACommand as TFlowOutCommand);
    Flow.FLC_FLOWBACK:
      Result := AAbstractSystemFormLibrary.EditFlowBackFlowTasks(ACommand as TFlowBackCommand);
    Flow.FLC_FLOWTRANSMIT:
      Result := AAbstractSystemFormLibrary.EditFlowTransmitFlowTasks(ACommand as TFlowTransmitCommand);
    Flow.FLC_FLOWNOTIFY:
      Result := AAbstractSystemFormLibrary.EditFlowNotifyFlowTasks(ACommand as TFlowNotifyCommand);
  end;
end;

pingeo

流程流转时,调用这个showmodal时出的错

jiahaiming

TmainForm: MyExProc的代码在哪里？

pingeo

是自定义 的处理异常的
     TempProc:=  Forms.Application.OnException ;  //记录下原来的异常处理程序
     Forms.Application.OnException:= MyExProc;
代码很简单:
procedure TMainForm.MyExProc(Sender: Business.System.TObject; E: Business.System.Exception);
var
   msg:string;
begin
     msg:=e.Message;
     //Cannot focus a disabled or invisible window
     if strUtils.AnsiContainsStr(msg,'Cannot focus a disabled or invisible window') then
       exit;
     if strUtils.AnsiContainsStr(msg,'当前修改的数据已经被其他用户修改') then
     begin
           //在这里处理你需要处理的异常。Xxx为你要截获的异常的信息。
           jsdialogs.ShowWarning('当前修改的数据已经被其他用户修改，不能进行保存操作.'+#10#13+'请刷新数据后重新操作.','错误');

     end
     else
         jsdialogs.ShowWarning(msg,'错误');

end;