[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 <jp at ledure.be>
AuthorDate: Mon Jan 25 18:26:29 2021 +0100
Commit:     Jean-Pierre Ledure <jp at 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 <jp at ledure.be>
    Tested-by: Jenkins
    Reviewed-by: Jean-Pierre Ledure <jp at 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			'	AOO and LO <= 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		'	LO >= 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