【结帖】[新版]通知对话框

bfaomei

有通知对话框，对话框里面也有通知接受者，一切正常，也不报错，但是在点了通知对话框上的确定之后，这条通知并没有发出去，因为在发通知的人的提交任务里面没有这条通知，在通知接受者的待办任务里面也没有这条通知，在数据库的表里面也没有这条通知的记录，但是在FlowBroker1AfterNotify事件里面却可以得到这个通知接受者的ID，为什么会这样呢？要怎么处理呢？哪位碰到过？

lixy

通知规则的功能环节属性设置了没有呢？

bfaomei

设了，这个是我的通知代码         
Command.FlowTasks.Clear;
          Command.FlowTasks.Add;
          Command.FlowTasks.Items[0].FuncURL.URL:='Biz:\JXKH\KPI_NOTICE_FUN.FUNC';
          Command.FlowTasks.items[0].ExecutorMustBeFuncOwner:=false;
          Command.FlowTasks.items[0].ExecutorAmount:=TTaskExecutorAmount.teaMulti;
          Command.FlowTasks.Items[0].Subject:='上级评分通知1231231:';
          Command.FlowTasks.items[0].ExecutorRange:='OrgChildren(orgkey(''HRNQ'',''RLZYBZG'',''''), '''', False, False)';

lixy

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

bfaomei

我的目的是通过部门、岗位来找人员的id，或者是用orgchildren来得到这个岗位的人（用代码实现），我不能事先得到人员的id,

jiahaiming

楼主，为什么要执行这两句呢？
Command.FlowTasks.Clear;
Command.FlowTasks.Add;

你直接设置Command.FlowTasks.items[0].Executors不就可以了吗？

bfaomei

你不会是要我用Command.FlowTasks.items[0].Executors.Add('部门ID', '岗位ID', '人员ID');吧？？？？？？我要用执行者表达式来做，因为我得不到'人员ID'，而且用这个方法的话’人员ID’如果为空或者是表达式的，就会报错哦！！或者你可以告诉我怎么根据'部门ID', '岗位ID', 得到'人员ID'也行啊!

jiahaiming

哦，楼主可以用
NameSpace: Business.Model.Org    ClassDelcare: Business.Model.Org.TOrgSystem
--------------------------------------------------------------------------------
procedure GetBizURLsByOrgExpr(AExpr: string; ABizURLs: Business.System.TStrings);
来执行组织机构表达式，得到下属人员成员的Url，然后直接向Executors添加执行者url
NameSpace: Business.Model.Org
--------------------------------------------------------------------------------
TOrgURLs = class(Business.System.TObjectList)
public
  constructor create; overload;
  constructor create(AOwnsObjects: Boolean); overload;
  function Add(ABizURL: Business.Model.TBizURL): Longint; overload;
  function Add(AOrgURL: TOrgURL): Longint; overload;
  function Add(ADeptID: string; APositionID: string; APersonID: string): Longint; overload;
  procedure Assign(Source: TOrgURLs);
  property Items[Longint]: TOrgURL;
end;

bfaomei

IBizUrl:=TStringList.Create;
OrgSys.OrgSystem.GetBizURLsByOrgExpr('OrgChildren(orgkey(''HRNQ'',''RLZYBZG'',''''),'''' ,false,false)',IBizUrl);
Command.FlowTasks.Items[0].Executors.Add(IBizUrl);
IBizUrl.Free;这是我的代码，报错：组织节点[部门:, 岗位:, 人员:]不存在，怎么调试啊？

bfaomei

我的表达式：OrgChildren(orgkey('HRNQ','RLZYBZG',''),'' ,false,false)经过校验了的，没有问题