【搞定】如何通过双击记录来打开流程的入口功能？

zwjcooldd

我有个流程，其中“拟写申请”是第一个入口功能。然后有一个“草稿箱”保存作为草稿的“拟写申请”列表。我想在双击草稿箱中的记录的时候，能够打开“拟写申请”，同时带入当前所选记录数据。然后能正常流转。

procedure TCGXform.DataGridDblClick(Sender: TObject);
var SQNG_func:TSQNG_func;
begin
  //打开拟稿功能
  SQNG_func:=TSQNG_func.create(self.context);
  SQNG_func.Run(nil);
   SQNG_func.MainForm.ShowModal;   //这里老不对，还有就是记录信息是否能自动带入，还是需要写代码！？？？？？？？
end;

//在功能窗体的 onShow 事件上，把DataGridDblClick 赋值给 DoCview1对应的DataGrid 的ondbClick事件，
SWSQXX.TSWSQLB(DocViewSWSQXX_SWSQLB.doc).DataGrid.OnDblClick :=  DataGridDblClick;

atiger

1、你是Show功能的主窗体，不上Run功能。如果run功能，请以“RunFunc”搜索
2、这里老不对，怎么个不对法呢？报错？如果是把原始错误信息贴出来。

还有不清楚，出于啥原因，要在其他的功能中调用流程的入口功能，且把数据传过去，那入口功能的意义是啥呢？如果不是用来输入数据，入口功能就没有意义了，还不如直接用代码启动流程实例，给第二个环节发任务呢。
代码启动流程实例，参考：http://bbs.justep.com/forum.php?mod=viewthread&tid=1202

zwjcooldd

我的意思就是，通过“草稿箱”网格双击，开始拟稿-审批-归档的流程，当然，你双击的记录的数据应该带入拟稿中。

zwjcooldd

SUrl := 'Biz:\OPERATION\OASPACE\SQNG_func.Func';
  lFunc := SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context.Parent, '', SUrl, '', nil, False);
我发现，数据没有带入。

atiger

数据没有带过来，那是因为你run功能，需要自己通过代码来传数据，你 流程 的 启动规则 的重复数据范围 是新建或者是新建并自动填充，所以进入口功能，数据都被过滤掉了。

另外“我的意思就是，通过“草稿箱”网格双击，开始拟稿-审批-归档的流程，当然，你双击的记录的数据应该带入拟稿中。”
我明白你的意思，只是不明白你这样的做的目的是啥，既然数据是从别的“草稿箱”带过去的，那直接用数据就可以了，为啥还要用一个功能来过渡，过渡的意义在哪里呢？

zwjcooldd

草稿箱，当然就是暂存没有写完的东西，等下次写完再流转了ya

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=18860  9楼，
此贴跟http://bbs.justep.com/forum.php?mod=viewthread&tid=18860 是一个问题的，该帖我先结了

zwjcooldd

en