EM Code generator and dates with default values

[denisprince]

Hi,

Using EM source code generator to get the dictionary to use for restructuring tables, if I have a date with a default value descriptor (not a TnxCurrentDateTimeDefaultValueDescriptor) then this is the code that is generated:

// Test
function __Test(aDatabase : TnxDatabase): TnxDataDictionary;
begin
Result := TnxDataDictionary.Create;
try
with Result do begin
AddRecordDescriptor(TnxBaseRecordDescriptor);
with FieldsDescriptor do
with AddField('aDate', '', nxtDate, 0, 0, False) do
with AddDefaultValue(TnxConstDefaultValueDescriptor) as TnxConstDefaultValueDescriptor do
AsVariant := '01/21/2015';
CheckValid(False);
end;
except
FreeAndNil(Result);
raise;
end;
end;


The default value is tied to the regional settings and restructure will not do well with this.

Would it be possible to have
AsVariant := EncodeDate(2015,1,21);

This would not interfere with the regional settings on the PC where the restructure is being done.

EM 32 bit 3.12.04

Thank you,
Denis Prince

> EM 32 bit 3.12.04

Please try it with the latest v4.

--
Eivind Bakkestuen [NDD]

[denisprince]

Just downloaded the latest EM 4.0012 trial version and I see that this has been corrected.

Sorry for the inconvenience.

Denis Prince