|

楼主 |
发表于 2009-11-20 15:07:06
|
显示全部楼层
是这样的,我是自定义了一个业务参数,取值的表达式是固定字符串加自增数据,自增部分取值用了系统参数的方法,当功能运行
增加记录时,就自动填充。我不知道哪里有不对,请说明一下好吗?谢谢
下面是参数赋值的代码;
procedure TYWCSZ.ParamSBBHGetValue(Sender: TObject; var Value: Variant);
begin
Value := TCommonUtils.GetAutoIncreaseID(Self.Context,
TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
{ 可根据需要定制Value的格式 }
Value := 'SB'+TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0', 10);
end; |
|