strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Access2Base - (Re)capitalize UNO constants

Browse source 
Some UNO constants (integer, double, ...) were lower cased by Basic IDE.
Probably due to AutoCorrection options of IDE ?

Change-Id: Ib599a8bc9f26d179ba5befbcd7a915d29554f948
This commit is contained in:
Jean-Pierre Ledure 2014-09-19 11:21:47 +02:00
parent 4db2d600eb
commit 7797127f00
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
wizards/source/access2base/Field.xba
View file

@ -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