[Libreoffice-commits] core.git: wizards/source

[Libreoffice Gerrit user]

 wizards/source/access2base/Database.xba |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

New commits:
commit 64b18c37c55dcac472e0344f7ac61a12d81e51c5
Author:     Jean-Pierre Ledure <jp at ledure.be>
AuthorDate: Wed Aug 1 12:55:20 2018 +0200
Commit:     Jean-Pierre Ledure <jp at ledure.be>
CommitDate: Wed Aug 1 12:55:20 2018 +0200

    Access2Base - Firebird 3.0 field equivalences
    
    Review in LoadMetadata the field types array for Firebird

diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba
index 2a61d7e3c73a..cf8617e0b285 100644
--- a/wizards/source/access2base/Database.xba
+++ b/wizards/source/access2base/Database.xba
@@ -1294,9 +1294,9 @@ Const cstSQLITE = "SQLite"
 				_RDBMS = DBMS_HSQLDB2
 				_ColumnTypesAlias = Array(0, -5, -3, -7, 2004, 16, 1, 2005, 91, 3, 0, 8, 8, 4, -3, 12, 2, 0, 0, 8, 0, 5, 0, 0, 92, 93, -6, -3, 12)
 				_BinaryStream = True
-			Case .URL = cstFirebird
+			Case .URL = cstFirebird		'	Only embedded 3.0
 				_RDBMS = DBMS_FIREBIRD
-				_ColumnTypesAlias = Array(0, -5, 2004, 16, 2004, 16, 1, 12, 91, 8, 0, 8, 6, 4, 2004, 12, 8, 0, 0, 8, 0, 5, 0, 0, 92, 93, 4, 2004, 12)
+				_ColumnTypesAlias = Array(0, -5, -2, 16, 2004, 16, 1, 2005, 91, 3, 0, 8, 6, 4, -4, 2005, 2, 0, 0, 8, 0, 5, 0, 0, 92, 93, 4, 2004, 12)
 				_BinaryStream = True
 			Case Len(sProduct) > Len(cstMSAccess2007) And Left(sProduct, Len(cstMSAccess2007)) = cstMSAccess2007
 				_RDBMS = DBMS_MSACCESS2007