Aggiunto materiale su Machgroup

Corretta sezione
Rimossa selezione grezzo
Gestione blocco interfaccia su verifica e simula
Aggiunta correzione con cancellazione cartelle progetti
Tolto ricaricmento progetto nel passaggio da proj a prod
Iniziat studio esportazione statistiche
Migliorati messaggi su nesting
Cambiata gestione tipo progetto

EgtBEAMWALL.ViewerOptimizer/OpenProjectFileDialog/OpenProjectFileDialogVM.vb

@@ -22,16 +22,6 @@ Public Class OpenProjectFileDialogVM
 
    Private m_FileNameTxBl As TextBlock
 
-   Private m_sDirectory As String
-   Public Property Directory As String
-      Get
-         Return m_sDirectory
-      End Get
-      Set(value As String)
-         m_sDirectory = value
-      End Set
-   End Property
-
    Private m_sFilter As String
    Public Property Filter As String
       Get
@@ -284,8 +274,14 @@ Public Class OpenProjectFileDialogVM
             MessageBox.Show(EgtMsg(61873), EgtMsg(30009), MessageBoxButton.OK, MessageBoxImage.Warning)
             Return
          End If
-         ' cancello progetto
+         ' cancello progetto da Db
          DbControllers.m_ProjController.DeleteProj(SelProject.nProjId)
+         ' cancello cartella del Proj
+         Try
+            Directory.Delete(SelProject.sProjDirPath, True)
+         Catch ex As Exception
+            EgtOutLog("Error in deleting directory " & SelProject.sProjDirPath)
+         End Try
          ' aggiorno lista progetti
          m_ProjectList.Clear()
          Dim DbProjectList As New List(Of ProjFileM)
@@ -344,6 +340,12 @@ Public Class OpenProjectFileDialogVM
          If Not IsNothing(Map.refProjManagerVM.CurrProj) AndAlso Map.refProjManagerVM.CurrProj.nProdId = SelProject.nProdId Then
             Map.refProjManagerVM.UpdateCurrProj()
          End If
+         ' cancello cartella del Prod
+         Try
+            Directory.Delete(SelProject.sProdDirPath, True)
+         Catch ex As Exception
+            EgtOutLog("Error in deleting directory " & SelProject.sProdDirPath)
+         End Try
          ' aggiorno lista progetti
          m_ProjectList.Clear()
          Dim DbProjectList As New List(Of ProdFileM)