Добрый день.
Ошибка происходит когда компонент подключен к полю ДатаСета.
Исправим в следующей сборке.
Для оперативного исправления необходимо корректировать функцию
Код:
function DBCtrlsEh.DateTimeStampToVarValue(DateTimeStamp: TDateTimeStampEh;
....
if DoEncodeDateTime(dts, ADateTime) then
begin
if not VarIsNull(DateTimeVal) then
DecodeDateTime(DateTimeVal, Y, M, D, H, N, S, MS);
if dtmp.Year.Present and (dts.Year > 0) then
Y := dts.Year;
if dtmp.Month.Present and (dts.Month > 0) then
M := dts.Month;
if dtmp.Day.Present and (dts.Day > 0) then
D := dts.Day;
if dtmp.Hour.Present and (dts.Hour >= 0) then
H := dts.Hour;
if dtmp.Min.Present and (dts.Minute >= 0) then
N := dts.Minute;
if dtmp.Sec.Present and (dts.Second >= 0) then
S := dts.Second;
// //New Code
if AutoCorrect then
begin
CorrectDate(Y, M, D); //Create CorrectDate for Word type
CorrectTime(H, N, S);
end;
// \\New Code
DateTimeVal := EncodeDateTimeEh(Y, M, D, H, N, S, MS);
Result := True;
end else
...