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

[Jean-Pierre Ledure]

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

New commits:
commit 7797127f00cee6f4fffd53c99856decd126a8718
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Fri Sep 19 11:21:47 2014 +0200

    Access2Base - (Re)capitalize UNO constants
    
    Some UNO constants (integer, double, ...) were lower cased by Basic IDE.
    Probably due to AutoCorrection options of IDE ?
    
    Change-Id: Ib599a8bc9f26d179ba5befbcd7a915d29554f948

diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba
index 179bf16..053245e 100644
--- a/wizards/source/access2base/Field.xba
+++ b/wizards/source/access2base/Field.xba
@@ -525,7 +525,7 @@ Dim oParent As Object
 					If Column.IsNullable = com.sun.star.sdbc.ColumnValue.NULLABLE Then Column.updateNull() Else Goto Trace_Null
 				Else
 					Select Case Column.Type
-						Case .BIT, .Boolean
+						Case .BIT, .BOOLEAN
 							If Not Utils._CheckArgument(pvValue, iArgNr, vbBoolean, , False) Then Goto Trace_Error_Value
 							Column.updateBoolean(pvValue)
 						Case .TINYINT
@@ -536,7 +536,7 @@ Dim oParent As Object
 							If Not Utils._CheckArgument(pvValue, iArgNr, Utils._AddNumeric(), , False) Then Goto Trace_Error_Value
 							If pvValue < -32768 Or pvValue > 32767 Then Goto trace_Error_Value
 							Column.updateInt(CLng(pvValue))
-						Case .Integer
+						Case .INTEGER
 							If Not Utils._CheckArgument(pvValue, iArgNr, Utils._AddNumeric(), , False) Then Goto Trace_Error_Value
 							If pvValue < -2147483648 Or pvValue > 2147483647 Then Goto trace_Error_Value
 							Column.updateInt(CLng(pvValue))
@@ -546,7 +546,7 @@ Dim oParent As Object
 						Case .FLOAT
 							If Not Utils._CheckArgument(pvValue, iArgNr, Utils._AddNumeric(), , False) Then Goto Trace_Error_Value
 							If Abs(pvValue) < 3.402823E38 And Abs(pvValue) > 1.401298E-45 Then Column.updateFloat(CSng(pvValue)) Else Goto trace_Error_Value
-						Case .REAL, .Double
+						Case .REAL, .DOUBLE
 							If Not Utils._CheckArgument(pvValue, iArgNr, Utils._AddNumeric(), , False) Then Goto Trace_Error_Value
 							'If Abs(pvValue) < 1.79769313486232E308 And Abs(pvValue) > 4.94065645841247E-307 Then Column.updateDouble(CDbl(pvValue)) Else Goto trace_Error_Value
 							Column.updateDouble(CDbl(pvValue))
@@ -565,7 +565,7 @@ Dim oParent As Object
 						Case .CHAR, .VARCHAR, .LONGVARCHAR
 							If Not Utils._CheckArgument(pvValue, iArgNr, vbString, , False) Then Goto Trace_Error_Value
 							Column.updateString(pvValue)						'	vbString
-						Case .Date
+						Case .DATE
 							If Not Utils._CheckArgument(pvValue, iArgNr, vbDate, , False) Then Goto Trace_Error_Value
 							vTemp = New com.sun.star.util.Date
 							With vTemp