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

[Libreoffice Gerrit user]

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

New commits:
commit 7ea081d9f7938c59b1f71399bf32ce3fb738ad66
Author:     Jean-Pierre Ledure <jp at ledure.be>
AuthorDate: Wed Jul 18 16:40:56 2018 +0200
Commit:     Jean-Pierre Ledure <jp at ledure.be>
CommitDate: Wed Jul 18 16:48:05 2018 +0200

    Access2Base - tdf#118680 Fix VARCHAR_IGNORECASE error
    
    Precision property of com.sun.star.sdbcx.Column service
    is set to the maximum length for VARCHAR database fields
    while it remains at 0 for VARCHAR_IGNORECASE fields.
    
    Access2Base reported erroneously an overflow error.

diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba
index 0c3b6ef2880e..adf73818243d 100644
--- a/wizards/source/access2base/Field.xba
+++ b/wizards/source/access2base/Field.xba
@@ -704,7 +704,7 @@ Dim oParent As Object
 							End If
 						Case .CHAR, .VARCHAR, .LONGVARCHAR, .CLOB
 							If Not Utils._CheckArgument(pvValue, iArgNr, vbString, , False) Then Goto Trace_Error_Value
-							If Len(pvValue) > _Precision Then Goto Trace_Error_Length
+							If _Precision > 0 And Len(pvValue) > _Precision Then Goto Trace_Error_Length
 							Column.updateString(pvValue)						'	vbString
 						Case .DATE
 							If Not Utils._CheckArgument(pvValue, iArgNr, vbDate, , False) Then Goto Trace_Error_Value
@@ -776,7 +776,7 @@ Trace_Error_Updatable:
 	_PropertySet = False
 	Goto Exit_Function
 Trace_Error_Length:
-	TraceError(TRACEFATAL, ERROVERFLOW, Utils._CalledSub(), 0, , Array(lSize, "AppendChunk"))
+	TraceError(TRACEFATAL, ERROVERFLOW, Utils._CalledSub(), 0, , Array(Len(pvValue), "AppendChunk"))
 	_PropertySet = False
 	Goto Exit_Function
 Error_Function: