【搞定】在ShowModal的窗体里如何走流程问题 二度询问**

zfang

正在看，等...

zfang

经过仔细研究，楼主的代码有问题啊！
运行方案审核管理这个功能的环境不对，还有切换的时候（就是没有进行流转操作的时候）需要先释放该功能才可以

Coordinator

运行方案审核管理环境怎么设置 ？

再流转之前释放 那不就报错了吗

zfang

流转当然就不用去释放了，问题是你说的是点开这个方案审核管理后，你不对该数据进行流转，然后去运行别的功能或者再打开这个方案审核管理，就不行了！所以针对这个，需要作调整，这样就可以了！！
另外，那个方案审核管理是启动了流程，而你是用一个功能调用另一个功能去启动流程，那你应该把这个流程的功能创建到岗位下而不是功能下（环境链）

zfang

楼主，问题解决了吗？

Coordinator

现在 改进了 是流转数据 就是只能打开一次 怎么解决啊

zfang

没明白楼主说的意思
你是说流转之后不能再打开那个方案审核管理，还是没进行流转不能再次打开方案审核管理？
如果是后者我这儿已经可以了，对于前者，我没有试

Coordinator

流不流转 只要是不关闭平台 就没法打开第二次

zfang

那你再看看代码吧，我这儿把你的代码修改调试了一下（按24楼的方法），可以再次打开那个方案审核管理

zfang

你在竞赛管理详细里面这么做一下，看是否满足你的要求
1、定义一个
  private处（全局的）
        lFunc1 : TFunc;  
2、按下面的代码覆盖你原来的
procedure TJSGLXX_FORM.TreeView1Click(Sender: TObject);                         //点击目录树
var
  lFunc: TFunc;
  SUrl: String;
begin
  panel3.Visible := false;
  if lFunc1 <> nil then
  begin
    SystemCore.TSystemCore.FuncManager.TerminateFunc(lFunc1, False);
    lfunc1 := nil;
  end;
  if PageControl1.ActivePage <> nil then
  begin
    if  EditForm <> nil then
    begin
      EditForm.ModalResult := Business.Forms.Controls.mrCancel;
      EditForm.Free;
      EditForm := nil;
    end;
    if PageControl1.PageCount > 0 then
      PageControl1.Pages[PageControl1.ActivePageIndex].Free;
  end;

3、修改成下面的代码
  else if TreeView1.Selected.Text = '方案审核管理' then
  begin
    if not Assigned(EditForm) then
    begin
      ShowTab;
      //FlowParent1 := TitlePanel;
      SUrl := 'Biz:\SJZPXZXXTGLXXXT\JSFASHGL_FUNC.FUNC';
      //lFunc := SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context, '', SUrl, '', nil, False);
      lFunc := SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context.Parent, '', SUrl, '', nil, False);
      lFunc1 := lFunc;

      lFunc.MainForm.Parent := TabSheet;
      //EditForm := JSFASHGL_FUNC.TMAINFORM.Create(Self.Context);
      //EditForm.Parent := TabSheet;
      //EditForm.Show;
    end;
  end