如何代码分配人员

john

可以通过AssignPerson(APositionMember: TBizURL; APerson: TBizURL)将人员分配到岗位成员，成为人员成员。

函数声明：function AssignPerson(APositionMember: TBizURL; APerson: TBizURL): TOrgUnit;
命名空间：Org.OrgSys
所属对象（类）：OrgSystem
函数作用：将人员分配到岗位成员成为人员成员

参数说明：
返回值：分配到岗位成员后的人员成员；
APositionMember：岗位成员BizURL；
APerson：人员BizURL。

例如，创建一个ID为“LIWEI”的人员分配到ID为“CSY”的岗位成员：

procedure TMainForm.btnAssignPersonClick(Sender: TObject);
var
  lPositionMemberBizURL, lPersonBizURL: TBizURL;
begin
  lPositionMemberBizURL := TBizURL.Create;
  lPersonBizURL := TBizURL.Create;
  try
    lPositionMemberBizURL.URL := 'Org:\ROOT\YGJT.OGN\CSB.DPT\CSY.ptm';
    lPersonBizURL.URL := 'Org:\PERSON\LIWEI.psn';
    OrgSystem.AssignPerson(lPositionMemberBizURL, lPersonBizURL);
  finally
    lPositionMemberBizURL.Free;
    lPersonBizURL.Free;
  end;
end;