【搞定】新增人员报错**

jxsong

新增人员时弹出提示框
在操作文件：Org:\Person\21750.dfd\0016.psn的时候出现异常，操作代码：10，异常信息：无效的命令：TCreateFileAction[10]

前几天重装的server，当时测过没有这个错误，可是现在又出现了，报得到底是什么错误

jiahaiminghr

1、是使用studio还是business出的错误

2、提供详细错误信息（Ctrl+Alt+D）

3、提供错误截图

jxsong

1。是运行ie客户端或者business客户端都有这个问题，studio直接运行不报错

2。在ie界面 ctl+alt + D 没有反应


原来是没有错误的，我们重装server前发现了这个错误，重装后我试了，没有这个错误了，现在又出现了

jiahaiminghr

business客户端 ctl+alt + D 应该有内容吧。

jxsong

我试过了，没有内容
我是2603的，和版本有关系吗

jiahaiminghr

目前还不清楚是否和版本有关。

你这个功能是把你们的人事系统和组织机构结合起来了吧？
最好能调试一下，看能否跟踪定位到错误语句。

jxsong

是结合起来了

现在就是不好调试，因为studio运行时不报错的
应该是
lDeptURL := FileSys.cOrgFilePrefix + ADeptURL;

  lDeptBizURL := TBizURL.Create;

  try
    lDeptBizURL.URL := lDeptURL;

    DataSetuse.open;
    DataSetuse.Filter := 'FGUID = '''+ APositionID+'''';
    DataSetuse.Filtered := true;

    APositionID := DataSetuse.FieldByName('FID').asString;

    lPositionBizURL:= Org.OrgSys.OrgSystem.FindPosition(APositionID).BizURL;

    [U]lPerson := Org.OrgSys.OrgSystem.CreatePerson(lDeptBizURL, APersonID, APersonDisplayName);[/U]
[U]//从错误信息来看，应该是这句报错，这是系统提供的函数，我没有办法继续了，另外，要注意，刚装完server时是不报错的，过了一段时间才开始报错，所以也不应该是简单的代码错误，似乎是系统突然缺了什么东西，我们上次发过贴子，也是突然的错误，才重装的server[/U]
[U]我就是想让您这边看一下这个错误，这个缺少的函数TCreateAction到底是什么[/U]
    lPositionMember := GetPositionMember(lDeptBizURL, APositionID);
    { 如果指定岗位在指定部门下还没有，需要先分配岗位成员 }
    if lPositionMember = nil then
      lPositionMember := Org.OrgSys.OrgSystem.AssignPosition(lDeptBizURL, lPositionBizURL);
    Org.OrgSys.OrgSystem.AssignPerson(lPositionMember.BizURL, lPerson.BizURL);
  finally

    lDeptBizURL.Free;
   
  end;

jiahaiminghr

楼主，怀疑和组织机构缓存有关

1、你先在business中运行“\系统空间\系统功能\组织机构\组织机构设计器”功能，看在新增人员时是否报错

2、检查“\系统空间\系统功能\组织机构\组织机构设计器”功能的doRun方法：
procedure TORGSETTING.doRun;
begin
  FSMNGR.OrgSystemManager.UseLocalCache := False;
  inherited;
end;

是否有这一句：FSMNGR.OrgSystemManager.UseLocalCache := False;

jxsong

1。我使用组织机构设计器没有报错，可以新增人员（我直接分配了功能  \系统空间\系统功能\组织机构\组织机构设计器 使用本功能测试的，我继承的设计器限制了不能新增人员）
2。确实有这一句，函数一模一样

jiahaiminghr

那你把这一句FSMNGR.OrgSystemManager.UseLocalCache := False;
加到你出错的功能的doRun方法中试试看。

注：
business中运行的组织机构功能目前还有问题，即：
运行时，需要关闭组织机构缓存，调整完组织机构后，还需要重新启动business。
所以怀疑你的错误和缓存有关系。