【结贴】如果我想通过功能中一个button打开另一个功能，并且通过本功能中的某个字段对

hero419

如果我想通过功能中一个button打开另一个功能，并且通过本功能中的某个字段对打开功能的信息进行过滤应该如何写呢？

lixy

修改被打开功能的数据集sqlfilter

hero419

这个代码有例子么？
比如新功能是'Biz:\LZ\CKWDGDNR.Func'，在代码中语句应该怎么写。

alang

在功能运行前，给他的环境增加一个策略
例如：
procedure TMAINFORM.Button2Click(Sender: TObject);
begin
  SystemCore.TSystemCore.FuncManager.RunFunc(Context.GetParentContext(BizSys.IL_POSITION), '', 'Biz:\LZ\CKWDGDNR.Func', edtParams.Text, BeforeRunSubFunc, False);
end;

procedure TMAINFORM.BeforeRunSubFunc(Sender: TObject; Func: TFunc);
var
  lPolicy: TSememicDataPolicy;
begin
  lPolicy := TSememicDataPolicy.Create(Func);
  lPolicy.BizRange.Text := '&[Biz:\OPERATION\BFDBizList.ElementGroup\BEProduct.Element]=1';
end;

hero419

不好意思，没怎么看懂语句，囫囵吞枣的复制了过去。

procedure TDESKTOPDOCChild.Label2Click(Sender: TObject);
begin
  Inherited;
[B]  SystemCore.TSystemCore.FuncManager.RunFunc(Context.GetParentContext(BizSys.IL_POSITION), '', 'Biz:\COLLABORATION\JUSTEPMAIL.FUNC', edtParams.Text, BeforeRunSubFunc, False);[/B]
end;
黑体字部分报错：
[错误]Biz:\MASTERMIND\XTGL\INFO\YJXX.INFO.DIR\DESKTOPDOCChild.FormDoc.PAS(28, 3): Undeclared identifier "SystemCore"

还有下面的这个策略是做什么用的，靠什么条件触发呢？
procedure TDESKTOPDOCChild.BeforeRunSubFunc(Sender: TObject; Func: TFunc);
var
  lPolicy: TSememicDataPolicy;
begin
  lPolicy := TSememicDataPolicy.Create(Func);
  lPolicy.BizRange.Text := '&[Biz:\OPERATION\BFDBizList.ElementGroup\BEProduct.Element]=1';
end;
谢谢。

lixy

这个策略和在建模工具上的功能设计器建立的数据策略是一样的。
代码编译不过：
你需要引用系统核心库。

atiger

Undeclared identifier "SystemCore"
这个错，是需要在功能的项目管理上，引用“业务模型\系统空间\系统运行库\系统核心库”这个对象

RunFunc 后面的参数含义参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=13875

hero419

现在还是在5楼的报错位置报错：
[错误]Biz:\MASTERMIND\XTGL\INFO\YJXX.INFO.DIR\DESKTOPDOCChild.FormDoc.PAS(59, 134): Undeclared identifier "edtParams"
把edtParams用''代替后编译通过，但运行时又出现对Context.GetParentContext(BizSys.IL_POSITION)报错了，说：“在当前环境链中，隔离级为[POSITION]的不存在。”

.                                                                                                                                                                                   .
.                                                                                                                                                                                   .

lixy

这个edtParams，改成''，就好了

hero419

看8楼第二行，改了，报了个新错：（