【结】在CreateFlowOutFlowTasks中用代码修改执行者

zhjkill · 发表于 2008-7-10 16:20:31

procedure TCCBGSQDForm.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
  lFlowTask:TFlowTask;
  lRange:String;
  ANextProcUnit:string;
  AExecutorAmount:TTaskExecutorAmount;
begin
   lRange := '';
   lFlowTask := Command.FlowTasks.FindFlowTask(ANextProcUnit);

   lRange:='OrgKey(lContextCurrent.Dept.ID,lContextCurrent.PositionMember.ID,lContextCurrent.Operator.ID)';

   lFlowTask.AllowExecutorRange:=lRange;//运行到这里报错
   lFlowTask.ExecutorRange:=lRange;
end;
编译没问题

zhjkill · 发表于 2008-7-10 16:21:24

错误图片发错了

shangxy · 发表于 2008-7-10 16:27:40

ANextProcUnit这个是那个环节呢？

zhjkill · 发表于 2008-7-10 16:34:56

是下个审批环节

atiger · 发表于 2008-7-10 17:51:30

设置断点跟踪看看 lRange 这个值是啥

shangxy · 发表于 2008-7-10 19:25:02

ANextProcUnit不是下一个环节吧，你还没有对他赋值呢

zhjkill · 发表于 2008-7-11 08:09:40

那应该这么写，能来个例子吗

zhjkill · 发表于 2008-7-11 08:21:57

我是参考下面例子做的
http://bbs.justep.com/forum.php?mod=viewthread&tid=8652
ANextProcUnit里面没有赋值

atiger · 发表于 2008-7-11 08:55:54

8楼的连接就是例子哦，你没有看懂？

ANextProcUnit 就是下一个环节的ID用引号引起来就可以了，例如
lFlowTask := Command.FlowTasks.FindFlowTask('SPHJ');

zhjkill · 发表于 2008-7-11 09:03:08

谢谢atiger 就是这个问题结吧

		自动登录	找回密码
密码			立即注册