- introduzione nuova finestra di apertura progetto

- gestita visibilita' filtri finestra di apertura progetto
- corretta scrittura e lettura dati dei filtri

EgtBEAMWALL.Core/OpenProjectFileDialog/OpenProjectFileDialogVM.vb

@@ -109,6 +109,23 @@ Public MustInherit Class OpenProjectFileDialogVM
       End Set
    End Property
 
+   Private m_bFixedProjectList As Boolean
+   Public ReadOnly Property bFixedProjectList As Boolean
+      Get
+         Return m_bFixedProjectList
+      End Get
+   End Property
+   Public Sub SetFixedProjectList(bValue As Boolean)
+      m_bFixedProjectList = bValue
+      NotifyPropertyChanged(NameOf(Filters_Visibility))
+   End Sub
+
+   Public ReadOnly Property Filters_Visibility As Visibility
+      Get
+         Return If(m_bFixedProjectList, Visibility.Collapsed, Visibility.Visible)
+      End Get
+   End Property
+
    Protected m_BTLDateTypeList As New List(Of String)
    Public ReadOnly Property BTLDateTypeList As List(Of String)
       Get
@@ -174,7 +191,7 @@ Public MustInherit Class OpenProjectFileDialogVM
       Set(value As DateTime)
          m_dtStartDate = value
          Dim lStartDate As Long = m_dtStartDate.ToFileTimeUtc()
-         WriteMainPrivateProfileString(S_MACHINELOGFILTER, K_STARTDATE, lStartDate.ToString())
+         WriteMainPrivateProfileString(S_OPENFILEDIALOG, K_STARTDATE, lStartDate.ToString())
          ' aggiorno lista da Db
          RefreshProjectList()
          m_ProjectList_View.Refresh()
@@ -189,7 +206,7 @@ Public MustInherit Class OpenProjectFileDialogVM
       Set(value As DateTime)
          m_dtEndDate = value
          Dim lEndDate As Long = m_dtEndDate.ToFileTimeUtc()
-         WriteMainPrivateProfileString(S_MACHINELOGFILTER, K_ENDDATE, lEndDate.ToString())
+         WriteMainPrivateProfileString(S_OPENFILEDIALOG, K_ENDDATE, lEndDate.ToString())
          ' aggiorno lista da Db
          RefreshProjectList()
          m_ProjectList_View.Refresh()