在ShowModal的窗体里如何走流程**

Coordinator

对阿 难道 用别的吗 只是每步的ID不同
都用的lFlowControl.StartupFlow阿

alang

流转应该用
TFlowControl.FlowOut

Coordinator

对阿 都是用 Startupflow 难道用别的吗？ 不知道啊

Coordinator

发错了 在流程的第二步就应该用 TFlowControl.FlowOut 了吗？具体的写法就是这个嘛？

alang

代码流转任务
1  FlowBroker.FlowControl.FlowOut(nil)
2  FlowAction1.Execute

关于标准流程动作FlowAction
在流程窗体上放置TActionList，增加流程动作TFlowAction
设置动作ID：流转、回退、转发、终止任务、中止流程

Coordinator

用了标准流程动作FlowAction 可以流转了 谢谢
但是还有个问题 就是接收人也会出现提交任务 是不是我的代码还是有问题啊 我发上来
请帮我看一下把

alang

那不对，应该是发送者有提交任务，接受者是待办任务

Coordinator

procedure TSHOWFORM.StartFlow(ProcFunc: String);
var
  lBizURL: TBizURL;
  lFlowValue: TFlowValue;
  lFlowControl: TFlowControl;
  lExecutor: TOrgURL;
  lList: TList;

  cPersonID: string;                                                            //当前操作者ID
  cPositionMemberID: string;                                                    //当前操作者岗位ID
  cDeptID: string;                                                              //当前操作者部门ID

  lContextCurrent: Business.Model.TContextCurrent;
begin
  lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
  cPersonID := lContextCurrent.Operator.ID;
  cPositionMemberID := lContextCurrent.PositionMember.ID;
  cDeptID := lContextCurrent.Dept.ID;
  lContextCurrent.Free;

  lList := TList.Create;
  lBizURL := TBizURL.Create;
  lFlowValue := TFlowValue.Create;
  lFlowControl := TFlowControl.Create(Self.Context);

  try
    lBizURL.URL := 'Biz:\SJZPXZXXTGLXXXT\PROC\JSFASHGL.Proc';                   //流程路径
    lFlowValue.IDs.Add(Business.System.JSCommon.CreateGUIDStr);                        //流程ID
    lFlowValue.Subject := FuncBroker1.Func.DisplayName;                                             //流程主题
    lFlowValue.Description := '';                                              //流程描述
    //lExecutor := TOrgURL.Create(cDeptID, cPositionMemberID, cPersonID);       //传入发起者的部门、岗位、人员
    lFlowValue.StartupTo := lExecutor;
    lFlowControl.StartupFlow(lBizURL, ProcFunc, lExecutor, lFlowValue);
  finally
    lFlowControl.Free;
    lFlowValue.Free;
    lBizURL.Free;
    lList.Free;
    lExecutor.Free;
  end;
end;

procedure TSHOWFORM.SB1_OKClick(Sender: TObject);                               //确定
var
  ProcFunc: String;                                                             //当前流程名称ID
begin
   StartFlow(ProcFunc);   
end;

请帮我看一下

alang

36楼不是说用Flowaction流转了吗？怎么还用启动流程实例的方法呢？

Coordinator

恩 好了 只需要在功能上重载就可以使用流程的标准动作了 是马？