|
现有一张物理表需要两个业务使用,分别在两个业务信息中字段编辑器添加E_Apply_ID字段,两个E_Apply_ID设置相同,但其中一个显示不正常。物理表中E_Apply_ID字段没有做任何设置。
表编号公共参数设置:
procedure TPUB_PARA.ParamEquipment_Apply_NOGetValue(Sender: TObject; var Value: Variant);
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 := 'EMGA'+sDate+TCommonUtils.StrToRightLenStr(Variants.VarToStr(Value), '0', 7);
end;
平台版本为2800,请帮忙查找一下问题,谢谢!
|
|