【结帖】代码执行流转到后续环节**

欧诺万德

如图

欧诺万德

上图画红圈的部分，我想实现当工单负责人不等于当前操作员时，弹出流转框走下一环节，当等于当前操作员时，直接结束，不用再弹出流转框了

欧诺万德

刚才描述的不清楚，应该是
1。当工单负责人不等于当前操作员时，直接流转到工单负责人处，不弹出流转框
2。当工单负责人等于当前操作员，直接结束，不用再弹出流转框了

欧诺万德

附加一问题
我想取TaskMessage的状态怎么取
FEventDataSet.FieldByName('FTASKMESSAGESTUAS').AsString
                :=FlowBroker.FlowControl.CurrentTask.TaskMessages.Items[0].State.ToString;
上面语句会报错

lixy

4楼必须自己做转换函数，比如：
function TMainForm.StateToString(AState:TTaskMessageState):string;
begin
//(tmsSend, tmsReceived, tmsProcessing, tmsWaiting, tmsWaited, tmsFinished, tmsCanceled, tmsAborted, tmsReturned, tmsTransmited);

  result:='99';
  case  AState of
    TTaskMessageState.tmsSend:result:='0';
    TTaskMessageState.tmsReceived:result:='1';
    TTaskMessageState.tmsProcessing:result:='2';
    TTaskMessageState.tmsWaiting:result:='3';
    TTaskMessageState.tmsWaited:result:='4';
    TTaskMessageState.tmsFinished:result:='5';
    TTaskMessageState.tmsCanceled:result:='6';
    TTaskMessageState.tmsAborted:result:='7';
    TTaskMessageState.tmsReturned:result:='8';
    TTaskMessageState.tmsTransmited:result:='9';
  end;
end;

zfang

对于流转可以参考
http://bbs.justep.com/forum.php? ... 2%EB%2A%C1%F7%D7%AA

欧诺万德

Static procedure AcceptUserModify(Command: TFlowOutCommand;ANextProcUnit:string);
var
  lFlowTask:TFlowTask;
begin
  if  Command.AllowFlowTasks.Count <= 0 then
       Command.UserConfirm:=False
  else
  begin
    lFlowTask := Command.FlowTasks.FindFlowTask(ANextProcUnit);
    if lFlowTask <> nil then
    begin
      Command.UserConfirm:= lFlowTask.Executors.Count<>1;
    end;
  end;
end;

这个方法怎么使用，我应该在什么时候调用

atiger

BeforeFlowOut或者OnCreateFlowoutFlowTasks事件上

欧诺万德

还有一个问题没解决，就是1。当工单负责人不等于当前操作员时，直接流转到工单负责人处，不弹出流转框，如何指定流转到工单负责人处

atiger

参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=1207