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

alang

请参考 系统空间\系统功能\组织机构\组织机构资源库\禁用的组织机构
procedure TNOUSINGORGS.actRestoreExecute(Sender: TObject);
var
  I: Integer;
  lRecovered: Boolean;
  lDeleteIndex, lOrgURLs: TStringList;
  lOrgUnit: TOrgUnit;
  lDelOrgURLs: TOrgURLs;
  lURL: TBizURL;
begin
  Cursor := Business.Forms.Controls.crHourGlass;
  lDeleteIndex := TStringList.Create;
  lDelOrgURLs := TOrgURLs.Create;
  lOrgURLs := TStringList.Create;
  lURL := TBizURL.Create;
  try
    lRecovered := False;
    for I := 0 to lvRecycleBin.Items.Count - 1 do
    begin
      if lvRecycleBin.Items[I].Selected then
      begin
        lOrgUnit := TOrgUnit(lvRecycleBin.Items[I].Data);
        lURL.FileName := StrUtils.AnsiReplaceText(lOrgUnit.BizURL.FileName, '\~', '');
        if not Assigned(Org.OrgSys.OrgSystem.FindUnit(lURL)) then
          lDelOrgURLs.Add(lOrgUnit.BizURL);
        lURL.FileName := Sysutils.ExtractFileDir(StrUtils.AnsiReplaceText(lOrgUnit.BizURL.FileName, '\~', ''));
        if not Assigned(Org.OrgSys.Orgsystem.FindUnit(lURL)) then
        begin
          jsDialogs.ShowError('被恢复的组构单元的父单元不存在或已被禁用！', '不能恢复');
          Exit;
        end;
        lOrgURLs.Add(lURL.FileName);
        lDeleteIndex.Add(SysUtils.IntToStr(I));
        lRecovered := True;
        FModified := True;
      end;
    end;
    if lRecovered then
    begin
      Org.OrgSys.OrgSystem.RecoverFromRecycleBin(lDelOrgURLs);
      for I := lDeleteIndex.Count - 1 downto 0 do
      begin
        lvRecycleBin.Items.Delete(SysUtils.StrToInt(lDeleteIndex[I]));
        FileSys.FileSystem.Refresh(lOrgURLs[I], False);
      end;
      TCommonFunc.OrgChanged;
    end;
  finally
    lURL.Free;
    lOrgURLs.Free;
    lDelOrgURLs.Free;
    lDeleteIndex.Free;
    Cursor := Business.Forms.Controls.crDefault;
  end;
end;

Rambol

我原来也是加着呢，报错了，我才注消了这一部分的

alang

首先，你用平台提供的 组织机构管理 功能，浏览禁用 可以恢复吗？
如果这里就出错，说明你的版本有问题了，请提供你的版本号

Akon

由于楼主长时间未跟贴,此帖先结,有问题请开新帖.