- correzione impostazione tipo progetto per sezioni al momento giusto

EgtBEAMWALL.Optimizer/OnlyProdManager/OnlyProdManagerVM.vb

@@ -498,7 +498,6 @@ Public Class OnlyProdManagerVM
       Next
       '' imposto macchina del progetto
       'Map.refMachinePanelVM.SelectedMachine = Map.refMachinePanelVM.MachineList.FirstOrDefault(Function(x) x.Name = ProjectManagerVM.CurrProd.sMachine)
-      SectionXMaterial.SetType(nType)
       Core.ViewPanelVM.UpdateBWType(nType)
       ' aggiorno le colonne in base al tipo progetto
       Map.refRawPartListVM.UpdateColumns(nType)
@@ -715,6 +714,7 @@ Public Class OnlyProdManagerVM
 
       End If
 
+      SectionXMaterial.SetType(nType)
       ' leggo struttura BTL per liste
       Map.refProjectVM.BTLStructureVM = New BTLStructureVM(BTLStructureM.CreateBTLStructure(0))
       ' aggiorno Db
@@ -847,6 +847,7 @@ Public Class OnlyProdManagerVM
 
       End If
 
+      SectionXMaterial.SetType(nType)
       ' leggo struttura BTL per liste
       Map.refProjectVM.BTLStructureVM = New BTLStructureVM(BTLStructureM.CreateBTLStructure(0))
       Dim sProjFileName As String = sProjDir & "\" & nProjId.ToString("0000") & ".nge"
@@ -975,6 +976,7 @@ Public Class OnlyProdManagerVM
       ' scrivo info proj su layer AsseBase
       Dim nAsseBaseLayer As Integer = EgtGetFirstNameInGroup(GDB_ID.ROOT, ASSEBASE)
       EgtSetInfo(nAsseBaseLayer, BTL_PRT_PROJ, nProjId)
+      SectionXMaterial.SetType(nType)
       ' leggo struttura BTL per liste
       Map.refProjectVM.BTLStructureVM = New BTLStructureVM(BTLStructureM.CreateBTLStructure(0))
       ' aggiorno Db
@@ -1222,6 +1224,7 @@ Public Class OnlyProdManagerVM
          EgtOutLog("Errore! Macchina del progetto da aprire non trovata!")
          Return False
       End If
+      ' apro il file
       If Not EgtOpenFile(sFilePath) Then
          m_MruFiles.Remove(sFilePath)
          If Not IsNothing(ProjectManagerVM.CurrProd) AndAlso sFilePath <> ProjectManagerVM.CurrProd.sProdPath Then
@@ -1235,6 +1238,7 @@ Public Class OnlyProdManagerVM
       End If
       ' imposto CurrentMachine
       InitCurrentMachine(OpenProjectMachine)
+      SectionXMaterial.SetType(TempCurrProd.nType)
       ' Procedo a seconda del risultato
       LoadingWndHelper.UpdateLoadingWnd(ActiveIds.OPENPROD, 2, EgtMsg(63005), 50, 70)           ' Loading part list
       ' leggo struttura BTL
@@ -1307,7 +1311,6 @@ Public Class OnlyProdManagerVM
       Map.refMachinePanelVM.SelectedMachine = Map.refMachinePanelVM.MachineList.FirstOrDefault(Function(x) x.Name = ProjectManagerVM.CurrProd.sMachine)
       Map.refMachinePanelVM.SetSelMachineName(Map.refMachinePanelVM.SelectedMachine.Name)
       Map.refMachinePanelVM.SetStrategyManagerIsChecked(True)
-      SectionXMaterial.SetType(ProjectManagerVM.CurrProd.nType)
       Core.ViewPanelVM.UpdateBWType(ProjectManagerVM.CurrProd.nType)
       ' aggiorno le colonne in base al tipo progetto
       Map.refRawPartListVM.UpdateColumns(ProjectManagerVM.CurrProd.nType)