【结贴】[请求]关于编号自动增加的问题~~~~~~~~~~~**

jinwy

我原来做自动增加编码都是引用业务系统----公共参数组----流水号参数组中的参数的，现在原有参数不够用了，我想自己写个参数。

于是，照原来的参数一样写了代码：
procedure TBFDNUMBERPARAMS.ParamYuanLiaoNOGetValue(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', 5);

编译都过的。   而且通用编码表里也给了初值为0。

然后再引用该参数，却发现没效果，没有和系统提供的参数一样会自动增加1。

我是还有什么地方没做到吗？望指点一下，谢谢高手啦~~~~~

zfang

楼主是怎么看到没效果的呢？
代码编译了吗？用studio调试一下，看是否执行了这里的代码。

jinwy

编译是过了啊。 我是在功能层里运行的时候，发现没用的。以前的参数引用后，功能层里一运行，就会自动加1了。

zfang

哦，那你跟踪代码了吗？看这些代码是否执行到了？

zfang

qq远程看后是参数没有挂上事件的原因。已经解决。结贴。

jinwy

我来结贴，感谢管理员帮我解决问题。已解决！