' correzione lettura programma all'avvio

EgtBEAMWALL.Optimizer/MainWindow/MainWindowVM.vb

@@ -145,19 +145,17 @@ Public Class MainWindowVM
       Else
          ' setto il primo file dalla lista degli MRU come progetto corrente da aprire
          Dim sLastProjectPath As String = String.Empty
-         Dim sMruSection As String = S_MRUPROJFILES
-         sMruSection = S_MRUPRODFILES
-         GetMainPrivateProfileString(sMruSection, K_FILE & "1", String.Empty, sLastProjectPath)
+         GetMainPrivateProfileString(S_MRUPRODFILES, K_FILE & "1", String.Empty, sLastProjectPath)
          If Not String.IsNullOrWhiteSpace(sLastProjectPath) AndAlso File.Exists(sLastProjectPath) Then
-            ' ricavo l'Id e il progetto associato per l'apertura di quest'ultimo
-            Dim ProjId As Integer = 0
+            '' ricavo l'Id e il progetto associato per l'apertura di quest'ultimo
+            Dim nProjId As Integer = 0
             Dim sProjId As String = Path.GetFileNameWithoutExtension(sLastProjectPath)
-            Integer.TryParse(sProjId, ProjId)
-            Map.refOnlyProdManagerVM.SetCurrProd(ProjId)
-            ' ricavo l'Id e il progetto associato per l'apertura di quest'ultimo
-            Dim ProdFileM = DbControllers.m_ProdController.FindCoreByProdId(ProjId)
-            Dim ProdFileVM = New ProdFileVM(ProdFileM)
-            Map.refOnlyProdManagerVM.OpenProject(ProdFileVM)
+            Integer.TryParse(sProjId, nProjId)
+            Dim ProdFileM = DbControllers.m_ProdController.FindCoreByProdId(nProjId)
+            If Not IsNothing(ProdFileM) Then
+               Dim ProdFileVM = New ProdFileVM(ProdFileM)
+               Map.refOnlyProdManagerVM.OpenProject(ProdFileVM)
+            End If
          End If
       End If
 

EgtBEAMWALL.Optimizer/ShowBeamPanel/OnlyProdShowBeamPanelV.xaml

@@ -23,4 +23,4 @@
       <Image Source="/Resources/ShowBeamPanel/ShowBuilding.png" Stretch="Uniform"/>
    </ToggleButton>
 
-</StackPanel>
+</StackPanel>