【搞定】递增序列号如何清零**

iamzf

我们建了一个业务参数组，里面统一放各个表单和流程的递增编号。
参数编写的代码是：
procedure TBHCSZ.ParamCSCSGetValue(Sender: TObject; var Value: Variant);
const
  cZeroLeng = '0000';
var
  lDateStr, lTmpStr: string;
begin
  lTmpStr := TCommonUtils.GetAutoIncreaseID(Self.Context,
    SysUtils.FormatDateTime('yyyymm', Business.Data.SysSrv.SysService.Time), '');

  lTmpStr := StringUtils.Copy(cZeroLeng, 1, Length(cZeroLeng) - Length(lTmpStr))
    + lTmpStr;
  lDateStr := SysUtils.FormatDateTime('yymm', Business.Data.SysSrv.SysService.Time);
  Value := 'CSCS'+lDateStr + lTmpStr;
end;

因为测试的流程比较多，我想在上线时将序号归零，不知道该如何操作？这个参数不知道是存储在什么位置？

lisb

http://bbs.justep.com/forum.php? ... p;highlight=%C7%E50

lixy

TCOMMONCODE表里

iamzf

搞定，结贴！