EgtBEAMWALL 2.7e0 xx :

- versione speciale per Siemens con Sharp7
- viene riavviata la comunicazione ogni 10 secondi per funzionare con Siemens One.

EgtBEAMWALL.Core/My Project/AssemblyInfo.vb

@@ -35,5 +35,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.7.1.1")>
-<Assembly: AssemblyFileVersion("2.7.1.1")>
+<Assembly: AssemblyVersion("2.7.5.0")>
+<Assembly: AssemblyFileVersion("2.7.5.0")>

EgtBEAMWALL.DataLayer/Properties/AssemblyInfo.cs

@@ -32,5 +32,5 @@ using System.Runtime.InteropServices;
 // You can specify all the values or you can default the Build and Revision Numbers
 // by using the '*' as shown below:
 // [assembly: AssemblyVersion("1.0.*")]
-[assembly: AssemblyVersion("2.7.1.1")]
-[assembly: AssemblyFileVersion("2.7.1.1")]
+[assembly: AssemblyVersion("2.7.5.0")]
+[assembly: AssemblyFileVersion("2.7.5.0")]

EgtBEAMWALL.Supervisor/MainWindow/MainWindowM.vb

@@ -248,8 +248,8 @@ Public Class MainWindowM
          EgtSetLockId( sLockId)
       End If
       ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(5327, 2701, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(5327, 2701, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(5327, 2705, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(5327, 2705, 1, m_nKeyOptions)
       ' Inizializzazione generale di EgtInterface
       m_nDebug = GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0)
       m_sLogFile = m_sTempDir & "\" & SUPGENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())

EgtBEAMWALL.Supervisor/My Project/AssemblyInfo.vb

@@ -70,5 +70,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.7.1.2")>
-<Assembly: AssemblyFileVersion("2.7.1.2")>
+<Assembly: AssemblyVersion("2.7.5.0")>
+<Assembly: AssemblyFileVersion("2.7.5.0")>

EgtBEAMWALL.ViewerOptimizer/ConfigurationPage/ConfigurationPageVM.vb

@@ -675,9 +675,16 @@ Public Class ConfigurationPageVM
                   Dim sDayDir As String = sMonthDir & "\" & nDay
                   Dim VersionList() As String = Directory.GetFiles(sDayDir)
                   If VersionList.Length > 0 Then
-                     Dim nMaxVersion As Int64 = VersionList.Max(Function(x) Int64.Parse(Path.GetFileNameWithoutExtension(x)))
-                     sRestorePath = sDayDir & "\" & nMaxVersion & ".bwbck"
-                     Exit For
+                     Dim nMaxVersion As Int64 = 0
+                     For Each item As String In VersionList
+                        Dim nTmp As Int64 = 0
+                        Int64.TryParse(Path.GetFileNameWithoutExtension(item), nTmp)
+                        nMaxVersion = Math.Max( nMaxVersion, nTmp)
+                     Next      
+                     If nMaxVersion > 0 Then
+                        sRestorePath = sDayDir & "\" & nMaxVersion & ".bwbck"
+                        Exit For
+                     End If
                   End If
                Next
                If Not String.IsNullOrEmpty(sRestorePath) Then Exit For
@@ -687,6 +694,8 @@ Public Class ConfigurationPageVM
       End If
       If String.IsNullOrEmpty(sRestorePath) Then
          MessageBox.Show(EgtMsg(62106), EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)            ' Restore impossible! Last backup not found!
+         m_bRestoreRunning = False
+         Return
       End If
       If MessageBox.Show(String.Format(EgtMsg(62107), nYear, nMonth, nDay), EgtMsg(15002), MessageBoxButton.OKCancel, MessageBoxImage.Warning) <> MessageBoxResult.OK Then               'Are you sure you want to restore the last backup from {0}\{1}\{2}? If you proceed you will lose actual data!
          m_bRestoreRunning = False

EgtBEAMWALL.ViewerOptimizer/MainWindow/MainWindowM.vb

@@ -242,8 +242,8 @@ Public Class MainWindowM
          EgtSetLockId( sLockId)
       End If
       ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(5327, 2701, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(5327, 2701, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(5327, 2705, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(5327, 2705, 1, m_nKeyOptions)
       ' Inizializzazione generale di EgtInterface
       m_nDebug = GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0)
       m_sLogFile = m_sTempDir & "\" & VWOPTGENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())

EgtBEAMWALL.ViewerOptimizer/MainWindow/MainWindowVM.vb

@@ -198,9 +198,16 @@ Public Class MainWindowVM
                      Dim sDayDir As String = sMonthDir & "\" & nDay
                      Dim VersionList() As String = Directory.GetFiles(sDayDir)
                      If VersionList.Length > 0 Then
-                        Dim nMaxVersion As Int64 = VersionList.Max(Function(x) Int64.Parse(Path.GetFileNameWithoutExtension(x)))
-                        LastBackupDate = New Date(nYear, nMonth, nDay)
-                        Exit For
+                        Dim nMaxVersion As Int64 = 0
+                        For Each item As String In VersionList
+                           Dim nTmp As Int64 = 0
+                           Int64.TryParse(Path.GetFileNameWithoutExtension(item), nTmp)
+                           nMaxVersion = Math.Max( nMaxVersion, nTmp)
+                        Next      
+                        If nMaxVersion > 0 Then
+                           LastBackupDate = New Date(nYear, nMonth, nDay)
+                           Exit For
+                        End If
                      End If
                   Next
                   If LastBackupDate <> Date.MinValue Then Exit For

EgtBEAMWALL.ViewerOptimizer/My Project/AssemblyInfo.vb

@@ -70,5 +70,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.7.1.2")>
-<Assembly: AssemblyFileVersion("2.7.1.2")>
+<Assembly: AssemblyVersion("2.7.5.0")>
+<Assembly: AssemblyFileVersion("2.7.5.0")>