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

[Jean-Pierre Ledure (via logerrit)]

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

New commits:
commit 0bf25edae966625323be7454a813b76327471689
Author:     Jean-Pierre Ledure <j...@ledure.be>
AuthorDate: Mon Jan 25 18:26:29 2021 +0100
Commit:     Jean-Pierre Ledure <j...@ledure.be>
CommitDate: Tue Jan 26 11:45:48 2021 +0100

    Access2Base - (Control.xba) FIX Get DefaultValue for DateField controls
    
    The DefaultDate was read correctly but not returned to the calling program
    
    Change-Id: Ie15a48a6366c1575f4914a2b60c836890fe53a43
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/109921
    Tested-by: Jean-Pierre Ledure <j...@ledure.be>
    Tested-by: Jenkins
    Reviewed-by: Jean-Pierre Ledure <j...@ledure.be>

diff --git a/wizards/source/access2base/Control.xba 
b/wizards/source/access2base/Control.xba
index 5e241186f081..e0f77b2e8f78 100644
--- a/wizards/source/access2base/Control.xba
+++ b/wizards/source/access2base/Control.xba
@@ -1474,10 +1474,10 @@ Dim oControlEvents As Object, sEventName As String
                                                Select Case 
VarType(ControlModel.DefaultDate)
                                                        Case vbLong             
        &apos;  AOO and LO &lt;= 4.1
                                                                vDefaultValue = 
ControlModel.DefaultDate
-                                                               vGet = 
DateSerial(Left(vDefaultValue, 4), Mid(vDefaultValue, 5, 2), 
Right(vDefaultValue, 2))
+                                                               _PropertyGet = 
DateSerial(Left(vDefaultValue, 4), Mid(vDefaultValue, 5, 2), 
Right(vDefaultValue, 2))
                                                        Case vbObject           
&apos;  LO &gt;= 4.2    com.sun.star.Util.Date
                                                                Set 
oDefaultValue = ControlModel.DefaultDate
-                                                               vGet = 
DateSerial(oDefaultValue.Year,oDefaultValue.Month, oDefaultValue.Day)
+                                                               _PropertyGet = 
DateSerial(oDefaultValue.Year,oDefaultValue.Month, oDefaultValue.Day)
                                                        Case vbEmpty
                                                End Select
                                        End If
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits