[请求] 急救：如何用代码创建一个语义策略？**

huixiangtao

需要在岗位环境下用代码创建一个语义策略。怎么做呢？

lixy

在功能运行前，给他的环境增加一个策略
例如：
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;
这个是给功能加了个策略

huixiangtao

那在组织机构的岗位下面增加策略，代码写在哪呢？

lixy

只要在你的目标数据集打开前写就可以了，无所谓写在什么地方。
lPolicy := TSememicDataPolicy.Create(Func);

huixiangtao

测试发现策略并没有起到应有的效果啊。

在功能的create里写的

————————————————————————————————————
lfilter:='1=1';
   i:=0;
   lfilter:=lfilter+' and ( &[Biz:\YWKJ1\INFO\FJDYWXX.Info\FJSJJ.DataSet\TEST.DataSetField]='''+ltemp.Strings+'''';
   for i:=1 to ltemp.Count-1 do
        lfilter:=lfilter+' or &[Biz:\YWKJ1\INFO\FJDYWXX.Info\FJSJJ.DataSet\TEST.DataSetField]='''+ltemp.Strings+'''';
   lfilter:=lfilter+')';
   dialogs.ShowMessage(lfilter);

   lPolicy := TSememicDataPolicy.Create(FuncBroker.Func);
   lPolicy.BizRange.Text := lfilter;

lixy

你可以按照2楼例子试试，看看起作用不。如果起作用，说明你创建策略的时机晚了。

huixiangtao

应该是晚了。岗位环境下代码创建数据语义策略，不明白写在哪？

shangxy

想办法让数据语义策略生效后，在打开数据集