【搞定】如何让通知的默认执行着是自己**

ccseasy

如何让通知的默认执行着是自己，并且可以自己添加人员。

ccseasy

顶一下

ccseasy

没有人回答？？

Akon

楼主，可以参考一下下面这个帖子
http://bbs.justep.com/showthread.php?threadid=18672

ccseasy

是通知，这个代码加在那里？？？

alang

楼上给的不对，这里只能自己在代码中截获OnCreateNotifyFlowTasks事件了
缺省的是FlowTask.ExecutorXXX属性，
可选择的是FlowTask.AllowExecutorXXX属性，

ExecutorXXX可以是：
Executors  用OrgURL的列表
ExecutorRange 用组织机构表达式

例如：
以下是缺省是销售部的张三，可选择所有的人员成员
procedure TDMQXRWLC.ProcUnitZJHJCreateNotifyFlowTasks(Sender: TObject; Command: TFlowNotifyCommand);
begin
  Command.FlowTasks[0].AllowExecutorRange := 'orgcondition(''*.psm'', '''', '''')';
  Command.FlowTasks[0].ExecutorRange := 'OrgKey(''xsb'', ''xsy'', ''zs'')';
end;

alang

这里的代码跟OnCreateFlowOutFlowTasks类似

ccseasy

procedure TFWLC.GetPersonInfo();
var
  lContextCurrent: Business.Model.TContextCurrent;
begin
  lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
  try
    personid := lContextCurrent.Operator.ID;           //当前操作者ID
    posID       := lContextCurrent.PositionMember.ID;  //当前操作者岗位ID
    DeptID   := lContextCurrent.Dept.ID;               //当前操作者部门ID
  finally
    lContextCurrent.Free;
  end;

end;
出现这样的错误

ccseasy

alang快给帮忙看看。

ccseasy

顶啊