- correzioni

EgtBEAMWALL.Core/NewOpenProjectFileDialog/NewOpenProjectFileDialogVM.vb

@@ -130,10 +130,13 @@ Public MustInherit Class NewOpenProjectFileDialogVM
          ' verifico se abilitare il bottone Delete
          If IsNothing(m_SelProject) Then
             SetDeleteIsEnabled(False)
+            SetArchivedIsEnabled(False)
          ElseIf IsNothing(m_SelProject.ProdFileVM) Then
             SetDeleteIsEnabled(True)
+            SetArchivedIsEnabled(False)
          Else
             SetDeleteIsEnabled(Not SelProject.ProdFileVM.bIsProduced)
+            SetArchivedIsEnabled(True)
          End If
          NotifyPropertyChanged(NameOf(Archive_Msg))
       End Set
@@ -185,7 +188,7 @@ Public MustInherit Class NewOpenProjectFileDialogVM
       End Set
    End Property
 
-   Private m_DayTypeList As New List(Of String)({"Last Month", "Last 3 Months", "Last 6 Months", EgtMsg(62531)})
+   Private m_DayTypeList As New List(Of String)({EgtMsg(62532), EgtMsg(62533), EgtMsg(62534), EgtMsg(62531)})
    Public ReadOnly Property DayTypeList As List(Of String)
       Get
          Return m_DayTypeList
@@ -388,6 +391,17 @@ Public MustInherit Class NewOpenProjectFileDialogVM
       End Set
    End Property
 
+   Private m_bArchived_IsEnabled As Boolean
+   Public ReadOnly Property bArchived_IsEnabled As Boolean
+      Get
+         Return m_bArchived_IsEnabled
+      End Get
+   End Property
+   Public Sub SetArchivedIsEnabled(bValue As Boolean)
+      m_bArchived_IsEnabled = bValue
+      NotifyPropertyChanged(NameOf(bArchived_IsEnabled))
+   End Sub
+
    Private m_bDelete_IsEnabled As Boolean
    Public ReadOnly Property bDelete_IsEnabled As Boolean
       Get
@@ -405,9 +419,16 @@ Public MustInherit Class NewOpenProjectFileDialogVM
 
    Public ReadOnly Property Title As String
       Get
-         Return "Open Project"
+         Return EgtMsg(61986)
       End Get
    End Property
+
+   Public ReadOnly Property Filters_Msg As String
+      Get
+         Return EgtMsg(61985)
+      End Get
+   End Property
+
    Public ReadOnly Property FilterType_Msg As String
       Get
          Return EgtMsg(61836)
@@ -505,6 +526,12 @@ Public MustInherit Class NewOpenProjectFileDialogVM
       End Get
    End Property
 
+   Public ReadOnly Property Rows_Msg As String
+      Get
+         Return EgtMsg(61995)
+      End Get
+   End Property
+
 #End Region
 
    ' Definizione comandi
@@ -516,6 +543,8 @@ Public MustInherit Class NewOpenProjectFileDialogVM
 #End Region    ' FIELDS & PROPERTIES
 
    Sub New()
+      ' assegno delegato a elementi lista
+      ProdItem.m_delIsModifiedSetUp = AddressOf SetIsEditNameActive
       ' carico colonne
       LoadColumns()
       m_colProdFile_Name = m_ProdColumns.FirstOrDefault(Function(x) x.Name = COL_NAME)
@@ -747,6 +776,8 @@ End Class
 Public Class ProdItem
    Inherits VMBase
 
+   Public Shared m_delIsModifiedSetUp As Action(Of Boolean)
+
    Protected m_ProdFileVM As ProdFileVM
    Public ReadOnly Property ProdFileVM As ProdFileVM
       Get