[请求]人员删除问题

yitong · 发表于 2010-7-15 10:38:57

用代码删除人员时，删除不了。代码如下：
if OrgSys.OrgSystem.FindUnit(FDeptID, cPOSI, FPer) <> nil then
begin
   lOrgUnit       := OrgSys.OrgSystem.FindUnit(FDeptID, cPOSI, FPer);
   lDeptBizURL.URL := lOrgUnit.BizURL.URL;
   dialogs.ShowMessage(lDeptBizURL.URL);
   if BizSys.BizSystem.URLExists(lDeptBizURL.URL) then
   begin
      BizSys.BizSystem.DeleteObject(lDeptBizURL.URL, [TDeleteFileOption.dfDestroy]);
      BizSys.BizSystem.DeleteObject('ORG:\PERSON\'+FDeptID+'.DFD\'+FPer+'.PSN', [TDeleteFileOption.dfDestroy]);
   end;
end;

atiger · 发表于 2010-7-15 11:46:25

楼主，lDeptBizURL.URL); 这个值是啥？贴出来看看吧

我感觉你删除的是人员成员吧，不是人员哦。

yitong · 发表于 2010-7-15 12:28:24

BizSys.BizSystem.DeleteObject(lDeptBizURL.URL, [TDeleteFileOption.dfDestroy]);这一句删除的是人员成员；
BizSys.BizSystem.DeleteObject('ORG:\PERSON'+FDeptID+'.DFD'+FPer+'.PSN', [TDeleteFileOption.dfDestroy]);
这一句删除的是人员；这一句有问题？

yitong · 发表于 2010-7-15 12:31:56

我的目的是要删除人员及其人员成员

atiger · 发表于 2010-7-15 14:00:59

把 'ORG:\PERSON'+FDeptID+'.DFD'+FPer+'.PSN' 修改为 'ORG:\PERSON\'+FPer+'.PSN'

你可以看一下人员的BizURL（选中人员后，点击右键菜单的属性可以看到）是啥，是不带部门的

		自动登录	找回密码
密码			立即注册