如何代码分配岗位

john

可以通过AssignPosition(ADept: TBizURL; APosition: TBizURL)将已知岗位分配到部门，成为岗位成员。

函数声明：function AssignPosition(ADept: TBizURL; APosition: TBizURL): TOrgUnit;;
命名空间：Org.OrgSys
所属对象（类）：OrgSystem
函数作用：将岗位分配到部门成为岗位成员
参数说明：
返回值：分配到部门后的岗位成员；
ADept：部门BizURL；
APosition：岗位BizURL。

例如，创建一个ID为“CSY”的岗位分配到ID为“CSB”的部门：

procedure TMainForm.btnAssignPositionClick(Sender: TObject);
var
  lDeptBizURL, lPositionBizURL: TBizURL;
begin
  lDeptBizURL := TBizURL.Create;
  lPositionBizURL := TBizURL.Create;
  try
    lDeptBizURL.URL := 'Org:\ROOT\YGJT.OGN\CSB.dpt';
    lPositionBizURL.URL := 'Org:\POSITION\CSY.ptn';
    OrgSystem.AssignPosition(lDeptBizURL, lPositionBizURL);
  finally
    lDeptBizURL.Free;
    lPositionBizURL.Free;
  end;
end;