【结】流程流转问题**

jianth2005

有个[请假申请]功能，是在主窗体上弹出来的，我用代码在流转事件写 FlowBroker1.FlowControl.FlowOut(nil);
但是弹出下面这些错误Access violation at address 0227AB6A in module 'CLRModel.bpl'. Read of address 0000006C
什么问题？

lixy

要初始化运行调试流程代码。

atiger

1、有个[请假申请]功能， 这个功能是流程中的功能吗？
2、是在主窗体上弹出来的，是怎么弹出来的，run功能还是ShowModal？ 这个主窗体所在的功能 是流程中的功能吗？
3、代码在流转事件写 FlowBroker1.FlowControl.FlowOut(nil);  这段代码写到哪个功能了？是[请假申请]功能？还是调用“[请假申请]功能”的那个功能？

jianth2005

1、有个[请假申请]功能， 这个功能是流程中的功能吗？
是
2、是在主窗体上弹出来的，是怎么弹出来的，run功能还是ShowModal？ 这个主窗体所在的功能 是流程中的功能吗？
ShowModal方式
3、代码在流转事件写 FlowBroker1.FlowControl.FlowOut(nil);  这段代码写到哪个功能了？是[请假申请]功能？还是调用“[请假申请]功能”的那个功能？
写在[请假申请]功能

jianth2005

图1是主窗体
弹出现在这个图2

atiger

请问出于啥原因要ShowModal方式弹出 [请假申请]功能 的主窗体，而不是run [请假申请]功能 这个功能呢？

jianth2005

run的时候是捏着主窗体弹出，风格跟前面的不统一，而且这种弹出方式不友好，子窗体没关闭时也可以返回主窗体再操作的。

jianth2005

ShowModal难道就不能代码流转？？

atiger

ShowModal 的是某个功能的主窗体，不是run功能，没有流程环境http://bbs.justep.com/forum.php?mod=viewthread&tid=15371

且施加在功能上的策略有的是不会起作用的，即失效。

jianth2005

procedure TQJSQZCT.UserStartFlow(AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription:string);
var
  lBizURL: TBizURL;
  lFlowValue: TFlowValue;
  lFlowControl: TFlowControl;
  lExecutor: TOrgURL;
begin
  lBizURL := TBizURL.Create;
  lFlowValue := TFlowValue.Create;
  lFlowControl := TFlowControl.Create(Self.Context);
  lExecutor := TOrgURL.Create(ADept, ARole, APerson);
  lBizURL.URL := AFlowUrl;
  try
   lFlowValue.IDs.Add(AFlowID);         //流程ID
   lFlowValue.Subject := ASubject;             //流程主题
   lFlowValue.Description := ADescription;        //流程描述
   lExecutor := TOrgURL.Create(ADept,ARole,APerson);  //传入发起者的部门、岗位、人员
   lFlowValue.StartupTo := lExecutor;
   lFlowControl.StartupFlow(lBizURL, AStartProc, lExecutor, lFlowValue);
    lFlowControl.FlowRunnerbyIndex[0].CurrentTask.SaveToDB;
  finally
    lFlowControl.Free;
    lFlowValue.Free;
    lBizURL.Free;
    lExecutor .Free;
  end;
end;
1.上面这个应该是流转的吧？
2.我在窗体上按上面写了
但是在BitBtn2Click流转事件调用它，self.UserStartFlow();
但是提示错误Not enough actual parameters，不知道它参数怎么写
3。AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription这些我要手动给它们赋值么？要在哪赋值？