-piccola modifica a updatepart assemblato

EgtBEAMWALL.Optimizer/BTLDataWnd/BTLDataWndVM.vb

@@ -700,12 +700,20 @@ Public Class BTLDataWndVM
                   DirectCast(GeneralParameter, DoubleGenericParameter).sValue = sTmpDoubleValue
                End If
             Case GetType(ComboGenericParameter)
-               Dim sTmpComboValue As String = DirectCast(GeneralParameter, ComboGenericParameter).SelValue.sValue
+               Dim sTmpComboValue As String = String.Empty
+               If Not IsNothing(DirectCast(GeneralParameter, ComboGenericParameter).SelValue) Then
+                  sTmpComboValue = DirectCast(GeneralParameter, ComboGenericParameter).SelValue.sValue
+               Else
+                  sTmpComboValue = DirectCast(GeneralParameter, ComboGenericParameter).ComboList(0).sValue
+               End If
                Dim sTmpValueInfo As String = String.Empty
                If EgtExistsInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge) Then
                   EgtGetInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge, sTmpValueInfo)
                   DirectCast(GeneralParameter, ComboGenericParameter).SelValue = DirectCast(GeneralParameter, ComboGenericParameter).ComboList.FirstOrDefault(Function(x) x.sValue = sTmpValueInfo)
                Else
+                  If IsNothing(DirectCast(GeneralParameter, ComboGenericParameter).SelValue) Then
+                     DirectCast(GeneralParameter, ComboGenericParameter).SelValue = New ComboParameter
+                  End If
                   DirectCast(GeneralParameter, ComboGenericParameter).SelValue.sValue = sTmpComboValue
                End If
             Case GetType(StringGenericParameter)

EgtBEAMWALL.Optimizer/Project/ProjectVM.vb

@@ -555,6 +555,7 @@ Public Class ProjectVM
    ''' </summary>
    Friend Sub UpdatePart(nPartId As Integer)
       Dim IdAsseBase As Integer = Map.refProdManagerVM.ListProjAsseBase(Map.refProjectVM.BTLStructureVM.SelBTLPart.nPROJ)
+      If IdAsseBase < 0 Then Return
       Dim IdPart As Integer = 0
       Dim NewId As Integer = 0
       ' Setto il nuovo contesto

EgtBEAMWALL.Supervisor/MainMenu/MainMenuVM.vb

@@ -72,12 +72,6 @@ Public Class MainMenuVM
       End Get
    End Property
 
-   Public ReadOnly Property ViewerOptimizer_Visibility As Visibility
-      Get
-         Return Visibility.Collapsed
-      End Get
-   End Property
-
    Private m_SelPage As Integer = -1
    Public Property SelPage As Integer
       Get