【结贴】新闻公告 获取组织机构很慢**

zfang

楼主，平台里的新闻公告发布里的那个选择发布范围是调用的这个：
业务模型\系统空间\用户界面基础\界面库\系统接口\选择组织单元对话框
不是你上面说的那个呀。

rzport_lq0

我的怎么调用的是 业务模型系统空间\公共资源组织机构\公共组织机构资源库组织机构选择搜索对话框
这个啊，我跟踪了很久，他一直在里面循环，速度很慢

rzport_lq0

这个问题给解决下啊！！！

zfang

请稍等，正在看。

zfang

楼主，你换种组织机构选择的方式看看：
修改【业务模型\业务系统\产品OA\信息发布\基类\信息发布】中，
注释掉function TISSUEBASICINFO.SelectRange: Boolean;方法的代码，用下面的代码替换。
需要引用资源：【业务模型\系统空间\系统运行库\系统核心库】
function TISSUEBASICINFO.SelectRange: Boolean;
var
  ASourceURLs, ASelectedURLs: TStrings;  //lSelectOrgURLs
  lSelectOrgURLs: TOrgURLs;
  lCanSelectKinds: TBizObjectKinds;
  i: integer;
begin
  if not RangeDataSet.Active then
    RangeDataSet.Open;
  ASourceURLs   := TStringList.Create;
  ASelectedURLs := TStringList.Create;
  lSelectOrgURLs := TOrgURLs.Create;
  try
    //TDataSetUtils.GetDataSetIDValues(RangeDataSet, 'FRANGEURL', ASourceURLs);
    ASourceURLs.Add('Org:\Root');
    lCanSelectKinds := [TBizObjectKind.boOrgan, TBizObjectKind.boDept, TBizObjectKind.boPositionMember, TBizObjectKind.boPersonMember,
                        TBizObjectKind.boWorkGroup, TBizObjectKind.boWorkGroupMember];
    {Result := TOrgSelectSearchDialog.StaticExecute(Context, ASourceURLs, TResultType.rtURLList,
              ASelectedURLs, nil, DoExpendProp, Graphics.clYellow, lCanSelectKinds, True);}
    Result := TSystemCore.SystemInterface.SelectOrgUnits(Context, '选择', nil, lSelectOrgURLs, False,
                                          [TOrgUnitKind.boPersonMember, TOrgUnitKind.boWorkGroupMember]);
    for i := 0 to lSelectOrgURLs.Count - 1 do
    begin
      ASelectedURLs.Add(lSelectOrgURLs.items.BizURL.URL);
    end;
    if Result then
    begin
      DoAddMemberToDataSet(ASelectedURLs);
      ChangeRangeText;
    end;
  finally
    ASourceURLs.Free;
    ASelectedURLs.Free;
    lSelectOrgURLs.Free;
  end;
end;

rzport_lq0

现在 可以调出 选择组织单元对话框了。但是选中组织机构以后 。只有全部分配这个按钮能用，并且点了全部分配后，程序就假死了。

zfang

楼主，你没弄错？
我这里是可以用分配的。（你们组织机构比较大的话，就不要用全部分配了，否则效率肯定低）

rzport_lq0

如果选择单个的人和公司是可以的。
关键是现在绝大部分文件需要全部分配！！分配全部速度太慢了

zfang

那能不能只分配到机构或者部门？

rzport_lq0

可以，最好是到部门