【结贴】求助：单点登录后流程无法启动！**

noahark

support,您好！

按照你们的指点，目前已经实现了单点登录进入功能界面，且可以通过参数来进行数据过滤；但是无法启动功能所在的流程！请支援！谢谢！！！
报错信息如附件所示！谢谢！！！！！

noahark

截图2

zfang

楼主，这个问题你这样处理一下
你再这个功能中，在通过runfunc的方式运行流程中的功能（可以把功能窗体嵌入到该功能中的某个容器中，比如panel）。其实就是通过一个功能调度一下，否则通过你那种方式直接流转是不行的，因为流程环境没有，所以报错。

zfang

参考代码
      lFunc := SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context.Parent, '', SUrl, '', nil, False);
      lFunc.MainForm.Parent := Panel;

zfang

注意，这里的lfunc对象的释放（否则可能多次调用这段代码的时候会有问题）
{lFunc1 = 4楼的lFunc}
  if lFunc1<>nil then
  begin
    if lFunc1.terminateevent.count>0 then                                                
    SystemCore.TSystemCore.FuncManager.TerminateFunc(lFunc1, False);
    lfunc1.free;
    lfunc1:=nil;
  end;

zfang

流程数据过滤参考
  if FlowBroker.FlowControl.Flow.ID <> '' then
  begin
    DataSetBrokerHTPSB.DataSet.Filtered := False;
    DataSetBrokerHTPSB.DataSet.Filter := ' BH = '''+FlowBroker.FlowControl.Flow.ID+''' ';
    DataSetBrokerHTPSB.DataSet.Filtered := True;
  end
  else
  begin
    lParam := SystemUTILS.TContextUtils.GetParam(Self.Context,
          'Biz:\XMGL\DICT\YWCSQJZ.ParamGroup', 'HTPSBH');

lixy

结贴。现场支持了。