【搞定】将人员信息添加至tperson表**

ccseasy

插入人员需要调用组织机构的什么方法？
帮忙给下调用的写法

alang

不是刚给过例子吗？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
procedure TPersonInfoInfo.DataSetsdsDetailBeforeApplyUpdates(Sender: TObject;
  var OwnerData: object);
var
  lDelta: TDeltaDataSet;
  lPersonID, lFileName, lDisplayName: string;
  lDeptURL, lPositionID: string;
begin
  Inherited;
  lDelta := TDeltaDataSet.Create(DataSetsdsDetail);
  try
    while not lDelta.Eof do
    begin
      case lDelta.UpdateKind of
        { 新增 }
        TUpdateKind.ukInsert:
        begin
          lPersonID := DataSetsdsDetail.FieldByName('PersonID').AsString;
          lDisplayName := DataSetsdsDetail.FieldByName('PersonName').AsString;
          lDeptURL := DataSetsdsDetail.FieldByName('DeptID').AsString;
          lPositionID := DataSetsdsDetail.FieldByName('PositionID').AsString;
          { 提交前需要Create一个Person，并按照部门和岗位分配 }
          CreatePersonAndAllocate(lPersonID, lDisplayName, lDeptURL, lPositionID);
        end;
        { 修改 }
        TUpdateKind.ukModify:
        begin
          { 判断如果人员姓名修改，需要调对应的方法修改组织机构人员姓名 }
          if lDelta.FieldModified(lDelta.FieldByName('PersonName')) then
          begin
            lPersonID := DataSetsdsDetail.FieldByName('PersonID').AsString;
            lDisplayName := Variants.VarToStr(lDelta.FieldByName('PersonName').NewValue);
            lFileName := Org.OrgSys.OrgSystem.FindPerson(lPersonID).BizURL.FileName;
            FileSys.FileSystem.FileSetDisplayName(lFileName, lDisplayName);
          end;
        end;
        { 删除 }
        TUpdateKind.ukDelete:
        begin
          { 不允许删除 }
        end;
      end;
      lDelta.NextStatus;
    end;
  finally
    lDelta.Free;
  end;
end;

alang

procedure TPersonInfoInfo.CreatePersonAndAllocate(APersonID, APersonDisplayName,
  ADeptURL, APositionID: string);
var
  lDeptURL: string;
  lDeptBizURL, lPositionBizURL: TBizURL;
  lPerson: TPerson;
  lPositionMember: TOrgUnit;
begin
  { 存储时候没有'Org:', 对象使用时候都有前缀名 }
  lDeptURL := FileSys.cOrgFilePrefix + ADeptURL;

  lDeptBizURL := TBizURL.Create;
  lPositionBizURL := TBizURL.Create;
  try
    lDeptBizURL.URL := lDeptURL;
    lPositionBizURL:= Org.OrgSys.OrgSystem.FindPosition(APositionID).BizURL;

    lPerson := Org.OrgSys.OrgSystem.CreatePerson(lDeptBizURL, APersonID, APersonDisplayName);

    lPositionMember := GetPositionMember(lDeptBizURL, APositionID);
    { 如果指定岗位在指定部门下还没有，需要先分配岗位成员 }
    if lPositionMember = nil then
      lPositionMember := Org.OrgSys.OrgSystem.AssignPosition(lDeptBizURL, lPositionBizURL);
    Org.OrgSys.OrgSystem.AssignPerson(lPositionMember.BizURL, lPerson.BizURL);
  finally
    lPositionBizURL.Free;
    lDeptBizURL.Free;
  end;
end;

ccseasy

CreatePersonAndAllocate('cj','jacky','Org:\ROOT\53SMYZGS.OGN\XTXTKFB.dpt',
                              'Org:\ROOT\53SMYZGS.OGN\XTXTKFB.DPT\XTXTKF.ptm');
这样调用可以吗？？？

alang

不对,应该是
CreatePersonAndAllocate('cj','jacky','Org:\ROOT\53SMYZGS.OGN\XTXTKFB.dpt',
                              'XTXTKF');

ccseasy

问题到是搞定了，能帮忙说说思路吗？
CreatePersonAndAllocate('cj','jacky','Org:\ROOT\53SMYZGS.OGN\XTXTKFB.dpt',
                              'XTXTKF');
为什么用‘XTXTKF’？？？

alang

看
lPositionMember := GetPositionMember(lDeptBizURL, APositionID);
这里给出部门url,和岗位id来定位岗位成员的,因此这个参数就是id了

ccseasy

好的，谢谢了，可以结贴了。