【搞定】如何代码修改岗位、人员的ID、名称？**

Rambol

如何代码修改岗位、人员的ID、名称？

lisb

procedure TMainForm.Button2Click(Sender: TObject);
var
  lOrgUnit : TOrgUnit;
  lBizUrl: TBizUrl;
begin
  FSMNGR.OrgSystemManager.UseLocalCache := False;

  lBizUrl := TBizUrl.Create;
  try
    try
      lBizUrl.URL := 'Org:\POSITION\WY.ptn';
      lOrgUnit := Org.OrgSys.OrgSystem.FindUnit(lBizUrl);
      lOrgUnit.DisplayName := Edit1.text;
      Org.OrgSys.OrgSystem.SaveUnit(lOrgUnit);
      jsDialogs.showmsg('修改成功', '返回信息');
    except
      jsDialogs.showerror('出错', '出错了');
    end;
  finally
    lBizUrl.Free;
  end;
end;

Rambol

不行嘛，报错呀

lisb

参考
http://bbs.justep.com/forum.php?mod=viewthread&tid=15918

jiahaiminghr

楼主，问题搞定了吗？

Rambol

OK,结贴吧，非常感谢lisb！！！