diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2014-09-19 11:21:47 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2014-09-19 11:26:18 +0200 |
| commit | 7797127f00cee6f4fffd53c99856decd126a8718 (patch) | |
| tree | c84e47b8dd0d3c1d890c2c71c5a9f580c2e7c675 | |
| parent | 4db2d600ebc541adfaaf0a1a176df1c74e3ae0e4 (diff) | |
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
| -rw-r--r-- | wizards/source/access2base/Field.xba | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba index 179bf166adc4..053245eaa103 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 |