【搞定】]我想用代码恢复被 DeleteUnit方法删除的机构单元，该如何处理？

Rambol

我想用代码恢复被 DeleteUnit方法的机构单元（如机构、部门、岗位、人员）等，我应该怎样判断我要删除的对象在回收站中？
static procedure TPersonFuncLib.RecoverPerson(APersonID:string);
var
  lBizUrl: TBizURL;
  lOrgURLs:TOrgURLs;
begin
  lBizUrl := TBizURL.Create;
  try
    lBizUrl.URL:=TPersonFuncLib.GetPersonBizURL(APersonID);
    if OrgSystem.FindUnit(lBizUrl,True) = nil then
      jsDialogs.ShowError('回收站中未发现人员"'+APersonID+'"！','错误')
    else
    begin
      lOrgURLs.Add(lBizUrl);
      OrgSystem.RecoverFromRecycleBin(lOrgURLs);
    end;
  finally
    lBizUrl.Free;
  end;
end;
我用这 if OrgSystem.FindUnit(lBizUrl,True) = nil then     无法判断其存在。

Rambol

顶

alang

请参考 系统空间\系统功能\组织机构\组织机构资源库\禁用的组织机构

alang

??

Rambol

搞定了，谢谢，结贴吧