【搞定】[请求]恢复 删除到回收站中的人员时报错！**

Rambol

我在恢复 删除到回收站中的人员时报错！
请高手指教

alang

在代码中对组织机构进行操作时候，需要首先执行
FSMNGR.OrgSystemManager.UseLocalCache := False;

不使用本地缓存，这样才可以

Rambol

我已经加了呀，还是不行

alang

Studio的版本号？

Rambol

2800

Rambol

函数：
static procedure TOrgLib.RecoverOrg(AOrgURLs:TOrgURLs);
var
  i:Integer;
  lURL: TBizURL;
begin
  FSMNGR.OrgSystemManager.UseLocalCache := False;

  try
    OrgSystem.RecoverFromRecycleBin(AOrgURLs);
  finally
    OrgSystem.RefreshCache;
    TOrgLib.OrgChanged;
    lDelOrgURLs.Free;
  end;
end;

Rambol

调用函数：
static procedure TPersonFuncLib.RecoverPerson(APersonID:string);
var
  I: Integer;
  lURL: TBizURL;
  lOrgUnit: TOrgUnit;
  lOrgURLs:TOrgURLs;
  isInRecycleBin:Boolean;
  lFileNames: TStrings;
begin
  lURL := TBizURL.Create;
  lFileNames := TStringList.Create;
  lOrgURLs:=TOrgURLs.Create;
  try
    FileSys.FileSystem.SearchFile(FileSys.MakeDeleteFile('Org:\Person'), FileSys.SearchFileParam('*.psn', True), lFileNames);  //这里不取人员文件夹
    isInRecycleBin:=False;
    for I := 0 to lFileNames.Count - 1 do // lOrgURLs.Count
    begin
      try
        lURL.FileName := lFileNames[I];
        lOrgUnit := OrgSys.OrgSystem.FindUnit(lURL,True);
        if Assigned(lOrgUnit) then
          if lOrgUnit.ID = APersonID then
          begin
            lOrgURLs.Add(lOrgUnit.BizURL);
            isInRecycleBin:=True;
          end;
      except
      //
      end;
    end;
    if isInRecycleBin then
      TOrgLib.RecoverOrg(lOrgURLs)
    else
      jsDialogs.ShowError('回收站中未发现人员"'+APersonID+'"！','错误');
  finally
    lURL.Free;
    lOrgURLs.Free;
    lFileNames.Free;
  end;
end;

alang

首先，你用平台提供的 组织机构管理 功能，浏览禁用 可以恢复吗？
你看看这里的代码是怎么写的？

Rambol

上面这个函数就是学习了那那里的代码后写出来的

Rambol

报错的是这一句：OrgSystem.RecoverFromRecycleBin(AOrgURLs);