|
我有一个计划编号(字符型)2008-04-21001
2008-04-22001
2008-04-22002
日期后加001然后每天以此累加,新的一天自动为001
我设计了了一个业务参数
procedure TYWCSZ1.ParamYWCS1GetValue(Sender: TObject; var Value: Variant);
const
cZeroLeng = '000';
var
sDate: String;
begin
sdate := SysUtils.FormatDateTime('yyyy-mm-dd',SysUtils.Date);
//sDate := StrUtils.MidStr(sdate,3,2);
Value := TCOMMONUTILS.GetAutoIncreaseID(Self.Context,
TBizParam(Sender).ID, TBizParam(Sender).DisplayName);
Value := sDate+TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0',3);
end;
然后表自动填充,现在的问题是我每次进去都自动加1,怎么判断
当天最大然后加1 |
|