Miglioramenti travi e sesting

EgtBEAMWALL.ViewerOptimizer/MainMenu/MainMenuVM.vb

@@ -126,6 +126,7 @@ Public Class MainMenuVM
       ' apro progetto proj
       If Not IsNothing(Map.refProjManagerVM.CurrProj) Then
          Map.refProjManagerVM.OpenProject(Map.refProjManagerVM.CurrProj)
+         DbControllers.m_ProjController.LockByProjId(Map.refProjManagerVM.CurrProj.nProjId, True)
       End If
       Map.refMainWindowVM.NotifyPropertyChanged("nSelTabPage")
       Return True
@@ -142,10 +143,6 @@ Public Class MainMenuVM
       Map.refProjectVM.SetProdManager_Visibility(True)
       ' verifico se progetto modificato, e chiedo se salvare
       If bVerifyModification Then ProjFileVM.VerifyProjectModification(Map.refProjManagerVM.CurrProj, ProjectType.PROJ)
-      ' sblocco progetto
-      If Not IsNothing(Map.refProjManagerVM.CurrProj) Then
-         DbControllers.m_ProjController.LockByProjId(Map.refProjManagerVM.CurrProj.nProjId, False)
-      End If
       Return True
    End Function
 
@@ -165,6 +162,7 @@ Public Class MainMenuVM
          If File.Exists(Map.refProdManagerVM.CurrProd.sProdPath) Then
             ' apro progetto
             Map.refSceneHostVM.MainController.OpenProject(Map.refProdManagerVM.CurrProd.sProdPath, False)
+            DbControllers.m_ProdController.LockByProdId(Map.refProdManagerVM.CurrProd.nProdId, True)
             ' seleziono prima barra
             Map.refProjectVM.MachGroupPanelVM.SelFirstMachGroup()
          Else
@@ -190,10 +188,6 @@ Public Class MainMenuVM
       ' verifico se progetto modificato, e chiedo se salvare
       If bVerifyModification Then ProdFileVM.VerifyProjectModification(Map.refProdManagerVM.CurrProd)
       EgtResetCurrMachGroup()
-      ' sblocco progetto
-      If Not IsNothing(Map.refProdManagerVM.CurrProd) Then
-         DbControllers.m_ProdController.LockByProdId(Map.refProdManagerVM.CurrProd.nProdId, False)
-      End If
       Return True
    End Function