【结贴】再来请教下~

毁灭代码

s:=DataSetJYYB.FieldByName('ZYKS').AsString;  //部门

Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(OrgChildren(OrgKey('SPB', '', ''), OrgCondition('*.PSM', '', ''), True, False),ComboBox1.Items);

//SPB:食品部

假如现在S查出是行政部 那我如何让它自动变成像SPB一样变成显示部门ID?

也就是知道部门的名称,怎么把名称换成部门ID   ??

shangxy

OrgCondition('*.Dpt', :displayname='部门1', '')

毁灭代码

不懂怎么使用~
跟查找部门全部人员的方法一样吗?
Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(OrgChildren(OrgKey('SPB', '', ''), OrgCondition('*.PSM', '', ''), True, False),ComboBox1.Items);

shangxy

对，把2楼的那个表达式放到这里，就会取出来部门的url了，有了url就可以取到部门ID了
Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr

毁灭代码

是这样吗?
Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(OrgCondition('*.Dpt', :displayname='部门1', ''), Memo1.lines);

shangxy

GetBizURLsByOrgExpr第一个参数是一个字符串，第二个参数是一个TStrings类型
Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr('OrgCondition(''*.Dpt'', :displayname=''部门1'', '''')', Memo1.lines);

毁灭代码

恩~可以了
但没达到我要的效果~
我的需求是
首先获取部门名称 然后通过部门名称查询部门ID 再根据部门ID查出该部门的所有员工
我现在写的代码是这样

procedure TRYFP.showp();//筛选部门的全部人员
var
  lOrgUnit :TOrgUnit;
  lBizUrl :TBizURl;
  s:string;
begin
  DataSetRYB.Open;
  s:=DataSetRYB.FieldByName('ZYKS').AsString;

  Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr('OrgCondition(''*.Dpt'', :displayname='''+s+''', '''')', Memo1.lines);//生成获取部门ID的路径
  lBizUrl :=TBizUrl.Create;
  try
      lBizUrl.URL :=Memo1.Text;
      lOrgUnit :=org.OrgSys.OrgSystem.GetUnit(lBizURL);//获取部门ID
      Dialogs.ShowMessage(lOrgUnit.DisPlayName);
  finally
    lBizUrl.Free;
  end;

  Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(OrgChildren(OrgKey('lOrgUnit.DisPlayName', '', ''), OrgCondition('*.PSM', '', ''), True, False),ComboBox1.Items);//获取部门的全部人员
end;

shangxy

Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(OrgChildren(OrgKey('lOrgUnit.DisPlayName', '', ''), OrgCondition('*.PSM', '', ''), True, False),ComboBox1.Items);//获取部门的全部人员
里面的：
OrgKey('lOrgUnit.DisPlayName', '', '')第一个参数是部门id，不是显示名称。

毁灭代码

不好意思~
今天一直忙着做其他~没在研究这个问题
现在我按你说的  但现在编译不了~说是转换文件名失败
现在脑筋短路了~希望不要谦我笨哈~
我把代码贴出来  麻烦你再帮我看看~十分感谢


procedure TRWFP.showp();//筛选部门的全部人员
var
  lOrgUnit :TOrgUnit;
  lBizUrl :TBizURl;
  i:integer;
  s:string;
begin
  DataSetJYDB.Open;
  s:=DataSetJYDB.FieldByName('ZYKS').AsString;
  Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr('OrgCondition(''*.Dpt'', :displayname='''+s+''', '''')', Memo1.lines);//生成获取部门ID的路径

  lBizUrl :=TBizUrl.Create;
  try
      lBizUrl.URL :=Memo1.Text;
      lOrgUnit :=org.OrgSys.OrgSystem.GetUnit(lBizURL);//获取部门ID  //提示这行出错
      Dialogs.ShowMessage(lOrgUnit.DisPlayName);
  finally
    lBizUrl.Free;
  end;
  Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(OrgChildren(OrgKey('lOrgUnit', '', ''), OrgCondition('*.PSM', '', ''), True, False),ComboBox2.Items);//获取部门的全部人员

end;

jiahaiming

错误代码停在哪里？
有SPS.dpt这个部门吗？