【搞定】[小问题]组织机构编码维护的问题！(感谢龚明)

龚明

unit CustomOrgDsgnForm;

interface

uses
  Business.System, Business.Forms, Business.Model, Business.Model.Org;

type
  TCustomOrgDsgnForm = class(SYSORGANDESIGNFORM.TBaseOrgDsgnForm)
    procedure actNewOrganExecute(Sender: TObject);
    procedure actNewDeptExecute(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
   { 自定义新建组织单元 }
    function CustomNewOrgUnit(const Parent: TBizURL; const AKind: TOrgUnitKind): TOrgUnit;
  end;

implementation


function TCustomOrgDsgnForm.CustomNewOrgUnit(const Parent: TBizURL;
  const AKind: TOrgUnitKind): TOrgUnit;
var
  lID, lDisplayName: string;
begin
  Result := nil;

  {!!! 在此对 lID 和 lDisplayName 进行赋值，赋值为你经过计算加 1 后的ID，相加
    计算的代码我不写，你自己补写，当是机构和部门时我暂且分别赋值为 001 和 中国
    总公司、 001001 和 XXX部门 }
  case AKind of
    TBizObjectKind.boOrgan:
      begin
        lID := '001';
        lDisplayName := '中国总公司';
      end;
    TBizObjectKind.boDept:
      begin
        lID := '001001';
        lDisplayName := 'XXX部门';
      end;
  end;

  if ShowInputIDNameDialog(AKind, Parent, lID, lDisplayName) then
    Result := Org.OrgSys.OrgSystem.CreateUnit(Parent, lID, AKind, lDisplayName);
end;


procedure TCustomOrgDsgnForm.actNewOrganExecute(Sender: TObject);
begin
  {不调用前代的方法，完全自己做。
  Inherited; }
  CustomNewOrgUnit(SelectedBizNode.BizURL, TBizObjectKind.boOrgan);
end;

procedure TCustomOrgDsgnForm.actNewDeptExecute(Sender: TObject);
begin
  {不调用前代的方法，完全自己做。
  Inherited; }
  CustomNewOrgUnit(SelectedBizNode.BizURL, TBizObjectKind.boDept);
end;

end.

枣庄矿务局

谢谢!

枣庄矿务局

unit CustomOrgDsgnForm;

interface

uses
  Business.System, Business.Forms, Business.Model, Business.Model.Org;

type
  TCustomOrgDsgnForm = class(SYSORGANDESIGNFORM.TBaseOrgDsgnForm)
    procedure actNewOrganExecute(Sender: TObject);
    procedure actNewDeptExecute(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
   { 自定义新建组织单元 }
    function CustomNewOrgUnit(const Parent: TBizURL; const AKind: TOrgUnitKind): TOrgUnit;
  end;

implementation


function TCustomOrgDsgnForm.CustomNewOrgUnit(const Parent: TBizURL;
  const AKind: TOrgUnitKind): TOrgUnit;
var
  lID, lDisplayName: string;
begin
  Result := nil;
//    取子部门是这样的吗？   

  lOrgUnit := Org.OrgSys.OrgSystem.GetUnit(Parent);
  lSubordinations:=TOrgSubordinationItems.Create;
  lSubordinations.Assign(lOrgUnit.Module.Subordinations);

         for i:=0 to lSubordinations.Count-1 do
          begin
            lSubItem := TOrgSubordinationItem(lSubordinations.Items);
            if lMax<SysUtils.StrToInt(lSubItem.DeptID.Substring(0,lSubItem.DeptID.Length-3)) then
               lMax:=SysUtils.StrToInt(lSubItem.DeptID.Substring(0,lSubItem.DeptID.Length-3));
          end;
//为什么每次lMax都是0呢？是不是写错了


  {!!! 在此对 lID 和 lDisplayName 进行赋值，赋值为你经过计算加 1 后的ID，相加
    计算的代码我不写，你自己补写，当是机构和部门时我暂且分别赋值为 001 和 中国
    总公司、 001001 和 XXX部门 }
  case AKind of
    TBizObjectKind.boOrgan:
      begin
        lID := '001';
        lDisplayName := '中国总公司';
      end;
    TBizObjectKind.boDept:
      begin
        lID := '001001';
        lDisplayName := 'XXX部门';
      end;
  end;

  if ShowInputIDNameDialog(AKind, Parent, lID, lDisplayName) then
    Result := Org.OrgSys.OrgSystem.CreateUnit(Parent, lID, AKind, lDisplayName);
end;


procedure TCustomOrgDsgnForm.actNewOrganExecute(Sender: TObject);
begin
  {不调用前代的方法，完全自己做。
  Inherited; }
  CustomNewOrgUnit(SelectedBizNode.BizURL, TBizObjectKind.boOrgan);
end;

procedure TCustomOrgDsgnForm.actNewDeptExecute(Sender: TObject);
begin
  {不调用前代的方法，完全自己做。
  Inherited; }
  CustomNewOrgUnit(SelectedBizNode.BizURL, TBizObjectKind.boDept);
end;

end.

龚明

GetAllSubordination方法是用来取管理的下属的，要设置了管理权限以后才取得到。要取子部门，需要调用文件系统的搜索方法搜索当前文件下的子文件。稍后我传一个例子上来......

龚明

先上传一篇组织模型相关类的文章供参考。

枣庄矿务局

已经下载！谢谢

龚明

取子部门的参考代码如下：

function TCustomOrgDsgnForm.CustomNewOrgUnit(const Parent: TBizURL;
  const AKind: TOrgUnitKind): TOrgUnit;
var
  I: Integer;
  lID, lDisplayName: string;
  lSearchPath, lMathFileName: string;
  lFileList: TStringList;
  lSearchParam: TSearchFileParam;
  lDeptFileName: string;
begin
  Result := nil;

  { !!! 取子部门 }
  lFileList := TStringList.Create;
  try
    lSearchPath := FileSys.FileUtils.AddPathSeparator(Parent.FileName);
    lMathFileName := '*' + BizObjConsts.cDeptExt;
    lSearchParam := FileSys.SearchFileParam(lMathFileName, False);
    { 调用文件系统接口搜索子部门 }
    FileSys.FileSystem.SearchFile(lSearchPath, lSearchParam, lFileList);
    for I := 0 to lFileList.Count - 1 do
    begin
      lDeptFileName := lFileList[I];
      {
      ...
      !!! 在此计算部门编号。lDeptFileName 就是子部门的文件名。
      }
    end;
  finally
    lFileList.Free;
  end;



  {!!! 在此对 lID 和 lDisplayName 进行赋值，赋值为你经过计算加 1 后的ID，相加
    计算的代码我不写，你自己补写，当是机构和部门时我暂且分别赋值为 001 和 中国
    总公司、 001001 和 XXX部门 }
  case AKind of
    TBizObjectKind.boOrgan:
      begin
        lID := '001';
        lDisplayName := '中国总公司';
      end;
    TBizObjectKind.boDept:
      begin
        lID := '001001';
        lDisplayName := 'XXX部门';
      end;
  end;

  if ShowInputIDNameDialog(AKind, Parent, lID, lDisplayName) then
    Result := Org.OrgSys.OrgSystem.CreateUnit(Parent, lID, AKind, lDisplayName);
end;

枣庄矿务局

lFileList.Count - 1
怎么每次都是0  还有搜索的是*.dpt  那么搜索*.ogn 怎么处理呢？

用这个吧 BizObjConsts.cOrganExt

返回的lDeptFileName 是有扩展的吗？ 是以下的那种

Org:\ROOT\002.OGN\002001.ogn

002001.ogn

龚明

要搜索机构，将
   lMathFileName := '*' + BizObjConsts.cDeptExt;
换成
   lMathFileName := '*' + BizObjConsts.cOrganExt;
即可。