Correzioni e migliorie comunicazione tra ottimizzatore e supervisore

EgtBEAMWALL.ViewerOptimizer/MainMenu/MainMenuVM.vb

@@ -2,6 +2,7 @@
 Imports System.IO
 Imports EgtBEAMWALL.Core
 Imports EgtBEAMWALL.Core.ConstBeam
+Imports EgtBEAMWALL.DataLayer.DatabaseModels
 Imports EgtUILib
 Imports EgtWPFLib5
 
@@ -244,8 +245,20 @@ Public Class MainMenuVM
                   ' se si rigenero BTLStructure
                   Map.refProjectVM.BTLStructureVM = New BTLStructureVM(BTLStructureM.CreateBTLStructure(0))
                End If
+               ' recupero indice di modifica progetto
+               Dim CommIndex As Integer = -1
+               Dim ActiveSessionList As List(Of StatusMapModel) = DbControllers.m_StatusMapController.GetProd()
+               For Each ActiveSession In ActiveSessionList
+                  If ActiveSession.ItemId = Map.refProdManagerVM.CurrProd.nProdId Then
+                     CommIndex = ActiveSession.Index
+                  End If
+               Next
                ' carico lista dei MachGroup
                Map.refProjectVM.MachGroupPanelVM = New MyMachGroupPanelVM(MyMachGroupPanelM.CreateMyMachGroupPanel(Map.refMachinePanelVM.MachineList.ToList()))
+               ' fisso indice sessione di comunicazione 
+               If CommIndex > -1 Then
+                  Map.refProdManagerVM.CurrProd.SetModificationIndex(CommIndex)
+               End If
                Map.refProjManagerVM.CurrProj.SetReloadProject(True)
             End If
             'DbControllers.m_ProdController.ResetController()