Gestione esportazione ed importazione progetti

EgtBEAMWALL.ViewerOptimizer/OpenProjectFileDialog/OpenProjectFileDialogVM.vb

@@ -271,6 +271,8 @@ Public Class OpenProjectFileDialogVM
    ''' </summary>
    Friend Sub Delete()
       If IsNothing(SelProject) Then Return
+      ' recupero indice per riselezionare
+      Dim ProjListIndex As Integer = m_ProjectList.IndexOf(SelProject)
       If m_ProjectType = ProjectType.PROJ Then
          ' verifico se proj selezionato e' il corrente
          If Not IsNothing(Map.refProjManagerVM.CurrProj) AndAlso SelProject.nProjId = Map.refProjManagerVM.CurrProj.nProjId Then
@@ -350,6 +352,14 @@ Public Class OpenProjectFileDialogVM
             m_ProjectList.Add(New ProdFileVM(Project))
          Next
       End If
+      ' ripristino selezionato
+      If ProjListIndex >= 0 AndAlso ProjListIndex <= m_ProjectList.Count - 1 Then
+         SelProject = m_ProjectList(ProjListIndex)
+         NotifyPropertyChanged(NameOf(SelProject))
+      End If
+      ' reset dei controller per tornare in sync
+      DbControllers.m_ProjController.ResetController()
+      DbControllers.m_ProdController.ResetController()
    End Sub
 
 #End Region ' Delete