-gestito visualizzazione pezzo quando rimosso

-gestito livello utente per parametri strategie

EgtBEAMWALL.Optimizer/BTLPartManager/BTLPartManagerVM.vb

@@ -262,11 +262,11 @@ Public Class BTLPartManagerVM
       End If
       ' Eseguo cancellazione
       EgtBeamSetPart(BTLPartToDelete.nPartId)
+      ' seleziono elemento precedente
+      Dim Index As Integer = Map.refProjectVM.BTLStructureVM.BTLPartVMList.IndexOf(BTLPartToDelete)
+      Dim FilteredIndex As Integer = Map.refProjectVM.BTLStructureVM.BTLPartVMList_View.IndexOf(BTLPartToDelete)
+      Map.refProjectVM.BTLStructureVM.SelBTLParts.Remove(BTLPartToDelete)
       If EgtBeamErasePart() Then
-         ' seleziono elemento precedente
-         Dim Index As Integer = Map.refProjectVM.BTLStructureVM.BTLPartVMList.IndexOf(BTLPartToDelete)
-         Dim FilteredIndex As Integer = Map.refProjectVM.BTLStructureVM.BTLPartVMList_View.IndexOf(BTLPartToDelete)
-         Map.refProjectVM.BTLStructureVM.SelBTLParts.Remove(BTLPartToDelete)
          If bSelPrevious Then
             If FilteredIndex = 0 Then
                If Map.refProjectVM.BTLStructureVM.BTLPartVMList_View.Count > 1 Then

EgtBEAMWALL.Optimizer/ForcedStrategyBTL/ForcedStrategyBTLV.xaml

@@ -2,6 +2,7 @@
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
              xmlns:Optmizer="clr-namespace:EgtBEAMWALL.Optimizer">
+   
    <Grid>
       <Grid.ColumnDefinitions>
          <ColumnDefinition Width="Auto"/>
@@ -40,7 +41,8 @@
                 Foreground="Black"
                 BorderThickness="2"
                 Margin="0,-5,0,0"
-                BorderBrush="{StaticResource BeamWall_Glacier}">
+                BorderBrush="{StaticResource BeamWall_Glacier}"
+                Visibility="{Binding ForcedStrategyBTL_Visibility}">
          <GroupBox.Header>
             <TextBlock Text="{Binding SelStrategy.sStrategyName}" 
                        FontWeight="Bold"
@@ -49,4 +51,5 @@
          <Optmizer:ParameterStrategyV Tag="{Binding SelStrategy}"/>
       </GroupBox>
    </Grid>
+   
 </UserControl>

EgtBEAMWALL.Optimizer/ForcedStrategyBTL/ForcedStrategyBTLVM.vb

@@ -31,6 +31,12 @@ Public Class ForcedStrategyBTLVM
       End Set
    End Property
 
+   Public ReadOnly Property ForcedStrategyBTL_Visibility As Visibility
+      Get
+         Return If(Map.refMainWindowVM.MainWindowM.nUserLevel > 5, Visibility.Visible, Visibility.Collapsed)
+      End Get
+   End Property
+
    Private m_CurrentFeature As BTLFeatureM
 
    ' Definizione Comandi

EgtBEAMWALL.Optimizer/ForcedStrategyPanel/ForcedStrategyPanelV.xaml

@@ -8,11 +8,11 @@
          <RowDefinition Height="Auto"/>
       </Grid.RowDefinitions>
       <Grid.ColumnDefinitions>
-         <ColumnDefinition Width="1*"/>
+         <ColumnDefinition Width="Auto"/>
          <ColumnDefinition Width="1*"/>
       </Grid.ColumnDefinitions>
       <Border Margin="2,0,2,0" 
-           Style="{StaticResource OnlyProdPage_Border}">
+              Style="{StaticResource OnlyProdPage_Border}">
          <ListBox ItemsSource="{Binding StrategyList}"
                   SelectedItem="{Binding SelStrategy}"
                   Width="Auto"
@@ -45,7 +45,8 @@
                 Foreground="Black"
                 BorderThickness="2"
                 Margin="0,-5,0,0"
-                BorderBrush="{StaticResource BeamWall_Glacier}">
+                BorderBrush="{StaticResource BeamWall_Glacier}"
+                Visibility="{Binding ForcedStrategy_Visibility}">
          <GroupBox.Header>
             <TextBlock Text="{Binding SelStrategy.sStrategyName}" 
                        FontWeight="Bold"

EgtBEAMWALL.Optimizer/ForcedStrategyPanel/ForcedStrategyPanelVM.vb

@@ -31,6 +31,12 @@ Public Class ForcedStrategyPanelVM
       End Set
    End Property
 
+   Public ReadOnly Property ForcedStrategy_Visibility As Visibility
+      Get
+         Return If(Map.refMainWindowVM.MainWindowM.nUserLevel > 5, Visibility.Visible, Visibility.Collapsed)
+      End Get
+   End Property
+
    Private m_CurrentFeature As BTLFeatureM
 
    ' Definizione Comandi