【结贴】关于人员表新增记录在组织机构设计器中显示问题**

wfox · 发表于 2008-1-9 10:06:04

在人员表中新新增一条记录后,为什么在组织机构设计器的人员结点下没有显示出来?

zfang · 发表于 2008-1-9 10:30:57

楼主，你是怎么添加的？直接在数据表中添加的还是通过平台提供的方法添加的？

zfang · 发表于 2008-1-9 10:33:24

FSMNGR.OrgSystemManager.UseLocalCache := False;
   lBizURL := TBizURL.Create;
   try
      lBizURL.URL := 'Org:\Person';
      lPerson := Org.OrgSys.OrgSystem.FindPerson(sysutils.trim(RYID));
      if lPerson = nil then
      begin
      Org.OrgSys.OrgSystem.CreateUnit(lBizURL, sysutils.trim(RYID),
            TBizObjectKind.boPerson, sysutils.trim(RYXM));
      end;
   finally
      lBizURL.Free;
   end;
一般不建议直接对数据库直接操作，可以调用平台提供的方法来实现（人员列表需要刷新后可看到）

wfox · 发表于 2008-1-9 11:26:39

他想问这个操作应该加到什么位置合适呢?

zfang · 发表于 2008-1-9 13:07:00

不知道楼主是想实现什么？

上面的参考代码可以自己做个功能，实现人员表中新增一条记录的功能！

wfox · 发表于 2008-1-9 14:26:08

我的意思是如果我在自己的这个功能中修改了人员的状态,比如说禁用,怎么能同步到系统的中去,在组织机构设计器中自动将其禁用呢?

zfang · 发表于 2008-1-9 14:48:16

楼主，你1楼和6楼说的完全是两码事儿！
对于6楼
需要用代码执行逻辑删除人员的动作。

使用函数BizObject可以删除指定的组织单元对象。

函数声明：procedure DeleteBizObject(AURL:string; Options:TDeleteFileOptions);
命名空间：Business.Model.BizSys
所属对象（类）：BizSystem
函数作用：删除指定的组织单元对象（逻辑删除）

参数说明：
AOrgURLs：组织单元的URL；
Options：设置成TDeleteFileOption.dfDestroy 即可。

例如：DeleteObject(' Org:\ROOT\YGJT.OGN\CGB.DPT\CGJL.PTM\LG.psm ',
[TDeleteFileOption.dfDestroy]);

如果最后一个参数为空，则删除到回收站
如果为 [TDeleteFileOption.dfDestroy],则是彻底删除

提示： TDeleteFileOption类的命名空间为Business.System

wfox · 发表于 2008-1-9 15:35:50

争对以上所述调用函数建立人员,CREATEUNIT(),但是同时会存在一个问题,比如说我在自己做的功能中往人员表中填加了一条记录,而在CREATEUNIT时应该也有同样的动作在人员表中建一条记录,此时就会出现重复现象!

zfang · 发表于 2008-1-9 16:11:09

那你就别调用CREATEUNIT()这个函数来建立人员了！
你说的这个人员表是自己的还是系统数据库中的那个人员表？

wfox · 发表于 2008-1-9 16:29:44

那你CREATEUNIT()不能够建立起所有的字段,比如说人员表中的职称什么的,现在需要的是这样的效果:在自己建立的功能中填加一条记录后,才去组织机构设计器中分配人员成员!

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