【结帖】关于流程**

zfang · 发表于 2008-7-9 16:42:59

说白一点就是运行功能需要一个环境，然后平台会根据这个环境去查找流程实例。如果按你的做法仅仅是调用了功能的一个主窗体而已，其实功能没有在环境中运行，所以流程无法使用。

weirongjia · 发表于 2008-7-9 17:47:14

if(tt<>nil) then
         tt.Free;

      SystemCore.TSystemCore.FuncManager.RunFunc(self.Context,'','Biz:\ZKJTWZGLXT\YWGN_DJHC.Func','',false,nil,false);
      tt:=YWGN_DJHC.Thc.Create(self.Context);
      tt.DocViewYWXX_FPRKHC_BGWD_FPRKDHC.ReadOnly:=true;
      tt.Parent:= Panel1;
      tt.Show;

我怎么让这个业务功能和这个主窗体之间建立关系啊？

zfang · 发表于 2008-7-9 18:01:22

参考代码：
var
  lFunc : TFunc;
begin
  if lFunc <> nil then
lFunc.Terminate;
  lFunc := SystemCore.TSystemCore.FuncManager.RunFunc(Context.Parent,'', 'Biz:\CSLZ\GNA.Func',  '', nil, False);
  lFunc.MainForm.Parent := Panel1;

weirongjia · 发表于 2008-7-9 18:04:56

为什么你的IFunc用的 Context。parent啊
这个和 Self。context有什么区别啊

Akon · 发表于 2008-7-9 18:08:34

Self当前对象的实例，Context是当前环境

weirongjia · 发表于 2008-7-9 18:10:52

为什么最后新探出了个对话框
没有在那个panel上显示呢？
还有为什么弹出的那个框没有数据呢？

weirongjia · 发表于 2008-7-10 09:09:19

?????????
应该怎么做啊？

weirongjia · 发表于 2008-7-10 09:31:10

？？？？？？？？？？？？？、
谁给讲讲吧谢谢了

jiahaiming · 发表于 2008-7-10 09:43:35

为什么最后新探出了个对话框：应该是你run的功能的主窗体
没有在那个panel上显示呢？：检查一下窗体的Parent是否设置正确
还有为什么弹出的那个框没有数据呢？：应该被流程过滤了。

weirongjia · 发表于 2008-7-10 09:48:43

if (IFunc<>nil) then
         IFunc.Terminate;

      IFunc := SystemCore.TSystemCore.FuncManager.RunFunc(Context.Parent,'','Biz:\ZKJTWZGLXT\YWGN_DJHC.Func','',nil,false);
      IFunc.MainForm.Parent := Panel1;

这是按照上面方老师说的方法改的程序
改好以后  就没有在那个主窗体显示了

		自动登录	找回密码
密码			立即注册