diff --git a/MainWindow/MainWindowM.vb b/MainWindow/MainWindowM.vb index abdbdd2..c5be8fe 100644 --- a/MainWindow/MainWindowM.vb +++ b/MainWindow/MainWindowM.vb @@ -137,8 +137,8 @@ Public Class MainWindowM EgtUILib.GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile) EgtSetKey(sKey) ' Recupero livello e opzioni della chiave - Dim bKey As Boolean = EgtGetKeyLevel(823, 19, 1, m_nKeyLevel) And - EgtGetKeyOptions(823, 19, 1, m_nKeyOptions) + Dim bKey As Boolean = EgtGetKeyLevel(823, 3101, 10, m_nKeyLevel) And + EgtGetKeyOptions(823, 3101, 10, m_nKeyOptions) ' Inizializzazione generale di EgtInterface m_sLogFile = m_sTempDir & "\" & LOG_FILE_NAME Dim sLogMsg As String = "User " & Environment.MachineName & "\" & Environment.UserName & vbLf & diff --git a/MainWindow/Objects.vb b/MainWindow/Objects.vb index 89bf3f0..9145092 100644 --- a/MainWindow/Objects.vb +++ b/MainWindow/Objects.vb @@ -228,9 +228,10 @@ Public Class Licence Get If ProductVersion.Length > 3 Then ' Es. se ProductVersion = 2402 la licenza scade il 01/02/2023, dove 2023 è 24 + 1999 - Dim nYear As Integer = CInt(ProductVersion.Substring(0, 2)) + 1999 + Dim nVer As Integer = CInt(ProductVersion.Substring(0, 2)) + Dim nYear As Integer = nVer + 1999 + If( nVer < 31, 0, -3) Dim nMonth As Integer = CInt(ProductVersion.Substring(2, 2)) - Return New Date(nYear, nMonth, 1) + Return New Date(nYear, nMonth, DateTime.DaysInMonth(nYear, nMonth)) End If Return Nothing End Get diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 792edcc..3ab4fbf 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -17,9 +17,9 @@ Imports System.Windows #End If - + - + @@ -59,5 +59,5 @@ Imports System.Windows ' usando l'asterisco '*' come illustrato di seguito: ' - - + + diff --git a/SearchLicencePage/SearchLicencePageV.xaml b/SearchLicencePage/SearchLicencePageV.xaml index 90136ba..c95726b 100644 --- a/SearchLicencePage/SearchLicencePageV.xaml +++ b/SearchLicencePage/SearchLicencePageV.xaml @@ -247,26 +247,26 @@ + Width="0.4*"/> - - + Width="0.8*"/> -