【结贴】business无法登陆，“Biz:OPERATIONOASPACETASKCENTERNEWSFUNC.Func”转换为

Hexc

我这里系统一直运行正常，近些天business无法登陆，一登陆就报题目上错，用Studio初始化运行报错如下：
--------------------------------------------------------------------------------------------
运行系统初始化的时候发生异常：URL“Biz:\OPERATION\OASPACE\TASKCENTERNEWSFUNC.Func”转换为文件名失败

类型：EBusiness。
--------------------------------------------------------------------------------------------

我在系统中根本没找到TASKCENTERNEWSFUNC.Func这个功能，请问如何解决？

shangxy

是不是你们导入过oa资源包引起的呢？
这个好像是oa里面的新闻公告的那个东东，把错误的单元重新编译一下呢？

Hexc

没有导入过OA资源包，我系统树如图：

shangxy

看看任务关联定义中是不是定义过这个功能呢？
还有业务功能树中有没有这个功能？

Hexc

你指的是这个吗？好像一买来平台装上就有这些了。

shangxy

3楼图中的办公自动化oA这个空间是什么时候导进来的？
一楼的错误应该是登陆的时候那个地方用到了这个功能，这个功能就是oa中的新闻公告在打开的时候运行的功能，比如如果桌面中有新闻公告可能就会报告这个错误。
你看一下业务功能树配置中是否配置过这个功能？

Hexc

系统升过级，从3002、3042、3068、3070，最后到3088，系统初始化的时候就有了OA这个空间

Hexc

星期六上午还运行正常，中午的时候突然登陆不上去了

shangxy

你看一下业务功能树配置中是否配置过这个功能？
新闻公告这个功能
现在错误提示某个地方用到了这个功能，而实际上这个功能不存在。

Hexc

没有配置过这个功能，我跟踪到 系统空间\配置库\系统配置库 中，发现如下函数用来读取默认功能配置，好像是读取某个XML文件，我怎么找到这个XML文件？我想手工改它，这样可以吗？
static procedure TSETTINGLIB.LoadConfig(AContext: TContext; AConfig: TBusinessConfig; IsSystem: Boolean; AOrgBizURL: TBizURL);
var
  lValue: string;
  lStreamSelf, lStream: TMemoryStream;
  lXmlFile: TStreamXMLIniFile;
  lURL: string;
  lHasValue: Boolean;
begin
  lStream := TMemoryStream.Create;
  try
    if IsSystem then
    begin
      lValue := '';
      ExtUtils.ReadUserInfo(cSystem, cID, lValue, lStream);
    end
    else begin
      // 取部门上定义的信息
      lValue := '';
      lHasValue := False;
      lURL := SysUtils.UpperCase(AOrgBizURL.URL);
      repeat
        lURL := FileSys.FileUtils.GetDirectory(lURL);
        lHasValue := ExtUtils.ReadUserInfo(lURL, cID, lValue, lStream);
      until lHasValue or SysUtils.SameText(lURL, JSConst.cOrgFilePrefix);

      if lHasValue then
      begin
        lXmlFile := TStreamXMLIniFile.Create(lStream);
        try
          AConfig.Load(lXmlFile);
        finally
          lXmlFile.Free;
        end;
      end;

      lStreamSelf := TMemoryStream.Create;
      try
        lURL := SysUtils.UpperCase(AOrgBizURL.URL);
        if ExtUtils.ReadUserInfo(lURL, cID, lValue, lStreamSelf) then
        begin
          lXmlFile := TStreamXMLIniFile.Create(lStreamSelf);
          try
            AConfig.Load(lXmlFile);
          finally
            lXmlFile.Free;
          end;
        end;
      finally
        lStreamSelf.Free;
      end;
      end;
  finally
    lStream.Free;
  end;
end;