【结帖】计划中心部门过滤**

jiahaiming

确认一下问题：
楼主升级完成后，遇到两个问题：
1、作所有操作都速度慢。
2、计划中心查看完整树报错。
是吗？

qiezi

2、计划中心单看非完整数报错，同时数据不对

jiahaiming

1呢？

qiezi

1、现在是business.exe打开时以及计划中心打开时，还有取消完整树时；
刚做完升级只看了一下这些，其他的还没来的及看。

qiezi

刚才林工优化了一下，速度还可以。但是依然有报错的问题，远程调一下吧。这个周末要升级的。

qiezi

贾工？

jiahaiming

原因已经找到，在计划相关人员被删除后，系统刷新计划时，找不到指定的人员成员，报错。
在“计划库”作一个容错处理就可以了。
procedure TPlanExecutor.RefreshData;
var
  lOrgURL: string;
begin
  FPlanID := FOwner.Owner.PlanID;
  { FPersonID 和 FDeptID 是必须的 }
  if (FPersonID = '') and (FDeptID <> '') then
    FPersonID := TPlanSpecialLogic.GetZManagerIDByDeptID(FDeptID);
  if FPersonID <> '' then
  begin
    if FDeptID = '' then
      FDeptID := TPlanSpecialLogic.GetDeptID(FPersonID, '');
    try
      lOrgURL := TPlanSpecialLogic.GetOrgURL(FDeptID, FPersonID);
      FOrgURL := TPlanSpecialLogic.GetSaveOrgURL(lOrgURL);
      FPositionID := TPlanSpecialLogic.GetFirstID(lOrgURL, BizObjConsts.cPositionMemberExt);
      FOGNID := TPlanSpecialLogic.GetFirstID(lOrgURL, BizObjConsts.cOrganExt);
    except
      //lOrgURL := TOrgUtils.GetOrgURL(FDeptID, FPositionID, FPersonID);
    end;
  end;
end;

shangxy

楼主反馈一下问题怎么样了？

zfang

楼主，还有问题么？

zfang

楼主，还有问题吗？
没问题就结帖了！！