[请求]流转，回退，终止代码如何编写

zykj

Var
  AFlowUrl:string;
  ADept:string; ARole:string;
  APerson:string;
  AStartProc:string;
  AFlowID:string;
  ASubject:string;
  ADescription:string;
  lContextCurrent: TContextCurrent;
   Quest : Integer ;
begin
         Quest := JSDialogs.QuestionBox('获取流程轨迹失败前提下进行此操作,确认进行重发流程操作吗？' ,'提示',2);
         if Quest = 6 then
         begin
            lContextCurrent := TContextCurrent.Create(Self.Context);
            try
              ADept := lContextCurrent.Dept.ID;
              APerson := lContextCurrent.Operator.ID;
              ARole := lContextCurrent.PositionMember.ID;
            finally
              lContextCurrent.Free;
            end;
            AFlowUrl :='Biz:\DMISXT\ZDH_CZSBJXQXSBLCT.Proc'; //Biz:\DMISXT\SQTB.FUNC
            //ADept :='FJPT_SLDJZZ';
            //ARole := 'FJPT_ZDHZZ' ;
            //APerson := 'PT_DDS_CXY' ;
            AStartProc :='ZDHJXSQTX';
            AFlowID:=DataSetBroker1.DataSet.FieldByName('Inst_Id').AsString;
            ASubject:='厂站自动化设备检修、缺陷上报流程';
            ADescription:='申请填写';
            UserStartFlow(AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription);
            Jsdialogs.showmsg('重发流程成功!','提示');
         end;
         if Quest = 2 then
            SysUtils.Abort;
end;
以上为流程重发的代码，请问流程流转，回退，终止代码如何编写？谢谢

zykj

没人处理？

zykj

没人处理？

huangyue

是实现单个的流转、回退、终止直接调用action就可以了
类似http://bbs.justep.com/forum.php?mod=viewthread&tid=22501

zykj

我的意思是 代码流转至某一环节？ 如：启动---申请---审核---审批--归档--结束

我想用代码实现 申请直接流转至归档

业务需求复杂，要这样的功能。。

zykj

没人处理？

起步咋了？？？？？？？？

huangyue

填写完申请之后 lFlowControl.Flowout('归档'l) 这样不能直接流转到“归档”？

jjh

不能这样。只能在流程图上画一个分支。