db: fixed another regression in ZDBC connector

Author: Arnaud Bouchez

src/db/mormot.db.sql.ibx.pas

@@ -1005,7 +1005,7 @@ procedure TSqlDBIbxStatement.ColumnToJson(Col: integer; W: TJsonWriter);
       SQL_TYPE_DATE:
         begin
           W.Add('"');
-          W.AddDateTime(fResults[Col].GetAsDateTime, fForceDateWithMS);
+          W.AddDateTime(fResults[Col].GetAsDateTime, dsfForceDateWithMS in fFlags);
           W.AddDirect('"');
         end;
       SQL_BOOLEAN:

src/db/mormot.db.sql.pas

@@ -1317,8 +1317,9 @@   TSqlDBConnectionProperties = class
     fOnTableCreate: TOnTableCreate;
     fOnTableAddColumn: TOnTableAddColumn;
     fOnTableCreateMultiIndex: TOnTableCreateMultiIndex;
-    procedure SetFlag(flag: TSqlDBConnectionPropertiesFlag; value: boolean);
-    function GetFlag(flag: TSqlDBConnectionPropertiesFlag): boolean;
+    procedure SetFlag(const flag: TSqlDBConnectionPropertiesFlag; const value: boolean);
+      {$ifdef HASINLINE}inline;{$endif}
+    function GetFlag(const flag: TSqlDBConnectionPropertiesFlag): boolean;
       {$ifdef HASINLINE} inline; {$endif}
     procedure SetConnectionTimeOutMinutes(minutes: cardinal);
     function GetConnectionTimeOutMinutes: cardinal;
@@ -3662,16 +3663,17 @@ function TSqlDBConnectionProperties.ExecuteInlined(const SqlFormat: RawUtf8;
   result := ExecuteInlined(sql, ExpectResults);
 end;
 
-procedure TSqlDBConnectionProperties.SetFlag(flag: TSqlDBConnectionPropertiesFlag;
-  value: boolean);
+procedure TSqlDBConnectionProperties.SetFlag(
+  const flag: TSqlDBConnectionPropertiesFlag; const value: boolean);
 begin
   if value then
     include(fFlags, flag)
   else
     exclude(fFlags, flag);
 end;
 
-function TSqlDBConnectionProperties.GetFlag(flag: TSqlDBConnectionPropertiesFlag): boolean;
+function TSqlDBConnectionProperties.GetFlag(
+  const flag: TSqlDBConnectionPropertiesFlag): boolean;
 begin
   result := flag in fFlags;
 end;

src/mormot.commit.inc

@@ -1 +1 @@
-'2.3.12797'
+'2.3.12798'