【结】请问如何用代码得到某个功能的执行者呢？**

huixiangtao

请问如何用代码得到某个功能的执行者呢？
类似于
OrgSelect(OrgCondition('*.psm','',:OrgUnit.FuncRef = '\JUSTEPDEMOSYSTEM\fun_CPDG.Func')) 这样的东西，
因为这样是编译是会出错。
主要是,:OrgUnit.FuncRef = '\JUSTEPDEMOSYSTEM\fun_CPDG.Func')) 不会写
，为什么前面还有一个':'呢？
static function OrgCondition(AMatchFileName: string; AMatchAttribute: string; AMatchIndex: string): string

atiger

组织机构表达式在代码中调用，是通过 OrgSys.OrgSystem.GetBizURLsByOrgExpr 来调用的，具体参考http://bbs.justep.com/forum.php?mod=viewthread&tid=19552  4楼
或者
http://bbs.justep.com/forum.php?mod=viewthread&tid=20354  8楼
等等，可以在bbs上用“GetBizURLsByOrgExpr”关键字搜索

huixiangtao

Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(AExpr, ABizURLs);怎么用呢？

用它能找到某功能的执行者么？DAExpr写类似OrgCondition('*.psm','',:OrgUnit.FuncRef = '\JUSTEPDEMOSYSTEM\fun_CPDG.Func')) 的东西么？:OrgUnit.FuncRef 处编译会出错！ ABizURLs写什么呢？

huixiangtao

我是不是可以用GetProcUnitExecutorPosition来找到功能的执行者(岗位)？但是代码如何写呢？帮助里面没有找到，
我实际上想找出某功能的执行者，不过找流程图中某功能的执行的者也是可以的吧？

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=18212

huixiangtao

我有报警监控功能，功能中有代码如下
if  alarmType='1' then
             StartAlarmFlow1(alarmId);//启动报警处理１流程
procedure TMAINFORM.StartAlarmFlow1(AFlowIDPram:String);
var
   lContextCurrent: TContextCurrent;
AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription:String;
begin
  lContextCurrent := TContextCurrent.Create(Self.Context);
  ADept:='MSK';//这儿不能写死
  ARole:='KY';//这儿不能写死，我想通过代码得到处理流程中启动功能'BJCL1_NEW'，的执行人，那么这个用户登录就可以看到待办任务，请问如何写
  APerson:='ZengBo';//这儿不能写死，
  AFlowUrl:='Biz:\WGXTDEMO\BJCL1LC.Proc';//流程处理1
   ASubject:='代码启动报警处理1';
  ADescription:='代码启动报警处理1描述';
  AStartProc:='BJCL1_NEW';   //流程入口功能ID
  AFlowID:=AFlowIDPram;
     try
       UserStartFlow (AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription);
     finally
        lContextCurrent.Free;
     end;
end;

根据你的回复：我写成
ADept:='MSK';
  ARole:='KY';
  APerson:='ZengBo';//若可以得到,AOrgBizURLS,一会儿改
  Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(Org.OrgExpr.OrgSelect(OrgExpr.OrgCondition('','',:OrgUnit.FuncRef = 'Biz:\WGXTDEMO\BJCL1_new.Func')),AOrgBizURLs);
  jsDialogs.ShowMsg(AOrgBizURLs.Text,'org');
编译出错
[错误]Biz:\WGXTDEMO\WGXT_NEW\BJJKGN_NEW.FUNC.DIR\MainForm.Form.pas(80, 93): line 80: unexpected token: :
请问是如何写呢？或其它方法实现，
谢谢！

atiger

方法一，用SQL语句得到，参考如下
SELECT OS.FDISPLAYNAME FROM TORGSYSTEM OS, TORGINDEX OI WHERE OS.FKIND IN ( '.DPT', '.PTN','.PTM', '.PSM') AND OI.FGUID = OS.FGUID AND OI.FID = 'OrgUnit.FuncRef' and  OI.FVALUE = '\OPERATION\LCRKGN.Func'

其中
.DPT    显示分配到部门上
.PTN    显示分配到岗位上
.PTM   显示分配到岗位成员上
.PSM   显示分配到人员成员上

\OPERATION\LCRKGN.Func  是功能的BizURL，去掉“Biz:”

atiger

方法二、用组织机构表达式
参考
Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr('OrgChildren(OrgSelect(OrgCondition('''','''',:OrgUnit.FuncRef = ''\OPERATION\LCRKGN.Func'')),OrgCondition(''*.psm'', '''', ''''), True) or OrgSelect(OrgCondition(''*.psm'','''',:OrgUnit.FuncRef= ''\OPERATION\LCRKGN.Func''))',ABizURLs)

ABizURLs  返回的是一个结果列表
var
  ABizURLs:TStringlist;
  i : integer;
begin
  ABizURLs := TStringlist.Create;
  Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr('OrgChildren(OrgSelect(OrgCondition('''','''',:OrgUnit.FuncRef = ''\OPERATION\LCRKGN.Func'')),OrgCondition(''*.psm'', '''', ''''), True) or OrgSelect(OrgCondition(''*.psm'','''',:OrgUnit.FuncRef= ''\OPERATION\LCRKGN.Func''))',ABizURLs);
  for I := 0 to ABizURLs.Count - 1 do
  begin
    dialogs.ShowMessage(ABizURLs[I]);
  end;
end;

huixiangtao

procedure TMainForm.Button1Click(Sender: TObject);
var
   AOrgBizURLs:TStrings;
begin
  Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(Org.OrgExpr.OrgSelect(OrgExpr.OrgCondition('','','WGXTDEMOBJCL1_new.Func')),AOrgBizURLs);
  jsDialogs.ShowMsg(AOrgBizURLs.Text,'org');
end;
但是运行时出错，如图，

atiger

GetBizURLsByOrgExpr  第一个参数是个String，看我写的，有单引号，
看我的代码
第二个参数是TStrings，定义为TStringlist，且需要创建，