[Instantobjects-cvscommit] SF.net SVN: instantobjects:[986] trunk/Source/Core/InstantPresentation.pas

[<car...@us...>]

Revision: 986
          http://sourceforge.net/p/instantobjects/code/986
Author:   carlobar
Date:     2018-09-01 10:14:45 +0000 (Sat, 01 Sep 2018)
Log Message:
-----------
fixed exposer for date value 1974-09-30

Modified Paths:
--------------
    trunk/Source/Core/InstantPresentation.pas

Modified: trunk/Source/Core/InstantPresentation.pas
===================================================================
--- trunk/Source/Core/InstantPresentation.pas	2018-09-01 10:02:02 UTC (rev 985)
+++ trunk/Source/Core/InstantPresentation.pas	2018-09-01 10:14:45 UTC (rev 986)
@@ -2947,7 +2947,8 @@
   if (Field is TDateTimeField) and Assigned(Buffer) then
   begin
     D := TDateTimeRec(Buffer^);
-    Result := (D.Date <> 0) and (D.Time <> 0);
+    //Result := (D.Date <> 0) and (D.Time <> 0); WRONG TEST, FAIL WITH DATE 30/09/1974!
+    Result := (D.DateTime <> 0);
   end else
     Result := (State in [dsEdit, dsInsert]) or (RecordCount > 0);
 end;