EgtBEAMWALL :

- modifiche varie per LHW di BTL e in globale.

EgtBEAMWALL.ViewerOptimizer/ProjectManager/ProjFileVM.vb

@@ -211,24 +211,26 @@ Public Class ProjFileVM
       Dim sProjectDirPath As String = ""
       sProjectDirPath = CurrProject.sProjDirPath
       ' verifico se progetto modificato, e chiedo se salvare
-      If (EgtGetModified() Or CurrProject.bIsNew) Then
+      If EgtGetModified() Then
          If MessageBox.Show("Salvare le modifiche apportate al progetto?", "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
             ' salvo proj
             Map.refProjManagerVM.Save()
             Return True
          Else
-            ' se da non salvare e nuovo proj
-            If CurrProject.bIsNew Then
-               ' lo elimino
-               Directory.Delete(sProjectDirPath, True)
-               DbControllers.m_ProjController.DeleteProj(CurrProject.nProjId)
-               If Type = ProjectType.PROD AndAlso CurrProject.nProdId = Map.refProjManagerVM.CurrProj.nProdId Then
-               End If
-               CurrProject = Nothing
-            End If
             EgtResetModified()
             Return False
          End If
+      Else If CurrProject.bIsNew Then
+         ' lo elimino
+         If Directory.Exists(sProjectDirPath) Then
+            Directory.Delete(sProjectDirPath, True)
+         End If
+         DbControllers.m_ProjController.DeleteProj(CurrProject.nProjId)
+         If Type = ProjectType.PROD AndAlso CurrProject.nProdId = Map.refProjManagerVM.CurrProj.nProdId Then
+         End If
+         Map.refProjManagerVM.CurrProj = Nothing
+         EgtResetModified()
+         Return False
       End If
       DbControllers.m_ProjController.LockByProjId(CurrProject.nProjId, False)
       Return True