【结贴】流程转发**

aboy · 发表于 2009-1-8 10:59:55

以前的版本(包括 3002)
procedure TWPCGSQFORM.FlowBroker1BeforeFlowTransmit(Sender: TObject; Command: TFlowTransmitCommand);
var
  FlowTransmitRule:TFlowTransmitRule;
begin
  if FlowBroker1.FlowControl.CurrentProcUnit.ID = 'WPCGWCQRFUNC' then
  begin
FlowTransmitRule := Command.FlowControl.GetFlowTransmitRule(Command.FlowControl.CurrentProcUnit);
FlowTransmitRule.ExecutorRangeEx.Amount:=ttaskexecutorAmount.teaMulti;
FlowTransmitRule.ExecutorRangeEx.DefaultExecutorExpression.DesignText := OperatorRange;
FlowTransmitRule.ExecutorRangeEx.LimitExecutorExpression.DesignText := OperatorRange;
  end;
end;

换成3102版后
执行人得不到了(为空)

zfang · 发表于 2009-1-8 11:45:49

楼主，请稍等。

zfang · 发表于 2009-1-8 13:10:03

楼主，OperatorRange你设置的是什么？
截个图看看。

aboy · 发表于 2009-1-8 13:34:27

OperatorRange := 'OrgKey('''+DeptId+''','''+PosId+''','''+OperatorId+ ''')';

用 (BizToolBar1.ToolBarModule as TFLOWBAR).actFlowTransmit.Execute; 触发转发

lixy · 发表于 2009-1-8 13:51:53

最初由 aboy 发布
[B]OperatorRange := 'OrgKey('''+DeptId+''','''+PosId+''','''+OperatorId+ ''')';

用 (BizToolBar1.ToolBarModule as TFLOWBAR).actFlowTransmit.Execute; 触发转发 [/B]

如果是因为上面的代码在1楼代码前没有触发，那就换一个触发这个事件。

aboy · 发表于 2009-1-8 13:58:20

全都触发了也运行了1楼的事件,就是在后面的转发窗体上没有执行人 (3102)

在3002上运行就有

lixy · 发表于 2009-1-8 14:49:02

lFlowTask := Command.FlowTasks.FindFlowTask(ANextProcUnit);
lFlowTask.ReLoadAllowExecutors;
lFlowTask.ReLoadExecutors;
后面加上这个试试。这个是让公式重新计算的代码

zfang · 发表于 2009-1-8 15:13:51

楼主，我在3102中按1楼的代码测试了一下，转发后的执行者是没有问题的。
你调试一下，是否执行者给的不对？

aboy · 发表于 2009-1-8 16:27:06

我再做个新的功能测试下,明天给你反馈,
这几天太忙了,!!! 不过还是要说声谢谢!

zfang · 发表于 2009-1-8 17:05:07

好的，客气了。
等你反馈。（3天一个系统，那当然忙死了）

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