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

[Jean-Pierre Ledure]

 wizards/source/access2base/Database.xba    |    3 +--
 wizards/source/access2base/acConstants.xba |    2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

New commits:
commit 115a6d2587a03218d41c173beb437a6bf59def10
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Sat Dec 12 16:36:34 2015 +0100

    Access2Base - More coherent use of the acUTF8Encoding constant
    
    Change-Id: Ibcffe9d8b85d552f53246a3ac751000673705ab3

diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba
index 52aafa0..81a233e 100644
--- a/wizards/source/access2base/Database.xba
+++ b/wizards/source/access2base/Database.xba
@@ -1016,12 +1016,11 @@ Private Function _FilterOptionsDefault() As String
 Dim sFieldSeparator as string
 Const cstComma = ","
 Const cstTextDelimitor = """"
-Const cstCharacterSet = 76			'	Unicode (UTF-8)
 
 	If _DecimalPoint() = "," Then sFieldSeparator = ";" Else sFieldSeparator = cstComma
 	_FilteroptionsDefault = Trim(Str(Asc(sFieldSeparator))) _
 								& cstComma & Trim(Str(Asc(cstTextDelimitor))) _
-								& cstComma & Trim(Str(cstCharacterSet)) _
+								& cstComma & Trim(Str(acUTF8Encoding)) _
 								& cstComma & "1"
 
 End Function		'	_FilterOptionsDefault	V1.4.0
diff --git a/wizards/source/access2base/acConstants.xba b/wizards/source/access2base/acConstants.xba
index 1a3db6a..5c390cb 100644
--- a/wizards/source/access2base/acConstants.xba
+++ b/wizards/source/access2base/acConstants.xba
@@ -279,7 +279,7 @@ Global Const acOutputForm = 2
 
 REM AcEncoding
 REM -----------------------------------------------------------------
-Global Const acUTF8Encoding = 65001
+Global Const acUTF8Encoding = 76
 
 REM AcFormat
 REM -----------------------------------------------------------------