Merge branch 'feature/NewPage' of https://gitlab.steamware.net/egalware-cadcam/interfacce/egtbeamwall into feature/NewPage

EgtBEAMWALL.ViewerOptimizer/BTLViewModel/BTLPartVM.vb

@@ -2196,7 +2196,7 @@ Public Class BTLPartVM
             CalcGlobalUpdate(True)
             ' imposto path disegno da mostrare in BottomPanel
             Dim SelPBTLParam As BTLParamVM = Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.SelPBTLParam
-            If Not IsNothing(SelPBTLParam) Then Map.refBottomPanelVM.SetCurrDraw(SelPBTLParam.sDrawPath)
+            If Not IsNothing(Map.refBottomPanelVM) AndAlso Not IsNothing(SelPBTLParam) Then Map.refBottomPanelVM.SetCurrDraw(SelPBTLParam.sDrawPath)
          Case NameOf(sender.bDO), NameOf(sender.sPriority)
             NotifyPropertyChanged(NameOf(bDOALL))
             ' setto pezzo da ricalcolare

EgtBEAMWALL.ViewerOptimizer/MainWindow/MainWindowVM.vb

@@ -182,7 +182,11 @@ Public Class MainWindowVM
       Else
          ' setto il primo file dalla lista degli MRU come progetto corrente da aprire
          Dim sLastProjectPath As String = String.Empty
-         GetMainPrivateProfileString(S_MRUPROJFILES, K_FILE & "1", String.Empty, sLastProjectPath)
+         Dim sMruSection As String = S_MRUPROJFILES
+         If Map.refMainWindowVM.MainWindowM.bOnlyProd Then
+            sMruSection = S_MRUPRODFILES
+         End If
+         GetMainPrivateProfileString(sMruSection, 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 PjId As Integer = 0