|
发表于 2007-9-13 18:40:15
|
显示全部楼层
那你看看工作任务的单号是怎么生成的吧。
业务模型\协同系统\工作事务(处理功能)\业务基础信息
调的是GetDisplayNumber
代码:
function TBIZBASEINFO.GetDisplayNumber(const AIncNumber: Integer): string;
const
cZeroLeng = '000000';
var
lDateStr, lTmpStr: string;
begin
lTmpStr := SysUtils.IntToStr(AIncNumber);
lTmpStr := StringUtils.Copy(cZeroLeng, 1, Length(cZeroLeng) - Length(lTmpStr))
+ lTmpStr;
lDateStr := SysUtils.FormatDateTime('yyyymm', Business.Data.SysSrv.SysService.Time);
Result := lDateStr + lTmpStr;
end;
自己参考看看吧。 |
|