procedure TWPCGSQFORM.DataNavigatorAfterAction(Sender: TObject);
begin
(BizToolBar1.ToolBarModule as TFLOWBAR).actFlowTransmit.Execute;
end;
procedure TWPCGSQFORM.FlowBroker1BeforeFlowTransmit(Sender: TObject; Command: TFlowTransmitCommand);
var
FlowTransmitRule:TFlowTransmitRule;
a:TExecuteRule;
begin
if FlowBroker1.FlowControl.CurrentProcUnit.ID = 'WPCGWCQRFUNC' then
begin
FlowTransmitRule := Command.FlowControl.GetFlowTransmitRule(Command.FlowControl.CurrentProcUnit);
//下面注释的两行怎么没有起作用?????????????
// a:=Command.FlowControl.GetExecuteRule(Command.FlowControl.CurrentProcUnit);
// a.TaskCooperation.AssignMode:=ttaskAssignMode.amSingleness;