【搞定】能否实现向业务参数写数据？**

debug_fan

比如我想通过代码或其他形式 改变业务参数的值.

不知道能否实现? 谢谢

yanyequan

这里有取参数的函数：业务模型\系统空间\系统运行库\系统函数库，可以取值赋值。

debug_fan

最初由 yanyequan 发布
[B]这里有取参数的函数：业务模型\系统空间\系统运行库\系统函数库，可以取值赋值。 [/B]

看了一下,都是获取值的函数.

业务参数可以赋值么?
如果我没理解错的话,业务参数是一个产生参数的逻辑,通过这个逻辑自动返回相应的数据.
要赋值的话, 是需要改变这个逻辑?而不是简单的赋值?

atiger

业务参数可以赋值么?
当然可以

业务参数就是一个变量，就看这个变量的存在的环节，他可以赋值，也可以先个参数一个，然后去取值，都可以。
参考：
http://bbs.justep.com/forum.php?mod=viewthread&tid=461
http://bbs.justep.com/forum.php?mod=viewthread&tid=1767
http://bbs.justep.com/forum.php?mod=viewthread&tid=3492

当然，最好先看一下参考《用户手册》第4章 业务字典 4.2 的相关说明

yanyequan

象这个引用都是老版本的了：
JUSTEPCOMMONUNIT.TJUSTEPCOMMONUNIT.GetParam(Self.Context,
    'Biz:\YWKJ1\DICT\YWCSZ1.ParamGroup', 'YWCS1');

新版本是：
SYSTEMUTILS.TContextUtils.GetParam(...);

Justep 该更新一些例子的代码了，至少应该有个说明是哪个版本的。

debug_fan

比如我定义了一个业务参数,其OnGetValue 事件处理函数如下:

procedure TYWCSZ.ParamCodeGetValue(Sender: TObject; var Value: Variant);
begin
  Value := TCommonUtils.GetAutoIncreaseID(Self.Context,
    TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
  { 可根据需要定制Value的格式 }
  Value := TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0', 10);

end;


在一个业务功能模块的ButtonClick 写了如下代码:
procedure TJLST.Button1Click(Sender: TObject);
var
   lIncreaseID,lTempStr: string;
   lParam: TBizParam;
begin
   lParam := TCommonUtils.GetParam(Self.Context, 'Biz:\XSSFXT\YWCSZ.ParamGroup', 'Code');
   //Dialogs.ShowMessage(Variants.VarToStr(lParam.Value));
   lParam.Value := 1;
   Dialogs.ShowMessage(Variants.VarToStr(lParam.Value));

end;


显示结果并没有改变啊.
这个赋值是个什么含义呢?

yanyequan

因为你的参数事件里已经给参数赋值了，你给它赋的值被它覆盖了，你先屏蔽参数事件里的代码，然后再给参数赋值看看好用不，我们用了很多都是好用的。

debug_fan

To: yanyequan

就是说,不要写 OnGetValue 事件的处理函数.对吧.

atiger

谢谢 yanyequan

对，参数赋值的地方比较多，但是有优先级的，4楼给的第二个连接中有写，就是这个帖子  http://bbs.justep.com/forum.php?mod=viewthread&tid=1767

debug_fan

谢谢!  

漏看了后两个帖子链接,实在不好意思 - -;


结帖.