【结帖】业务参数**

WSQ

RBizURL := TBizURL.Create;
  RContextCurrent := TContextCurrent.Create(self.Context);
  try
    RBizURL.URL:='Biz:BTSFXTDZBBGGCSZ.ParamGroupCNQJSRQ.Param';
    RParam := RContextCurrent.GetParam(RBizURL);
    VG_GNJSRQ:=Variants.VarToStr(RParam.Value);
    Dialogs.ShowMessage(VG_GNJSRQ);
    exit;
  finally
    RBizURL.Free;
    RContextCurrent.Free;
  end;
上面代码运行时报错：

shangxy

RBizURL.URL:='Biz:\BTSFXT\DZBB\GGCSZ.ParamGroup\CNQJSRQ.Param';
改成这个：
RBizURL.URL:='Biz:\BTSFXT\DZBB\GGCSZ.ParamGroup';

WSQ

改成那样还是不行，报同样的错

WSQ

lParam := sysutils.TContextUtils.GetParam(Context, lBizURL, 'CNQJSRQ');
提示：TContextUtils未定义

zfang

楼主，项目管理--具体某个功能--配置项目属性--引入，业务模型\系统空间\系统运行库\系统函数库

shangxy

http://bbs.justep.com/forum.php?mod=viewthread&tid=3492
2楼的前面几步你都做了么？


还有1楼的代码应该是没有问题，你吧那个参数组签出编译保存签入在实验一下吧

WSQ

以上步骤都做了，也重新编译了。结果还是一样

zfang

请楼主再按上面几楼说的检查一遍，如果问题照旧，那就打个资源包上来！

lixy

这个是我测试成功的代码。
var
lParam: TBizParam;
  lBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
lBizURL := TBizURL.Create;
  lContextCurrent := TContextCurrent.Create(self.Context);
  try
    lBizURL.URL:='Biz:\SYSTEM\DATATIMEPARAMS.PARAMGROUP\ServerYear.param';
    lParam := lContextCurrent.GetParam(lBizURL);
   // VG_GNJSRQ:=Variants.VarToStr(RParam.Value);

    Dialogs.ShowMessage(ObjectHelper.ToString(lparam.Value) );
    exit;
  finally
    lBizURL.Free;
    lContextCurrent.Free;
  end;

end;

WSQ

GetParam是不是得引用什么单元