不好意思,没注意看~~
2楼的函数应该可以满足需求的~~
procedure TJSJDXX.DataSetJSJDBeforeInsert(DataSet: TDataSet);
var
lDateStr, lLBStr, lTmpStr, lBHStr: string;
begin
lDateStr := SysUtils.FormatDateTime('yyyy', Business.Data.SysSrv.SysService.Time);
lLBStr := DataSetJSJD.FieldByName('JDXMLB').AsString;
lTmpStr := TCommonUtils.GetAutoIncreaseID(Self.Context,lDateStr+'-'+lLBStr,''); ////报错行
lBHStr := lDateStr+'-'+lLBStr+'-'+lTmpStr;
DataSetJSJD.FieldByName('WTJS').AsString := lBHStr;
end;
报错内容是TCommonUtils没有声明,在这个信息里我已经引入“业务模型\业务系统\公共\公共函数\公共函数”了。 |