【搞定】新闻公告－－限定发布范围**

jwei

procedure TNEWSPLACARDINFO.FIELD_BizTaskData_ESField03ButtonClick(Sender: TObject);
var
  lComplexOrgForm: TComplexOrgForm;
begin
  lComplexOrgForm := TComplexOrgForm.create(context);
  try
    if lComplexOrgForm.ShowModal = Business.Forms.Controls.mrOk then
    begin
      ForgUrlList.assign(lComplexOrgForm.CheckedSubordinationNodes);
      DataSetBizTaskData.Edit;
      DataSetBizTaskData.FieldByName('ESField03').asString := lComplexOrgForm.ResultText;
//      DataSetBizTaskData.post;
    end;
  finally
    lComplexOrgForm.free;
  end;
end;
系统现在是将组织机构全部给用户操作。
如何将发布范围限定到当前登录者部门及其以下部门，不要显示所有组织机构？？

lisb

业务模型\业务系统\办公自动化(OA)\公共资源\公共窗体\公共窗体\组织结构多选窗体

procedure TCOMPLEXORGFORM.BizFormShow(Sender: TObject);
var
  lContextCurrent: TContextCurrent;
  lOrgUnit: TOrgUnit;
  lBizNode: TBizNode;
  lBizURL: TBizURL;
begin
// 取当前登陆者机构
  lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
  try
    lOrgUnit := OrgSys.OrgSystem.GetUnit(lContextCurrent.Dept.ID, '', '');   //修改这句，改成lContextCurrent.Dept.ID
    lBizURL := lOrgUnit.BizURL;  // 取得机构的URL
    FCurOgnUrl := lBizURL.URL;
  finally
    lContextCurrent.Free;
  end;
  // 清除机构树
  cbtvDept.StartWithNodes.Clear;
  // 找出机构对应节点作为树根
  lBizNode := BizTree.BizTreeStructure.FindNodeByBizURL(lBizURL);
  if lBizNode <> nil then
     cbtvDept.StartWithNodes.AddObject(lBizNode.GUID, lBizNode);

  cbtvDept.ReloadTree;
end;

atiger

??

jwei

OK
可以结贴了
谢谢