【结贴】[问题]调用流程监控问题！急！急！**

韩文斌

我们有一些流程查询窗口，都放置了查看流程监控的按钮，用来调用“业务模型系统空间\用户界面基础界面\系统接口流程浏览”窗体。但是其中有一个却总报如下图的错误，而且还发现一个奇怪的问题，就是有的用户名运行这个功能时不会报错，有的用户名就会报错，很奇怪！
  这个问题客户10.1前就在催，一直被我们拖到节后，所以希望你们尽快解决，谢谢

韩文斌

代码如下：
//流程监控按钮事件
procedure TMAINFORM.BtnFlowClick(Sender: TObject);
begin
  FID := GetIDStr;
  if FID <> '' then
    with InfoQueryRule.TInfoQueryRule.Create(Context) do
    begin
      try
        GetFlowForm(FID, SysUtils.UpperCase('Biz:OPERATIONFLOWITEMENTRUST.PROC'));
      finally
        Free;
      end;
    end
  else
    JsDialogs.ShowMsg('请选择一条正确的数据查看！','提示');
end;

//InfoQueryRule信息层公共函数
procedure TInfoQueryRule.GetFlowForm(AGuidStr, ABizURL: string);
var
  lFlowGuid: String;
  lFlow: TFlow;
  lFlowIDQuery: TQuery;
begin
  lFlowIDQuery:= TQuery.Create(Nil);
  try
    lFlowIDQuery.ConnectionString:='DATABASEURL=Biz:SYSTEMSystem.DataBase';
    if AGuidStr <> '' then
    begin
      lFlowIDQuery.Close;
      lFlowIDQuery.CommandText := 'select TFLOW.FGUID from TFLOW,TFLOWID' +
                   ' where TFLOW.FGUID=TFLOWID.FFLOWGUID and TFLOWID.FID=''' + AGuidStr +
                   ''' and TFLOW.FPROCURL = ''' + ABizURL + '''';
      lFlowIDQuery.Open;

      lFlowGuid := lFlowIDQuery.Fields[0].AsString;
      if lFlowGuid <> '' then
      begin
        lFlow := TFlow.Create;
        Flow.FlowEngine.LoadFlow(lFlowGuid, lFlow);//加载流程数据
        if lFlow <> nil then
          TSystemCore.SystemInterface.ShowFlowView(lFlow);//显示
        lFlow.Free;
      end
      else
      begin
        jsDialogs.ShowMsg('该数据还未启动流程！','提示')
      end;
      lFlowIDQuery.Close;
    end
    else
    begin
       jsDialogs.ShowWarning('非流程功能模块！','注意');
    end;
  finally
    lFlowIDQuery.Free;
  end;
end;


下图是报错地点

jiahaiminghr

楼主，设个断点，看看这些对象状态是否异常！

韩文斌

没有异常，
看数据都有，但是不知道就为什么报错！
如下图

jiahaiminghr

我是说操作出错的数据，看一下value的值是否异常。

韩文斌

这就是报错前时候的数据，数据是正确的

韩文斌

有的用户名运行这个功能时不会报错，有的用户名就会报错

jiahaiminghr

楼主，把波特图Flow属性赋值的代码注释掉后，其他图可以正常显示吗？

韩文斌

全部试过了，干特图和波特图都会出来，是流程轨迹那段错误。

韩文斌

我可能知道是什么问题了，估计是我们改流程了，而在改流程前已经有数据，改流程后也有数据，是不是这样就会照成流程冲突从而显示不出？