- aggiunto 10 a nProjectType in lancio simulazione per distinguere Aedifica da BeamWall

- modifiche per integrazione badge di Redmine

EgtBEAMWALL.Core/BTLViewModel/BTLFeatureVM.vb

@@ -163,7 +163,7 @@ Public Class BTLFeatureVM
 
    Public ReadOnly Property CALC_ROT_Visibility As Visibility
       Get
-         Return If(m_BTLFeatureM.nCALC_ROT <> 0, Visibility.Visible, Visibility.Collapsed)
+         Return If(m_BTLFeatureM.nCALC_ROT <> 0, Visibility.Visible, Visibility.Hidden)
       End Get
    End Property
 

EgtBEAMWALL.Core/CALCPanel/CalcIntegration.vb

@@ -155,7 +155,7 @@ Public Module CalcIntegration
                      Else
                         vProc(j).Proc.StartInfo.Arguments = """" & vBar(nCurrBar).sBarPath & """ " &
                                                             """" & vBar(nCurrBar).nProjType & """ " &
-                                                            """" & vBar(nCurrBar).nMachineName & """ " & vBar(nCurrBar).nCmdType
+                                                            """" & vBar(nCurrBar).nMachineName & """ " & vBar(nCurrBar).nCmdType & " " & vBar(nCurrBar).nBarState
                      End If
                      vProc(j).Proc.StartInfo.UseShellExecute = False
 
@@ -475,7 +475,7 @@ Public Module CalcIntegration
 End Module
 
 Public Class Bar
-   Public nBarState As Integer
+   Public nBarState As Integer = -1
    Public nBarId As Integer
    Public sBarPath As String
    Public bBarOk As Boolean

EgtBEAMWALL.Core/Constants/ConstIni.vb

@@ -102,6 +102,8 @@ Public Module ConstIni
    Public Const K_ENABLE As String = "Enable"
    Public Const K_ZEBRAUTILITIES As String = "ZebraUtilities"
    Public Const K_TEMPLATE As String = "Template"
+   Public Const K_PRINTERMODE As String = "Mode"
+   Public Const K_NETWORKADDRESS As String = "NetworkAddress"
 
    Public Const S_BEAM_LIST As String = "Beam_List"
    Public Const S_WALL_LIST As String = "Wall_List"

EgtBEAMWALL.Core/EgtMessageBox/EgtMessageBoxV.xaml.vb

@@ -1,5 +1,6 @@
-Imports EgtWPFLib5
-Imports System.Windows
+Imports System.Windows
+Imports System.Windows.Threading
+Imports EgtWPFLib5
 
 Public Class EgtMessageBoxV
 
@@ -25,6 +26,18 @@ Public Class EgtMessageBoxV
 
 #Region "METHODS"
 
+   Protected Overrides Sub OnSourceInitialized(e As EventArgs)
+      MyBase.OnSourceInitialized(e)
+      Me.WindowStartupLocation = WindowStartupLocation.CenterScreen
+   End Sub
+
+   Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+      Dispatcher.BeginInvoke(Sub()
+                                Me.Topmost = True
+                                Me.Activate()
+                             End Sub, DispatcherPriority.ContextIdle)
+   End Sub
+
    ''' <summary>
    ''' Apre una EgtMessageBox con un messaggio che ritorna un risultato
    ''' </summary>

EgtBEAMWALL.Core/MachGroupPanel/MyMachGroupVM.vb

@@ -267,13 +267,13 @@ Public MustInherit Class MyMachGroupVM
 
    Public ReadOnly Property CALC_ROT_Visibility As Visibility
       Get
-         Return If(MyMachGroupM.nCALC_ROT <> 0, Visibility.Visible, Visibility.Collapsed)
+         Return If(MyMachGroupM.nCALC_ROT <> 0, Visibility.Visible, Visibility.Hidden)
       End Get
    End Property
 
    Public ReadOnly Property CALC_FALL_Visibility As Visibility
       Get
-         Return If(MyMachGroupM.nCALC_FALL <> 0, Visibility.Visible, Visibility.Collapsed)
+         Return If(MyMachGroupM.nCALC_FALL <> 0, Visibility.Visible, Visibility.Hidden)
       End Get
    End Property
 

EgtBEAMWALL.Core/MachGroupPanel/PartVM.vb

@@ -319,13 +319,13 @@ Public MustInherit Class PartVM
 
    Public ReadOnly Property CALC_ROT_Visibility As Visibility
       Get
-         Return If(m_PartM.nCALC_ROT <> 0, Visibility.Visible, Visibility.Collapsed)
+         Return If(m_PartM.nCALC_ROT <> 0, Visibility.Visible, Visibility.Hidden)
       End Get
    End Property
 
    Public ReadOnly Property CALC_FALL_Visibility As Visibility
       Get
-         Return If(m_PartM.nCALC_FALL <> 0, Visibility.Visible, Visibility.Collapsed)
+         Return If(m_PartM.nCALC_FALL <> 0, Visibility.Visible, Visibility.Hidden)
       End Get
    End Property
 

EgtBEAMWALL.Core/My Project/AssemblyInfo.vb

@@ -17,7 +17,7 @@ Imports System.Windows
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Egalware s.r.l.")>
 <Assembly: AssemblyProduct("Aedifica.Core")>
-<Assembly: AssemblyCopyright("Copyright ©  2020-2025 by Egalware s.r.l.")>
+<Assembly: AssemblyCopyright("Copyright ©  2020-2026 by Egalware s.r.l.")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -38,5 +38,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("3.1.5.2")>
-<Assembly: AssemblyFileVersion("3.1.5.2")>
+<Assembly: AssemblyVersion("3.1.7.2")>
+<Assembly: AssemblyFileVersion("3.1.7.2")>

EgtBEAMWALL.Core/Themes/Generic.xaml

@@ -302,7 +302,11 @@
 
    <!--#region Colori ComboBox-->
 
-   <SolidColorBrush x:Key="ComboBox.Static.Background" Color="{StaticResource BeamWall_Glacier_Color}"/>
+   <!--<SolidColorBrush x:Key="ComboBox.Static.Background" Color="{StaticResource BeamWall_Glacier_Color}"/>-->
+   <LinearGradientBrush x:Key="ComboBox.Static.Background" EndPoint="0,1" StartPoint="0,0">
+      <GradientStop Color="{StaticResource BeamWall_Gallery_Color}" Offset="0.0"/>
+      <GradientStop Color="{StaticResource BeamWall_Mercury_Color}" Offset="1.0"/>
+   </LinearGradientBrush>
    <SolidColorBrush x:Key="ComboBox.Static.Border" Color="{StaticResource BeamWall_Glacier_Color}"/>
    <SolidColorBrush x:Key="ComboBox.Static.Glyph" Color="{StaticResource BeamWall_White_Color}"/>
    <SolidColorBrush x:Key="ComboBox.Static.Foreground" Color="{StaticResource BeamWall_Corduroy_Color}"/>
@@ -1921,6 +1925,7 @@
 
    <Style x:Key="EgtMessageBox_ItemsControl" TargetType="{x:Type ItemsControl}" BasedOn="{StaticResource {x:Type ItemsControl}}">
       <Setter Property="HorizontalAlignment" Value="Center"/>
+      <Setter Property="Margin" Value="0,0,0,10"/>
    </Style>
 
    <Style x:Key="UsersControl_ItemsControl" TargetType="{x:Type ItemsControl}" BasedOn="{StaticResource {x:Type ItemsControl}}">

EgtBEAMWALL.DataLayer/Properties/AssemblyInfo.cs

@@ -32,5 +32,5 @@ using System.Runtime.InteropServices;
 // You can specify all the values or you can default the Build and Revision Numbers
 // by using the '*' as shown below:
 // [assembly: AssemblyVersion("1.0.*")]
-[assembly: AssemblyVersion("3.1.5.2")]
-[assembly: AssemblyFileVersion("3.1.5.2")]
+[assembly: AssemblyVersion("3.1.7.2")]
+[assembly: AssemblyFileVersion("3.1.7.2")]

EgtBEAMWALL.Optimizer/AboutBoxWindow/AboutBoxV.xaml.vb

@@ -1,5 +1,4 @@
 Imports EgtUILib
-Imports EgtBEAMWALL.Core
 
 Public Class AboutBoxV
 

EgtBEAMWALL.Optimizer/AddFeatureWnd/AddFeatureWndVM.vb

@@ -106,11 +106,7 @@ Public Class AddFeatureWndVM
                GetMacroListDefault(nGRPFromFileName, nPRCFromFileName, sMacroNameFromFileName, nIdMacroName)
                ' ricavo lista file Macro Custom
                GetMacroListCustom(nGRPFromFileName, nPRCFromFileName, sMacroNameFromFileName, nIdMacroName)
-               If MacroCustomList.Count > 0 Then
-                  MacroList_IsEnabled = True
-               Else
-                  MacroList_IsEnabled = False
-               End If
+               MacroList_IsEnabled = If(MacroCustomList.Count > 0, True, False)
             End If
          End If
          NotifyPropertyChanged(NameOf(nSelPRC))

EgtBEAMWALL.Optimizer/AddPartWnd/AddPartWndVM.vb

@@ -147,7 +147,7 @@ Public Class AddPartWndVM
 
 #Region "COMMANDS"
 
-#Region "Ok"
+#Region "Ok_Command"
 
    Public ReadOnly Property Ok_Command As ICommand
       Get
@@ -169,7 +169,7 @@ Public Class AddPartWndVM
       End If
    End Sub
 
-#End Region ' Ok
+#End Region ' Ok_Command
 
 #End Region    ' COMMANDS
 

EgtBEAMWALL.Optimizer/AddRawPartWnd/AddRawPartWndVM.vb

@@ -143,7 +143,7 @@ Public Class AddRawPartWndVM
 
 #Region "COMMANDS"
 
-#Region "Ok"
+#Region "Ok_Command"
 
    Public ReadOnly Property Ok_Command As ICommand
       Get
@@ -167,7 +167,7 @@ Public Class AddRawPartWndVM
       RaiseEvent m_CloseWindow(True)
    End Sub
 
-#End Region ' Ok
+#End Region ' Ok_Command
 
 #End Region    ' COMMANDS
 

EgtBEAMWALL.Optimizer/Application.xaml

@@ -1,13 +1,14 @@
 <Application x:Class="Application"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer">
+             xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Core;assembly=EgtBEAMWALL.Core">
 
    <Application.Resources>
       <ResourceDictionary>
          <ResourceDictionary.MergedDictionaries>
             <!--<ResourceDictionary Source="pack://application:,,,/EgtBEAMWALL.Core;component/Themes/DarkDictionary.xaml"/>
             <ResourceDictionary Source="pack://application:,,,/EgtBEAMWALL.Core;component/Themes/DefaultDictionary.xaml"/>-->
+            <ResourceDictionary Source="/EgwRedmineAPI;component/Themes/Generic.xaml"/>
             <ResourceDictionary Source="pack://application:,,,/EgtBEAMWALL.Core;component/Themes/Generic.xaml"/>
             <ResourceDictionary Source="Utility/Dictionary.xaml"/>
          </ResourceDictionary.MergedDictionaries>

EgtBEAMWALL.Optimizer/BTLDataWnd/BTLDataWndV.xaml

@@ -18,7 +18,7 @@
                <RowDefinition Height="Auto"/>
                <RowDefinition Height="1*"/>
             </Grid.RowDefinitions>
-            <StackPanel Orientation="Horizontal" HorizontalAlignment="Center">
+            <StackPanel Style="{StaticResource MachinePanel_StackPanel}">
                <ComboBox ItemsSource="{Binding StrategySetupList}" 
                          SelectedItem="{Binding SelStrategySetup, UpdateSourceTrigger=PropertyChanged}"
                          Style="{StaticResource BTLDataWnd_ComboBox}">
@@ -68,116 +68,123 @@
             <TextBlock Text="{Binding PROJNUM_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sPROJNUM, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sPROJNUM, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding PROJNAME_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sPROJNAME, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sPROJNAME, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding PROJPART_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sPROJPART, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sPROJPART, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding PROJGUID_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sPROJGUID, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sPROJGUID, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding LISTNAME_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sLISTNAME, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sLISTNAME, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding CUSTOMER_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sCUSTOMER, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sCUSTOMER, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding ARCHITECT_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sARCHITECT, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sARCHITECT, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding EDITOR_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sEDITOR, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sEDITOR, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding DELIVDATE_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sDELIVDATE, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding sDELIVDATE, UpdateSourceTrigger=Explicit,
+                                                  RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:BTLDataWndV}}}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding EXPDATE_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sEXPDATE, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sEXPDATE, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding EXPTIME_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sEXPTIME, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sEXPTIME, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding EXPRELEASE_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sEXPRELEASE, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sEXPRELEASE, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding LANGUAGE_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sLANGUAGE, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sLANGUAGE, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding RANGE_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <ComboBox Grid.Column="1"
-                      ItemsSource="{Binding ocRANGE,
+                      ItemsSource="{Binding RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:BTLDataWndV}},
+                                            Path=Tag.ocRANGE,
                                             Mode=OneWay}"
-                      SelectedIndex="{Binding SelRANGE,
+                      SelectedIndex="{Binding RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:BTLDataWndV}},
+                                              Path=Tag.SelRANGE,
                                               Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"
                       Style="{StaticResource PartParam_ComboBox}"/>
             <TextBlock Text="{Binding PROCESSINGQUALITY_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <ComboBox Grid.Column="1"
-                      ItemsSource="{Binding ocPROCESSINGQUALITY,
+                      ItemsSource="{Binding RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:BTLDataWndV}},
+                                            Path=Tag.ocPROCESSINGQUALITY,
                                             Mode=OneWay}"
-                      SelectedIndex="{Binding SelPROCESSINGQUALITY,
+                      SelectedIndex="{Binding RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:BTLDataWndV}},
+                                              Path=Tag.SelPROCESSINGQUALITY,
                                               Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"
                       Style="{StaticResource PartParam_ComboBox}"/>
             <TextBlock Text="{Binding COMPUTERNAME_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sCOMPUTERNAME, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sCOMPUTERNAME, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding USER_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sUSER, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sUSER, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding SRCFILE_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sSRCFILE, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sSRCFILE, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding EXPFILE_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sEXPFILE, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sEXPFILE, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
             <TextBlock Text="{Binding RECESS_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <ComboBox Grid.Column="1"
-                      ItemsSource="{Binding ocRECESS,
+                      ItemsSource="{Binding RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:BTLDataWndV}},
+                                            Path=Tag.ocRECESS,
                                             Mode=OneWay}"
-                      SelectedIndex="{Binding SelRECESS,
+                      SelectedIndex="{Binding RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:BTLDataWndV}},
+                                              Path=Tag.SelRECESS,
                                               Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"
                       Style="{StaticResource PartParam_ComboBox}"/>
             <TextBlock Text="{Binding USERATTRIBUTE_MSG}"
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                   Text="{Binding sUSERATTRIBUTE, UpdateSourceTrigger=Explicit}"
+                                   Text="{Binding CurrBTLStructure.sUSERATTRIBUTE, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
 
          </UniformGrid>

EgtBEAMWALL.Optimizer/BTLDataWnd/BTLDataWndV.xaml.vb

@@ -6,6 +6,7 @@
       ' This call is required by the designer.
       InitializeComponent()
       Me.DataContext = BTLDataWndVM
+      Me.Tag = Map.refProjectVM.BTLStructureVM
       ' Assegno al riferimento locale al VM il VM preso dal DataContext
       m_BTLDataWndVM = BTLDataWndVM
    End Sub
@@ -19,6 +20,7 @@
       If Not IsNothing(Map.refBTLDataWndVM.SelStrategySetup) AndAlso Map.refBTLDataWndVM.SelStrategySetup.Equals(SelStrategy.Content) Then
          Map.refStrategyManagerVM.SelStrategySetup.sName = SelStrategy.Content
          Map.refStrategyManagerVM.SelStrategySetup.Read()
+         Map.refStrategyManagerVM.OrderStrategyList(Map.refStrategyManagerVM.SelStrategySetup.StrategyFeatureList)
          Map.refBTLDataWndVM.ReadCustomGeneralParameters(SelStrategy.Content)
          Map.refBTLDataWndVM.SelStrategySetup = SelStrategy.Content
       End If

EgtBEAMWALL.Optimizer/BTLDataWnd/BTLDataWndVM.vb

@@ -33,6 +33,7 @@ Public Class BTLDataWndVM
          If m_SelStrategySetup <> value Then
             Map.refStrategyManagerVM.SelStrategySetup.sName = value
             Map.refStrategyManagerVM.SelStrategySetup.Read()
+            Map.refStrategyManagerVM.OrderStrategyList(Map.refStrategyManagerVM.SelStrategySetup.StrategyFeatureList)
             ReadCustomGeneralParameters(value)
          End If
          m_SelStrategySetup = value
@@ -80,6 +81,13 @@ Public Class BTLDataWndVM
       NotifyPropertyChanged(NameOf(ErrText))
    End Sub
 
+   Private m_CurrBTLStructure As BTLStructureVM
+   Public ReadOnly Property CurrBTLStructure As BTLStructureVM
+      Get
+         Return m_CurrBTLStructure
+      End Get
+   End Property
+
 #Region "Parametri generici"
 
    Public m_sPROJNUM As String
@@ -565,8 +573,9 @@ Public Class BTLDataWndVM
       Map.refMainWindowVM.MainWindowM.GetDefaultConfigDirPath(nType, True)
    End Sub
 
-   Sub New()
+   Sub New(BTLStructure As BTLStructureVM)
       Map.SetRefBTLDataWndVM(Me)
+      m_CurrBTLStructure = BTLStructure
       SetIsBTLDataWnd(True)
       ' leggo parametri Btl
       ReadBtlParams()
@@ -829,7 +838,7 @@ Public Class BTLDataWndVM
 
 #Region "COMMANDS"
 
-#Region "Ok"
+#Region "Ok_Command"
 
    Public ReadOnly Property Ok_Command As ICommand
       Get
@@ -851,14 +860,14 @@ Public Class BTLDataWndVM
       End If
       SetIsBTLDataWnd(True)
       SaveInfo()
-      Map.refLeftPanelVM.ResetCalc()
+      Map.refPartListVM.ResetCalc()
       Map.refSceneHostVM.SaveProject()
       RaiseEvent m_CloseWindow(True)
    End Sub
 
-#End Region ' Ok
+#End Region ' Ok_Command
 
-#Region "Cancel"
+#Region "Cancel_Command"
 
    Public ReadOnly Property Cancel_Command As ICommand
       Get
@@ -873,7 +882,7 @@ Public Class BTLDataWndVM
       RaiseEvent m_CloseWindow(False)
    End Sub
 
-#End Region ' Cancel
+#End Region ' Cancel_Command
 
 #End Region    ' COMMANDS
 

EgtBEAMWALL.Optimizer/BTLPartManager/BTLPartManagerV.xaml

@@ -1,50 +1,47 @@
-<Border x:Class="BTLPartManagerV"
-        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-        DataContext="{StaticResource BTLPartManagerVM}"
-        Style="{StaticResource BTLPartManager_Border}">
+<dxb:PopupMenu x:Class="BTLPartManagerV"
+               xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+               xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+               xmlns:dx="http://schemas.devexpress.com/winfx/2008/xaml/core"
+               xmlns:dxb="http://schemas.devexpress.com/winfx/2008/xaml/bars"
+               xmlns:dxi="http://schemas.devexpress.com/winfx/2008/xaml/core/internal"
+               xmlns:dxt="http://schemas.devexpress.com/winfx/2008/xaml/core/themekeys"
+               DataContext="{StaticResource BTLPartManagerVM}"
+               Background="{StaticResource Border.BTLPartManager.Background}"
+               BorderBrush="{StaticResource Border.BTLPartManager.Border}"
+               BorderThickness="2"
+               CornerRadius="5"
+               Margin="0"
+               Padding="0">
 
-   <StackPanel Style="{StaticResource PartManager_StackPanel}">
-      <Button Command="{Binding CopyPart_Command}"
-              Click="ClosePopUp_Click"
-              ToolTip="{Binding CopyPart_ToolTip}"
-              IsEnabled="{Binding CopyPart_IsEnabled}"
-              Style="{StaticResource LP_Button}">
-         <Image Source="{StaticResource CopyPart_Image}" 
-                Style="{StaticResource BTLDataWnd_Image}"/>
-      </Button>
-      <Button Command="{Binding RemovePart_Command}"
-              Click="ClosePopUp_Click"
-              ToolTip="{Binding RemovePart_ToolTip}"
-              IsEnabled="{Binding RemovePart_IsEnabled}"
-              Style="{StaticResource LP_Button}">
-         <Image Source="{StaticResource Remove_Image}"
-                Style="{StaticResource BTLDataWnd_Image}"/>
-      </Button>
-      <Button ToolTip="{Binding Simulate_ToolTip}"
-              Click="ClosePopUp_Click"
-              Command="{Binding Simulate_Command}"
-              IsEnabled="{Binding Simulate_IsEnabled}"
-              Style="{StaticResource LP_Button}">
-         <Image Source="{StaticResource Simulate_Image}" 
-                Style="{StaticResource BTLDataWnd_Image}"/>
-      </Button>
-      <Button ToolTip="{Binding Edit_ToolTip}"
-              Click="ClosePopUp_Click"
-              Command="{Binding Edit_Command}"
-              IsEnabled="{Binding Edit_IsEnabled}"
-              Style="{StaticResource LP_Button}">
-         <Image Source="{StaticResource Edit_Image}" 
-                Style="{StaticResource BTLDataWnd_Image}"/>
-      </Button>
-      <Button Command="{Binding ResetCalc_Command}"
-              Click="ClosePopUp_Click"
-              ToolTip="{Binding ResetCalc_ToolTip}"
-              IsEnabled="{Binding CALCPanel_IsEnabled}"
-              Style="{StaticResource LP_Button}">
-         <Image Source="{StaticResource ResetCalc_Image}" 
-                Style="{StaticResource BTLDataWnd_Image}"/>
-      </Button>
-   </StackPanel>
+   <dxb:BarItemMenuHeader ShowContentHeader="False" 
+                          ItemsOrientation="Horizontal"
+                          Margin="0"
+                          Padding="0">
+      <dxb:BarButtonItem Command="{Binding CopyPart_Command}"
+                         ToolTip="{Binding CopyPart_ToolTip}"
+                         IsEnabled="{Binding CopyPart_IsEnabled}"
+                         Glyph="{StaticResource CopyPart_Image}"
+                         Style="{StaticResource DropDownButton_BarButtonItem}"/>
+      <dxb:BarButtonItem Command="{Binding RemovePart_Command}"
+                         ToolTip="{Binding RemovePart_ToolTip}"
+                         IsEnabled="{Binding RemovePart_IsEnabled}"
+                         Glyph="{StaticResource Remove_Image}"
+                         Style="{StaticResource DropDownButton_BarButtonItem}"/>
+      <dxb:BarButtonItem ToolTip="{Binding Simulate_ToolTip}"
+                         Command="{Binding Simulate_Command}"
+                         IsEnabled="{Binding Simulate_IsEnabled}"
+                         Glyph="{StaticResource Simulate_Image}"
+                         Style="{StaticResource DropDownButton_BarButtonItem}"/>
+      <dxb:BarButtonItem ToolTip="{Binding Edit_ToolTip}"
+                         Command="{Binding Edit_Command}"
+                         IsEnabled="{Binding Edit_IsEnabled}"
+                         Glyph="{StaticResource Edit_Image}"
+                         Style="{StaticResource DropDownButton_BarButtonItem}"/>
+      <dxb:BarButtonItem Command="{Binding ResetCalc_Command}"
+                         ToolTip="{Binding ResetCalc_ToolTip}"
+                         IsEnabled="{Binding CALCPanel_IsEnabled}"
+                         Glyph="{StaticResource ResetCalc_Image}"
+                         Style="{StaticResource DropDownButton_BarButtonItem}"/>
+   </dxb:BarItemMenuHeader>
 
-</Border>
+</dxb:PopupMenu>

EgtBEAMWALL.Optimizer/BTLPartManager/BTLPartManagerV.xaml.vb

@@ -1,14 +1,3 @@
 Public Class BTLPartManagerV
 
-   Private Sub ClosePopUp_Click(sender As Object, e As RoutedEventArgs)
-      Dim Button As Button = DirectCast(sender, Button)
-      Dim StackPanel As StackPanel = DirectCast(Button.Parent, StackPanel)
-      Dim BTLPartManagerV As BTLPartManagerV = DirectCast(StackPanel.Parent, BTLPartManagerV)
-      Dim Popup As Primitives.Popup = DirectCast(BTLPartManagerV.Parent, Primitives.Popup)
-
-      If Not IsNothing(Popup) Then
-         Popup.IsOpen = False
-      End If
-   End Sub
-
 End Class

EgtBEAMWALL.Optimizer/BTLPartManager/BTLPartManagerVM.vb

@@ -8,7 +8,12 @@ Public Class BTLPartManagerVM
 
 #Region "FIELDS & PROPERTIES"
 
-   Private PADLOCK_IMAGE As String = "pack://application:,,,/Resources/NewPage/padlock.png"
+   Private m_BTLDataWndVM As BTLDataWndVM
+   Public ReadOnly Property BTLDataWndVM As BTLDataWndVM
+      Get
+         Return m_BTLDataWndVM
+      End Get
+   End Property
 
    Private m_BTLPartManager_IsEnabled As Boolean = True
    Public ReadOnly Property BTLPartManager_IsEnabled As Boolean
@@ -178,7 +183,7 @@ Public Class BTLPartManagerVM
 
 #Region "COMMANDS"
 
-#Region "CopyPart"
+#Region "CopyPart_Command"
 
    Public ReadOnly Property CopyPart_Command As ICommand
       Get
@@ -196,15 +201,15 @@ Public Class BTLPartManagerVM
       ' creo copia
       Dim NewPart As BTLPartM = SelPart.Copy()
       If Not IsNothing(NewPart) Then
-         Map.refProjectVM.UpdatePart(NewPart.nPartId)
+         If Map.refProdManagerVM.ListProjAsseBase.Count > 0 Then Map.refProjectVM.UpdatePart(NewPart.nPartId)
          ' selezione ultimo che e' quello appena creato
          Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList(Map.refProjectVM.BTLStructureVM.BTLPartVMList.Count - 1), False, True)
       End If
    End Sub
 
-#End Region    ' CopyPart
+#End Region    ' CopyPart_Command
 
-#Region "RemovePart"
+#Region "RemovePart_Command"
 
    Public ReadOnly Property RemovePart_Command As ICommand
       Get
@@ -216,81 +221,12 @@ Public Class BTLPartManagerVM
    End Property
 
    Public Sub RemovePartCmd()
-      If IsNothing(ProjectManagerVM.CurrProd) Then Return
-      If EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(62573), EgtMsg(30009), MessageBoxButton.OKCancel, MessageBoxImage.Exclamation) = MessageBoxResult.OK Then
-         If Map.refProjectVM.BTLStructureVM.SelBTLParts.Count > 0 Then
-            Dim CurrSelBTLParts As List(Of BTLPartVM) = Map.refProjectVM.BTLStructureVM.SelBTLParts.ToList()
-            For RemoveIndex = CurrSelBTLParts.Count - 1 To 0 Step -1
-               RemovePart(CurrSelBTLParts(RemoveIndex), RemoveIndex = 0)
-            Next
-         End If
-      Else
-         Return
-      End If
+      Map.refProjectVM.BTLStructureVM.DeletePart()
    End Sub
 
-   Public Sub RemovePart(BTLPartToDelete As BTLPartVM, bSelPrevious As Boolean)
-      ' verifico se ci sono già copie in grezzi
-      Dim nDuploCount As Integer = 0
-      If EgtDuploCount(BTLPartToDelete.nPartId, nDuploCount) AndAlso nDuploCount > 0 Then
-         ' avviso che il pezzo non è cancellabile perchè in produzione
-         EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, String.Format(EgtMsg(61929), nDuploCount), EgtMsg(15003), MessageBoxButton.OK, MessageBoxImage.Warning)
-         Return
-      End If
-      ' verifico se rimuovere sezione dalla lista
-      If Not Map.refProjectVM.BTLStructureVM.BTLPartVMList.Any(Function(x) x IsNot BTLPartToDelete AndAlso x.Section = BTLPartToDelete.Section) Then
-         Map.refProjectVM.BTLStructureVM.SectionList.Remove(BTLPartToDelete.Section)
-         Map.refProjectVM.BTLStructureVM.SelSection = SectionXMaterial.Empty
-      End If
-      ' Eseguo cancellazione
-      EgtBeamSetPart(BTLPartToDelete.nPartId)
-      RemoveScenePart(BTLPartToDelete)
-      ' 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
-         If bSelPrevious Then
-            If FilteredIndex = 0 Then
-               If Map.refProjectVM.BTLStructureVM.BTLPartVMList_View.Count > 1 Then
-                  Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList_View(1))
-               Else
-                  Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Nothing)
-               End If
-            ElseIf FilteredIndex = Map.refProjectVM.BTLStructureVM.BTLPartVMList_View.Count - 1 Then
-               If Map.refProjectVM.BTLStructureVM.BTLPartVMList_View.Count > 1 Then
-                  Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList_View(Map.refProjectVM.BTLStructureVM.BTLPartVMList_View.Count - 2))
-               Else
-                  Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Nothing)
-               End If
-            Else
-               Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList_View(FilteredIndex - 1))
-            End If
-         End If
-         ' rimuovo dalla lista pezzi
-         Map.refProjectVM.BTLStructureVM.BTLPartVMList.RemoveAt(Index)
-      End If
-   End Sub
+#End Region    ' RemovePart_Command
 
-   Private Sub RemoveScenePart(BTLPartToDelete As BTLPartVM)
-      ' Rimuovo pezzo dalla scena
-      Dim IdAsseBase As Integer = Map.refProdManagerVM.ListProjAsseBase(BTLPartToDelete.nPROJ)
-      If IdAsseBase < 0 Then Return
-      ' Setto il nuovo contesto
-      EgtSetCurrentContext(Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx())
-      If EgtBeamGetBuildingIsOn(IdAsseBase) Then EgtBeamShowBuilding(IdAsseBase, False)
-      Dim DeletePartId As Integer = Map.refSceneShowBuldingVM.MapInfo(BTLPartToDelete.nPartId)
-      EgtErase(DeletePartId)
-      Map.refSceneShowBuldingVM.MapInfo.Remove(BTLPartToDelete.nPartId)
-      EgtBeamShowBuilding(IdAsseBase, True)
-      EgtZoom(ZM.ALL)
-      ' Ritorno al contesto corrente
-      EgtSetCurrentContext(Map.refSceneHostVM.MainScene.GetCtx())
-   End Sub
-
-#End Region    ' RemovePart
-
-#Region "SimulateCommand"
+#Region "Simulate_Command"
 
    Public ReadOnly Property Simulate_Command As ICommand
       Get
@@ -316,7 +252,7 @@ Public Class BTLPartManagerVM
          Dim TempBarList(0) As EgtBEAMWALL.Core.Bar
          Dim Bar As New EgtBEAMWALL.Core.Bar With {.nBarId = Map.refProjectVM.BTLStructureVM.SelBTLPart.nPartId,
                                                   .nProgramPage = ProjectType.PROJ,
-                                                  .nProjType = ProjType,
+                                                  .nProjType = ProjType + 10,
                                                   .bBarOk = True,
                                                   .nMachineName = ProjectManagerVM.CurrProd.sMachine,
                                                   .nCmdType = CalcIntegration.CmdTypes.SIMULATE,
@@ -335,9 +271,9 @@ Public Class BTLPartManagerVM
       Return True
    End Function
 
-#End Region ' SimulateCommand
+#End Region ' Simulate_Command
 
-#Region "Edit"
+#Region "Edit_Command"
 
    Public ReadOnly Property Edit_Command As ICommand
       Get
@@ -349,6 +285,17 @@ Public Class BTLPartManagerVM
    End Property
 
    Friend Sub Edit()
+      If IsNothing(Map.refBTLDataWndVM) Then Return
+      If IsNothing(Map.refProjectVM) Then Return
+      If IsNothing(Map.refProjectVM.BTLStructureVM) Then Return
+      If IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) Then Return
+      If IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart.BTLPartM) Then Return
+      If Map.refProjectVM.BTLStructureVM.SelBTLPart.BTLPartM.nPartId < -1 Then Return
+      If IsNothing(ProjectManagerVM.CurrProd) Then Return
+
+      If IsNothing(Map.refBTLDataWndVM) Then
+         m_BTLDataWndVM = New BTLDataWndVM(Map.refProjectVM.BTLStructureVM)
+      End If
       Map.refBTLDataWndVM.SetIsBTLDataWnd(False)
       Dim bValuePart As Boolean = False
       For Each GeneralParam As ProjectParameters In Map.refProjectVM.GeneralParametersList
@@ -371,9 +318,9 @@ Public Class BTLPartManagerVM
       Map.refProjectVM.SetLeftPanel_Opacity(0.2)
    End Sub
 
-#End Region ' Edit
+#End Region ' Edit_Command
 
-#Region "ResetCalc"
+#Region "ResetCalc_Command"
 
    Public ReadOnly Property ResetCalc_Command As ICommand
       Get
@@ -402,7 +349,7 @@ Public Class BTLPartManagerVM
       End If
    End Sub
 
-#End Region    ' ResetCalc
+#End Region    ' ResetCalc_Command
 
 #End Region    ' COMMANDS
 

EgtBEAMWALL.Optimizer/BTLViewModel/BTLFeatureVM.vb

@@ -293,6 +293,12 @@ Public Class BTLFeatureVM
       End Set
    End Property
 
+   Public ReadOnly Property sFeature_Name As String
+      Get
+         Return $"[{nSelGRP}-{nPRC:000}] {sName}"
+      End Get
+   End Property
+
 #Region "Messages"
 
    Public ReadOnly Property Edit_ToolTip As String
@@ -481,7 +487,7 @@ Public Class BTLFeatureVM
 
 #Region "COMMANDS"
 
-#Region "DeleteFeature"
+#Region "DeleteFeature_Command"
 
    Public ReadOnly Property DeleteFeature_Command As ICommand
       Get
@@ -496,9 +502,9 @@ Public Class BTLFeatureVM
       Map.refFeatureListManagerVM.RemoveFeature()
    End Sub
 
-#End Region ' DeleteFeature
+#End Region ' DeleteFeature_Command
 
-#Region "Edit"
+#Region "Edit_Command"
 
    Public ReadOnly Property Edit_Command As ICommand
       Get
@@ -514,9 +520,9 @@ Public Class BTLFeatureVM
       Map.refFreeContourManagerVM.Open()
    End Sub
 
-#End Region ' Edit
+#End Region ' Edit_Command
 
-#Region "Save"
+#Region "Save_Command"
 
    Public ReadOnly Property Save_Command As ICommand
       Get
@@ -537,9 +543,9 @@ Public Class BTLFeatureVM
       Map.refFreeContourManagerVM.Close(True)
    End Sub
 
-#End Region ' Save
+#End Region ' Save_Command
 
-#Region "Cancel"
+#Region "Cancel_Command"
 
    Public ReadOnly Property Cancel_Command As ICommand
       Get
@@ -555,9 +561,9 @@ Public Class BTLFeatureVM
       Map.refFreeContourManagerVM.Close(False)
    End Sub
 
-#End Region ' Cancel
+#End Region ' Cancel_Command
 
-#Region "Strategy"
+#Region "Strategy_Command"
 
    Public ReadOnly Property Strategy_Command As ICommand
       Get
@@ -576,9 +582,9 @@ Public Class BTLFeatureVM
       Map.refForcedStrategyPanelVM.Init(BTLFeatureM)
    End Sub
 
-#End Region ' Strategy
+#End Region ' Strategy_Command
 
-#Region "EditFeature"
+#Region "EditFeature_Command"
 
    Public ReadOnly Property EditFeature_Command As ICommand
       Get
@@ -607,7 +613,7 @@ Public Class BTLFeatureVM
       EgtDraw()
    End Sub
 
-#End Region ' EditFeature
+#End Region ' EditFeature_Command
 
 #End Region    ' COMMANDS
 

EgtBEAMWALL.Optimizer/BTLViewModel/BTLPartVM.vb

@@ -18,6 +18,7 @@ Public Class BTLPartVM
          Return m_BTLPartM
       End Get
    End Property
+
    Private m_BTLStructureM As BTLStructureM
 
    Public ReadOnly Property nPartId As Integer
@@ -187,7 +188,9 @@ Public Class BTLPartVM
       Get
          Dim nOrigGroupId As Integer = nPartId
          If EgtGetCurrentContext() = Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx() Then
-            nOrigGroupId = Map.refSceneShowBuldingVM.MapInfo(nPartId)
+            If Not Map.refSceneShowBuldingVM.MapInfo.TryGetValue(nPartId, nOrigGroupId) Then
+               EgtOutLog(nPartId & " non presente")
+            End If
          End If
          If EgtBeamGetBuildingIsOn() AndAlso Map.refShowBeamPanelVM.bShowAll Then
             nOrigGroupId = GetOrigFrameGroup(nPartId)
@@ -248,7 +251,9 @@ Public Class BTLPartVM
       Get
          Dim nOrigGroupId As Integer = nPartId
          If EgtGetCurrentContext() = Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx() Then
-            nOrigGroupId = Map.refSceneShowBuldingVM.MapInfo(nPartId)
+            If Not Map.refSceneShowBuldingVM.MapInfo.TryGetValue(nPartId, nOrigGroupId) Then
+               EgtOutLog(nPartId & " non presente")
+            End If
          End If
          If EgtBeamGetBuildingIsOn() AndAlso Map.refShowBeamPanelVM.bShowAll Then
             nOrigGroupId = GetOrigFrameGroup(nPartId)
@@ -309,7 +314,9 @@ Public Class BTLPartVM
       Get
          Dim nOrigGroupId As Integer = nPartId
          If EgtGetCurrentContext() = Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx() Then
-            nOrigGroupId = Map.refSceneShowBuldingVM.MapInfo(nPartId)
+            If Not Map.refSceneShowBuldingVM.MapInfo.TryGetValue(nPartId, nOrigGroupId) Then
+               EgtOutLog(nPartId & " non presente")
+            End If
          End If
          If EgtBeamGetBuildingIsOn() AndAlso Map.refShowBeamPanelVM.bShowAll Then
             nOrigGroupId = GetOrigFrameGroup(nPartId)
@@ -1369,13 +1376,13 @@ Public Class BTLPartVM
 
    Public ReadOnly Property CALC_ROT_Visibility As Visibility
       Get
-         Return If(m_BTLPartM.nCALC_ROT <> 0, Visibility.Visible, Visibility.Collapsed)
+         Return If(m_BTLPartM.nCALC_ROT <> 0, Visibility.Visible, Visibility.Hidden)
       End Get
    End Property
 
    Public ReadOnly Property CALC_FALL_Visibility As Visibility
       Get
-         Return If(m_BTLPartM.nCALC_FALL <> 0, Visibility.Visible, Visibility.Collapsed)
+         Return If(m_BTLPartM.nCALC_FALL <> 0, Visibility.Visible, Visibility.Hidden)
       End Get
    End Property
 
@@ -2227,11 +2234,26 @@ Public Class BTLPartVM
       Return True
    End Function
 
+   Public Sub BackRotation(Optional bUpdateSection As Boolean = False, Optional bRedraw As Boolean = True)
+      ' salvo sezione impostata
+      Dim CurrSection As SectionXMaterial = Map.refProjectVM.BTLStructureVM.SelSection
+      ' ruoto
+      Rotation(False, Map.refProjectVM.BTLStructureVM.nPROJTYPE, bRedraw)
+      ' imposto lock
+      bLockRotation = True
+      ' se progetto travi e sezione precedente diversa da vuota (tutti i pezzi)
+      If bUpdateSection AndAlso Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM AndAlso CurrSection <> SectionXMaterial.Empty Then
+         ' se esiste, imposto sezione inversa
+         Dim InverseSection As SectionXMaterial = Map.refProjectVM.BTLStructureVM.SectionList.FirstOrDefault(Function(x) x.dH = CurrSection.dW AndAlso x.dW = CurrSection.dH AndAlso x.sMaterial(0) = CurrSection.sMaterial(0))
+         If Not IsNothing(InverseSection) Then Map.refProjectVM.BTLStructureVM.SetSelSection(InverseSection)
+      End If
+   End Sub
+
 #End Region    ' METHODS
 
 #Region "COMMANDS"
 
-#Region "Invert"
+#Region "Invert_Command"
 
    Public ReadOnly Property Invert_Command As ICommand
       Get
@@ -2253,41 +2275,9 @@ Public Class BTLPartVM
       NotifyPropertyChanged(NameOf(sINVERTED))
    End Sub
 
-#End Region ' Invert
+#End Region ' Invert_Command
 
-#Region "BackRotation"
-
-   Public ReadOnly Property BackRotation_Command As ICommand
-      Get
-         If m_cmdBackRotation Is Nothing Then
-            m_cmdBackRotation = New Command(AddressOf BackRotationCmd)
-         End If
-         Return m_cmdBackRotation
-      End Get
-   End Property
-
-   Public Sub BackRotationCmd()
-      BackRotation(True)
-   End Sub
-
-   Public Sub BackRotation(Optional bUpdateSection As Boolean = False, Optional bRedraw As Boolean = True)
-      ' salvo sezione impostata
-      Dim CurrSection As SectionXMaterial = Map.refProjectVM.BTLStructureVM.SelSection
-      ' ruoto
-      Rotation(False, Map.refProjectVM.BTLStructureVM.nPROJTYPE, bRedraw)
-      ' imposto lock
-      bLockRotation = True
-      ' se progetto travi e sezione precedente diversa da vuota (tutti i pezzi)
-      If bUpdateSection AndAlso Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.BEAM AndAlso CurrSection <> SectionXMaterial.Empty Then
-         ' se esiste, imposto sezione inversa
-         Dim InverseSection As SectionXMaterial = Map.refProjectVM.BTLStructureVM.SectionList.FirstOrDefault(Function(x) x.dH = CurrSection.dW AndAlso x.dW = CurrSection.dH AndAlso x.sMaterial(0) = CurrSection.sMaterial(0))
-         If Not IsNothing(InverseSection) Then Map.refProjectVM.BTLStructureVM.SetSelSection(InverseSection)
-      End If
-   End Sub
-
-#End Region ' BackRotation
-
-#Region "ForwardRotation"
+#Region "ForwardRotation_Command"
 
    Public ReadOnly Property ForwardRotation_Command As ICommand
       Get
@@ -2316,7 +2306,7 @@ Public Class BTLPartVM
       End If
    End Sub
 
-#End Region ' ForwardRotation
+#End Region ' ForwardRotation_Command
 
    ' Comando inutilizzato ma conservato per eventuale rotazione a causa di importazione con rotazione sbagliata
 #Region "XRotation"
@@ -2359,7 +2349,7 @@ Public Class BTLPartVM
 
 #End Region ' XRotation
 
-#Region "PartColour"
+#Region "PartColour_Command"
 
    Public ReadOnly Property PartColour_Command As ICommand
       Get
@@ -2391,9 +2381,9 @@ Public Class BTLPartVM
       Return True
    End Function
 
-#End Region ' PartColour
+#End Region ' PartColour_Command
 
-#Region "Verify"
+#Region "Verify_Command"
 
    Public ReadOnly Property Verify_Command As ICommand
       Get
@@ -2411,9 +2401,9 @@ Public Class BTLPartVM
       Return
    End Sub
 
-#End Region ' Verify
+#End Region ' Verify_Command
 
-#Region "AddToRawPart"
+#Region "AddToRawPart_Command"
 
    Public ReadOnly Property AddToRawPart_Command As ICommand
       Get
@@ -2708,9 +2698,9 @@ Public Class BTLPartVM
       Return True
    End Function
 
-#End Region    ' AddToRawPart
+#End Region   ' AddToRawPart_Command
 
-#Region "SelectAllFeature"
+#Region "SelectAllFeature_Command"
 
    Public ReadOnly Property SelectAllFeature_Command As ICommand
       Get
@@ -2726,9 +2716,9 @@ Public Class BTLPartVM
       NotifyPropertyChanged(NameOf(bDOALL))
    End Sub
 
-#End Region ' SelectAllFeature
+#End Region ' SelectAllFeature_Command
 
-#Region "DeselectAllFeature"
+#Region "DeselectAllFeature_Command"
 
    Public ReadOnly Property DeselectAllFeature_Command As ICommand
       Get
@@ -2744,9 +2734,9 @@ Public Class BTLPartVM
       NotifyPropertyChanged(NameOf(bDOALL))
    End Sub
 
-#End Region ' DeselectAllFeature
+#End Region ' DeselectAllFeature_Command
 
-#Region "SelectItemFeature"
+#Region "SelectItemFeature_Command"
 
    Public ReadOnly Property SelectItemFeature_Command As ICommand
       Get
@@ -2768,9 +2758,9 @@ Public Class BTLPartVM
       Next
    End Sub
 
-#End Region ' SelectItemFeature
+#End Region ' SelectItemFeature_Command
 
-#Region "DeselectItemFeature"
+#Region "DeselectItemFeature_Command"
 
    Public ReadOnly Property DeselectItemFeature_Command As ICommand
       Get
@@ -2792,7 +2782,7 @@ Public Class BTLPartVM
       Next
    End Sub
 
-#End Region ' DeselectItemFeature
+#End Region ' DeselectItemFeature_Command
 
 #End Region    ' COMMANDS
 

EgtBEAMWALL.Optimizer/BTLViewModel/BTLStructureVM.vb

@@ -201,53 +201,6 @@ Public Class BTLStructureVM
       End If
    End Sub
 
-   Public Sub SelectBTLPartScene(BtlPart As BTLPartVM, Optional bIsReselect As Boolean = False)
-      m_SelBTLPart = BtlPart
-      If Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.MACHGROUP Then
-         ' resetto gruppo di lavorazione corrente
-         EgtResetCurrMachGroup()
-      End If
-      If Not IsNothing(BtlPart) Then
-         ' gestisco selezione pezzo
-         EgtBeamShowFacesName(False)
-         EgtBeamShowLoadingSide(False, False)
-         Map.refProjectVM.MacroFeature_IsEnabled = True
-         SceneSelPartSelection()
-         ' seleziono pezzo in Db geometrico
-         EgtBeamSetPart(BtlPart.nPartId)
-         EgtBeamShowFacesName(True)
-         Dim bLoadingSideShow As Boolean = (nPROJTYPE = BWType.BEAM)
-         Dim bLeftToRight As Boolean = Not (CurrentMachine.ViewDir = VT.ISO_NW OrElse CurrentMachine.ViewDir = VT.ISO_NE)
-         EgtBeamShowLoadingSide(bLoadingSideShow, bLeftToRight)
-         ' trovo ed evidenzio MachGroup e Duplo di questo pezzo
-         If Not IsNothing(Map.refProjectVM.MachGroupPanelVM) Then
-            Dim MachGroupList As New List(Of MyMachGroupVM)
-            For Each Machgroup As MyMachGroupVM In Map.refProjectVM.MachGroupPanelVM.MachGroupVMList
-               Dim bFound As Boolean = False
-               For Each Part As PartVM In Machgroup.PartVMList
-                  If EgtDuploGetOriginal(Part.nPartId) = BtlPart.nPartId Then
-                     Part.SetSearchFound()
-                     bFound = True
-                  Else
-                     Part.ResetSearchFound()
-                  End If
-               Next
-               If bFound Then
-                  Machgroup.SetSearchFound()
-               Else
-                  Machgroup.ResetSearchFound()
-               End If
-            Next
-         End If
-      End If
-      ' seleziono la prima feature
-      If Not IsNothing(BtlPart) AndAlso Not IsNothing(BtlPart.BTLFeatureVMList) AndAlso BtlPart.BTLFeatureVMList.Count > 0 Then SelBTLPart.SetSelFeature(SelBTLPart.SelBTLFeatureVM)
-      Core.ViewPanelVM.BWSetView(If(Core.ViewPanelVM.Type = BWType.BEAM, VT.ISO_SW, VT.TOP), False)
-      EgtZoom(ZM.ALL)
-      NotifyPropertyChanged(NameOf(SelBTLPart))
-      If Not bIsReselect AndAlso m_SelBTLParts.Count = 1 Then BtlPart.SetOpenFeatureList(True)
-   End Sub
-
    Private m_SelBTLPart As BTLPartVM = Nothing
    Public ReadOnly Property SelBTLPart As BTLPartVM
       Get
@@ -962,7 +915,6 @@ Public Class BTLStructureVM
          ' tolgo pezzo selezionato
          SelBTLPart.SelBTLFeatureVM = Nothing
       End If
-      ' mostro tutti i pezzi
       ' creo lista id presenti
       Dim BTLPartIdList As List(Of Integer) = (From Part In BTLPartVMList
                                                Select Part.nPartId).ToList()
@@ -1239,13 +1191,76 @@ Public Class BTLStructureVM
       End If
    End Sub
 
+   Public Sub RemovePart(BTLPartToDelete As BTLPartVM, bSelPrevious As Boolean)
+      ' verifico se ci sono già copie in grezzi
+      Dim nDuploCount As Integer = 0
+      If EgtDuploCount(BTLPartToDelete.nPartId, nDuploCount) AndAlso nDuploCount > 0 Then
+         ' avviso che il pezzo non è cancellabile perchè in produzione
+         EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, String.Format(EgtMsg(61929), nDuploCount), EgtMsg(15003), MessageBoxButton.OK, MessageBoxImage.Warning)
+         Return
+      End If
+      ' verifico se rimuovere sezione dalla lista
+      If Not Map.refProjectVM.BTLStructureVM.BTLPartVMList.Any(Function(x) x IsNot BTLPartToDelete AndAlso x.Section = BTLPartToDelete.Section) Then
+         Map.refProjectVM.BTLStructureVM.SectionList.Remove(BTLPartToDelete.Section)
+         Map.refProjectVM.BTLStructureVM.SelSection = SectionXMaterial.Empty
+      End If
+      ' Eseguo cancellazione
+      EgtBeamSetPart(BTLPartToDelete.nPartId)
+      If Map.refProdManagerVM.ListProjAsseBase.Count > 0 Then RemoveScenePart(BTLPartToDelete)
+      ' 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
+         If bSelPrevious Then
+            If FilteredIndex = 0 Then
+               If Map.refProjectVM.BTLStructureVM.BTLPartVMList_View.Count > 1 Then
+                  Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList_View(1))
+               Else
+                  Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Nothing)
+               End If
+            ElseIf FilteredIndex = Map.refProjectVM.BTLStructureVM.BTLPartVMList_View.Count - 1 Then
+               If Map.refProjectVM.BTLStructureVM.BTLPartVMList_View.Count > 1 Then
+                  Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList_View(Map.refProjectVM.BTLStructureVM.BTLPartVMList_View.Count - 2))
+               Else
+                  Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Nothing)
+               End If
+            Else
+               Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList_View(FilteredIndex + 1))
+            End If
+         End If
+         ' rimuovo dalla lista pezzi
+         Map.refProjectVM.BTLStructureVM.BTLPartVMList.RemoveAt(Index)
+      End If
+   End Sub
+
+   Private Sub RemoveScenePart(BTLPartToDelete As BTLPartVM)
+      ' Rimuovo pezzo dalla scena
+      Dim IdAsseBase As Integer = 0
+      Dim DeletePartId As Integer = 0
+      If Not Map.refProdManagerVM.ListProjAsseBase.TryGetValue(BTLPartToDelete.nPROJ, IdAsseBase) Then
+         Return
+      End If
+      ' Setto il nuovo contesto
+      EgtSetCurrentContext(Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx())
+      If EgtBeamGetBuildingIsOn(IdAsseBase) Then EgtBeamShowBuilding(IdAsseBase, False)
+      If Map.refSceneShowBuldingVM.MapInfo.TryGetValue(BTLPartToDelete.nPartId, DeletePartId) Then
+         EgtErase(DeletePartId)
+         Map.refSceneShowBuldingVM.MapInfo.Remove(BTLPartToDelete.nPartId)
+      End If
+      EgtBeamShowBuilding(IdAsseBase, True)
+      EgtZoom(ZM.ALL)
+      ' Ritorno al contesto corrente
+      EgtSetCurrentContext(Map.refSceneHostVM.MainScene.GetCtx())
+   End Sub
+
 #End Region    ' Methods
 
 #Region "COMMANDS"
 
-#Region "DeletePart"
+#Region "DeletePart_Command"
 
-   Public ReadOnly Property DeletePart_Command As ICommand
+   Public ReadOnly Property DeletePart_Command() As ICommand
       Get
          If m_cmdDeletePart Is Nothing Then
             m_cmdDeletePart = New Command(AddressOf DeletePart)
@@ -1255,12 +1270,22 @@ Public Class BTLStructureVM
    End Property
 
    Public Sub DeletePart()
-      Map.refBTLPartManagerVM.RemovePartCmd()
+      If IsNothing(ProjectManagerVM.CurrProd) Then Return
+      If EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(62573), EgtMsg(30009), MessageBoxButton.OKCancel, MessageBoxImage.Exclamation) = MessageBoxResult.OK Then
+         If Map.refProjectVM.BTLStructureVM.SelBTLParts.Count > 0 Then
+            Dim CurrSelBTLParts As List(Of BTLPartVM) = Map.refProjectVM.BTLStructureVM.SelBTLParts.ToList()
+            For RemoveIndex = CurrSelBTLParts.Count - 1 To 0 Step -1
+               RemovePart(CurrSelBTLParts(RemoveIndex), RemoveIndex = 0)
+            Next
+         End If
+      Else
+         Return
+      End If
    End Sub
 
-#End Region ' DeletePart
+#End Region ' DeletePart_Command
 
-#Region "Data"
+#Region "Data_Command"
 
    Public ReadOnly Property Data_Command As ICommand
       Get
@@ -1272,13 +1297,13 @@ Public Class BTLStructureVM
    End Property
 
    Friend Sub Data(nProjId As Integer)
-      Dim BTLDataWnd As New BTLDataWndV(Application.Current.MainWindow, New BTLDataWndVM())
+      Dim BTLDataWnd As New BTLDataWndV(Application.Current.MainWindow, New BTLDataWndVM(Map.refProjectVM.BTLStructureVM))
       BTLDataWnd.ShowDialog()
    End Sub
 
-#End Region ' Data
+#End Region ' Data_Command
 
-#Region "AddPart"
+#Region "AddPart_Command"
 
    Public ReadOnly Property AddPart_Command As ICommand
       Get
@@ -1330,9 +1355,9 @@ Public Class BTLStructureVM
       End If
    End Sub
 
-#End Region    ' AddPart
+#End Region    ' AddPart_Command
 
-#Region "UpdateBTL"
+#Region "UpdateBTL_Command"
 
    Public ReadOnly Property UpdateBTL_Command As ICommand
       Get
@@ -1872,7 +1897,7 @@ Public Class BTLStructureVM
       EgtZoom(ZM.ALL)
    End Sub
 
-#End Region ' UpdateBTL
+#End Region ' UpdateBTL_Command
 
 #End Region    ' Commands
 

EgtBEAMWALL.Optimizer/BlockedWnd/BlockedWndVM.vb

@@ -112,7 +112,7 @@ Public Class BlockedWndVM
 
 #Region "COMMANDS"
 
-#Region "Save"
+#Region "Save_Command"
 
    Public ReadOnly Property Save_Command As ICommand
       Get
@@ -130,9 +130,9 @@ Public Class BlockedWndVM
       DbControllers.m_StatusMapController.UpdateAction("", ProjectManagerVM.CurrProd.nProdId, ProjectManagerVM.CurrProd.nProdId, StatusMapItemType.Comm, StatusMapOpType.ViewOptimStoped, "")
    End Sub
 
-#End Region    ' Save
+#End Region    ' Save_Command
 
-#Region "DoNotSave"
+#Region "DoNotSave_Command"
 
    Public ReadOnly Property DoNotSave_Command As ICommand
       Get
@@ -148,7 +148,7 @@ Public Class BlockedWndVM
       DbControllers.m_StatusMapController.UpdateAction("", ProjectManagerVM.CurrProd.nProdId, ProjectManagerVM.CurrProd.nProdId, StatusMapItemType.Comm, StatusMapOpType.ViewOptimStoped, "")
    End Sub
 
-#End Region    ' DoNotSave
+#End Region    ' DoNotSave_Command
 
 #End Region    ' COMMANDS
 

EgtBEAMWALL.Optimizer/CALCPanel/CALCPanelVM.vb

@@ -70,6 +70,17 @@ Public Class CALCPanelVM
       NotifyPropertyChanged(NameOf(ChooseMachine_Visibility))
    End Sub
 
+   Private m_ChooseMachine_IsEnabled As Boolean = False
+   Public ReadOnly Property ChooseMachine_IsEnabled As Boolean
+      Get
+         Return m_ChooseMachine_IsEnabled
+      End Get
+   End Property
+   Friend Sub SetChooseMachine_IsEnabled(IsEnabled As Boolean)
+      m_ChooseMachine_IsEnabled = IsEnabled
+      NotifyPropertyChanged(NameOf(ChooseMachine_IsEnabled))
+   End Sub
+
    ' Lista delle macchine disponibili per il tipo di progetto corrente
    Private m_MachineList As New ObservableCollection(Of Machine)
    Public Property MachineList As ObservableCollection(Of Machine)
@@ -133,6 +144,7 @@ Public Class CALCPanelVM
    Sub New()
       ' imposto riferimento in Map
       Map.SetRefCALCPanelVM(Me)
+      SetChooseMachine_IsEnabled(False)
       Core.CalcIntegration.SetMaxCamInstances(Map.refMainWindowVM.MainWindowM.GetMaxCamInstances())
       AddHandler Core.CalcIntegration.Calc_ProcessResult, AddressOf Calc_ProcessResult
       AddHandler Core.CalcIntegration.Calc_Ended, AddressOf Calc_Ended
@@ -979,6 +991,7 @@ Public Class CALCPanelVM
       If Map.refProjectVM.BTLStructureVM.BTLPartVMList.Count > 0 Then
          Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList(0))
       End If
+      Map.refProjectVM.BTLStructureVM.LoadFilters()
       Map.refMyStatusBarVM.RefreshMachName()
    End Sub
 

EgtBEAMWALL.Optimizer/CALCPanel/CalcPanelV.xaml

@@ -5,14 +5,14 @@
    
    <Button ToolTip="{Binding ChooseMachine_ToolTip}"
            Command="{Binding ChooseMachine_Command}"
-           IsEnabled="{Binding CALCPanel_IsEnabled}"
+           IsEnabled="{Binding ChooseMachine_IsEnabled}"
            Visibility="{Binding ChooseMachineBtn_Visibility}"
            Style="{StaticResource ToolBarViewPanel_Button}">
       <Image Source="{StaticResource ChooseMachine_Image}"
              Style="{StaticResource BTLDataWnd_Image}"/>
    </Button>
 
-   <Grid Visibility="{Binding ChooseMachine_Visibility}"
+   <Grid Visibility="{Binding ChooseMachine_Visibility}"         
          Style="{StaticResource CalcPanel_Grid}">
       <Grid.ColumnDefinitions>
          <ColumnDefinition Width="Auto"/>

EgtBEAMWALL.Optimizer/ConfigurationPage/ConfigurationPageVM.vb

@@ -1,7 +1,6 @@
 Imports System.Collections.ObjectModel
 Imports System.IO
 Imports System.IO.Compression
-Imports System.Reflection
 Imports EgtBEAMWALL.Core
 Imports EgtUILib
 Imports EgtWPFLib5
@@ -25,22 +24,9 @@ Public Class ConfigurationPageVM
       Set(value As Integer)
          m_SelConfigSubPage = value
          If m_SelConfigSubPage = ConfigSubPages.GENERAL Then
-            ' Controllo se il file CustomConfig Json è stato modificato
-            If Map.refStrategyManagerVM.bIsModifyStrategy Then Map.refStrategyManagerVM.SaveCustomConfigJson()
-            SetGeneral_Visibility(True)
-            SetStrategyManager_Visibility(False)
-            SetPDFEditor_Visibility(False)
-         ElseIf m_SelConfigSubPage = ConfigSubPages.MACHINE Then
-            ' Controllo se il file CustomConfig Json è stato modificato
-            If Map.refStrategyManagerVM.bIsModifyStrategy Then Map.refStrategyManagerVM.SaveCustomConfigJson()
-            SetGeneral_Visibility(False)
-            SetStrategyManager_Visibility(False)
             SetPDFEditor_Visibility(False)
          ElseIf m_SelConfigSubPage = ConfigSubPages.PDFEDITOR Then
-            ' Controllo se il file CustomConfig Json è stato modificato
-            If Map.refStrategyManagerVM.bIsModifyStrategy Then Map.refStrategyManagerVM.SaveCustomConfigJson()
             SetPDFEditor_Visibility(True)
-            SetGeneral_Visibility(False)
             SetStrategyManager_Visibility(False)
          End If
       End Set
@@ -82,6 +68,7 @@ Public Class ConfigurationPageVM
       End Get
    End Property
 
+   Public OrigSelectedLanguage As Language
    Private m_SelectedLanguage As Language
    Public Property SelectedLanguage As Language
       Get
@@ -94,6 +81,7 @@ Public Class ConfigurationPageVM
       End Set
    End Property
 
+   Public nOrigSelMeasureUnit As Integer = If(EgtUiUnitsAreMM(), MeasureUnitOpt.MM, MeasureUnitOpt.INCH)
    Public Property SelMeasureUnit As Integer
       Get
          Return If(EgtUiUnitsAreMM(), MeasureUnitOpt.MM, MeasureUnitOpt.INCH)
@@ -108,6 +96,7 @@ Public Class ConfigurationPageVM
       End Set
    End Property
 
+   Public sOrigSectionTime As String
    Private m_SectionTime As Double
    Public Property SectionTime As String
       Get
@@ -121,6 +110,7 @@ Public Class ConfigurationPageVM
       End Set
    End Property
 
+   Public sOrigPartTime As String
    Private m_PartTime As Double
    Public Property PartTime As String
       Get
@@ -134,6 +124,7 @@ Public Class ConfigurationPageVM
       End Set
    End Property
 
+   Public bOrigPrintLabel_IsChecked As Boolean
    Private m_bPrintLabel_IsChecked As Boolean
    Public Property bPrintLabel_IsChecked As String
       Get
@@ -158,6 +149,7 @@ Public Class ConfigurationPageVM
       End Get
    End Property
 
+   Public bOrigExternalBackupActive As Boolean
    Private m_bExternalBackupActive As Boolean
    Public Property bExternalBackupActive As Boolean
       Get
@@ -169,6 +161,7 @@ Public Class ConfigurationPageVM
       End Set
    End Property
 
+   Public sOrigExternalBackupFolderPath As String
    Private m_ExternalBackupFolderPath As String
    Public Property ExternalBackupFolderPath As String
       Get
@@ -187,6 +180,7 @@ Public Class ConfigurationPageVM
       End Get
    End Property
 
+   Public OrigSelReminder As IdNameStruct
    Private m_SelReminder As IdNameStruct
    Public Property SelReminder As IdNameStruct
       Get
@@ -198,17 +192,6 @@ Public Class ConfigurationPageVM
       End Set
    End Property
 
-   Private m_bGeneral_Visibility As Visibility = Visibility.Collapsed
-   Public ReadOnly Property General_Visibility As Visibility
-      Get
-         Return m_bGeneral_Visibility
-      End Get
-   End Property
-   Friend Sub SetGeneral_Visibility(value As Boolean)
-      m_bGeneral_Visibility = If(value, Visibility.Visible, Visibility.Collapsed)
-      NotifyPropertyChanged(NameOf(General_Visibility))
-   End Sub
-
    Private m_bStrategyManager_Visibility As Visibility = Visibility.Visible
    Public ReadOnly Property StrategyManager_Visibility As Visibility
       Get
@@ -604,16 +587,23 @@ Public Class ConfigurationPageVM
             Exit For
          End If
       Next
+      OrigSelectedLanguage = m_SelectedLanguage
       ' leggo SectionTime e PartTime
       GetMainPrivateProfileString(S_NEST, K_SECTIONTIME, "", SectionTime)
+      sOrigSectionTime = SectionTime
       GetMainPrivateProfileString(S_NEST, K_PARTTIME, "", PartTime)
+      sOrigPartTime = PartTime
       m_bPrintLabel_IsChecked = (GetMainPrivateProfileInt(S_PRINTER, K_ENABLE, 0) <> 0)
+      bOrigPrintLabel_IsChecked = m_bPrintLabel_IsChecked
       ' leggo dati per backup
       GetMainPrivateProfileString(S_BACKUPANDRESTORE, K_EXTERNALFILEPATH, "", m_ExternalBackupFolderPath)
+      sOrigExternalBackupFolderPath = m_ExternalBackupFolderPath
       Dim nDefaultReminderFrequency As Integer = GetMainPrivateProfileInt(S_BACKUPANDRESTORE, K_REMINDERFREQUENCY, 1)
       SelReminder = m_ReminderList.FirstOrDefault(Function(x) x.Id = nDefaultReminderFrequency)
+      OrigSelReminder = SelReminder
       Dim nExternalBackupActive As Integer = GetMainPrivateProfileInt(S_BACKUPANDRESTORE, K_EXTERNALBACKUPACTIVE, 0)
       m_bExternalBackupActive = nExternalBackupActive > 0
+      bOrigExternalBackupActive = m_bExternalBackupActive
       SetMachineParameter_Visibility(False)
       SetMachine_Visibility(False)
       ' Recupero flag per verificare se fare solo l'importazione del btl o anche la verifica
@@ -636,7 +626,6 @@ Public Class ConfigurationPageVM
       WriteMainPrivateProfileString(S_NEST, K_SECTIONTIME, DoubleToString(m_SectionTime, 5))
       WriteMainPrivateProfileString(S_NEST, K_PARTTIME, DoubleToString(m_PartTime, 5))
       WriteMainPrivateProfileString(S_PRINTER, K_ENABLE, If(m_bPrintLabel_IsChecked, 1, 0))
-      Map.refMyMachine.VerifyConfigPageModification()
    End Sub
 
    ' funzione che verifica l'inserimento della password quando si edita un parametro Macchina
@@ -654,6 +643,26 @@ Public Class ConfigurationPageVM
       Return False
    End Function
 
+   Friend Function SaveConfigPage() As Boolean
+      If OrigSelectedLanguage.Name <> m_SelectedLanguage.Name OrElse
+         sOrigSectionTime <> SectionTime OrElse
+         sOrigPartTime <> PartTime OrElse
+         bOrigPrintLabel_IsChecked <> m_bPrintLabel_IsChecked OrElse
+         sOrigExternalBackupFolderPath <> m_ExternalBackupFolderPath OrElse
+         OrigSelReminder.Name <> SelReminder.Name OrElse
+         bOrigExternalBackupActive <> m_bExternalBackupActive OrElse
+         nOrigSelMeasureUnit <> SelMeasureUnit Then
+         Select Case EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(62593), EgtMsg(15003), MessageBoxButton.YesNo, MessageBoxImage.Question)
+            Case MessageBoxResult.Yes
+               VerifyConfigPageModification()
+               Return True
+            Case MessageBoxResult.No
+               Return False
+         End Select
+      End If
+      Return True
+   End Function
+
    '''' <summary>
    '''' Seleziona il tema se presente
    '''' </summary>

EgtBEAMWALL.Optimizer/ConfigurationPage/ConfigurationProgramV.xaml

@@ -19,20 +19,21 @@
                   Style="{StaticResource Optimizer_TabControl}">
          <TabItem>
             <TabItem.Header>
+               <TextBlock Text="{Binding General_Msg}"
+                          Style="{StaticResource ConfigurationProgram_TextBlock}"/>
+            </TabItem.Header>
+            <TabItem.Content>
                <StackPanel Style="{StaticResource ConfigurationProgram_StackPanel}">
-                  <TextBlock Text="{Binding General_Msg}"
-                             Style="{StaticResource ConfigurationProgram_TextBlock}"/>
+                  <EgtBEAMWALLCORE:General_ConfigurationPageV/>
                   <Button Command="{Binding SaveCommand}"
                           ToolTip="{Binding SaveToolTip}"
-                          Visibility="{Binding General_Visibility}"
-                          Style="{StaticResource SaveOptionPanel_Button}">
+                          Style="{StaticResource SaveConfig_Button}">
                      <Image Source="{StaticResource Save_Image}"
                             Style="{StaticResource BTLDataWnd_Image}"/>
                   </Button>
+
                </StackPanel>
-            </TabItem.Header>
-            <TabItem.Content>
-               <EgtBEAMWALLCORE:General_ConfigurationPageV/>
+
             </TabItem.Content>
          </TabItem>
          <TabItem>

EgtBEAMWALL.Optimizer/EgtBEAMWALL.Optimizer.vbproj

@@ -66,6 +66,17 @@
   <PropertyGroup>
     <ApplicationIcon>Resources\EgtBEAMWALL.ico</ApplicationIcon>
   </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'RemoteDebug|x86'">
+    <DebugSymbols>true</DebugSymbols>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\x86\RemoteDebug\</OutputPath>
+    <DocumentationFile>EgtBEAMWALL.Optimizer.xml</DocumentationFile>
+    <NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42314</NoWarn>
+    <DebugType>full</DebugType>
+    <PlatformTarget>x86</PlatformTarget>
+    <Prefer32Bit>true</Prefer32Bit>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="EgtBEAMWALL.Core">
       <HintPath>..\EgtBEAMWALL.Core\bin\Debug\EgtBEAMWALL.Core.dll</HintPath>
@@ -996,14 +1007,26 @@
     <PackageReference Include="BouncyCastle">
       <Version>1.8.5</Version>
     </PackageReference>
+    <PackageReference Include="DevExpress.Wpf.Core">
+      <Version>25.2.6</Version>
+    </PackageReference>
+    <PackageReference Include="DevExpress.Wpf.Grid">
+      <Version>25.2.6</Version>
+    </PackageReference>
+    <PackageReference Include="DevExpress.Wpf.PdfViewer">
+      <Version>25.2.6</Version>
+    </PackageReference>
     <PackageReference Include="EgwMultiEngineManager.Core">
       <Version>3.1.1.2</Version>
     </PackageReference>
     <PackageReference Include="EgwMultiEngineManager.Data">
       <Version>3.1.1.2</Version>
     </PackageReference>
+    <PackageReference Include="EgwRedmineAPI">
+      <Version>3.1.7.12</Version>
+    </PackageReference>
     <PackageReference Include="EgwWPFBaseLib">
-      <Version>3.1.3-beta.6</Version>
+      <Version>3.1.7.1</Version>
     </PackageReference>
     <PackageReference Include="EntityFramework">
       <Version>6.4.4</Version>
@@ -1217,7 +1240,16 @@
     <Resource Include="Resources\EgtDialog\Tiles.png" />
   </ItemGroup>
   <ItemGroup>
-    <Resource Include="Resources\NewPage\VerifyAllR.png" />
+    <Resource Include="Resources\NewPage\reset.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\VerifyAllRotation.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\arrow.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\EditIntestazione.png" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>

EgtBEAMWALL.Optimizer/ExecProcessManager/MyExecProcessManager.vb

@@ -44,6 +44,7 @@ Module MyExecProcessManager
       Dim sEnvironment As String = ""
       Dim sPipeLuaFile As String = ""
       Dim nMaxCamInstances As Integer = 0
+      Dim bDebug As Boolean = False
       While GetMainPrivateProfileString(S_EXECGROUP & nGroupIndex.ToString(), K_ENVIRONMENT, "", sEnvironment) > 0 AndAlso
             GetMainPrivateProfileString(S_EXECGROUP & nGroupIndex.ToString(), K_PIPELUAFILE, "", sPipeLuaFile) AndAlso
             GetMainPrivateProfileString(S_EXECGROUP & nGroupIndex.ToString(), K_MAXCAMINSTANCES, "", nMaxCamInstances)
@@ -64,7 +65,10 @@ Module MyExecProcessManager
             nGroupIndex += 1
             Continue While
          End If
-         Dim NewExecProcessManager As New ExecProcessManager(nGroupIndex, Environment, sCamExePath, PipeLuaPath, nMaxCamInstances, ExecProcessManager.ReturnModes.EVENT_, False)
+         ' leggo se modalita' debug
+         Dim nDebug As Integer = GetMainPrivateProfileInt(S_EXECGROUP & nGroupIndex.ToString(), K_DEBUG, 0)
+         bDebug = (nDebug = 1)
+         Dim NewExecProcessManager As New ExecProcessManager(nGroupIndex, Environment, sCamExePath, PipeLuaPath, nMaxCamInstances, ExecProcessManager.ReturnModes.EVENT_, bDebug)
          AddHandler NewExecProcessManager.m_AnswerReceived, AddressOf ExecProcessManager_AnswerReceived
          NewExecProcessManager.StartExecutionThread()
          m_ExecProcessManagerList.Add(Environment, NewExecProcessManager)
@@ -101,7 +105,9 @@ Module MyExecProcessManager
          End If
          If nPreRotate > 0 Then
             Dim dAng As Integer = nPreRotate * 90
-            PartItem.ForwardRotation(True, True, dAng, False)
+            Application.Current.Dispatcher.BeginInvoke(Sub()
+                                                          PartItem.ForwardRotation(True, True, dAng, False)
+                                                       End Sub)
          End If
 
          Dim prefix As String = "INFONGEPART_"

EgtBEAMWALL.Optimizer/ForcedStrategyPanel/ForcedStrategyPanelVM.vb

@@ -29,10 +29,22 @@ Public Class ForcedStrategyPanelVM
       End Get
       Set(value As Strategy)
          m_SelStrategy = value
+         SetUpdate_Visibility(False)
          NotifyPropertyChanged(NameOf(SelStrategy))
       End Set
    End Property
 
+   Private m_bUpdate_Visibility As Visibility = Visibility.Collapsed
+   Public ReadOnly Property Update_Visibility As Visibility
+      Get
+         Return m_bUpdate_Visibility
+      End Get
+   End Property
+   Friend Sub SetUpdate_Visibility(value As Boolean)
+      m_bUpdate_Visibility = If(value, Visibility.Visible, Visibility.Collapsed)
+      NotifyPropertyChanged(NameOf(Update_Visibility))
+   End Sub
+
    Private m_CurrentFeature As BTLFeatureM
 
    ' Definizione Comandi
@@ -145,21 +157,6 @@ Public Class ForcedStrategyPanelVM
          m_StrategyList = New ObservableCollection(Of Strategy)((From JsonAvailableStrategy In JsonAvailableTopology.StrategyList
                                                                  Select JsonAvailableStrategy.Deserialize(ProjectManagerVM.CurrProd.nType, -1)).ToList())
       End If
-      If File.Exists(sAvailableStrategiesFilePath) Then
-         sReadedFile = File.ReadAllText(sAvailableStrategiesFilePath)
-         Dim JsonStrategyFeatureList As List(Of JsonAvailableStrategyFeature) = JsonConvert.DeserializeObject(Of List(Of JsonAvailableStrategyFeature))(sReadedFile)
-         Dim JsonAvailableStrategyFeature As JsonAvailableStrategyFeature = JsonStrategyFeatureList.FirstOrDefault(Function(x) x.nGrp = nGRP AndAlso x.nPrc = nPRC)
-         If IsNothing(JsonAvailableStrategyFeature) Then Return False
-         Dim JsonAvailableTopology As JsonAvailableTopology = JsonAvailableStrategyFeature.TopologyList.FirstOrDefault(Function(x) x.sName = sTopologyName)
-         If IsNothing(JsonAvailableTopology) Then
-            ' ricavo topologia da feature
-            FindTopologyFromFeature(nFeatureId, sTopologyName)
-            JsonAvailableTopology = JsonAvailableStrategyFeature.TopologyList.FirstOrDefault(Function(x) x.sName = sTopologyName)
-         End If
-         If IsNothing(JsonAvailableTopology) Then Return False
-         m_StrategyList = New ObservableCollection(Of Strategy)((From JsonAvailableStrategy In JsonAvailableTopology.StrategyList
-                                                                 Select JsonAvailableStrategy.Deserialize(ProjectManagerVM.CurrProd.nType, -1)).ToList())
-      End If
       ' recupero custom
       Dim nPartId As Integer = EgtGetParent(EgtGetParent(nFeatureId))
       Dim nPartProjId As Integer = 0
@@ -269,6 +266,16 @@ Public Class ForcedStrategyPanelVM
    End Function
 
    Friend Sub ForcedStrategy()
+      If IsNothing(m_CurrentFeature) Then Return
+      If m_CurrentFeature.nFeatureId < 0 Then Return
+      If IsNothing(m_SelStrategy) Then Return
+      If IsNothing(Map.refProjectVM.BTLStructureVM) Then Return
+      If IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) Then Return
+      If IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM) Then Return
+      If IsNothing(Map.refProjectVM.MachGroupPanelVM) Then Return
+      If IsNothing(Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup) Then Return
+      If IsNothing(Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart) Then Return
+      If IsNothing(Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart.SelFeatureVM) Then Return
       ' cancello precedenti valori
       Dim sPrecStrategyID As String = ""
       EgtGetInfo(m_CurrentFeature.nFeatureId, ConstBeam.STRATEGY, sPrecStrategyID)

EgtBEAMWALL.Optimizer/GeneralParametersStrategy/GeneralParametersStrategyVM.vb

@@ -365,6 +365,28 @@ Public MustInherit Class ProjectParameters
       End Set
    End Property
 
+   Private m_idDescriptionShortMsg As Integer
+   Public Property idDescriptionShortMsg As Integer
+      Get
+         Return m_idDescriptionShortMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionShortMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionShortMsg))
+      End Set
+   End Property
+
+   Private m_idDescriptionLongMsg As Integer
+   Public Property idDescriptionLongMsg As Integer
+      Get
+         Return m_idDescriptionLongMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionLongMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionLongMsg))
+      End Set
+   End Property
+
    Private m_sValue As String
    Public Property sValue As String
       Get
@@ -421,6 +443,8 @@ Public MustInherit Class ProjectParameters
       If IsNothing(JsonProjectParameters) Then Return
       m_sName = JsonProjectParameters.sName
       m_sNameNge = JsonProjectParameters.sNameNge
+      m_idDescriptionShortMsg = JsonProjectParameters.idDescriptionShortMsg
+      m_idDescriptionLongMsg = JsonProjectParameters.idDescriptionLongMsg
    End Sub
 
 #End Region    ' Constructor
@@ -465,6 +489,7 @@ Public MustInherit Class ProjectParameters
          End Select
       End If
    End Sub
+
 #End Region    ' Methods
 
 End Class
@@ -485,6 +510,7 @@ Public Class BooleanGenericParameter
             SetbIsBooleanModify(True)
          End If
          m_bValue = value
+         NotifyPropertyChanged(NameOf(bValue))
       End Set
    End Property
    Friend Sub SetValue(bValue As Boolean)
@@ -565,6 +591,7 @@ Public Class DoubleGenericParameter
             If m_dValue <> dValue Then
                If Not Map.refBTLDataWndVM.IsBTLDataWnd Then Map.refStrategyManagerVM.SetbIsModifyStrategy(True)
                SetbIsDoubleModify(True)
+               NotifyPropertyChanged(NameOf(sValue))
             End If
             m_dValue = dValue
          Else
@@ -657,6 +684,7 @@ Public Class StringGenericParameter
             SetbIsStringModify(True)
          End If
          m_sValue = value
+         NotifyPropertyChanged(NameOf(sValue))
       End Set
    End Property
    Friend Sub SetValue(dValue As String)
@@ -746,10 +774,12 @@ Public Class ComboGenericParameter
             End If
          End If
          m_SelValue = value
+         NotifyPropertyChanged(NameOf(SelValue))
       End Set
    End Property
    Friend Sub SetSelValue(sValue As String)
       m_SelValue = m_ComboList.FirstOrDefault(Function(x) x.sValue = sValue)
+      If IsNothing(m_SelValue) Then m_SelValue = m_ComboList(0)
    End Sub
 
    Private m_bComboBoxVisibility As Visibility = Visibility.Collapsed

EgtBEAMWALL.Optimizer/GeneralParametersStrategy/JsonGeneralParameters.vb

@@ -64,6 +64,28 @@ Public Class JsonGeneralParameters
       End Set
    End Property
 
+   Private m_idDescriptionShortMsg As Integer
+   Public Property idDescriptionShortMsg As Integer
+      Get
+         Return m_idDescriptionShortMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionShortMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionShortMsg))
+      End Set
+   End Property
+
+   Private m_idDescriptionLongMsg As Integer
+   Public Property idDescriptionLongMsg As Integer
+      Get
+         Return m_idDescriptionLongMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionLongMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionLongMsg))
+      End Set
+   End Property
+
    Private m_sValue As String
    Public Property sValue As String
       Get
@@ -113,13 +135,15 @@ Public Class JsonGeneralParameters
 #Region "CONSTRUCTOR"
 
    <JsonConstructor>
-   Sub New(nGroup As String, sName As String, sNameNge As String, sValue As String, sDescriptionShort As String, sDescriptionLong As String, sType As String, sMinUserLevel As String)
+   Sub New(nGroup As String, sName As String, sNameNge As String, sValue As String, sDescriptionShort As String, sDescriptionLong As String, idDescriptionLongMsg As Integer, idDescriptionShortMsg As Integer, sType As String, sMinUserLevel As String)
       m_nGroup = nGroup
       m_sName = sName
       m_sNameNge = sNameNge
       m_sValue = sValue
       m_sDescriptionShort = sDescriptionShort
       m_sDescriptionLong = sDescriptionLong
+      m_idDescriptionShortMsg = idDescriptionShortMsg
+      m_idDescriptionLongMsg = idDescriptionLongMsg
       m_sType = sType
       m_sMinUserLevel = sMinUserLevel
    End Sub
@@ -142,6 +166,8 @@ Public Class JsonGeneralParameters
       m_nGroup = ProjectParameters.nGroup
       m_sDescriptionShort = ProjectParameters.sDescriptionShort
       m_sDescriptionLong = ProjectParameters.sDescriptionLong
+      m_idDescriptionShortMsg = ProjectParameters.idDescriptionShortMsg
+      m_idDescriptionLongMsg = ProjectParameters.idDescriptionLongMsg
       m_sMinUserLevel = ProjectParameters.sMinUserLevel
    End Sub
 
@@ -192,8 +218,16 @@ Public Class JsonGeneralParameters
       ProjectParameters.nGroup = m_nGroup
       ProjectParameters.sName = m_sName
       ProjectParameters.sNameNge = m_sNameNge
-      ProjectParameters.sDescriptionShort = m_sDescriptionShort
-      ProjectParameters.sDescriptionLong = m_sDescriptionLong
+      If m_idDescriptionShortMsg < 0 OrElse EgtMsg(m_idDescriptionShortMsg).StartsWith("Msg") Then
+         ProjectParameters.sDescriptionShort = m_sDescriptionShort
+      Else
+         ProjectParameters.sDescriptionShort = EgtMsg(m_idDescriptionShortMsg)
+      End If
+      If m_idDescriptionLongMsg < 0 OrElse EgtMsg(m_idDescriptionLongMsg).StartsWith("Msg") Then
+         ProjectParameters.sDescriptionLong = m_sDescriptionLong
+      Else
+         ProjectParameters.sDescriptionLong = EgtMsg(m_idDescriptionLongMsg)
+      End If
       ProjectParameters.sMinUserLevel = m_sMinUserLevel
       Return ProjectParameters
    End Function

EgtBEAMWALL.Optimizer/GeneralParametersStrategy/JsonGenericParametersHelper.vb

@@ -64,6 +64,28 @@ Public Class JsonProjectParameters
       End Set
    End Property
 
+   Private m_idDescriptionShortMsg As Integer
+   Public Property idDescriptionShortMsg As Integer
+      Get
+         Return m_idDescriptionShortMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionShortMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionShortMsg))
+      End Set
+   End Property
+
+   Private m_idDescriptionLongMsg As Integer
+   Public Property idDescriptionLongMsg As Integer
+      Get
+         Return m_idDescriptionLongMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionLongMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionLongMsg))
+      End Set
+   End Property
+
    Private m_sValue As String
    Public Property sValue As String
       Get
@@ -113,7 +135,7 @@ Public Class JsonProjectParameters
 #Region "CONSTRUCTOR"
 
    <JsonConstructor>
-   Sub New(mGroup As String, sName As String, sNameNge As String, sValue As String, sType As String, sDescriptionShort As String, sDescriptionLong As String, sMinUserLevel As String)
+   Sub New(mGroup As String, sName As String, sNameNge As String, sValue As String, sType As String, sDescriptionShort As String, sDescriptionLong As String, idDescriptionShortMsg As Integer, idDescriptionLongMsg As Integer, sMinUserLevel As String)
       m_nGroup = nGroup
       m_sName = sName
       m_sNameNge = sNameNge
@@ -121,6 +143,8 @@ Public Class JsonProjectParameters
       m_sType = sType
       m_sDescriptionShort = sDescriptionShort
       m_sDescriptionLong = sDescriptionLong
+      m_idDescriptionShortMsg = idDescriptionShortMsg
+      m_idDescriptionLongMsg = idDescriptionLongMsg
       m_sMinUserLevel = sMinUserLevel
    End Sub
 
@@ -141,6 +165,8 @@ Public Class JsonProjectParameters
       End Select
       m_sDescriptionShort = ProjectParameters.sDescriptionShort
       m_sDescriptionLong = ProjectParameters.sDescriptionLong
+      m_idDescriptionShortMsg = ProjectParameters.idDescriptionShortMsg
+      m_idDescriptionLongMsg = ProjectParameters.idDescriptionLongMsg
       m_sMinUserLevel = ProjectParameters.sMinUserLevel
    End Sub
 
@@ -191,6 +217,16 @@ Public Class JsonProjectParameters
       ProjectParameters.nGroup = nGroup
       ProjectParameters.sName = m_sName
       ProjectParameters.sNameNge = m_sNameNge
+      If m_idDescriptionShortMsg < 0 OrElse EgtMsg(m_idDescriptionShortMsg).StartsWith("Msg") Then
+         ProjectParameters.sDescriptionShort = m_sDescriptionShort
+      Else
+         ProjectParameters.sDescriptionShort = EgtMsg(m_idDescriptionShortMsg)
+      End If
+      If m_idDescriptionLongMsg < 0 OrElse EgtMsg(m_idDescriptionLongMsg).StartsWith("Msg") Then
+         ProjectParameters.sDescriptionLong = m_sDescriptionLong
+      Else
+         ProjectParameters.sDescriptionLong = EgtMsg(m_idDescriptionLongMsg)
+      End If
       ProjectParameters.sDescriptionShort = m_sDescriptionShort
       ProjectParameters.sDescriptionLong = m_sDescriptionLong
       ProjectParameters.sMinUserLevel = m_sMinUserLevel

EgtBEAMWALL.Optimizer/GeneralParametersStrategy/ProjectParametersV.xaml

@@ -66,7 +66,7 @@
                             Style="{StaticResource ProjectParameters_UniformGrid}">
                   <TextBlock Text="{Binding sDescriptionShort}" 
                              Style="{StaticResource ProjectParameters_TextBlock}"/>
-                  <TextBox Text="{Binding sValue}"
+                  <TextBox Text="{Binding sValue, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"
                            Style="{StaticResource ColorPicker_TextBox}"/>
                </UniformGrid>
             </DataTemplate>
@@ -89,7 +89,7 @@
                             Style="{StaticResource ProjectParameters_UniformGrid}">
                   <TextBlock Text="{Binding sDescriptionShort}" 
                              Style="{StaticResource ProjectParameters_TextBlock}"/>
-                  <TextBox Text="{Binding sValue}"
+                  <TextBox Text="{Binding sValue, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"
                            Style="{StaticResource ColorPicker_TextBox}"/>
                </UniformGrid>
             </DataTemplate>

EgtBEAMWALL.Optimizer/ItemParamList/BTLPartListV.xaml.vb

@@ -1,4 +1,10 @@
-Imports System.Reflection
+Imports System.IO
+Imports System.Reflection
+Imports DevExpress.Data
+Imports DevExpress.Xpf.Bars
+Imports DevExpress.Xpf.Core.Serialization
+Imports DevExpress.Xpf.Grid
+Imports EgtBEAMWALL.Core
 
 Public Class BTLPartListV
 
@@ -8,99 +14,195 @@ Public Class BTLPartListV
    Private m_isDraggingSelectionField As FieldInfo
    Private m_endDraggingMethod As MethodInfo
 
+   Private m_sDataGridLayoutPath As String = ""
+
+   Private _lastExpanded As Integer = -1
+
+   Private bSelOnFeature As Boolean = False
+
    Sub New()
       ' This call is required by the designer.
       InitializeComponent()
       ' Add any initialization after the InitializeComponent() call.
+
+      m_sDataGridLayoutPath = Path.GetDirectoryName(DataGridColumnsIniFile.m_sDataGridColumnsIniFile) & "\DataGridLayoutFile\BTLPart.json"
+
+      For Each Column In BTLPart_GridControl.Columns
+         Column.[AddHandler](DXSerializer.AllowPropertyEvent,
+            New AllowPropertyEventHandler(AddressOf OnAllowProperty))
+      Next
+      DXSerializer.AddAllowPropertyHandler(BTLPart_GridControl, AddressOf OnAddAllowProperty)
+   End Sub
+
+   ' imposto parametri da aggiungere o togliere in Json tabella per i parametri di colonna
+   Private Sub OnAllowProperty(sender As Object, e As AllowPropertyEventArgs)
+      If e.DependencyProperty Is GridColumn.AllowResizingProperty Then
+         e.Allow = True
+      End If
+   End Sub
+
+   ' imposto parametri da aggiungere o togliere in Json tabella per i parametri generali
+   Private Sub OnAddAllowProperty(sender As Object, e As AllowPropertyEventArgs)
+      If e.Property.Name = "FilterString" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "MRUFilters" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "MRUFilterList" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "GroupSummarySortInfo" Then
+         e.Allow = False
+      End If
+   End Sub
+
+   ' salvataggio del layout colonne
+   Public Sub SaveBTLPartGridControlLayout()
+      BTLPart_GridControl.SaveLayoutToJson(m_sDataGridLayoutPath)
+   End Sub
+
+   Public Sub IsVisibleGroupSummary(bValue As Boolean)
+      If bValue AndAlso BTLPart_GridControl.GroupSummary.Count = 0 Then
+         BTLPart_GridControl.GroupSummary.Clear()
+         Dim PDNGroupSummaryItem As New GridSummaryItem() With {.FieldName = "nPDN",
+                                                                .DisplayFormat = "{0}",
+                                                                .SummaryType = SummaryItemType.Count,
+                                                                .ShowInGroupColumnFooter = "nPDN"}
+         BTLPart_GridControl.GroupSummary.Add(PDNGroupSummaryItem)
+         Dim CNTGroupSummaryItem As New GridSummaryItem() With {.FieldName = "sCNT",
+                                                                .DisplayFormat = "{0}",
+                                                                .SummaryType = SummaryItemType.Sum,
+                                                                .ShowInGroupColumnFooter = "sCNT"}
+         BTLPart_GridControl.GroupSummary.Add(CNTGroupSummaryItem)
+         Dim ADDEDGroupSummaryItem As New GridSummaryItem() With {.FieldName = "sADDED",
+                                                                  .DisplayFormat = "{0}",
+                                                                  .SummaryType = SummaryItemType.Sum,
+                                                                  .ShowInGroupColumnFooter = "sADDED"}
+         BTLPart_GridControl.GroupSummary.Add(ADDEDGroupSummaryItem)
+         Dim INPRODGroupSummaryItem As New GridSummaryItem() With {.FieldName = "nINPROD",
+                                                                   .DisplayFormat = "{0}",
+                                                                   .SummaryType = SummaryItemType.Sum,
+                                                                   .ShowInGroupColumnFooter = "nINPROD"}
+         BTLPart_GridControl.GroupSummary.Add(INPRODGroupSummaryItem)
+         Dim DONEGroupSummaryItem As New GridSummaryItem() With {.FieldName = "nDONE",
+                                                                 .DisplayFormat = "{0}",
+                                                                 .SummaryType = SummaryItemType.Sum,
+                                                                 .ShowInGroupColumnFooter = "nDONE"}
+         BTLPart_GridControl.GroupSummary.Add(DONEGroupSummaryItem)
+      End If
+      BTLPart_TableView.ShowGroupFooters = bValue
+   End Sub
+
+   Public Sub Me_Loaded() Handles Me.Loaded
+      ' imposto DataContext
       m_BTLPartListVM = DataContext
-      ' Evita il drag sulla selezione multipla
-      m_isDraggingSelectionField = m_DataGridType.GetField("_isDraggingSelection", BindingFlags.Instance Or BindingFlags.NonPublic)
-      m_endDraggingMethod = m_DataGridType.GetMethod("EndDragging", BindingFlags.Instance Or BindingFlags.NonPublic)
-   End Sub
-
-   Public Sub DataGrid_PreviewMouseMove(sender As Object, e As MouseEventArgs)
-      ' Evita il drag sulla selezione multipla
-      If e.LeftButton = MouseButtonState.Pressed Then
-         If CBool(If(m_isDraggingSelectionField?.GetValue(sender), False)) Then m_endDraggingMethod.Invoke(sender, New Object(-1) {})
+      ' imposto riferimento ad action per salvataggio layout tabella
+      m_BTLPartListVM.refSaveBTLPartGridControlLayout = AddressOf SaveBTLPartGridControlLayout
+      ' rispristino layout tabella
+      If Not IsNothing(m_sDataGridLayoutPath) AndAlso File.Exists(m_sDataGridLayoutPath) Then
+         BTLPart_GridControl.RestoreLayoutFromJson(m_sDataGridLayoutPath)
       End If
+      ' da gestire chiamandolo quando viene aperto un progetto o aggiunto/rimosso un btl, per evitare che ci sia il GroupSummary se c'e' un solo gruppo
+      IsVisibleGroupSummary(False)
    End Sub
 
-   Private Sub PartList_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
-      If e.ChangedButton = MouseButton.Left Then
-         If TypeOf sender Is DataGridRow Then
-            If Map.refProjectVM.BTLStructureVM.SelBTLParts.Count <> 1 Then Return
-            Dim Row As DataGridRow = DirectCast(sender, DataGridRow)
-            If TypeOf Row.DataContext IsNot BTLPartVM Then Return
-            Dim BTLPartVM As BTLPartVM = DirectCast(Row.DataContext, BTLPartVM)
-            Dim DataGridDetailsPresenter As Object = TreeHelperManager.FindVisualParents(Of Button, CheckBox, Primitives.DataGridDetailsPresenter)(e.OriginalSource)
-            If Not IsNothing(DataGridDetailsPresenter) Then Return
-            If Map.refProjectVM.BTLStructureVM.SelBTLParts.Contains(BTLPartVM) Then
-               BTLPartVM.SetOpenFeatureList(Not BTLPartVM.bOpenFeatureList)
-            End If
-            If Not IsNothing(Row) AndAlso Row.IsSelected AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) AndAlso Map.refProjectVM.BTLStructureVM.SelBTLPart.Equals(BTLPartVM) Then
-               Map.refProjectVM.BTLStructureVM.SelectBTLPart(BTLPartVM, True)
-            End If
+   ' customizzazione ContextMenu del GridControl
+   Private Sub OnShowGridMenu(sender As Object, e As DevExpress.Xpf.Grid.GridMenuEventArgs)
+      If e.MenuType = GridMenuType.Column Then
+         ' rimozione bottoni
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupBox})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupColumn})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.ColumnChooser})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFit})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFitColumns})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.FilterEditor})
+
+         Dim info As GridColumnMenuInfo = CType(e.MenuInfo, GridColumnMenuInfo)
+         Dim item As ColumnBase = CType(info.Column, ColumnBase)
+         ' aggiunta separatore
+         Dim separator As BarItemLinkSeparator = New BarItemLinkSeparator()
+         e.Customizations.Add(separator)
+         ' aggiunta bottone AllowResize e Auto Fit
+         Dim AllowResize As BarCheckItem = New BarCheckItem() With {.Content = "Allow Resize", .IsChecked = (BTLPart_TableView.AllowResizing AndAlso (item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default))}
+         AddHandler AllowResize.CheckedChanged, AddressOf AllowResize_CheckedChanged
+         e.Customizations.Add(AllowResize)
+         If item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default Then
+            Dim FixAuto As BarButtonItem = New BarCheckItem() With {.Content = "Auto Fit"}
+            AddHandler FixAuto.ItemClick, AddressOf FixAuto_ItemClick
+            e.Customizations.Add(FixAuto)
          End If
       End If
    End Sub
 
-   Private Sub ListBox_PreviewMouseWheel(ByVal sender As Object, ByVal e As MouseWheelEventArgs)
-      ' gestione dello scroll, per permetterlo anche quando mouse su RowDetails
-      e.Handled = True
-      Dim DependencyParent As DependencyObject = sender
-      While TypeOf DependencyParent IsNot ListBox
-         DependencyParent = VisualTreeHelper.GetParent(DependencyParent)
-      End While
-      If IsNothing(DependencyParent) Then
-         Return
-      End If
-      Dim parent As ListBox = TryCast(DependencyParent, ListBox)
-      If IsNothing(parent) Then
-         Return
-      End If
-      parent?.[RaiseEvent](New MouseWheelEventArgs(e.MouseDevice, e.Timestamp, e.Delta) With {
-        .RoutedEvent = MouseWheelEvent,
-        .Source = sender})
-   End Sub
-
-   Private Sub OpenPopUp_Click(sender As Object, e As RoutedEventArgs)
-      Dim btn As Button = DirectCast(sender, Button) ' Ottieni il bottone che ha generato l'evento
-      Dim parent As DependencyObject = btn
-
-      ' Cerca il Popup nel Visual Tree
-      While Not IsNothing(parent) AndAlso TypeOf parent IsNot DataGridRow
-         parent = VisualTreeHelper.GetParent(parent)
-      End While
-      If Not IsNothing(parent) Then
-         Dim popup As New BTLPartListPopUpV()
-         If Not IsNothing(popup) Then
-            popup.PlacementTarget = btn ' Associa il popup al bottone
-            popup.IsOpen = True ' Mostra il popup
-         End If
+   ' gestore evento Allow Resize
+   Private Sub AllowResize_CheckedChanged(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(BTLPart_TableView.GridMenu.MenuInfo, GridColumnMenuInfo)
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      If item.AllowResizing = DevExpress.Utils.DefaultBoolean.False Then
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.True
+      Else
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
       End If
    End Sub
 
-   Private Sub SelectButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
-      Dim button = TryCast(sender, Button)
-      Dim listBoxItem = FindAncestor(Of ListBoxItem)(button)
+   ' gestore evento Auto Fit
+   Private Sub FixAuto_ItemClick(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(BTLPart_TableView.GridMenu.MenuInfo, GridColumnMenuInfo)
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      item.Width = New GridColumnWidth(1, GridColumnUnitType.Auto)
+      BTLPart_TableView.UpdateLayout()
+      item.Width = item.ActualWidth
+      item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
+   End Sub
 
-      If Not IsNothing(listBoxItem) Then
-         listBoxItem.IsSelected = True
+   Private Sub FilterAllBtn_PreviewMouseDown(sender As Object, e As RoutedEventArgs)
+      If FilterSectxMat_Popup.IsOpen Then
+         FilterSectxMat_Popup.IsOpen = False
+         e.Handled = True
       End If
    End Sub
 
-   Private Function FindAncestor(Of T As DependencyObject)(ByVal current As DependencyObject) As T
-      While Not IsNothing(current)
+   Private Sub FilterAllBtn_Click(sender As Object, e As RoutedEventArgs)
+      If Not FilterSectxMat_Popup.IsOpen Then
+         FilterSectxMat_Popup.IsOpen = True
+      End If
+   End Sub
 
-         If TypeOf current Is T Then
-            Return CType(current, T)
+   Private Sub GridControl_MasterRowExpanding(sender As Object, e As DevExpress.Xpf.Grid.RowAllowEventArgs)
+      Dim grid = CType(sender, DevExpress.Xpf.Grid.GridControl)
+
+      ' Chiudi solo il precedente
+      If _lastExpanded <> -1 AndAlso _lastExpanded <> e.RowHandle Then
+         grid.SetMasterRowExpanded(_lastExpanded, False)
+      End If
+
+      _lastExpanded = e.RowHandle
+   End Sub
+
+   Private Sub BTLPart_TableView_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
+      bSelOnFeature = False
+   End Sub
+
+   Private Sub ListBox_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
+      bSelOnFeature = True
+   End Sub
+
+   Private Sub BTLPart_GridControl_PreviewKeyDown(sender As Object, e As KeyEventArgs)
+      If e.Key = Key.Delete Then
+         Dim BTLStructureVM As BTLStructureVM = TryCast(Me.Tag, BTLStructureVM)
+         If IsNothing(BTLStructureVM) Then Return
+
+         Dim SelBTLPart As BTLPartVM = BTLStructureVM.SelBTLPart
+         Dim SelBTLFeatureVM As BTLFeatureVM = SelBTLPart?.SelBTLFeatureVM
+
+         If bSelOnFeature AndAlso Not IsNothing(SelBTLFeatureVM) Then
+            SelBTLFeatureVM.DeleteFeature()
+            e.Handled = True
+            Return
          End If
 
-         current = VisualTreeHelper.GetParent(current)
-      End While
-
-      Return Nothing
-   End Function
+         BTLStructureVM.DeletePart()
+         e.Handled = True
+      End If
+   End Sub
 
 End Class
 

EgtBEAMWALL.Optimizer/ItemParamList/BTLPartListVM.vb

@@ -9,6 +9,8 @@ Public Class BTLPartListVM
 
 #Region "FIELDS & PROPERTIES"
 
+   Friend refSaveBTLPartGridControlLayout As Action
+
    Private m_colPart_Do As EgwWPFBaseLib.ColumnLayout
    Public ReadOnly Property colPart_Do As EgwWPFBaseLib.ColumnLayout
       Get
@@ -63,6 +65,17 @@ Public Class BTLPartListVM
       End Set
    End Property
 
+   Private m_CALCPanel_IsEnabled As Boolean = True
+   Public ReadOnly Property CALCPanel_IsEnabled As Boolean
+      Get
+         Return m_CALCPanel_IsEnabled
+      End Get
+   End Property
+   Friend Sub SetCALCPanel_IsEnabled(value As Boolean)
+      m_CALCPanel_IsEnabled = value
+      NotifyPropertyChanged(NameOf(CALCPanel_IsEnabled))
+   End Sub
+
 #Region "Messages"
 
    Public ReadOnly Property PDN_Msg As String
@@ -187,6 +200,11 @@ Public Class BTLPartListVM
 
 #End Region    ' Messages
 
+   ' Definizione comandi
+   Private m_cmdVerifyAll As ICommand
+   Private m_cmdVerifyFlipRotAll As ICommand
+   Private m_cmdResetCalc As ICommand
+
 #End Region    ' Fields & Properties
 
 #Region "CONSTRUCTOR"
@@ -207,6 +225,94 @@ Public Class BTLPartListVM
 
 #End Region    ' Constructor
 
+#Region "METHODS"
+
+   Friend Sub Close()
+      If Not IsNothing(refSaveBTLPartGridControlLayout) Then
+         refSaveBTLPartGridControlLayout()
+      End If
+   End Sub
+
+#End Region    ' Methods
+
+#Region "COMMANDS"
+
+#Region "VerifyAll"
+
+   Public ReadOnly Property VerifyAll_Command As ICommand
+      Get
+         If m_cmdVerifyAll Is Nothing Then
+            m_cmdVerifyAll = New Command(AddressOf VerifyAll)
+         End If
+         Return m_cmdVerifyAll
+      End Get
+   End Property
+
+   Friend Sub VerifyAll()
+      If (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.BTLStructureVM) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM)) Then Return
+      ' imposto flag per calcolo
+      Map.refCALCPanelVM.SetCalculating(True)
+      For Each BTLPartItem As BTLPartVM In Map.refProjectVM.BTLStructureVM.BTLPartVMList
+         BTLPartItem.SetIsRowEnabled(False)
+      Next
+      Map.refCALCPanelVM.VerifyAll(ProjectType.PROJ, CalcIntegration.CmdTypes.CHECKNOSIM)
+      Return
+   End Sub
+
+#End Region ' VerifyAll
+
+#Region "VerifyAllFlipRot"
+
+   Public ReadOnly Property VerifyAllFlipRot_Command As ICommand
+      Get
+         If m_cmdVerifyFlipRotAll Is Nothing Then
+            m_cmdVerifyFlipRotAll = New Command(AddressOf VerifyAllFlipRot)
+         End If
+         Return m_cmdVerifyFlipRotAll
+      End Get
+   End Property
+
+   Friend Sub VerifyAllFlipRot()
+      If (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.BTLStructureVM) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM)) Then Return
+      ' imposto flag per calcolo
+      Map.refCALCPanelVM.SetCalculating(True)
+      For Each BTLPartItem As BTLPartVM In Map.refProjectVM.BTLStructureVM.BTLPartVMList
+         BTLPartItem.SetIsRowEnabled(False)
+      Next
+      Map.refCALCPanelVM.VerifyAll(ProjectType.PROJ, CalcIntegration.CmdTypes.FLIP_ROT)
+      Return
+   End Sub
+
+#End Region ' VerifyAllRotate
+
+#Region "ResetCalc"
+
+   Public ReadOnly Property ResetCalc_Command As ICommand
+      Get
+         If m_cmdResetCalc Is Nothing Then
+            m_cmdResetCalc = New Command(AddressOf ResetCalc)
+         End If
+         Return m_cmdResetCalc
+      End Get
+   End Property
+
+   Public Sub ResetCalc()
+      If (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.BTLStructureVM) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM)) Then Return
+      Map.refShowBeamPanelVM.ShowBuilding_IsEnabled = True
+      Map.refCALCPanelVM.SetCalculating(False)
+      For Each Part In Map.refProjectVM.BTLStructureVM.BTLPartVMList
+         If Part.nGlobalState <> CalcStates.NOTCALCULATED Then
+            ' resetto stato dei calcoli
+            Part.ResetCalcTotalPart()
+         End If
+         If Not Part.IsRowEnabled Then Part.SetIsRowEnabled(True)
+      Next
+   End Sub
+
+#End Region    ' ResetCalc
+
+#End Region    ' Commands
+
 End Class
 
 Class DataGridCellBorderThicknessConverter
@@ -240,8 +346,8 @@ Class ProjIdToBtlFileName
    Implements IValueConverter
 
    Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert
-      If TypeOf value IsNot Integer Then Return ""
-      Dim nProjId As Integer = CInt(value)
+      If TypeOf value IsNot String Then Return ""
+      Dim nProjId As Integer = Integer.Parse(System.Text.RegularExpressions.Regex.Match(value, "\d+").Value)
       Dim ProjModel As EgtBEAMWALL.DataLayer.DatabaseModels.ProjModel = DbControllers.m_ProjController.FindByProjId(nProjId)
       If IsNothing(ProjModel) Then Return ""
       Return ProjModel.BTLFileName

EgtBEAMWALL.Optimizer/ItemParamList/FeatureInPartInRawPartListV.xaml

@@ -2,110 +2,135 @@
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
              xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer" 
-             xmlns:EgwWPFBaseLib="clr-namespace:EgwWPFBaseLib;assembly=EgwWPFBaseLib">
+             xmlns:EgwWPFBaseLib="clr-namespace:EgwWPFBaseLib;assembly=EgwWPFBaseLib"
+             xmlns:dx="http://schemas.devexpress.com/winfx/2008/xaml/core"
+             xmlns:dxg="http://schemas.devexpress.com/winfx/2008/xaml/grid"
+             xmlns:dxgt="http://schemas.devexpress.com/winfx/2008/xaml/grid/themekeys"
+             xmlns:dxe="http://schemas.devexpress.com/winfx/2008/xaml/editors"
+             xmlns:dxeh="http://schemas.devexpress.com/winfx/2008/xaml/editors/internal"
+             xmlns:dxet="http://schemas.devexpress.com/winfx/2008/xaml/editors/themekeys"
+             xmlns:dxb="http://schemas.devexpress.com/winfx/2008/xaml/bars"
+             xmlns:dxfui="http://schemas.devexpress.com/winfx/2008/xaml/core/filteringui"
+             xmlns:dxi="http://schemas.devexpress.com/winfx/2008/xaml/core/internal"
+             xmlns:i="http://schemas.devexpress.com/winfx/2008/xaml/mvvm">
 
-   <EgwWPFBaseLib:EgwDataGrid ItemsSource="{Binding Tag.FeatureVMList,
-                                                    RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureInPartInRawPartListV}}}"
-                              SelectedItem="{Binding Tag.SelFeatureVM,
-                                                     RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureInPartInRawPartListV}}}"
-                              SelectionMode="Single"
-                              Margin="0,0,0,5"
-                              ColumnLayouts="{Binding FeatureInPartInRawPartColumns}"
-                              BeginningEdit="FeatureInPartInRawPartList_BeginningEdit"
-                              AlternatingRowBackground="{StaticResource BeamWall_LinkWater}"
-                              AlternationCount="2"
-                              ColumnHeaderStyle="{StaticResource Main_DataGridColumnHeader}"
-                              CellStyle="{StaticResource CellDataGrid_CustomHighLight}"
-                              Style="{StaticResource Optimizer_DataGrid}">
-      <DataGrid.RowStyle>
-         <Style TargetType="DataGridRow" BasedOn="{StaticResource RowDataGrid_CustomHighLight}">
-            <Setter Property="IsEnabled" Value="{Binding IsEnabled}"/>
-         </Style>
-      </DataGrid.RowStyle>
-
-      <DataGrid.InputBindings>
-         <KeyBinding Key="Delete" Command="{Binding Tag.SelFeatureVM.DeleteFeature_Command,
-                                                    RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureInPartInRawPartListV}}}"/>
-      </DataGrid.InputBindings>
-      <DataGrid.Resources>
-         <DataGridTemplateColumn x:Key="colDO">
-            <DataGridTemplateColumn.HeaderTemplate>
-               <DataTemplate>
-                  <CheckBox IsChecked="{Binding Path=Tag.bDOALL, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureInPartInRawPartListV}}}"
-                            IsEnabled="{Binding Path=Tag.ButtonIsEnabled, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureInPartInRawPartListV}}}"
-                            Style="{StaticResource FeatureInPartInRawPartList_CheckBox}"/>
-               </DataTemplate>
-            </DataGridTemplateColumn.HeaderTemplate>
-            <DataGridTemplateColumn.CellTemplate>
-               <DataTemplate>
-                  <CheckBox IsChecked="{Binding bDO, UpdateSourceTrigger=PropertyChanged}"
-                            Style="{StaticResource FeatureInPartInRawPartList_CheckBox}"/>
-               </DataTemplate>
-            </DataGridTemplateColumn.CellTemplate>
-         </DataGridTemplateColumn>
-         <!--Validità feature-->
-         <DataGridTemplateColumn x:Key="colCALC">
-            <DataGridTemplateColumn.CellTemplate>
-               <DataTemplate>
-                  <Grid>
-                     <Grid.ColumnDefinitions>
-                        <ColumnDefinition Width="1*"/>
-                        <ColumnDefinition Width="10"/>
-                     </Grid.ColumnDefinitions>
-                     <Border Width="{Binding ActualHeight, RelativeSource={RelativeSource self}}"
-                             Background="{Binding Calc_Background}"/>
-                     <Grid Grid.Column="1"
-                           Style="{StaticResource FeatureInPartInRawPartList_Grid}">
-                        <Grid.RowDefinitions>
-                           <RowDefinition Height="1*"/>
-                           <RowDefinition Height="Auto"/>
-                        </Grid.RowDefinitions>
-                        <TextBlock Visibility="{Binding CALC_ROT_Visibility}"
-                                   Style="{StaticResource CALC_ROT_TextBlock}"/>
-                        <TextBlock Grid.Row="1"
-                                   Text="{Binding CALC_ERR_Letter}"
-                                   Foreground="{Binding CALC_ERR_Foreground}"
-                                   Style="{StaticResource FeatureInPartInRawPartList_TextBlock}"/>
-                     </Grid>
+   <dxg:GridControl x:Name="FeatureVMList_GridControl"
+                    ItemsSource="{Binding Tag.FeatureVMList,
+                                          RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureInPartInRawPartListV}}}"    
+                    SelectedItem="{Binding Tag.SelFeatureVM,
+                                           RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureInPartInRawPartListV}}}"
+                    SelectionMode="Row">
+      <dxg:GridControl.View>
+         <dxg:TableView x:Name="FeatureVMList_TableView"  
+                        AllowPerPixelScrolling="True"
+                        AllowEditing="False"
+                        AllowSorting="True"
+                        AllowGrouping="True"
+                        AllowColumnFiltering="True"
+                        AllowFilterEditor="False"
+                        AllowFilterPanelNavigation="False"
+                        ExtendScrollBarToFixedColumns="True"
+                        Focusable="False"
+                        GroupSummaryDisplayMode="AlignByColumns"
+                        IsTotalSummaryMenuEnabled="False"
+                        IsGroupFooterMenuEnabled="True"
+                        NavigationStyle="Row"
+                        ShowGroupPanel="False"
+                        ShowTotalSummary="False"
+                        ShowSearchPanelMode="Default"
+                        ShowFilterPanelMode="Never"
+                        ShowIndicator="False"
+                        ShowColumnHeaders="True"
+                        ShowHorizontalLines="True"
+                        ShowVerticalLines="False"
+                        ShowFocusedRectangle="True"                        
+                        ShowGridMenu="OnShowGridMenu"
+                        ShowGroupFooters="True"
+                        ShowSearchPanelResultInfo="True"
+                        ShowSearchPanelNavigationButtons="True"
+                        UseEvenRowBackground="True"
+                        
+                        ColumnHeaderStyle="{StaticResource HeaderStyle}"
+                        ColumnHeaderImageStyle="{StaticResource HeaderImageStyle}"
+                        
+                        RowStyle="{StaticResource RowStyle}"
+                        
+                        Style="{StaticResource TableViewStyle}"/>
+      </dxg:GridControl.View>
+      <dxg:GridColumn FieldName="bDO" 
+                      AllowSorting="False"
+                      Header=""
+                      Fixed="Left"
+                      Style="{StaticResource ColumnInfoStyle}">
+         <dxg:GridColumn.HeaderTemplate>
+            <DataTemplate>
+               <CheckBox IsChecked="{Binding Path=Tag.bDOALL, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureInPartInRawPartListV}}}"
+                         IsEnabled="{Binding Path=Tag.ButtonIsEnabled, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureInPartInRawPartListV}}}"/>
+            </DataTemplate>
+         </dxg:GridColumn.HeaderTemplate>
+         <dxg:GridColumn.CellTemplate>
+            <DataTemplate>
+               <dxe:CheckEdit IsChecked="{Binding RowData.Row.bDO}"
+                              IsEnabled="{Binding RowData.Row.IsEnabled}"
+                              Style="{StaticResource bDoCheckEditStyle}"/>
+            </DataTemplate>
+         </dxg:GridColumn.CellTemplate>
+      </dxg:GridColumn>
+      <dxg:GridColumn FieldName="GlobalState"
+                      Header=""
+                      SortFieldName="nGlobalState"
+                      AllowColumnFiltering="False">
+         <dxg:GridColumn.CellTemplate>
+            <DataTemplate>
+               <Grid Margin="5,0">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                     <ColumnDefinition Width="12"/>
+                  </Grid.ColumnDefinitions>
+                  <Border Background="{Binding RowData.Row.Calc_Background}"
+                          Style="{StaticResource Calc_Border}"/>
+                  <Grid Grid.Column="1"
+                        Style="{StaticResource FeatureInPartInRawPartList_Grid}">
+                     <Grid.RowDefinitions>
+                        <RowDefinition Height="1*"/>
+                        <RowDefinition Height="Auto"/>
+                     </Grid.RowDefinitions>
+                     <TextBlock Text="&#11119;"
+                                Visibility="{Binding RowData.Row.CALC_ROT_Visibility}"
+                                Style="{StaticResource CALC_ROT_TextBlock}"/>
+                     <TextBlock Grid.Row="1"
+                                Text="{Binding RowData.Row.CALC_ERR_Letter}"
+                                Foreground="{Binding RowData.Row.CALC_ERR_Foreground}"
+                                Style="{StaticResource CALC_ERR_TextBlock}"/>
                   </Grid>
-               </DataTemplate>
-            </DataGridTemplateColumn.CellTemplate>
-         </DataGridTemplateColumn>
-         <!--Descrizione-->
-         <DataGridTextColumn x:Key="colDESC" Binding="{Binding sDesc}">
-            <DataGridTextColumn.HeaderTemplate>
-               <DataTemplate>
-                  <TextBlock Text="{Binding DataContext.Description_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-               </DataTemplate>
-            </DataGridTextColumn.HeaderTemplate>
-         </DataGridTextColumn>
-         <!--Descrizione-->
-         <DataGridTextColumn x:Key="colPRIORITY" Binding="{Binding sPriority}">
-            <DataGridTextColumn.HeaderTemplate>
-               <DataTemplate>
-                  <TextBlock Text="{Binding DataContext.Priority_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-               </DataTemplate>
-            </DataGridTextColumn.HeaderTemplate>
-         </DataGridTextColumn>
-         <!--STR - Strategia-->
-         <DataGridTemplateColumn x:Key="colSTRATEGY">
-            <DataGridTemplateColumn.HeaderTemplate>
-               <DataTemplate>
-                  <TextBlock Text="Strategia"/>
-               </DataTemplate>
-            </DataGridTemplateColumn.HeaderTemplate>
-            <DataGridTemplateColumn.CellTemplate>
-               <DataTemplate>
-                  <Button ToolTip="{Binding Strategy_ToolTip}"
-                          Command="{Binding Strategy_Command}"
-                          Style="{StaticResource FeatureInPartInRawPartList_Button}">
-                     <Image Source="{StaticResource Verify_Image}"
-                            Style="{StaticResource BTLDataWnd_Image}"/>
-                  </Button>
-               </DataTemplate>
-            </DataGridTemplateColumn.CellTemplate>
-         </DataGridTemplateColumn>
-      </DataGrid.Resources>
-   </EgwWPFBaseLib:EgwDataGrid>
+               </Grid>
+            </DataTemplate>
+         </dxg:GridColumn.CellTemplate>
+      </dxg:GridColumn>
+      <dxg:GridColumn FieldName="sDesc" 
+                      AllowSorting="False"
+                      Header="{Binding Description_Msg}"
+                      Style="{StaticResource ColumnInfoStyle}"/>
+      <dxg:GridColumn FieldName="sPriority" 
+                      Header="{Binding Priority_Msg}"
+                      Style="{StaticResource ColumnInfoStyle}"/>
+      <dxg:GridColumn FieldName="Strategy"
+                      AllowSorting="False"
+                      Header=""
+                      Image="{StaticResource HeaderEdit_Image}"
+                      Fixed="Right"
+                      Style="{StaticResource ColumnButtonStyle}">
+         <dxg:GridColumn.CellTemplate>
+            <DataTemplate>
+               <Button Command="{Binding RowData.Row.Strategy_Command}"
+                       IsEnabled="{Binding RowData.Row.IsEnabled}"
+                       ToolTip="{Binding RowData.Row.Strategy_ToolTip}">
+                  <Image Source="{StaticResource Edit_Image}"
+                         Style="{StaticResource PDF_Image}"/>
+               </Button>
+            </DataTemplate>
+         </dxg:GridColumn.CellTemplate>
+      </dxg:GridColumn>
+   </dxg:GridControl>
 
 </UserControl>

EgtBEAMWALL.Optimizer/ItemParamList/FeatureInPartInRawPartListV.xaml.vb

@@ -1,25 +1,116 @@
-Imports EgtBEAMWALL.Core
+Imports System.IO
+Imports DevExpress.Xpf.Bars
+Imports DevExpress.Xpf.Core.Serialization
+Imports DevExpress.Xpf.Grid
+Imports EgtBEAMWALL.Core
 
 Public Class FeatureInPartInRawPartListV
 
-   ' funzione che impedisce di editare le righe che sono gia' in produzione
-   Private Sub FeatureInPartInRawPartList_BeginningEdit(sender As Object, e As DataGridBeginningEditEventArgs)
-      If IsNothing(e.Row) Then Return
-      Dim RowVM As BTLFeatureVM = DirectCast(e.Row.DataContext, BTLFeatureVM)
-      ' se in produzione impedisco modifica dei parametri
-      If DirectCast(RowVM.BTLFeatureM.ParentPart, PartM).nProductionState > ItemState.ND Then
-         'For Each cell In Row.Item
-         e.Cancel = True
+   Private m_FeatureInPartInRawPartListVM As FeatureInPartInRawPartListVM
+   Private m_sDataGridLayoutPath As String = ""
+
+   Sub New()
+
+      ' This call is required by the designer.
+      InitializeComponent()
+
+      ' Add any initialization after the InitializeComponent() call.
+      m_sDataGridLayoutPath = Path.GetDirectoryName(DataGridColumnsIniFile.m_sDataGridColumnsIniFile) & "\DataGridLayoutFile\FeatureInPartInRawPart.json"
+
+      For Each Column In FeatureVMList_GridControl.Columns
+         Column.[AddHandler](DXSerializer.AllowPropertyEvent,
+            New AllowPropertyEventHandler(AddressOf OnAllowProperty))
+      Next
+
+      FeatureVMList_GridControl.Columns("sPriority").Visible = False
+
+      DXSerializer.AddAllowPropertyHandler(FeatureVMList_GridControl, AddressOf OnAddAllowProperty)
+   End Sub
+
+   ' imposto parametri da aggiungere o togliere in Json tabella per i parametri di colonna
+   Private Sub OnAllowProperty(sender As Object, e As AllowPropertyEventArgs)
+      If e.DependencyProperty Is GridColumn.AllowResizingProperty Then
+         e.Allow = True
       End If
    End Sub
 
-   Private Sub FeatureList_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
-      If TypeOf sender Is DataGridRow Then
-         Dim Row As DataGridRow = DirectCast(sender, DataGridRow)
-         If Not IsNothing(Row) AndAlso Not IsNothing(Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart) Then
-            Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart.SelFeatureVM = Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart.SelFeatureVM
+   ' imposto parametri da aggiungere o togliere in Json tabella per i parametri generali
+   Private Sub OnAddAllowProperty(sender As Object, e As AllowPropertyEventArgs)
+      If e.Property.Name = "FilterString" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "MRUFilters" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "MRUFilterList" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "GroupSummarySortInfo" Then
+         e.Allow = False
+      End If
+   End Sub
+
+   ' salvataggio del layout colonne
+   Public Sub SaveFeatureInPartInRawPartGridControlLayout()
+      FeatureVMList_GridControl.SaveLayoutToJson(m_sDataGridLayoutPath)
+   End Sub
+
+   Public Sub Me_Loaded() Handles Me.Loaded
+      ' imposto DataContext
+      m_FeatureInPartInRawPartListVM = Me.DataContext
+      ' imposto riferimento ad action per salvataggio layout tabella
+      m_FeatureInPartInRawPartListVM.refSaveFeatureInPartInRawPartGridControlLayout = AddressOf SaveFeatureInPartInRawPartGridControlLayout
+      ' rispristino layout tabella
+      If Not IsNothing(m_sDataGridLayoutPath) AndAlso File.Exists(m_sDataGridLayoutPath) Then
+         FeatureVMList_GridControl.RestoreLayoutFromJson(m_sDataGridLayoutPath)
+      End If
+      ' da gestire chiamandolo quando viene aperto un progetto o aggiunto/rimosso un btl, per evitare che ci sia il GroupSummary se c'e' un solo gruppo
+      FeatureVMList_TableView.ShowGroupFooters = False
+   End Sub
+
+   Private Sub OnShowGridMenu(sender As Object, e As DevExpress.Xpf.Grid.GridMenuEventArgs)
+      If e.MenuType = GridMenuType.Column Then
+         ' rimozione bottoni
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupBox})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupColumn})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.ColumnChooser})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFit})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFitColumns})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.FilterEditor})
+
+         Dim info As GridColumnMenuInfo = CType(e.MenuInfo, GridColumnMenuInfo)
+         Dim item As ColumnBase = CType(info.Column, ColumnBase)
+         ' aggiunta separatore
+         Dim separator As BarItemLinkSeparator = New BarItemLinkSeparator()
+         e.Customizations.Add(separator)
+         ' aggiunta bottone AllowResize e Auto Fit
+         Dim AllowResize As BarCheckItem = New BarCheckItem() With {.Content = "Allow Resize", .IsChecked = (FeatureVMList_TableView.AllowResizing AndAlso (item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default))}
+         AddHandler AllowResize.CheckedChanged, AddressOf AllowResize_CheckedChanged
+         e.Customizations.Add(AllowResize)
+         If item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default Then
+            Dim FixAuto As BarButtonItem = New BarCheckItem() With {.Content = "Auto Fit"}
+            AddHandler FixAuto.ItemClick, AddressOf FixAuto_ItemClick
+            e.Customizations.Add(FixAuto)
          End If
       End If
    End Sub
 
+   ' gestore evento Allow Resize
+   Private Sub AllowResize_CheckedChanged(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(FeatureVMList_TableView.GridMenu.MenuInfo, GridColumnMenuInfo)
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      If item.AllowResizing = DevExpress.Utils.DefaultBoolean.False Then
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.True
+      Else
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
+      End If
+   End Sub
+
+   ' gestore evento Auto Fit
+   Private Sub FixAuto_ItemClick(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(FeatureVMList_TableView.GridMenu.MenuInfo, GridColumnMenuInfo)
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      item.Width = New GridColumnWidth(1, GridColumnUnitType.Auto)
+      FeatureVMList_TableView.UpdateLayout()
+      item.Width = item.ActualWidth
+      item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
+   End Sub
+
 End Class

EgtBEAMWALL.Optimizer/ItemParamList/FeatureInPartInRawPartListVM.vb

@@ -8,6 +8,8 @@ Public Class FeatureInPartInRawPartListVM
 
 #Region "FIELDS & PROPERTIES"
 
+   Public refSaveFeatureInPartInRawPartGridControlLayout As Action
+
    Private m_colFeatureInPartInRawPart_Do As EgwWPFBaseLib.ColumnLayout
    Public ReadOnly Property colFeatureInPartInRawPart_Do As EgwWPFBaseLib.ColumnLayout
       Get
@@ -78,6 +80,12 @@ Public Class FeatureInPartInRawPartListVM
       End If
    End Sub
 
+   Friend Sub Close()
+      If Not IsNothing(refSaveFeatureInPartInRawPartGridControlLayout) Then
+         refSaveFeatureInPartInRawPartGridControlLayout()
+      End If
+   End Sub
+
 #End Region    ' Methods
 
 End Class

EgtBEAMWALL.Optimizer/ItemParamList/PParameterListV.xaml

@@ -2,9 +2,22 @@
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
              xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer" 
-             xmlns:EgwWPFBaseLib="clr-namespace:EgwWPFBaseLib;assembly=EgwWPFBaseLib">
+             xmlns:EgwWPFBaseLib="clr-namespace:EgwWPFBaseLib;assembly=EgwWPFBaseLib"
+             xmlns:dx="http://schemas.devexpress.com/winfx/2008/xaml/core"
+             xmlns:dxg="http://schemas.devexpress.com/winfx/2008/xaml/grid"
+             xmlns:dxgt="http://schemas.devexpress.com/winfx/2008/xaml/grid/themekeys"
+             xmlns:dxe="http://schemas.devexpress.com/winfx/2008/xaml/editors"
+             xmlns:dxeh="http://schemas.devexpress.com/winfx/2008/xaml/editors/internal"
+             xmlns:dxet="http://schemas.devexpress.com/winfx/2008/xaml/editors/themekeys"
+             xmlns:dxb="http://schemas.devexpress.com/winfx/2008/xaml/bars"
+             xmlns:dxfui="http://schemas.devexpress.com/winfx/2008/xaml/core/filteringui"
+             xmlns:dxi="http://schemas.devexpress.com/winfx/2008/xaml/core/internal"
+             xmlns:i="http://schemas.devexpress.com/winfx/2008/xaml/mvvm">
 
-   <Grid Margin="5">
+   <Grid Style="{StaticResource BlockedWnd_Grid}">
+      <Grid.Resources>
+         <OPTIMIZER:TrimmedTextBlockVisibilityConverter x:Key="TrimToVisConverter" />
+      </Grid.Resources>
       <Grid.RowDefinitions>
          <RowDefinition Height="1*"/>
          <RowDefinition Height="Auto"/>
@@ -13,118 +26,93 @@
          <ColumnDefinition Width="1*"/>
          <ColumnDefinition Width="Auto"/>
       </Grid.ColumnDefinitions>
-      <EgwWPFBaseLib:EgwDataGrid CanUserDeleteRows="False"
-                                 SelectionMode="Single"
-                                 Margin="0,0,0,5"
-                                 ItemsSource="{Binding Tag.PBTLParamVMList, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PParameterListV}}}"
-                                 SelectedItem="{Binding Tag.SelPBTLParam, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PParameterListV}}}"
-                                 IsEnabled="{Binding PParameterList_IsEnabled}"    
-                                 ColumnLayouts="{Binding PParameterListColumns}"
-                                 AlternatingRowBackground="{StaticResource BeamWall_LinkWater}"
-                                 AlternationCount="2"
-                                 ColumnHeaderStyle="{StaticResource PParam_DataGridColumnHeader}"
-                                 CellStyle="{StaticResource CellDataGrid_CustomHighLight}"
-                                 Style="{StaticResource Optimizer_DataGrid}">
-         <DataGrid.RowStyle>
-            <Style TargetType="DataGridRow" BasedOn="{StaticResource RowDataGrid_CustomHighLight}">
-               <EventSetter Event="PreviewMouseDown" Handler="PParameterList_PreviewMouseDown"/>
-            </Style>
-         </DataGrid.RowStyle>
-
-         <DataGrid.Resources>
-            <OPTIMIZER:TrimmedTextBlockVisibilityConverter x:Key="TrimToVisConverter" />
-            <!--Custom-->
-            <DataGridTemplateColumn x:Key="colCUSTOM">
-               <DataGridTemplateColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding DataContext.Custom_Msg, RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTemplateColumn.HeaderTemplate>
-               <DataGridTemplateColumn.CellTemplate>
-                  <DataTemplate>
-                     <CheckBox IsChecked="{Binding bCustom, UpdateSourceTrigger=PropertyChanged}"
-                               Visibility="{Binding Tag, RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"
-                               Style="{StaticResource PParameters_CheckBox}"/>
-                  </DataTemplate>
-               </DataGridTemplateColumn.CellTemplate>
-            </DataGridTemplateColumn>
-            <!--Nome-->
-            <DataGridTextColumn x:Key="colNAME"  Binding="{Binding sName}">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.NAM_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--Descrizione-->
-            <DataGridTextColumn x:Key="colDESC" Binding="{Binding sDescription}">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.Description_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-               <DataGridTextColumn.CellStyle>
-                  <Style TargetType="{x:Type DataGridCell}" BasedOn="{StaticResource CellDataGrid_CustomHighLight}">
-                     <Setter Property="Template">
-                        <Setter.Value>
-                           <ControlTemplate TargetType="{x:Type DataGridCell}">
-                              <TextBlock Text="{Binding RelativeSource={RelativeSource TemplatedParent}, Path=Content.Text}"
-                                         Style="{StaticResource Prod_TextBlock}">
-                                 <TextBlock.ToolTip>
-                                    <ToolTip Style="{StaticResource PParameters_ToolTip}">
-                                       <ToolTip.Content>
-                                          <TextBlock Text="{Binding RelativeSource={RelativeSource TemplatedParent}, Path=Content.Text}"
-                                                     Style="{StaticResource Prod_TextBlock}"/>
-                                       </ToolTip.Content>
-                                    </ToolTip>
-                                 </TextBlock.ToolTip>
-                           </TextBlock>
-                           </ControlTemplate>
-                        </Setter.Value>
-                     </Setter>
-                  </Style>
-               </DataGridTextColumn.CellStyle>
-               <DataGridTextColumn.EditingElementStyle>
-                  <Style TargetType="{x:Type TextBox}">
-                     <Setter Property="FontWeight" Value="Bold" />
-                     <Setter Property="Foreground" Value="{StaticResource BeamWall_White}" />
-                     <Setter Property="Background" Value="{StaticResource BeamWall_FountainBlue}" />
-                  </Style>
-               </DataGridTextColumn.EditingElementStyle>
-            </DataGridTextColumn>
-            <!--Valore-->
-            <DataGridTextColumn x:Key="colVALUE" Binding="{Binding sValue}" SortMemberPath="dValue">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.Value_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-               <DataGridTextColumn.EditingElementStyle>
-                  <Style TargetType="{x:Type TextBox}">
-                     <Setter Property="FontWeight" Value="Bold" />
-                     <Setter Property="Foreground" Value="{StaticResource BeamWall_White}" />
-                     <Setter Property="Background" Value="{StaticResource BeamWall_FountainBlue}" />
-                  </Style>
-               </DataGridTextColumn.EditingElementStyle>
-            </DataGridTextColumn>
-            <!--Minimo-->
-            <DataGridTextColumn x:Key="colMIN" Binding="{Binding sMin, Mode=OneWay}" SortMemberPath="dMin">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.Min_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--Massimo-->
-            <DataGridTextColumn x:Key="colMAX" Binding="{Binding sMax, Mode=OneWay}" SortMemberPath="dMax">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.Max_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-         </DataGrid.Resources>
-      </EgwWPFBaseLib:EgwDataGrid>
+      <dxg:GridControl x:Name="PParameterList_GridControl"
+                       ItemsSource="{Binding Tag.PBTLParamVMList, 
+                                             RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PParameterListV}}}"
+                       SelectedItem="{Binding Tag.SelPBTLParam, 
+                                              RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PParameterListV}}}"
+                       SelectionMode="Row">
+         <dxg:GridControl.View>
+            <dxg:TableView x:Name="PParameterList_TableView"  
+                           AllowPerPixelScrolling="True"
+                           AllowEditing="True"
+                           AllowSorting="True"
+                           AllowGrouping="True"
+                           AllowColumnFiltering="True"
+                           AllowFilterEditor="False"
+                           AllowFilterPanelNavigation="False"
+                           ExtendScrollBarToFixedColumns="True"
+                           Focusable="True"
+                           GroupSummaryDisplayMode="AlignByColumns"
+                           IsTotalSummaryMenuEnabled="False"
+                           IsGroupFooterMenuEnabled="True"
+                           NavigationStyle="Cell"
+                           ShowGroupPanel="False"
+                           ShowTotalSummary="False"
+                           ShowSearchPanelMode="Default"
+                           ShowFilterPanelMode="Never"
+                           ShowIndicator="False"
+                           ShowColumnHeaders="True"
+                           ShowHorizontalLines="True"
+                           ShowVerticalLines="False"
+                           ShowFocusedRectangle="True"
+                           ShowGroupFooters="True"
+                           ShowSearchPanelResultInfo="True"
+                           ShowSearchPanelNavigationButtons="True"
+                           UseEvenRowBackground="True"
+                           
+                           ShowGridMenu="OnShowGridMenu"
+                                                      
+                           ColumnHeaderStyle="{StaticResource HeaderStyle}"
+                           ColumnHeaderImageStyle="{StaticResource HeaderImageStyle}"
+                           
+                           RowStyle="{StaticResource RowStyle}" 
+                           CellStyle="{StaticResource CellStyle}"
+                           
+                           Style="{StaticResource TableViewStyle}"/>
+         </dxg:GridControl.View>
+         <dxg:GridColumn FieldName="bCustom" 
+                         Header="{Binding Custom_Msg}"
+                         Fixed="Left"
+                         AllowEditing="False"
+                         Style="{StaticResource ColumnInfoStyle}">
+            <dxg:GridColumn.CellTemplate>
+               <DataTemplate>
+                  <dxe:CheckEdit IsChecked="{Binding RowData.Row.bCustom}"
+                                 Style="{StaticResource bDoCheckEditStyle}"/>
+               </DataTemplate>
+            </dxg:GridColumn.CellTemplate>
+         </dxg:GridColumn>
+         <dxg:GridColumn FieldName="sName" 
+                         Header="{Binding NAM_Msg}"
+                         AllowEditing="False"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sDescription" 
+                         Header="{Binding Description_Msg}"
+                         AllowEditing="False"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sValue" 
+                         SortFieldName="dValue"                     
+                         Header="{Binding Value_Msg}"
+                         AllowColumnFiltering="False"
+                         Style="{StaticResource ColumnInfoStyle}">
+            <dxg:GridColumn.EditSettings>
+               <dxe:TextEditSettings HorizontalContentAlignment="Center"/>
+            </dxg:GridColumn.EditSettings>
+         </dxg:GridColumn>
+         <dxg:GridColumn FieldName="sMin"
+                         SortFieldName="dMin"
+                         Header="{Binding Min_Msg}"
+                         AllowColumnFiltering="False"
+                         AllowEditing="False"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sMax"
+                         SortFieldName="dMaxn"
+                         Header="{Binding Max_Msg}"
+                         AllowColumnFiltering="False"
+                         AllowEditing="False"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+      </dxg:GridControl>
 
       <Image Grid.Column="1"
              Source="{Binding sCurrDraw}" 

EgtBEAMWALL.Optimizer/ItemParamList/PParameterListV.xaml.vb

@@ -1,12 +1,115 @@
-Public Class PParameterListV
+Imports System.IO
+Imports DevExpress.Xpf.Bars
+Imports DevExpress.Xpf.Core.Serialization
+Imports DevExpress.Xpf.Grid
+Imports EgtBEAMWALL.Core
 
-   Private Sub PParameterList_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
-      If TypeOf sender Is DataGridRow Then
-         Dim Row As DataGridRow = DirectCast(sender, DataGridRow)
-         If Not IsNothing(Row) AndAlso Row.IsSelected AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM) Then
-            Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.SelPBTLParam = Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.SelPBTLParam
+Public Class PParameterListV
+
+   Private m_PParameterListVM As PParameterListVM
+   Private m_sDataGridLayoutPath As String = ""
+
+   Sub New()
+
+      ' This call is required by the designer.
+      InitializeComponent()
+
+      ' Add any initialization after the InitializeComponent() call.
+      m_sDataGridLayoutPath = Path.GetDirectoryName(DataGridColumnsIniFile.m_sDataGridColumnsIniFile) & "\DataGridLayoutFile\PParameters.json"
+
+      For Each Column In PParameterList_GridControl.Columns
+         Column.[AddHandler](DXSerializer.AllowPropertyEvent,
+            New AllowPropertyEventHandler(AddressOf OnAllowProperty))
+      Next
+
+      PParameterList_GridControl.Columns("bCustom").Visible = False
+
+      DXSerializer.AddAllowPropertyHandler(PParameterList_GridControl, AddressOf OnAddAllowProperty)
+   End Sub
+
+   ' imposto parametri da aggiungere o togliere in Json tabella per i parametri di colonna
+   Private Sub OnAllowProperty(sender As Object, e As AllowPropertyEventArgs)
+      If e.DependencyProperty Is GridColumn.AllowResizingProperty Then
+         e.Allow = True
+      End If
+   End Sub
+
+   ' imposto parametri da aggiungere o togliere in Json tabella per i parametri generali
+   Private Sub OnAddAllowProperty(sender As Object, e As AllowPropertyEventArgs)
+      If e.Property.Name = "FilterString" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "MRUFilters" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "MRUFilterList" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "GroupSummarySortInfo" Then
+         e.Allow = False
+      End If
+   End Sub
+
+   ' salvataggio del layout colonne
+   Public Sub SavePParameterGridControlLayout()
+      PParameterList_GridControl.SaveLayoutToJson(m_sDataGridLayoutPath)
+   End Sub
+
+   Public Sub Me_Loaded() Handles Me.Loaded
+      ' imposto DataContext
+      m_PParameterListVM = Me.DataContext
+      ' imposto riferimento ad action per salvataggio layout tabella
+      m_PParameterListVM.refPParameterListGridControlLayout = AddressOf SavePParameterGridControlLayout
+      ' rispristino layout tabella
+      If Not IsNothing(m_sDataGridLayoutPath) AndAlso File.Exists(m_sDataGridLayoutPath) Then
+         PParameterList_GridControl.RestoreLayoutFromJson(m_sDataGridLayoutPath)
+      End If
+      ' da gestire chiamandolo quando viene aperto un progetto o aggiunto/rimosso un btl, per evitare che ci sia il GroupSummary se c'e' un solo gruppo
+   End Sub
+
+   Private Sub OnShowGridMenu(sender As Object, e As DevExpress.Xpf.Grid.GridMenuEventArgs)
+      If e.MenuType = GridMenuType.Column Then
+         ' rimozione bottoni
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupBox})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupColumn})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.ColumnChooser})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFit})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFitColumns})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.FilterEditor})
+
+         Dim info As GridColumnMenuInfo = CType(e.MenuInfo, GridColumnMenuInfo)
+         Dim item As ColumnBase = CType(info.Column, ColumnBase)
+         ' aggiunta separatore
+         Dim separator As BarItemLinkSeparator = New BarItemLinkSeparator()
+         e.Customizations.Add(separator)
+         ' aggiunta bottone AllowResize e Auto Fit
+         Dim AllowResize As BarCheckItem = New BarCheckItem() With {.Content = "Allow Resize", .IsChecked = (PParameterList_TableView.AllowResizing AndAlso (item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default))}
+         AddHandler AllowResize.CheckedChanged, AddressOf AllowResize_CheckedChanged
+         e.Customizations.Add(AllowResize)
+         If item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default Then
+            Dim FixAuto As BarButtonItem = New BarCheckItem() With {.Content = "Auto Fit"}
+            AddHandler FixAuto.ItemClick, AddressOf FixAuto_ItemClick
+            e.Customizations.Add(FixAuto)
          End If
       End If
    End Sub
 
+   ' gestore evento Allow Resize
+   Private Sub AllowResize_CheckedChanged(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(PParameterList_TableView.GridMenu.MenuInfo, GridColumnMenuInfo)
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      If item.AllowResizing = DevExpress.Utils.DefaultBoolean.False Then
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.True
+      Else
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
+      End If
+   End Sub
+
+   ' gestore evento Auto Fit
+   Private Sub FixAuto_ItemClick(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(PParameterList_TableView.GridMenu.MenuInfo, GridColumnMenuInfo)
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      item.Width = New GridColumnWidth(1, GridColumnUnitType.Auto)
+      PParameterList_TableView.UpdateLayout()
+      item.Width = item.ActualWidth
+      item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
+   End Sub
+
 End Class

EgtBEAMWALL.Optimizer/ItemParamList/PParameterListVM.vb

@@ -8,6 +8,8 @@ Public Class PParameterListVM
 
 #Region "FIELDS & PROPERTIES"
 
+   Public refPParameterListGridControlLayout As Action
+
    Private m_colPParam_Value As EgwWPFBaseLib.ColumnLayout
    Public ReadOnly Property colPParam_Value As EgwWPFBaseLib.ColumnLayout
       Get
@@ -125,6 +127,12 @@ Public Class PParameterListVM
       NotifyPropertyChanged(NameOf(PParameterList_IsEnabled))
    End Sub
 
+   Friend Sub Close()
+      If Not IsNothing(refPParameterListGridControlLayout) Then
+         refPParameterListGridControlLayout()
+      End If
+   End Sub
+
 #End Region    ' Methods
 
 #Region "COMMANDS"

EgtBEAMWALL.Optimizer/ItemParamList/RawPartListV.xaml.vb

@@ -1,84 +1,221 @@
-Imports EgtBEAMWALL.Core
+Imports System.IO
+Imports DevExpress.Data
+Imports DevExpress.Xpf.Bars
+Imports DevExpress.Xpf.Core.Native
+Imports DevExpress.Xpf.Core.Serialization
+Imports DevExpress.Xpf.Grid
+Imports EgtBEAMWALL.Core
 Imports EgtUILib.EgtInterface
 
 Public Class RawPartListV
 
-   ' funzione che permette di selezionare un RawPart anche quando gia' selezionato
-   Private Sub RawPartRow_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
-      If Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) Then Map.refProjectVM.BTLStructureVM.SelBTLPart.SetOpenFeatureList(False)
-      If TypeOf sender Is DataGridRow Then
-         Dim Row As DataGridRow = DirectCast(sender, DataGridRow)
-         Dim RowVM As MyMachGroupVM = DirectCast(Row.DataContext, MyMachGroupVM)
-         Dim DataGridDetailsPresenter As Object = TreeHelperManager.FindVisualParents(Of Button, CheckBox, Primitives.DataGridDetailsPresenter)(e.OriginalSource)
-         If Not IsNothing(DataGridDetailsPresenter) Then Return
-         ' se gia' selezionato rifaccio selezione perche' potrebbe essere selezionato un BTLPart
-         If Not IsNothing(Row) AndAlso Row.IsSelected Then
-            Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup = Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup
+   Private m_RawPartListVM As RawPartListVM
+
+   Private m_sDataGridLayoutPath As String = ""
+
+   Private _lastExpanded As Integer = -1
+
+   Sub New()
+
+      ' This call is required by the designer.
+      InitializeComponent()
+
+      ' Add any initialization after the InitializeComponent() call.
+      m_sDataGridLayoutPath = Path.GetDirectoryName(DataGridColumnsIniFile.m_sDataGridColumnsIniFile) & "\DataGridLayoutFile\RawPart.json"
+
+      For Each Column In RawPart_GridControl.Columns
+         Column.[AddHandler](DXSerializer.AllowPropertyEvent,
+            New AllowPropertyEventHandler(AddressOf OnAllowProperty))
+      Next
+      For Each Column In Part_GridControl.Columns
+         Column.[AddHandler](DXSerializer.AllowPropertyEvent,
+            New AllowPropertyEventHandler(AddressOf OnAllowProperty))
+      Next
+      DXSerializer.AddAllowPropertyHandler(RawPart_GridControl, AddressOf OnAddAllowProperty)
+      DXSerializer.AddAllowPropertyHandler(Part_GridControl, AddressOf OnAddAllowProperty)
+
+      RawPart_GridControl.Columns("sPosZ").Visible = False
+   End Sub
+
+   ' imposto parametri da aggiungere o togliere in Json tabella per i parametri di colonna
+   Private Sub OnAllowProperty(sender As Object, e As AllowPropertyEventArgs)
+      If e.DependencyProperty Is GridColumn.AllowResizingProperty Then
+         e.Allow = True
+      End If
+   End Sub
+
+   ' imposto parametri da aggiungere o togliere in Json tabella per i parametri generali
+   Private Sub OnAddAllowProperty(sender As Object, e As AllowPropertyEventArgs)
+      If e.Property.Name = "FilterString" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "MRUFilters" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "MRUFilterList" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "GroupSummarySortInfo" Then
+         e.Allow = False
+      End If
+   End Sub
+
+   ' salvataggio del layout colonne
+   Public Sub SaveBTLPartGridControlLayout()
+      RawPart_GridControl.SaveLayoutToJson(m_sDataGridLayoutPath)
+   End Sub
+
+   Public Sub Me_Loaded() Handles Me.Loaded
+      ' imposto DataContext
+      m_RawPartListVM = DataContext
+      ' imposto riferimento ad action per salvataggio layout tabella
+      m_RawPartListVM.refSaveBTLPartGridControlLayout = AddressOf SaveBTLPartGridControlLayout
+      ' rispristino layout tabella
+      If Not IsNothing(m_sDataGridLayoutPath) AndAlso File.Exists(m_sDataGridLayoutPath) Then
+         RawPart_GridControl.RestoreLayoutFromJson(m_sDataGridLayoutPath)
+      End If
+      ' da gestire chiamandolo quando viene aperto un progetto o aggiunto/rimosso un btl, per evitare che ci sia il GroupSummary se c'e' un solo gruppo
+      IsVisibleGroupSummary(False)
+   End Sub
+
+   Public Sub IsVisibleGroupSummary(bValue As Boolean)
+      If bValue AndAlso RawPart_GridControl.GroupSummary.Count = 0 Then
+         RawPart_GridControl.GroupSummary.Clear()
+         Dim PDNGroupSummaryItem As New GridSummaryItem() With {.FieldName = "nPDN",
+                                                                .DisplayFormat = "{0}",
+                                                                .SummaryType = SummaryItemType.Count,
+                                                                .ShowInGroupColumnFooter = "nPDN"}
+         RawPart_GridControl.GroupSummary.Add(PDNGroupSummaryItem)
+         Dim CNTGroupSummaryItem As New GridSummaryItem() With {.FieldName = "sCNT",
+                                                                .DisplayFormat = "{0}",
+                                                                .SummaryType = SummaryItemType.Sum,
+                                                                .ShowInGroupColumnFooter = "sCNT"}
+         RawPart_GridControl.GroupSummary.Add(CNTGroupSummaryItem)
+         Dim ADDEDGroupSummaryItem As New GridSummaryItem() With {.FieldName = "sADDED",
+                                                                  .DisplayFormat = "{0}",
+                                                                  .SummaryType = SummaryItemType.Sum,
+                                                                  .ShowInGroupColumnFooter = "sADDED"}
+         RawPart_GridControl.GroupSummary.Add(ADDEDGroupSummaryItem)
+         Dim INPRODGroupSummaryItem As New GridSummaryItem() With {.FieldName = "nINPROD",
+                                                                   .DisplayFormat = "{0}",
+                                                                   .SummaryType = SummaryItemType.Sum,
+                                                                   .ShowInGroupColumnFooter = "nINPROD"}
+         RawPart_GridControl.GroupSummary.Add(INPRODGroupSummaryItem)
+         Dim DONEGroupSummaryItem As New GridSummaryItem() With {.FieldName = "nDONE",
+                                                                 .DisplayFormat = "{0}",
+                                                                 .SummaryType = SummaryItemType.Sum,
+                                                                 .ShowInGroupColumnFooter = "nDONE"}
+         RawPart_GridControl.GroupSummary.Add(DONEGroupSummaryItem)
+      End If
+      RawPart_TableView.ShowGroupFooters = bValue
+   End Sub
+
+   ' customizzazione ContextMenu del GridControl
+   Private Sub OnShowGridMenu(sender As Object, e As DevExpress.Xpf.Grid.GridMenuEventArgs)
+      If e.MenuType = GridMenuType.Column Then
+         ' rimozione bottoni
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupBox})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupColumn})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.ColumnChooser})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFit})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFitColumns})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.FilterEditor})
+
+         Dim info As GridColumnMenuInfo = CType(e.MenuInfo, GridColumnMenuInfo)
+         Dim item As ColumnBase = CType(info.Column, ColumnBase)
+         ' aggiunta separatore
+         Dim separator As BarItemLinkSeparator = New BarItemLinkSeparator()
+         e.Customizations.Add(separator)
+         ' aggiunta bottone AllowResize e Auto Fit
+         Dim AllowResize As BarCheckItem = New BarCheckItem() With {.Content = "Allow Resize", .IsChecked = (RawPart_TableView.AllowResizing AndAlso (item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default))}
+         AddHandler AllowResize.CheckedChanged, AddressOf AllowResize_CheckedChanged
+         e.Customizations.Add(AllowResize)
+         If item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default Then
+            Dim FixAuto As BarButtonItem = New BarCheckItem() With {.Content = "Auto Fit"}
+            AddHandler FixAuto.ItemClick, AddressOf FixAuto_ItemClick
+            e.Customizations.Add(FixAuto)
          End If
       End If
    End Sub
 
-   ' funzione che impedisce di editare le righe che sono gia' in produzione
-   Private Sub RawPartList_BeginningEdit(sender As Object, e As DataGridBeginningEditEventArgs)
-      If IsNothing(e.Row) Then Return
-      Dim RowVM As MyMachGroupVM = DirectCast(e.Row.DataContext, MyMachGroupVM)
-      ' se in produzione impedisco modifica dei parametri
-      If RowVM.nProduction_State > ItemState.ND Then
-         'For Each cell In Row.Item
-         e.Cancel = True
+   ' gestore evento Allow Resize
+   Private Sub AllowResize_CheckedChanged(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(e.Link.DataContext, GridColumnMenuInfo)
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      If item.AllowResizing = DevExpress.Utils.DefaultBoolean.False Then
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.True
+      Else
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
       End If
    End Sub
 
-   Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
-      Dim btn As Button = DirectCast(sender, Button) ' Ottieni il bottone che ha generato l'evento
-      Dim parent As DependencyObject = btn
+   ' gestore evento Auto Fit
+   Private Sub FixAuto_ItemClick(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(e.Link.DataContext, GridColumnMenuInfo)
+      If IsNothing(info) Then Return
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      item.Width = New GridColumnWidth(1, GridColumnUnitType.Auto)
+      RawPart_TableView.UpdateLayout()
+      item.Width = item.ActualWidth
+      item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
+   End Sub
 
-      ' Cerca il Popup nel Visual Tree
-      While Not IsNothing(parent) AndAlso TypeOf parent IsNot DataGridRow
-         parent = VisualTreeHelper.GetParent(parent)
-      End While
+   Private Sub GridControl_MasterRowExpanding(sender As Object, e As DevExpress.Xpf.Grid.RowAllowEventArgs)
+      Dim grid = CType(sender, DevExpress.Xpf.Grid.GridControl)
 
-      If parent IsNot Nothing Then
-         Dim popup As New RawPartListPopUpV()
-         If Not IsNothing(popup) Then
-            popup.PlacementTarget = btn ' Associa il popup al bottone
-            popup.IsOpen = True ' Mostra il popup
+      ' Chiudi solo il precedente
+      If _lastExpanded <> -1 AndAlso _lastExpanded <> e.RowHandle Then
+         grid.SetMasterRowExpanded(_lastExpanded, False)
+      End If
+
+      _lastExpanded = e.RowHandle
+   End Sub
+
+   Private Sub RawPart_GridControl_MasterRowExpanded(sender As Object, e As RowEventArgs)
+      Dim masterGrid As GridControl = TryCast(sender, GridControl)
+
+      If masterGrid IsNot Nothing Then
+         Dim detailGrid As GridControl = TryCast(masterGrid.GetDetail(e.RowHandle, masterGrid.DetailDescriptor), GridControl)
+
+         If Not IsNothing(detailGrid) Then
+            If Not IsNothing(detailGrid) Then
+               Dim colPosX As GridColumn = detailGrid.Columns("sPOSX")
+               If Not IsNothing(colPosX) Then colPosX.Visible = False
+
+               Dim colPosY As GridColumn = detailGrid.Columns("sPOSY")
+               If Not IsNothing(colPosY) Then colPosY.Visible = False
+
+               Dim colMat As GridColumn = detailGrid.Columns("sMATERIAL")
+               If Not IsNothing(colMat) Then colMat.Visible = False
+            End If
          End If
       End If
    End Sub
 
-   ' funzione che permette di selezionare un pezzo anche quando gia' selezionato
-   Private Sub PartInRawPartRow_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
-      If TypeOf sender Is DataGridRow Then
-         Dim Row As DataGridRow = DirectCast(sender, DataGridRow)
-         If Not IsNothing(Row) Then
-            Dim MyMachGroup As Core.MyMachGroupVM = Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup
-            If EgtGetCurrMachGroup() = GDB_ID.NULL Then Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup = MyMachGroup
-            MyMachGroup.SelPart = MyMachGroup.SelPart
+   Private Sub RawPart_TableView_PreviewKeyDown(sender As Object, e As KeyEventArgs)
+      If e.Key = Key.Delete Then
+         Dim MyMachGroupPanelVM As MyMachGroupPanelVM = TryCast(Me.Tag, MyMachGroupPanelVM)
+         If IsNothing(MyMachGroupPanelVM) Then Return
+
+         Dim SelectedMachGroup As MyMachGroupVM = MyMachGroupPanelVM.SelectedMachGroup
+         Dim SelPart As PartVM = SelectedMachGroup?.SelPart
+
+         If MyMachGroupPanelVM.bSelOnPart AndAlso Not IsNothing(SelPart) Then
+            SelPart.RemovePart()
+            e.Handled = True
+            Return
          End If
+
+         SelectedMachGroup.RemoveRawPartCmd()
+         e.Handled = True
       End If
    End Sub
 
-   ' funzione che impedisce di editare le righe che sono gia' in produzione
-   Private Sub PartInRawPartList_BeginningEdit(sender As Object, e As DataGridBeginningEditEventArgs)
-      If IsNothing(e.Row) Then Return
-      Dim RowVM As PartVM = DirectCast(e.Row.DataContext, PartVM)
-      ' se in produzione impedisco modifica dei parametri
-      If RowVM.nProduction_State > ItemState.ND Then
-         'For Each cell In Row.Item
-         e.Cancel = True
-      End If
+   Private Sub RawPart_TableView_ShownEditor(sender As Object, e As EditorEventArgs)
+      e.Editor.SelectAll()
+      e.Editor.EditValue = ""
    End Sub
 
-   Private Sub EgwDataGrid_PreviewMouseWheel(sender As Object, e As MouseWheelEventArgs)
-      e.Handled = True
-      Dim parent As EgwWPFBaseLib.EgwDataGrid = TryCast(sender, EgwWPFBaseLib.EgwDataGrid)
-      If IsNothing(parent) Then
-         Return
-      End If
-      parent?.[RaiseEvent](New MouseWheelEventArgs(e.MouseDevice, e.Timestamp, e.Delta) With {
-        .RoutedEvent = MouseWheelEvent,
-        .Source = sender})
+   Private Sub Part_TableView_ShownEditor(sender As Object, e As EditorEventArgs)
+      e.Editor.SelectAll()
+      e.Editor.EditValue = ""
    End Sub
 
 End Class

EgtBEAMWALL.Optimizer/ItemParamList/RawPartListVM.vb

@@ -8,6 +8,8 @@ Public Class RawPartListVM
 
 #Region "FIELDS & PROPERTIES"
 
+   Friend refSaveBTLPartGridControlLayout As Action
+
    Private m_colRawPart_StartCut As EgwWPFBaseLib.ColumnLayout
    Public ReadOnly Property colRawPart_StartCut As EgwWPFBaseLib.ColumnLayout
       Get
@@ -248,6 +250,12 @@ Public Class RawPartListVM
       m_colPartInRawPart_PosY = PartInRawPartColumns.FirstOrDefault(Function(x) x.Key = COL_POSY)
    End Sub
 
+   Friend Sub Close()
+      If Not IsNothing(refSaveBTLPartGridControlLayout) Then
+         refSaveBTLPartGridControlLayout()
+      End If
+   End Sub
+
 #End Region    ' Methods
 
 End Class

EgtBEAMWALL.Optimizer/LeftPanel/LeftPanelV.xaml

@@ -2,6 +2,7 @@
       xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
       xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
       xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
+      xmlns:dxe="http://schemas.devexpress.com/winfx/2008/xaml/editors"
       xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer"
       Style="{StaticResource LeftPanel_Grid}">
 
@@ -17,131 +18,6 @@
            Grid.ColumnSpan="2" 
            Style="{StaticResource Optimizer_Border}"/>
 
-   <Grid Style="{StaticResource Verify_Grid}">
-      <Grid.ColumnDefinitions>
-         <ColumnDefinition Width="Auto"/>
-         <ColumnDefinition Width="Auto"/>
-         <ColumnDefinition Width="Auto"/>
-         <ColumnDefinition Width="Auto"/>
-         <ColumnDefinition Width="Auto"/>
-         <ColumnDefinition Width="1*"/>
-         <ColumnDefinition Width="Auto"/>
-         <ColumnDefinition Width="Auto"/>
-         <ColumnDefinition Width="Auto"/>
-      </Grid.ColumnDefinitions>
-      <Button ToolTip="{Binding VerifyAll_ToolTip}"
-              Command="{Binding VerifyAll_Command}"
-              IsEnabled="{Binding VerifyAll_IsEnabled}"
-              Style="{StaticResource Verify_Button}">
-         <Image Source="{StaticResource VerifyAll_Image}"
-                Style="{StaticResource BTLDataWnd_Image}"/>
-      </Button>
-      <Button Grid.Column="1"
-              ToolTip="{Binding VerifyAll_ToolTip}"
-              Command="{Binding VerifyAllFlipRot_Command}"
-              IsEnabled="{Binding VerifyAll_IsEnabled}"
-              Style="{StaticResource Verify_Button}">
-         <Image Source="{StaticResource VerifyAllR_Image}"
-                Style="{StaticResource BTLDataWnd_Image}"/>
-      </Button>
-      <Button Grid.Column="2"
-              Command="{Binding ResetCalc_Command}"
-              ToolTip="{Binding ResetCalc_ToolTip}"
-              IsEnabled="{Binding CALCPanel_IsEnabled}"
-              Style="{StaticResource Verify_Button}">
-         <Image Source="{StaticResource ResetCalc_Image}"
-                Style="{StaticResource BTLDataWnd_Image}"/>
-      </Button>
-      <Button Grid.Column="3"
-              Name="FilterAllBtn"
-              ToolTip="{Binding FilterAll_ToolTip}"
-              Command="{Binding ShowPopUpFilterBtnCommand}"
-              Style="{StaticResource Verify_Button}">
-         <Image Source="{StaticResource AllFilter_Image}"
-                Style="{StaticResource BTLDataWnd_Image}"/>
-      </Button>
-      <Popup IsOpen="{Binding IsFilterBtnOpen}"
-             PlacementTarget="{Binding ElementName=FilterAllBtn}"
-             Style="{StaticResource Filter_PopUp}">
-         <UniformGrid Columns="5" 
-                      Style="{StaticResource LeftPanel_UniformGrid}">
-            <Expander  Header="{Binding Section_Msg}">
-               <ListBox ItemsSource="{Binding Tag.SectionList, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelV}}}"
-                        SelectedItem="{Binding Tag.SelSection, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelV}}}"
-                        DisplayMemberPath="sSectionXMaterial"
-                        Style="{StaticResource LeftPanel_ListBox}"
-                        ItemContainerStyle="{StaticResource AlternationIndex_ListBoxItem}"/>
-            </Expander>
-            <Expander Grid.Column="1" 
-                      Header="{Binding Group_Msg}"
-                      Style="{StaticResource LeftPanel_Expander}">
-               <ListBox ItemsSource="{Binding Tag.GroupList, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelV}}}"
-                        SelectedItem="{Binding Tag.SelGroup, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelV}}}"
-                        Style="{StaticResource LeftPanel_ListBox}"
-                        ItemContainerStyle="{StaticResource AlternationIndex_ListBoxItem}"/>
-            </Expander>
-            <Expander Grid.Column="2" 
-                      Header="{Binding SubGroup_Msg}"
-                      Style="{StaticResource LeftPanel_Expander}">
-               <ListBox ItemsSource="{Binding Tag.SubGroupList, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelV}}}"
-                        SelectedItem="{Binding Tag.SelSubGroup, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelV}}}"
-                        Style="{StaticResource LeftPanel_ListBox}"
-                        ItemContainerStyle="{StaticResource AlternationIndex_ListBoxItem}"/>
-            </Expander>
-            <Expander Grid.Column="3" 
-                      Header="{Binding ParType_Msg}"
-                      Style="{StaticResource LeftPanel_Expander}">
-               <ListBox ItemsSource="{Binding Tag.SearchParamList, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelV}}}"
-                        SelectedItem="{Binding Tag.SelSearchParam, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelV}}}"             
-                        Style="{StaticResource LeftPanel_ListBox}"
-                        ItemContainerStyle="{StaticResource AlternationIndex_ListBoxItem}"/>
-            </Expander>
-            <Expander Grid.Column="4" 
-                      Header="{Binding ParValue_Msg}"
-                      Style="{StaticResource LeftPanel_Expander}">
-               <EgtWPFLib5:EgtTextBox Text="{Binding Tag.SearchText, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelV}}}"
-                                      Style="{StaticResource SearchText_TextBox}"/>
-            </Expander>
-         </UniformGrid>
-      </Popup>
-      <Expander Grid.Column="4"
-                Header="{Binding Section_Msg}" 
-                Style="{StaticResource Section_Expander}">
-         <ListBox ItemsSource="{Binding Tag.SectionList, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelV}}}"
-                  SelectedItem="{Binding Tag.SelSection, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelV}}}"
-                  DisplayMemberPath="sSectionXMaterial"
-                  Style="{StaticResource LeftPanel_ListBox}"
-                  ItemContainerStyle="{StaticResource AlternationIndex_ListBoxItem}"/>
-      </Expander>
-      <EgtWPFLib5:EgtTextBox Grid.Column="5"
-                             Text="{Binding Tag.SearchText, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelV}}}"
-                             Style="{StaticResource LeftPanel_TextBox}"/>
-      <Button Grid.Column="6" Visibility="Collapsed"
-              Command="{Binding RotateAll_Command}"
-              ToolTip="{Binding RotateAll_ToolTip}"
-              IsEnabled="{Binding RotateAll_IsEnabled}"
-              Style="{StaticResource LP_Button}">
-         <Image Source="{StaticResource Rotate_Image}"
-                Style="{StaticResource BTLDataWnd_Image}"/>
-      </Button>
-      <Button Grid.Column="7" Visibility="Collapsed"
-              Command="{Binding InvertAll_Command}"
-              ToolTip="{Binding InvertAll_ToolTip}"
-              IsEnabled="{Binding RotateAll_IsEnabled}"
-              Style="{StaticResource LP_Button}">
-         <Image Source="{StaticResource Inversion_Image}" 
-                Style="{StaticResource BTLDataWnd_Image}"/>
-      </Button>
-      <Button Grid.Column="8" Visibility="Collapsed"
-              Command="{Binding Edit_Command}"
-              ToolTip="{Binding MultipleModify_ToolTip}"
-              IsEnabled="{Binding RotateAll_IsEnabled}"
-              Style="{StaticResource MacroFeaturen_Button}">
-         <Image Source="{StaticResource Edit_Image}"
-                Style="{StaticResource BTLDataWnd_Image}"/>
-      </Button>
-   </Grid>
-
    <OPTIMIZER:BTLPartListV Grid.Row="1"
                            DataContext="{StaticResource PartListVM}"
                            Tag="{Binding Tag, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelV}}}"

EgtBEAMWALL.Optimizer/LeftPanel/LeftPanelVM.vb

@@ -83,12 +83,9 @@ Public Class LeftPanelVM
    End Sub
 
    ' Definizione comandi
-   Private m_cmdVerifyAll As ICommand
-   Private m_cmdVerifyFlipRotAll As ICommand
    Private m_cmdShowPopUpFilterBtnCmd As ICommand
    Private m_cmdRotateAll As ICommand
    Private m_cmdInvertAll As ICommand
-   Private m_cmdResetCalc As ICommand
 
 #Region "Messages"
 
@@ -145,6 +142,12 @@ Public Class LeftPanelVM
       End Get
    End Property
 
+   Public ReadOnly Property VerifyAllFlipRot_ToolTip As String
+      Get
+         Return EgtMsg(62000)
+      End Get
+   End Property
+
    Public ReadOnly Property FilterAll_ToolTip As String
       Get
          Return EgtMsg(62570)
@@ -202,54 +205,6 @@ Public Class LeftPanelVM
 
 #Region "COMMANDS"
 
-#Region "VerifyAll"
-
-   Public ReadOnly Property VerifyAll_Command As ICommand
-      Get
-         If m_cmdVerifyAll Is Nothing Then
-            m_cmdVerifyAll = New Command(AddressOf VerifyAll)
-         End If
-         Return m_cmdVerifyAll
-      End Get
-   End Property
-
-   Friend Sub VerifyAll()
-      If (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.BTLStructureVM) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM)) Then Return
-      ' imposto flag per calcolo
-      Map.refCALCPanelVM.SetCalculating(True)
-      For Each BTLPartItem As BTLPartVM In Map.refProjectVM.BTLStructureVM.BTLPartVMList
-         BTLPartItem.SetIsRowEnabled(False)
-      Next
-      Map.refCALCPanelVM.VerifyAll(ProjectType.PROJ, CalcIntegration.CmdTypes.CHECKNOSIM)
-      Return
-   End Sub
-
-#End Region ' VerifyAll
-
-#Region "VerifyAllFlipRot"
-
-   Public ReadOnly Property VerifyAllFlipRot_Command As ICommand
-      Get
-         If m_cmdVerifyFlipRotAll Is Nothing Then
-            m_cmdVerifyFlipRotAll = New Command(AddressOf VerifyAllFlipRot)
-         End If
-         Return m_cmdVerifyFlipRotAll
-      End Get
-   End Property
-
-   Friend Sub VerifyAllFlipRot()
-      If (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.BTLStructureVM) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM)) Then Return
-      ' imposto flag per calcolo
-      Map.refCALCPanelVM.SetCalculating(True)
-      For Each BTLPartItem As BTLPartVM In Map.refProjectVM.BTLStructureVM.BTLPartVMList
-         BTLPartItem.SetIsRowEnabled(False)
-      Next
-      Map.refCALCPanelVM.VerifyAll(ProjectType.PROJ, CalcIntegration.CmdTypes.FLIP_ROT)
-      Return
-   End Sub
-
-#End Region ' VerifyAllRotate
-
 #Region "ShowPopUpFilterBtnCommand"
 
    Public ReadOnly Property ShowPopUpFilterBtnCommand As ICommand
@@ -338,39 +293,6 @@ Public Class LeftPanelVM
 
 #End Region    ' InvertAll
 
-#Region "ResetCalc"
-
-   Public ReadOnly Property ResetCalc_Command As ICommand
-      Get
-         If m_cmdResetCalc Is Nothing Then
-            m_cmdResetCalc = New Command(AddressOf ResetCalc)
-         End If
-         Return m_cmdResetCalc
-      End Get
-   End Property
-
-   Public Sub ResetCalc()
-      If (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.BTLStructureVM) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM)) Then Return
-      Map.refShowBeamPanelVM.ShowBuilding_IsEnabled = True
-      Map.refCALCPanelVM.SetCalculating(False)
-      For Each Part In Map.refProjectVM.BTLStructureVM.BTLPartVMList
-         If Part.nGlobalState <> CalcStates.NOTCALCULATED Then
-            ' Resetto info
-            If MyExecProcessManager.sInfoNgePartList.Count > 0 Then
-               For Each InfoNgePart As String In MyExecProcessManager.sInfoNgePartList
-                  Dim sInfoNgePart As String() = InfoNgePart.Split("="c)
-                  EgtRemoveInfo(Part.nPartId, sInfoNgePart(0))
-               Next
-            End If
-            ' resetto stato dei calcoli
-            Part.ResetCalcTotalPart()
-         End If
-         If Not Part.IsRowEnabled Then Part.SetIsRowEnabled(True)
-      Next
-   End Sub
-
-#End Region    ' ResetCalc
-
 #End Region    ' COMMANDS
 
 End Class

EgtBEAMWALL.Optimizer/MachGroupPanel/MyMachGroupPanelVM.vb

@@ -7,6 +7,18 @@ Public Class MyMachGroupPanelVM
 
 #Region "FIELDS & PROPERTIES"
 
+   Private m_bSelOnPart As Boolean = False
+   Public ReadOnly Property bSelOnPart As Boolean
+      Get
+         Return m_bSelOnPart
+      End Get
+   End Property
+   Friend Sub SetbSelOnPart(value As Boolean)
+      m_bSelOnPart = value
+      NotifyPropertyChanged(NameOf(bSelOnPart))
+   End Sub
+
+   Public Property m_OldSelectedMachGroup As MyMachGroupVM
    Public Shadows Property SelectedMachGroup As MyMachGroupVM
       Get
          Return m_SelectedMachGroup
@@ -29,7 +41,13 @@ Public Class MyMachGroupPanelVM
                Map.refProjectVM.BTLStructureVM.BTLPartVMList(BTLPartIndex).ResetSearchFound()
             Next
          End If
+
+         If Not IsNothing(value) Then m_OldSelectedMachGroup = value
+
          m_SelectedMachGroup = value
+
+         If IsNothing(m_SelectedMachGroup) Then m_SelectedMachGroup = m_OldSelectedMachGroup
+
          If Not IsNothing(value) Then
             OnPreSetCurrMachGroup()
             EgtSetCurrMachGroup(value.Id)
@@ -42,6 +60,7 @@ Public Class MyMachGroupPanelVM
          End If
          Map.refMyStatusBarVM.SetLoadingProgress(0)
          Map.refMyStatusBarVM.SetOutputMessage("")
+         SetbSelOnPart(False)
          NotifyPropertyChanged(NameOf(SelectedMachGroup))
       End Set
    End Property
@@ -160,11 +179,11 @@ Public Class MyMachGroupPanelVM
                      Dim Beam As PartVM = BeamMachGroup.PartVMList.FirstOrDefault(Function(x) x.nPartId = nDuploId)
                      EgtSetCurrMachGroup(BeamMachGroup.Id)
                      Beam.DeletePart()
+                     ' reset necessario per poter ottenere nMachGroupId corretto
+                     EgtResetCurrMachGroup()
+                     ' aggiorno dati utilizzo barra
+                     BeamMachGroup.UpdateUsage()
                   End If
-                  ' reset necessario per poter ottenere nMachGroupId corretto
-                  EgtResetCurrMachGroup()
-                  ' aggiorno dati utilizzo barra
-                  BeamMachGroup.UpdateUsage()
                Next
                ' aggiorno quantita' in prod
                Dim BTLPart As BTLPartVM = CALCPanelVM.GetBTLPartVMFromBTLPartId(nPartId)
@@ -197,7 +216,7 @@ Public Class MyMachGroupPanelVM
    End Function
 
    Public Overrides Sub AddMachGroup()
-      Dim MyMachGroupM As MyMachGroupM = m_MyMachGroupPanelM.NewMyMachGroup(CurrentMachine.sMachineName, Map.refProjectVM.BTLStructureVM.nPROJTYPE)
+      Dim MyMachGroupM As MyMachGroupM = m_MyMachGroupPanelM.NewMyMachGroup(Map.refMachinePanelVM.SelectedMachine.Name, Map.refProjectVM.BTLStructureVM.nPROJTYPE)
       ' e lo seleziono
       SelectedMachGroup = MachGroupVMList.FirstOrDefault(Function(x) x.MachGroupM Is MyMachGroupM)
    End Sub
@@ -211,8 +230,6 @@ Public Class MyMachGroupPanelVM
          EgtResetCurrMachGroup()
          ' nascondo tutti i pezzi
          Map.refProjectVM.BTLStructureVM.HideAll()
-         ' mostro tutti i pezzi
-         Map.refShowBeamPanelVM.ShowAll(True)
       End If
    End Sub
 

EgtBEAMWALL.Optimizer/MachGroupPanel/MyMachGroupVM.vb

@@ -86,6 +86,7 @@ Public Class MyMachGroupVM
             Map.refProjectVM.SetManagerTabVisibility(True)
             If Not IsNothing(Map.refProjectVM.MachGroupPanelVM) Then Map.refProjectVM.SetFeatureListVisibility(True)
          End If
+         Map.refMachGroupPanelVM.SetbSelOnPart(True)
       End Set
    End Property
    Friend Sub SetSelPart(value As Core.PartVM)
@@ -803,6 +804,10 @@ Public Class MyMachGroupVM
          End If
          Part.nProduction_State = ItemState.ND
          Part.NotifyPropertyChanged(NameOf(Part.Background))
+         Part.NotifyPropertyChanged(NameOf(Part.ButtonIsEnabled))
+         For Each Feature As BTLFeatureVM In Part.FeatureVMList
+            Feature.NotifyPropertyChanged(NameOf(Feature.IsEnabled))
+         Next
          If bDuploToUpdate Then
             Dim Duplo As PartVM = CALCPanelVM.GetPartVMFromPartId(Part.nPartId)
             Duplo.ResetCalcTotalPart()
@@ -818,6 +823,7 @@ Public Class MyMachGroupVM
       End If
       NotifyPropertyChanged(NameOf(IsReadOnly))
       NotifyPropertyChanged(NameOf(Background))
+      NotifyPropertyChanged(NameOf(ButtonIsEnabled))
    End Sub
 
    Private Sub RefreshPartList_Tick()
@@ -906,19 +912,20 @@ Public Class MyMachGroupVM
                Map.refMachGroupPanelVM.SelectedMachGroup = Map.refMachGroupPanelVM.MachGroupVMList(1)
             Else
                Map.refMachGroupPanelVM.SelectedMachGroup = Nothing
-               EgtDraw()
+               'EgtDraw()
             End If
          ElseIf Index = Map.refMachGroupPanelVM.MachGroupVMList.Count - 1 Then
             If Map.refMachGroupPanelVM.MachGroupVMList.Count > 1 Then
                Map.refMachGroupPanelVM.SelectedMachGroup = Map.refMachGroupPanelVM.MachGroupVMList(Map.refMachGroupPanelVM.MachGroupVMList.Count - 2)
             Else
                Map.refMachGroupPanelVM.SelectedMachGroup = Nothing
-               EgtDraw()
+               'EgtDraw()
             End If
          Else
             Map.refMachGroupPanelVM.SelectedMachGroup = Map.refMachGroupPanelVM.MachGroupVMList(Index - 1)
          End If
       End If
+      EgtDraw()
       ' rimuovo dalla lista grezzi
       Map.refMachGroupPanelVM.MachGroupVMList.Remove(Me)
    End Sub
@@ -940,7 +947,7 @@ Public Class MyMachGroupVM
 
    Friend Sub Verify()
       If ((IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.BTLStructureVM) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM))) Then Return
-      Map.refProjectVM.BTLStructureVM.SelBTLPart.SetIsRowEnabled(False)
+      Map.refMachGroupPanelVM.SelectedMachGroup.SetIsRowEnabled(False)
       Map.refCALCPanelVM.Verify(ProjectType.PROD, CalcIntegration.CmdTypes.CHECKGEN)
       Return
    End Sub
@@ -976,10 +983,11 @@ Public Class MyMachGroupVM
          EgtGetMachGroupMachineName(SelMachGroup.Id, MachineName)
          Dim Bar As New EgtBEAMWALL.Core.Bar With {.nBarId = SelMachGroup.Id,
                                                   .nProgramPage = ProjectType.PROD,
-                                                  .nProjType = ProjType,
+                                                  .nProjType = ProjType + 10,
                                                   .bBarOk = True,
                                                   .nMachineName = MachineName,
                                                   .nCmdType = CalcIntegration.CmdTypes.SIMULATE,
+                                                  .nBarState = SelMachGroup.nProduction_State,
                                                   .nGlobState = SelMachGroup.nGlobalState}
          If SelMachGroup.nGlobalState = CalcStates.NOTCALCULATED Then
             Dim sMachGroupFilePath As String = ProjectManagerVM.CurrProd.sProdDirPath & "\" & SelMachGroup.Name.ToString() & ".ori.bwe"
@@ -1150,7 +1158,7 @@ Public Class MyMachGroupVM
    End Property
 
    Public Sub RemoveRawPartCmd()
-      If EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(62574) & Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.Name & " ?", EgtMsg(30009), MessageBoxButton.OKCancel, MessageBoxImage.Exclamation) = MessageBoxResult.OK Then
+      If EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(62574) & " " & Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.Name & " ?", EgtMsg(30009), MessageBoxButton.OKCancel, MessageBoxImage.Exclamation) = MessageBoxResult.OK Then
          RemoveRawPart()
       Else
          Return
@@ -1173,16 +1181,33 @@ Public Class MyMachGroupVM
          If IsNothing(SelMachGroup) Then Return
          ' se barra gia' assegnata a supervisore, esco
          If SelMachGroup.nProduction_State >= ItemState.Assigned Then Return
+         Dim Index As Integer = Map.refMachGroupPanelVM.MachGroupVMList.IndexOf(SelMachGroup)
          SelMachGroup.DeleteMachGroup()
-         If Not IsNothing(Map.refMachGroupPanelVM.SelectedMachGroup) Then
-            Map.refMachGroupPanelVM.SelectedMachGroup = Map.refMachGroupPanelVM.MachGroupVMList(0)
+         If Index = 0 Then
+            If Map.refMachGroupPanelVM.MachGroupVMList.Count > 1 Then
+               Map.refMachGroupPanelVM.SelectedMachGroup = Map.refMachGroupPanelVM.MachGroupVMList(0)
+            Else
+               Map.refMachGroupPanelVM.SelectedMachGroup = Nothing
+               ' seleziono primo pezzo
+               If Map.refProjectVM.BTLStructureVM.BTLPartVMList.Count > 0 Then
+                  Map.refProjectVM.BTLStructureVM.SelectBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList(0))
+               End If
+            End If
+         ElseIf Index >= Map.refMachGroupPanelVM.MachGroupVMList.Count Then
+            If Map.refMachGroupPanelVM.MachGroupVMList.Count > 1 Then
+               Map.refMachGroupPanelVM.SelectedMachGroup = Map.refMachGroupPanelVM.MachGroupVMList(Map.refMachGroupPanelVM.MachGroupVMList.Count - 1)
+            Else
+               Map.refMachGroupPanelVM.SelectedMachGroup = Nothing
+               ' seleziono primo pezzo
+               If Map.refProjectVM.BTLStructureVM.BTLPartVMList.Count > 0 Then
+                  Map.refProjectVM.BTLStructureVM.SelectBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList(0))
+               End If
+            End If
+         Else
+            Map.refMachGroupPanelVM.SelectedMachGroup = Map.refMachGroupPanelVM.MachGroupVMList(Index)
          End If
       End If
       EgtDraw()
-      ' se nessun grezzo, rimetto tutti i pezzi invisibili
-      If Map.refProjectVM.MachGroupPanelVM.MachGroupVMList.Count = 0 Then
-         Map.refProjectVM.BTLStructureVM.HideAll(True)
-      End If
    End Sub
 
 #End Region    ' RemoveRawPart

EgtBEAMWALL.Optimizer/MachinePanel/MachinePanelV.xaml

@@ -88,9 +88,7 @@
       </TabControl.ItemContainerStyle>
       <TabItem Header="EMPTY"/>
       <TabItem Header="STRATEGIES">
-         <StackPanel>
-            <OPTIMIZER:StrategyManagerV DataContext="{StaticResource StrategyManagerVM}"/>
-         </StackPanel>
+         <OPTIMIZER:StrategyManagerV DataContext="{StaticResource StrategyManagerVM}" Margin="0,0,0,-25"/>
       </TabItem>
       <TabItem Header="PARAMETERS">
          <StackPanel Style="{StaticResource PartManager_StackPanel}">

EgtBEAMWALL.Optimizer/MainMenu/MainMenuV.xaml

@@ -36,8 +36,25 @@
            Command="{Binding SendFeedbackCommand}"
            ToolTip="{Binding SendFeedbackToolTip}"
            Style="{StaticResource SendFeedback_Button}">
-      <Image Source="{StaticResource Send_Image}"
-             Style="{StaticResource BTLDataWnd_Image}"/>
+      <Grid>
+         <Image Source="{StaticResource Send_Image}"
+                Style="{StaticResource BTLDataWnd_Image}"/>
+         <Border Background="Red"
+                 Height="10"
+                 Width="10"
+                 Margin="5,0,0,0"
+                 CornerRadius="5"
+                 VerticalAlignment="Top"
+                 HorizontalAlignment="Right"
+                 Visibility="{Binding BadgeVisibility}">
+            <TextBlock Text="{Binding sBadgeText}"
+                       FontSize="7"
+                       VerticalAlignment="Center"
+                       HorizontalAlignment="Center"
+                       Foreground="White"
+                       Margin="0,0,0,1"/>
+         </Border>
+      </Grid>
    </Button>
 
    <RadioButton Grid.Column="4"

EgtBEAMWALL.Optimizer/MainMenu/MainMenuVM.vb

@@ -6,6 +6,7 @@ Imports EgtBEAMWALL.Core
 Imports EgtBEAMWALL.Core.ConstBeam
 Imports EgtUILib
 Imports EgtWPFLib5
+Imports EgwRedmineAPI
 
 Public Class MainMenuVM
    Inherits VMBase
@@ -40,8 +41,12 @@ Public Class MainMenuVM
       End Get
       Set(value As Boolean)
          If value Then
-            SelPage = Pages.OPTIMIZERPAGE
-            SetConfigurationImagePath(CONFIGURATION_IMAGE)
+            Dim bModify As Boolean = True
+            If Map.refStrategyManagerVM.bIsModifyStrategy Then bModify = Map.refStrategyManagerVM.SaveCustomConfigJson()
+            If bModify Then
+               SelPage = Pages.OPTIMIZERPAGE
+               SetConfigurationImagePath(CONFIGURATION_IMAGE)
+            End If
          End If
       End Set
    End Property
@@ -236,6 +241,28 @@ Public Class MainMenuVM
       End Set
    End Property
 
+   Private m_sBadgeText As String = ""
+   Public ReadOnly Property sBadgeText As String
+      Get
+         Return m_sBadgeText
+      End Get
+   End Property
+   Friend Sub SetBadgeText(value As String)
+      m_sBadgeText = value
+      NotifyPropertyChanged(NameOf(sBadgeText))
+   End Sub
+
+   Private m_BadgeVisibility As Visibility = Visibility.Collapsed
+   Public ReadOnly Property BadgeVisibility As Visibility
+      Get
+         Return m_BadgeVisibility
+      End Get
+   End Property
+   Friend Sub SetBadgeVisibility(value As Boolean)
+      m_BadgeVisibility = If(value, Visibility.Visible, Visibility.Collapsed)
+      NotifyPropertyChanged(NameOf(BadgeVisibility))
+   End Sub
+
 #Region "Messages"
 
    Public ReadOnly Property Configuration_Msg As String
@@ -308,6 +335,10 @@ Public Class MainMenuVM
       m_OpenPage_Timer.Interval = TimeSpan.FromMilliseconds(500)
       AddHandler m_OpenPage_Timer.Tick, AddressOf OpenPage_Tick
       m_OpenPage_Timer.Start()
+      ' verifico se lanciare gestore notifiche
+      If Not IsNothing(Map.refMainWindowVM.MainWindowM.RedmineApi) AndAlso GetMainPrivateProfileInt("Redmine", "EnableNotification", 0) > 0 AndAlso Not IsNothing(Map.refMainWindowVM.MainWindowM.RedmineApi.NotificationManager) Then
+         AddHandler Map.refMainWindowVM.MainWindowM.RedmineApi.NotificationManager.OnNotification, AddressOf NotificationManager_OnNotification
+      End If
    End Sub
 
 #End Region    ' CONSTRUCTOR
@@ -580,7 +611,7 @@ Public Class MainMenuVM
          ProjFileMList = DbControllers.m_ProjController.GetByProdAsc(ProjectManagerVM.CurrProd.nProdId)
          Map.refProdManagerVM.SetCurrProj(ProjFileMList(0).nProjId)
       End If
-      Dim sExportFileName = ProjectManagerVM.CurrProd.nProdId.ToString("0000") & " - " & ProjectManagerVM.CurrProj.sBTLFileName & " - ProjectExport"
+      Dim sExportFileName = ProjectManagerVM.CurrProd.nProdId.ToString("0000") & " - ProjectExport"
       Dim sExpZipToCreate = Map.refProdManagerVM.ExportProject(sExportFileName)
       ' Creo zip file da allegare
       Dim sZipToCreate As String = Map.refMainWindowVM.MainWindowM.sTempDir & "\Feedback.zip"
@@ -633,28 +664,30 @@ Public Class MainMenuVM
       Catch ex1 As Exception
          EgtOutLog("Exception in zip: " & ex1.ToString())
       End Try
-      ' preparo la mail per il supporto
-      Dim bEx As Boolean = False
-      Try
-         Dim sAddressArray As String() = sSupportAddress.Split(CType(",", Char()))
-         Dim SendFeedbackWindow As New EgtWPFLib5.MapiMailMessage("Aedifica Feedback - " & sKey)
-         SendFeedbackWindow.Recipients.Add(sAddressArray(0))
-         For index As Integer = 1 To sAddressArray.Length() - 1
-            SendFeedbackWindow.Recipients.Add(sAddressArray(index), EgtWPFLib5.MapiMailMessage.RecipientType.CC)
-         Next
-         If Not String.IsNullOrWhiteSpace(sZipToCreate) AndAlso File.Exists(sZipToCreate) Then
-            SendFeedbackWindow.Files.Add(Map.refMainWindowVM.MainWindowM.sTempDir & "\Feedback.zip")
-         End If
-         SendFeedbackWindow.ShowDialog()
-      Catch ex As Exception
-         EgtOutLog("Feedback exception: " & ex.ToString)
-         bEx = True
-      End Try
-      If bEx OrElse EgtWPFLib5.MapiMailMessage.m_ErrorCode <> 0 Then
-         EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, String.Format(EgtMsg(30512), sSupportAddress, sZipToCreate), EgtMsg(15003), MessageBoxButton.OK, MessageBoxImage.Information)
-      Else
-         Map.refMyStatusBarVM.SetOutputMessage(EgtMsg(30514))
-      End If
+      ' creo ticket
+      Map.refMainWindowVM.MainWindowM.RedmineApi?.OpenNewTicket(New List(Of String)({Map.refMainWindowVM.MainWindowM.sTempDir & "\Feedback.zip"}))
+      '' preparo la mail per il supporto
+      'Dim bEx As Boolean = False
+      'Try
+      '   Dim sAddressArray As String() = sSupportAddress.Split(CType(",", Char()))
+      '   Dim SendFeedbackWindow As New EgtWPFLib5.MapiMailMessage("AEdifica Feedback - " & sKey)
+      '   SendFeedbackWindow.Recipients.Add(sAddressArray(0))
+      '   For index As Integer = 1 To sAddressArray.Length() - 1
+      '      SendFeedbackWindow.Recipients.Add(sAddressArray(index), EgtWPFLib5.MapiMailMessage.RecipientType.CC)
+      '   Next
+      '   If Not String.IsNullOrWhiteSpace(sZipToCreate) AndAlso File.Exists(sZipToCreate) Then
+      '      SendFeedbackWindow.Files.Add(Map.refMainWindowVM.MainWindowM.sTempDir & "\Feedback.zip")
+      '   End If
+      '   SendFeedbackWindow.ShowDialog()
+      'Catch ex As Exception
+      '   EgtOutLog("Feedback exception: " & ex.ToString)
+      '   bEx = True
+      'End Try
+      'If bEx OrElse EgtWPFLib5.MapiMailMessage.m_ErrorCode <> 0 Then
+      '   EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, String.Format(EgtMsg(30512), sSupportAddress, sZipToCreate), EgtMsg(15003), MessageBoxButton.OK, MessageBoxImage.Information)
+      'Else
+      '   Map.refMyStatusBarVM.SetOutputMessage(EgtMsg(30514))
+      'End If
    End Sub
 
    Private Sub AddFileToZip(archive As ZipArchive, filePath As String, entryRoot As String)
@@ -688,4 +721,9 @@ Public Class MainMenuVM
 
 #End Region    ' COMMANDS
 
+   Private Sub NotificationManager_OnNotification(evt As NotificationEvent)
+      SetBadgeText(evt.Quantity)
+      SetBadgeVisibility(evt.Quantity > 0)
+   End Sub
+
 End Class

EgtBEAMWALL.Optimizer/MainWindow/MainWindowM.vb

@@ -1,9 +1,10 @@
-Imports System.Threading
+Imports System.IO
 Imports System.Math
+Imports System.Threading
+Imports EgtBEAMWALL.Core
 Imports EgtUILib
 Imports EgtWPFLib5
-Imports EgtBEAMWALL.Core
-Imports System.IO
+Imports EgwRedmineAPI
 
 Public Class MainWindowM
 
@@ -191,6 +192,29 @@ Public Class MainWindowM
       End Get
    End Property
 
+   'Private REDMINE_URL As String = "https://redmine.egalware.com/"
+   'Private PROJECT_ID As String = "steamware-stockmat"
+   Private REDMINE_URL As String = "http://172.16.1.71/"
+   Private PROJECT_ID As String = "base-stong"
+
+   Private m_RedmineApi As EgwRedmineAPICore
+   Friend ReadOnly Property RedmineApi As EgwRedmineAPICore
+      Get
+         If IsNothing(m_RedmineApi) Then
+            m_RedmineApi = New EgwRedmineAPICore()
+            m_RedmineApi.SetGetPrivateProfileString(AddressOf EgwWPFBaseLib.GetMainPrivateProfileString)
+            m_RedmineApi.SetWritePrivateProfileString(AddressOf EgwWPFBaseLib.WriteMainPrivateProfileString)
+            m_RedmineApi.SetWinPosFromIniToWindow(AddressOf EgwWPFBaseLib.WinPosFromIniToWindow)
+            m_RedmineApi.SetWinPosFromWindowToIni(AddressOf EgwWPFBaseLib.WinPosFromWindowToIni)
+            If Not m_RedmineApi.Init(REDMINE_URL, PROJECT_ID) Then
+               m_RedmineApi = Nothing
+               MessageBox.Show("Ticketing system initialization failed!", "Error!", MessageBoxButton.OK, MessageBoxImage.Error)
+            End If
+         End If
+         Return m_RedmineApi
+      End Get
+   End Property
+
 #End Region    ' FIELDS
 
 #Region "CONSTRUCTOR"
@@ -217,6 +241,7 @@ Public Class MainWindowM
       m_sTempDir = m_sDataRoot & "\" & TEMP_DIR
       ' Impostazione path Ini file
       IniFile.m_sIniFile = m_sConfigDir & "\" & Core.ConstIni.INI_FILE_NAME
+      EgwWPFBaseLib.SetIniFile(IniFile.m_sIniFile)
       ' Impostazione path BTL Ini File
       BTLIniFile.m_sBTLIniFile = m_sConfigDir & "\" & BTLFEATURES_FILE_NAME
       ' Impostazione path Ini file DataGrid
@@ -269,8 +294,8 @@ Public Class MainWindowM
          EgtSetLockId(sLockId)
       End If
       ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(5327, 2701, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(5327, 2701, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(5327, 3106, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(5327, 3106, 1, m_nKeyOptions)
       ' Inizializzazione generale di EgtInterface
       m_nDebug = GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0)
       m_sLogFile = m_sTempDir & "\" & VWOPTGENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
@@ -305,6 +330,37 @@ Public Class MainWindowM
       End While
       ' Leggo file messaggi
       Dim sMsgFilePath As String = sMsgDir & "\" & sMsgName
+      ' leggo messaggi automatismo
+      Dim sAutoMsgFilePath As String = ""
+      Dim sPluginName As String = ""
+      If GetMainPrivateProfileString(S_BEAM, K_BEAMBASEDIR, "", sAutoMsgFilePath) > 0 AndAlso Not String.IsNullOrWhiteSpace(sAutoMsgFilePath) Then
+         ' recupero nome del file messaggi dell'automatismo
+         sAutoMsgFilePath &= "\Messages\" & sMsgName
+         If File.Exists(sAutoMsgFilePath) Then
+            Dim OrigMsgFile As List(Of String) = File.ReadAllLines(sMsgFilePath).ToList()
+            ' elimino eventuali righe vuote o commento di fine
+            While String.IsNullOrWhiteSpace(OrigMsgFile.Last()) OrElse OrigMsgFile.Last().StartsWith("//")
+               OrigMsgFile.RemoveAt(OrigMsgFile.Count - 1)
+            End While
+            Dim AutoMsgFile As List(Of String) = File.ReadAllLines(sAutoMsgFilePath).ToList()
+            ' elimino eventuale riga di inizio file
+            If AutoMsgFile.Count > 2 AndAlso AutoMsgFile(0).StartsWith("//") AndAlso AutoMsgFile(1).StartsWith("0") Then
+               AutoMsgFile.RemoveAt(0)
+               AutoMsgFile.RemoveAt(0)
+            End If
+            OrigMsgFile.AddRange(AutoMsgFile)
+            Dim sNewMsgFilePath As String = sMsgDir & "\Complete" & sMsgName
+            Dim bNewMsgFile As Boolean = False
+            Try
+               File.WriteAllLines(sNewMsgFilePath, OrigMsgFile)
+               bNewMsgFile = True
+            Catch ex As Exception
+            End Try
+            If bNewMsgFile Then
+               sMsgFilePath = sNewMsgFilePath
+            End If
+         End If
+      End If
       If Not EgtLoadMessages(sMsgFilePath) Then
          EgtOutLog("Error in EgtLoadMessages")
       End If
@@ -337,6 +393,18 @@ Public Class MainWindowM
       Core.Configuration.SetModifySetup(m_bMachConfig)
       ' Info su opzioni chiave
       EgtOutLog("KeyOptions : " & bKey.ToString() & " " & m_nKeyOptions.ToString())
+      ' inizializzo ambiente Redmine
+      m_RedmineApi = New EgwRedmineAPICore()
+      m_RedmineApi.SetGetPrivateProfileString(AddressOf EgwWPFBaseLib.GetMainPrivateProfileString)
+      m_RedmineApi.SetWritePrivateProfileString(AddressOf EgwWPFBaseLib.WriteMainPrivateProfileString)
+      m_RedmineApi.SetGetPrivateProfileInt(AddressOf EgwWPFBaseLib.GetMainPrivateProfileInt)
+      m_RedmineApi.SetWinPosFromIniToWindow(AddressOf EgwWPFBaseLib.WinPosFromIniToWindow)
+      m_RedmineApi.SetWinPosFromWindowToIni(AddressOf EgwWPFBaseLib.WinPosFromWindowToIni)
+      If Not m_RedmineApi.Init(REDMINE_URL, PROJECT_ID) Then
+         m_RedmineApi = Nothing
+         MessageBox.Show("Ticketing system initialization failed!", "Error!", MessageBoxButton.OK, MessageBoxImage.Error)
+      End If
+
    End Sub
 
    Private Sub ManageInstance()

EgtBEAMWALL.Optimizer/MainWindow/MainWindowV.xaml

@@ -26,7 +26,7 @@
             </Style>
          </TabControl.ItemContainerStyle>
          <TabItem>
-            <OPTIMIZER:ProjectV DataContext="{StaticResource ProjectVM}"/>
+            <OPTIMIZER:ProjectV x:Name="ProjectView" DataContext="{StaticResource ProjectVM}"/>
          </TabItem>
          <TabItem>
             <OPTIMIZER:ConfigurationPageV DataContext="{DynamicResource ConfigurationPageVM}"/>

EgtBEAMWALL.Optimizer/MainWindow/MainWindowV.xaml.vb

@@ -43,6 +43,11 @@ Public Class MainWindowV
          e.Cancel = True
          Return
       End If
+      If Map.refProjectVM.bCalcRunning Then
+         EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(63047), EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)
+         e.Cancel = True
+         Return
+      End If
       If (Keyboard.Modifiers And ModifierKeys.Alt) = ModifierKeys.Alt OrElse Keyboard.IsKeyDown(Key.F4) Then
          e.Cancel = True
          Return

EgtBEAMWALL.Optimizer/MainWindow/MainWindowVM.vb

@@ -269,7 +269,7 @@ Public Class MainWindowVM
             ' recupero secondo parametro
             Dim sProdId As String = Environment.GetCommandLineArgs(2)
             If Not Integer.TryParse(sProdId, nProdId) OrElse nProdId <= 0 Then Return False
-            nPage = Pages.MACHINING
+            nPage = Pages.OPTIMIZERPAGE
             Return True
          Case 2         ' apri pagina specifica senza progetto specifico
             ' recupero secondo parametro
@@ -384,9 +384,12 @@ Public Class MainWindowVM
       ' Gestisco eventuale file corrente modificato
       Dim bOk As Boolean = True
       Select Case Map.refMainMenuVM.SelPage
+         Case Pages.CONFIGPROGRAM
+            bOk = Map.refConfigurationPageVM.SaveConfigPage()
          Case Pages.CONFIG
-            ' Verifica modifica parametri Macchina e chiedo il salvataggio
-            Map.refConfigurationPageVM.VerifyConfigPageModification()
+            If Map.refStrategyManagerVM.bIsModifyStrategy Then
+               bOk = Map.refStrategyManagerVM.SaveCustomConfigJson()
+            End If
          Case Pages.OPTIMIZERPAGE
             bOk = ProdFileVM.VerifyProjectModification(ProjectManagerVM.CurrProd) <> MessageBoxResult.Cancel
       End Select
@@ -427,6 +430,10 @@ Public Class MainWindowVM
                                                                                                                              {S_FEATUREINPARTINRAWPARTLIST, Map.refFeatureInPartInRawPartListVM.FeatureInPartInRawPartColumns},
                                                                                                                              {S_PARAMETERLIST_P, Map.refPParameterListVM.PParameterListColumns}}
          EgwWPFBaseLib.EgwDataGrid.WriteColumnLayout(DataGridColumnsIniFile.m_sDataGridColumnsIniFile, DataGridColumnDictionary)
+         Map.refPartListVM.Close()
+         Map.refRawPartListVM.Close()
+         Map.refFeatureInPartInRawPartListVM.Close()
+         Map.refPParameterListVM.Close()
       End If
       ' Termino il Model
       m_MainWindowM.Close()

EgtBEAMWALL.Optimizer/My Project/AssemblyInfo.vb

@@ -67,5 +67,5 @@ Imports System.Windows
 '      Revision
 '
 
-<Assembly: AssemblyVersion("3.1.5.2")>
-<Assembly: AssemblyFileVersion("3.1.5.2")>
+<Assembly: AssemblyVersion("3.1.7.2")>
+<Assembly: AssemblyFileVersion("3.1.7.2")>

EgtBEAMWALL.Optimizer/Panel/LeftPanelBottomV.xaml

@@ -16,8 +16,7 @@
               Style="{StaticResource Bottom_WrapPanel}">
       <OPTIMIZER:InstrumentPanelV DataContext="{StaticResource InstrumentPanelVM}"/>
       <OPTIMIZER:ShowPanelV DataContext="{StaticResource ShowPanelVM}"/>
-      <OPTIMIZER:ShowBeamPanelV DataContext="{StaticResource ShowBeamPanelVM}"
-                                Visibility="{Binding DataContext.ShowBeamPanel_Visibility, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelBottomV}}}"/>
+      <OPTIMIZER:ShowBeamPanelV DataContext="{StaticResource ShowBeamPanelVM}"/>
       <OPTIMIZER:ViewPanelV DataContext="{StaticResource ViewPanelVM}"/>
    </WrapPanel>
 

EgtBEAMWALL.Optimizer/Panel/LeftPanelTopV.xaml

@@ -9,7 +9,6 @@
    </Grid.ColumnDefinitions>
    <OPTIMIZER:LeftPanelV DataContext="{StaticResource LeftPanelVM}"
                          Tag="{Binding DataContext.BTLStructureVM, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelTopV}}}"
-                         Visibility="{Binding DataContext.LeftPanel_Visibility, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelTopV}}}"
                          IsEnabled="{Binding DataContext.LeftPanel_IsEnabled, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelTopV}}}"
                          Opacity="{Binding DataContext.LeftPanel_Opacity, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:LeftPanelTopV}}}"/>
 

EgtBEAMWALL.Optimizer/Panel/RightPanelBottomV.xaml

@@ -25,8 +25,8 @@
                     Style="{StaticResource Optimizer_Border}"
                     Visibility="{Binding DataContext.FeatureList_Visibility, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:RightPanelBottomV}}}"/>
             <OPTIMIZER:FeatureInPartInRawPartListV DataContext="{StaticResource FeatureInPartInRawPartListVM}" Margin="5"
-                                                         Tag="{Binding DataContext.MachGroupPanelVM.SelectedMachGroup.SelPart, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:RightPanelBottomV}}}"
-                                                         Visibility="{Binding DataContext.FeatureList_Visibility, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:RightPanelBottomV}}}"/>
+                                                   Tag="{Binding DataContext.MachGroupPanelVM.SelectedMachGroup.SelPart, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:RightPanelBottomV}}}"
+                                                   Visibility="{Binding DataContext.FeatureList_Visibility, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:RightPanelBottomV}}}"/>
             <StackPanel Grid.Column="1"
                         Style="{StaticResource Message_StackPanel}">
                <TextBlock Text="{Binding DataContext.MachGroupPanelVM.SelectedMachGroup.sCALC_MSG, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:RightPanelBottomV}}}"

EgtBEAMWALL.Optimizer/Panel/RightPanelTopV.xaml.vb

@@ -5,6 +5,7 @@
       If Not IsNothing(Map.refProjectVM.SelStrategySetup) AndAlso Map.refProjectVM.SelStrategySetup.Equals(SelStrategy.Content) Then
          Map.refStrategyManagerVM.SelStrategySetup.sName = SelStrategy.Content
          Map.refStrategyManagerVM.SelStrategySetup.Read()
+         Map.refStrategyManagerVM.OrderStrategyList(Map.refStrategyManagerVM.SelStrategySetup.StrategyFeatureList)
          Map.refProjectVM.CustomGeneralParameters(SelStrategy.Content)
          Map.refProjectVM.SelStrategySetup = SelStrategy.Content
       End If

EgtBEAMWALL.Optimizer/Panel/TopPanelV.xaml

@@ -11,8 +11,7 @@
       <ColumnDefinition Width="Auto"/>
    </Grid.ColumnDefinitions>
    <Border Style="{StaticResource TopPanel_Border}">
-      <OPTIMIZER:ProdManagerV DataContext="{DynamicResource ProdManagerVM}"
-                              Visibility="{Binding DataContext.ProdManager_Visibility, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:TopPanelV}}}"/>
+      <OPTIMIZER:ProdManagerV DataContext="{DynamicResource ProdManagerVM}"/>
    </Border>
    
    <OPTIMIZER:CalcPanelV Grid.Column="1" 

EgtBEAMWALL.Optimizer/PartParametersWnd/PartParametersWndV.xaml

@@ -25,68 +25,57 @@
          <TextBlock Text="{Binding NAM_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sNAM, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sNAM, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding COUNT_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sCNT, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sCNT, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding ORDERNUM_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.nORDERNUM, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.nORDERNUM, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding PLANINGLEN_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.dPLANINGLEN, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.dPLANINGLEN, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding STARTOFFSET_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.dSTARTOFFSET, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.dSTARTOFFSET, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding ENDOFFSET_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.dENDOFFSET, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.dENDOFFSET, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding DESIGN_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sDESIGN, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sDESIGN, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding GROUP_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sGROUP, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sGROUP, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding STOREY_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sSTOREY, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sSTOREY, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding ANNOT_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sANNOT, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sANNOT, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding MATERIAL_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sMATERIAL, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sMATERIAL, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
       </UniformGrid>
 
@@ -114,8 +103,7 @@
                        Style="{StaticResource PartParam_TextBlock}"/>
             <EgtWPFLib5:EgtTextBox Grid.Row="1"
                                    Grid.Column="1"
-                                   Text="{Binding Tag.nCOLA, UpdateSourceTrigger=Explicit,
-                                                  RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                   Text="{Binding CurrPart.nCOLA, UpdateSourceTrigger=LostFocus}"
                                    Style="{StaticResource PartParam_TextBox}"/>
          </Grid>
       </GroupBox>
@@ -126,38 +114,32 @@
          <TextBlock Text="{Binding TIMBERGRADE_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sTIMBERGRADE, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sTIMBERGRADE, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding QUALITYGRADE_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sQUALITYGRADE, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sQUALITYGRADE, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding PACKAGE_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sPACKAGE, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sPACKAGE, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding ASSEMBLYNUM_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sASSEMBLYNUM, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sASSEMBLYNUM, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding ELEMENTNUM_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sELEMENTNUM, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sELEMENTNUM, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding MODULENUM_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sMODULENUM, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sMODULENUM, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding PROCESSINGQUALITY_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
@@ -192,14 +174,12 @@
          <TextBlock Text="{Binding LAYER_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.nLAYER, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.nLAYER, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
          <TextBlock Text="{Binding COMMENT_MSG}"
                     Style="{StaticResource PartParam_TextBlock}"/>
          <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding Tag.sCOMMENT, UpdateSourceTrigger=Explicit,
-                                               RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                Text="{Binding CurrPart.sCOMMENT, UpdateSourceTrigger=LostFocus}"
                                 Style="{StaticResource PartParam_TextBox}"/>
       </UniformGrid>
 
@@ -275,8 +255,7 @@
                <TextBlock Text="{Binding GRAINDIRECTION_MSG}"
                           Style="{StaticResource PartParam_TextBlock}"/>
                <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                      Text="{Binding Tag.GrainDirection, UpdateSourceTrigger=Explicit,
-                                                     RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                      Text="{Binding CurrPart.GrainDirection, UpdateSourceTrigger=LostFocus}"
                                       Style="{StaticResource PartParam_TextBox}"/>
                <TextBlock Grid.Row="1"
                           Text="{Binding GRAINDIRALIGN_MSG}"
@@ -317,8 +296,7 @@
                           Style="{StaticResource PartParam_TextBlock}"/>
                <EgtWPFLib5:EgtTextBox Grid.Row="1"
                                       Grid.Column="1"
-                                      Text="{Binding Tag.CamberParams, UpdateSourceTrigger=Explicit,
-                                                     RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                      Text="{Binding CurrPart.CamberParams, UpdateSourceTrigger=LostFocus}"
                                       Style="{StaticResource PartParam_TextBox}"/>
             </Grid>
          </GroupBox>
@@ -350,8 +328,7 @@
                           Style="{StaticResource PartParam_TextBlock}"/>
                <EgtWPFLib5:EgtTextBox Grid.Row="1"
                                       Grid.Column="1"
-                                      Text="{Binding Tag.PartOffsetParams, UpdateSourceTrigger=Explicit,
-                                                     RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                      Text="{Binding CurrPart.PartOffsetParams, UpdateSourceTrigger=LostFocus}"
                                       Style="{StaticResource PartParam_TextBox}"/>
             </Grid>
          </GroupBox>
@@ -383,8 +360,7 @@
                           Style="{StaticResource PartParam_TextBlock}"/>
                <EgtWPFLib5:EgtTextBox Grid.Row="1"
                                       Grid.Column="1"
-                                      Text="{Binding Tag.sMATERIALTYPESPEC, UpdateSourceTrigger=Explicit,
-                                                     RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                      Text="{Binding CurrPart.sMATERIALTYPESPEC, UpdateSourceTrigger=LostFocus}"
                                       Style="{StaticResource PartParam_TextBox}"/>
             </Grid>
          </GroupBox>
@@ -455,24 +431,21 @@
                           Style="{StaticResource PartParam_TextBlock}"/>
                <EgtWPFLib5:EgtTextBox Grid.Row="1"
                                       Grid.Column="1"
-                                      Text="{Binding Tag.TransfOrig, UpdateSourceTrigger=Explicit,
-                                                     RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                      Text="{Binding CurrPart.TransfOrig, UpdateSourceTrigger=LostFocus}"
                                       Style="{StaticResource PartParam_TextBox}"/>
                <TextBlock Grid.Row="2"
                           Text="{Binding TRANSFVERSX_MSG}"
                           Style="{StaticResource PartParam_TextBlock}"/>
                <EgtWPFLib5:EgtTextBox Grid.Row="2"
                                       Grid.Column="1"
-                                      Text="{Binding Tag.TransfVersX, UpdateSourceTrigger=Explicit,
-                                                     RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                      Text="{Binding CurrPart.TransfVersX, UpdateSourceTrigger=LostFocus}"
                                       Style="{StaticResource PartParam_TextBox}"/>
                <TextBlock Grid.Row="3"
                           Text="{Binding TRANSFVERSY_MSG}"
                           Style="{StaticResource PartParam_TextBlock}"/>
                <EgtWPFLib5:EgtTextBox Grid.Row="3"
                                       Grid.Column="1"
-                                      Text="{Binding Tag.TransfVersY, UpdateSourceTrigger=Explicit,
-                                                     RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:PartParametersWndV}}}"
+                                      Text="{Binding CurrPart.TransfVersY, UpdateSourceTrigger=LostFocus}"
                                       Style="{StaticResource PartParam_TextBox}"/>
             </Grid>
          </GroupBox>

EgtBEAMWALL.Optimizer/PartParametersWnd/PartParametersWndV.xaml.vb

@@ -14,4 +14,5 @@
    Private Sub CloseWindow(bDialogResult As Boolean) Handles m_PartParametersWndVM.m_CloseWindow
       Me.DialogResult = bDialogResult
    End Sub
+
 End Class

EgtBEAMWALL.Optimizer/PartParametersWnd/PartParametersWndVM.vb

@@ -8,6 +8,13 @@ Public Class PartParametersWndVM
 
    Friend Event m_CloseWindow(bDialogResult As Boolean)
 
+   Private m_CurrPart As BTLPartVM
+   Public ReadOnly Property CurrPart As BTLPartVM
+      Get
+         Return m_CurrPart
+      End Get
+   End Property
+
    ' Definizione comandi
    Private m_cmdOk As ICommand
 
@@ -271,8 +278,8 @@ Public Class PartParametersWndVM
 
 #Region "CONSTRUCTOR"
 
-   Sub New()
-
+   Sub New(CurrPart As BTLPartVM)
+      m_CurrPart = CurrPart
    End Sub
 
 #End Region    ' CONSTRUCTOR

EgtBEAMWALL.Optimizer/PopUp/RawPartListPopUpV.xaml

@@ -1,49 +1,38 @@
-<Popup x:Class="RawPartListPopUpV"
-       xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-       xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-       xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer"
-       Style="{StaticResource Filter_PopUp}">
-   <Border Style="{StaticResource BTLPartManager_Border}">      
-      <StackPanel Style="{StaticResource BTLPartManager_StackPanel}">
-         <!--COPY - Copia-->
-         <Button Command="{Binding CopyRawPart_Command}"
-                 ToolTip="{Binding CopyRawPart_ToolTip}"
-                 Click="ClosePopUp_Click"
-                 Style="{StaticResource LP_Button}">
-            <Image Source="{StaticResource CopyRawPart_Image}"
-                   Style="{StaticResource BTLDataWnd_Image}"/>
-         </Button>
-         <!--DELETE - Elimina-->
-         <Button Command="{Binding RemoveRawPart_Command}"
-                 ToolTip="{Binding RemoveRawPart_ToolTip}"
-                 Click="ClosePopUp_Click"
-                 Style="{StaticResource LP_Button}">
-            <Image Source="{StaticResource Remove_Image}"
-                   Style="{StaticResource BTLDataWnd_Image}"/>
-         </Button>
-         <!--CAM - CAM-->
-         <Button ToolTip="{Binding Simulate_ToolTip}"
-                 Command="{Binding Simulate_Command}"
-                 Style="{StaticResource ToolBarViewPanel_Button}">
-            <Image Source="{StaticResource Simulate_Image}"
-                   Style="{StaticResource BTLDataWnd_Image}"/>
-         </Button>
-         <!--REORDER - Riordina-->
-         <Button Command="{Binding ReOrderPart_Command}"
-                 ToolTip="{Binding ReOrderPart_ToolTip}"
-                 Click="ClosePopUp_Click"
-                 Style="{StaticResource LP_Button}">
-            <Image Source="{StaticResource ReOrderPart_Image}"
-                   Style="{StaticResource BTLDataWnd_Image}"/>
-         </Button>
-         <!--RESET - Reset-->
-         <Button Command="{Binding ResetCalc_Command}"
-                 ToolTip="{Binding ResetCalc_ToolTip}"
-                 Click="ClosePopUp_Click"
-                 Style="{StaticResource LP_Button}">
-            <Image Source="{StaticResource ResetCalc_Image}"
-                   Style="{StaticResource BTLDataWnd_Image}"/>
-         </Button>
-      </StackPanel>
-   </Border>
-</Popup>
+<dxb:PopupMenu x:Class="RawPartListPopUpV"
+               xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+               xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+               xmlns:dx="http://schemas.devexpress.com/winfx/2008/xaml/core"
+               xmlns:dxb="http://schemas.devexpress.com/winfx/2008/xaml/bars"
+               xmlns:dxi="http://schemas.devexpress.com/winfx/2008/xaml/core/internal"
+               xmlns:dxt="http://schemas.devexpress.com/winfx/2008/xaml/core/themekeys"
+               xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer"
+               Background="{StaticResource Border.BTLPartManager.Background}"
+               BorderBrush="{StaticResource Border.BTLPartManager.Border}"
+               BorderThickness="2"
+               CornerRadius="5"
+               Margin="0"
+               Padding="0">
+   
+   <dxb:BarItemMenuHeader ShowContentHeader="False" 
+                          ItemsOrientation="Horizontal"
+                          Margin="0"
+                          Padding="0">
+      <dxb:BarButtonItem Command="{Binding CopyRawPart_Command}"
+                         ToolTip="{Binding CopyRawPart_ToolTip}"
+                         Glyph="{StaticResource CopyRawPart_Image}"
+                         Style="{StaticResource DropDownButton_BarButtonItem}"/>
+      <dxb:BarButtonItem Command="{Binding RemoveRawPart_Command}"
+                         ToolTip="{Binding RemoveRawPart_ToolTip}"
+                         Glyph="{StaticResource Remove_Image}"
+                         Style="{StaticResource DropDownButton_BarButtonItem}"/>
+      <dxb:BarButtonItem Command="{Binding ReOrderPart_Command}"
+                         ToolTip="{Binding ReOrderPart_ToolTip}"
+                         Glyph="{StaticResource ReOrderPart_Image}"
+                         Style="{StaticResource DropDownButton_BarButtonItem}"/>
+      <dxb:BarButtonItem Command="{Binding ResetCalc_Command}"
+                         ToolTip="{Binding ResetCalc_ToolTip}"
+                         Glyph="{StaticResource ResetCalc_Image}"
+                         Style="{StaticResource DropDownButton_BarButtonItem}"/>
+   </dxb:BarItemMenuHeader>
+
+</dxb:PopupMenu>

EgtBEAMWALL.Optimizer/PopUp/RawPartListPopUpV.xaml.vb

@@ -1,14 +1,3 @@
 Public Class RawPartListPopUpV
 
-   Private Sub ClosePopUp_Click(sender As Object, e As RoutedEventArgs)
-      Dim Button As Button = DirectCast(sender, Button)
-      Dim StackPanel As StackPanel = DirectCast(Button.Parent, StackPanel)
-      Dim Border As Border = DirectCast(StackPanel.Parent, Border)
-      Dim Popup As Primitives.Popup = DirectCast(Border.Parent, Primitives.Popup)
-
-      If Not IsNothing(Popup) Then
-         Popup.IsOpen = False
-      End If
-   End Sub
-
 End Class

EgtBEAMWALL.Optimizer/ProdManager/ProdManagerVM.vb

@@ -4,7 +4,6 @@ Imports System.IO.Compression
 Imports System.Windows.Threading
 Imports EgtBEAMWALL.Core
 Imports EgtBEAMWALL.DataLayer.DatabaseModels
-Imports EgtBEAMWALL.Optimizer.MainMenuVM
 Imports EgtUILib
 Imports EgtWPFLib5
 Imports Newtonsoft.Json
@@ -485,6 +484,8 @@ Public Class ProdManagerVM
       Map.refMyStatusBarVM.RefreshMachName()
       ' Aggiorno titolo
       Map.refMainWindowVM.UpdateTitle()
+      ' Abilito scelta macchina
+      Map.refCALCPanelVM.SetChooseMachine_IsEnabled(True)
       ' Aggiungo a ButtonBuildingList i BTL
       Map.refSceneBuildingVM.ButtonBuildingList.Clear()
       If m_nListProjAsseBase.Count > 0 Then
@@ -851,12 +852,13 @@ Public Class ProdManagerVM
       GeneralParametersWndVM.SetbSaveGeneralParameters(True)
       GeneralParametersWndVM.SaveProjectParameters()
 
-      m_BTLDataWnd = New BTLDataWndVM()
+      ' leggo struttura BTL per liste
+      Map.refProjectVM.BTLStructureVM = New BTLStructureVM(BTLStructureM.CreateBTLStructure(0))
+
+      m_BTLDataWnd = New BTLDataWndVM(Map.refProjectVM.BTLStructureVM)
       m_BTLDataWnd.Read(nType)
       m_BTLDataWnd.SaveInfoBTL(nType)
 
-      ' leggo struttura BTL per liste
-      Map.refProjectVM.BTLStructureVM = New BTLStructureVM(BTLStructureM.CreateBTLStructure(0))
       CopyBuilding()
       Dim sProjFileName As String = sProjDir & "\" & nProjId.ToString("0000") & ".nge"
       Dim bFirstPart As Boolean = EgtGetFirstPart() <> GDB_ID.NULL
@@ -890,8 +892,6 @@ Public Class ProdManagerVM
       Dim TempProj As ProjFileM = DbControllers.m_ProjController.FindByProjIdConv(nProjId)
       Map.refSceneBuildingVM.ButtonBuildingList.Add(New ButtonBuildingItem(nProjId, m_nListProjAsseBase(nProjId), TempProj.sBTLFileName))
       'LoadingWndHelper.UpdateLoadingWnd(ActiveIds.IMPORTBTL, 3, EgtMsg(63006), 70, 100)         ' Loading graphics
-      ' mostro tutti i pezzi
-      Map.refShowBeamPanelVM.ShowAll(True)
       'LoadingWndHelper.CloseLoadingWnd(ActiveIds.IMPORTBTL)
       Return True
    End Function
@@ -993,6 +993,15 @@ Public Class ProdManagerVM
 
       ' Apro finestra parametri generali
       Dim GeneralParametersWndVM As New GeneralParametersWndVM(nType)
+
+      ' Controllo se la cartella AiSetUp è presente
+      GetFirstAiSetUp(nType)
+
+      Dim sDefaultConfigFile As String = String.Empty
+      If EgtUILib.GetPrivateProfileString(S_STRATEGY, K_DEFAULTCONFIG, "", sDefaultConfigFile, Map.refMainWindowVM.MainWindowM.sDefaultConfig) = 0 Then
+         SetFirstStrategy(GeneralParametersWndVM, sDefaultConfigFile)
+      End If
+
       GeneralParametersWndVM.SetbSaveGeneralParameters(True)
       GeneralParametersWndVM.SaveProjectParameters()
 
@@ -1112,7 +1121,7 @@ Public Class ProdManagerVM
       ' imposto progetto corrente
       Dim OldProd As ProdFileVM = ProjectManagerVM.CurrProd
       ProjectManagerVM.CurrProd = TempCurrProd
-      m_BTLDataWnd = New BTLDataWndVM()
+      m_BTLDataWnd = New BTLDataWndVM(Map.refProjectVM.BTLStructureVM)
       DbControllers.m_ProdController.LockByProdId(ProjectManagerVM.CurrProd.nProdId, True, Map.refMainWindowVM.MainWindowM.GetKeyNumber())
       ' recupero indice di modifica progetto quando caricato
       Dim CommIndex As Integer = -1
@@ -1191,6 +1200,8 @@ Public Class ProdManagerVM
       Map.refMyStatusBarVM.RefreshMachName()
       ' Controllo se ci sono strategie modificate nei pezzi e mostro l'immagine della penna
       ModifyStrategyInfo(Map.refProjectVM.BTLStructureVM.BTLPartVMList)
+      ' Abilito scelta macchina
+      Map.refCALCPanelVM.SetChooseMachine_IsEnabled(True)
       ' Aggiungo a ButtonBuildingList i BTL
       Map.refSceneBuildingVM.ButtonBuildingList.Clear()
       If m_nListProjAsseBase.Count > 0 Then
@@ -1319,7 +1330,7 @@ Public Class ProdManagerVM
    End Sub
 
    Public Sub OpenProjectFromSupervisor(ProjIdToOpen As Integer)
-      If Not IsNothing(ProjectManagerVM.CurrProd) Then
+      If (Not IsNothing(ProjectManagerVM.CurrProd) AndAlso ProjIdToOpen <> ProjectManagerVM.CurrProd.nProdId) OrElse Map.refMainMenuVM.SelPage <> Pages.OPTIMIZERPAGE Then
          m_nProjIdToOpen = ProjIdToOpen
          m_bOpenProj = True
       End If
@@ -1357,7 +1368,9 @@ Public Class ProdManagerVM
       While nPartLayerId <> GDB_ID.NULL
          Dim nNewId As Integer = EgtCopyEx(Map.refSceneHostVM.MainScene.GetCtx(), nPartLayerId, Map.refSceneShowBuldingVM.SceneShowBulding.GetCtx(), nRef)
          ' Salvo le info dei pezzi per associarli in modo corretto
-         Map.refSceneShowBuldingVM.MapInfo.Add(nPartLayerId, nNewId)
+         If nNewId > 0 AndAlso Not Map.refSceneShowBuldingVM.MapInfo.ContainsKey(nPartLayerId) Then
+            Map.refSceneShowBuldingVM.MapInfo.Add(nPartLayerId, nNewId)
+         End If
          nPartLayerId = EgtGetNextPart(nPartLayerId)
       End While
 
@@ -1370,14 +1383,17 @@ Public Class ProdManagerVM
          While nIdF <> GDB_ID.NULL
             Dim Sou As Integer = 0
             EgtGetInfo(nIdF, "!SOU", Sou)
-            EgtSetInfo(nIdF, "!SOU", Map.refSceneShowBuldingVM.MapInfo(Sou))
+            If EgtGetInfo(nIdF, "!SOU", Sou) AndAlso Map.refSceneShowBuldingVM.MapInfo.ContainsKey(Sou) Then
+               EgtSetInfo(nIdF, "!SOU", Map.refSceneShowBuldingVM.MapInfo(Sou))
+            End If
             nIdF = EgtGetNext(nIdF)
          End While
          Map.refProjectVM.BTLStructureVM.ShowBuilding(nListAsseBase(IdAsseBase), True)
          If IdAsseBase > 0 Then EgtSetStatus(nListAsseBase(IdAsseBase), GDB_ST.OFF)
          Dim nProj As Integer = 0
-         EgtGetInfo(nListAsseBase(IdAsseBase), PROJ, nProj)
-         m_nListProjAsseBase.Add(nProj, nListAsseBase(IdAsseBase))
+         If EgtGetInfo(nListAsseBase(IdAsseBase), PROJ, nProj) AndAlso Not m_nListProjAsseBase.ContainsKey(nProj) Then
+            m_nListProjAsseBase.Add(nProj, nListAsseBase(IdAsseBase))
+         End If
       Next
 
       EgtZoom(ZM.ALL)
@@ -2061,8 +2077,6 @@ Public Class ProdManagerVM
          Next
          Map.refProjectVM.SetOptimizePanel_Visibility(Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.WALL AndAlso Map.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.NESTING_AUTO))
          LoadingWndHelper.UpdateLoadingWnd(ActiveIds.IMPORTBTL, 3, EgtMsg(63006), 70, 100)         ' Loading graphics
-         ' mostro tutti i pezzi
-         Map.refShowBeamPanelVM.ShowAll(True)
       Else
          ' elimino da Db
          ' CheckMe impostata come cancellazione FISICA dal DB...

EgtBEAMWALL.Optimizer/Project/ProjectVM.vb

@@ -60,32 +60,6 @@ Public Class ProjectVM
    End Property
    Private m_bLockUX As Boolean = False
 
-   Private m_FeatureManager_Visibility As Boolean = True
-   Public Property FeatureManager_Visibility As Visibility
-      Get
-         Return If(m_FeatureManager_Visibility, Visibility.Visible, Visibility.Collapsed)
-      End Get
-      Set(value As Visibility)
-         m_FeatureManager_Visibility = (value = Visibility.Visible)
-      End Set
-   End Property
-   Friend Sub SetFeatureManager_Visibility(IsVisible As Boolean)
-      m_FeatureManager_Visibility = IsVisible
-   End Sub
-
-   Private m_ShowBeamPanel_Visibility As Boolean = True
-   Public Property ShowBeamPanel_Visibility As Visibility
-      Get
-         Return If(m_ShowBeamPanel_Visibility, Visibility.Visible, Visibility.Collapsed)
-      End Get
-      Set(value As Visibility)
-         m_ShowBeamPanel_Visibility = (value = Visibility.Visible)
-      End Set
-   End Property
-   Friend Sub SetShowBeamPanel_Visibility(IsVisible As Boolean)
-      m_ShowBeamPanel_Visibility = IsVisible
-   End Sub
-
    Private m_FreeContourManager_Visibility As Boolean = False
    Public Property FreeContourManager_Visibility As Visibility
       Get
@@ -100,32 +74,6 @@ Public Class ProjectVM
       NotifyPropertyChanged(NameOf(FreeContourManager_Visibility))
    End Sub
 
-   Private m_ProdManager_Visibility As Boolean = True
-   Public Property ProdManager_Visibility As Visibility
-      Get
-         Return If(m_ProdManager_Visibility, Visibility.Visible, Visibility.Collapsed)
-      End Get
-      Set(value As Visibility)
-         m_ProdManager_Visibility = (value = Visibility.Visible)
-      End Set
-   End Property
-   Friend Sub SetProdManager_Visibility(IsVisible As Boolean)
-      m_ProdManager_Visibility = IsVisible
-   End Sub
-
-   Private m_LeftPanel_Visibility As Boolean = True
-   Public Property LeftPanel_Visibility As Visibility
-      Get
-         Return If(m_LeftPanel_Visibility, Visibility.Visible, Visibility.Collapsed)
-      End Get
-      Set(value As Visibility)
-         m_LeftPanel_Visibility = (value = Visibility.Visible)
-      End Set
-   End Property
-   Friend Sub SetLeftPanel_Visibility(IsVisible As Boolean)
-      m_LeftPanel_Visibility = IsVisible
-   End Sub
-
    Private m_LeftPanel_IsEnabled As Boolean = True
    Public Property LeftPanel_IsEnabled As Boolean
       Get
@@ -254,7 +202,7 @@ Public Class ProjectVM
          Return m_FeatureList_Visibility
       End Get
    End Property
-   Sub SetFeatureListVisibility(bVisible As Boolean)
+   Friend Sub SetFeatureListVisibility(bVisible As Boolean)
       m_FeatureList_Visibility = If(bVisible, Visibility.Visible, Visibility.Collapsed)
       NotifyPropertyChanged(NameOf(FeatureList_Visibility))
    End Sub
@@ -265,7 +213,7 @@ Public Class ProjectVM
          Return m_RawPartManagerVisibility
       End Get
    End Property
-   Sub SetRawPartManagerVisibility(bVisible As Boolean)
+   Friend Sub SetRawPartManagerVisibility(bVisible As Boolean)
       m_RawPartManagerVisibility = If(bVisible, Visibility.Visible, Visibility.Collapsed)
       NotifyPropertyChanged(NameOf(RawPartManagerVisibility))
    End Sub
@@ -276,7 +224,7 @@ Public Class ProjectVM
          Return m_StrategyManagerVisibility
       End Get
    End Property
-   Sub SetStrategyManagerVisibility(bVisible As Boolean)
+   Friend Sub SetStrategyManagerVisibility(bVisible As Boolean)
       m_StrategyManagerVisibility = If(bVisible, Visibility.Visible, Visibility.Collapsed)
       NotifyPropertyChanged(NameOf(StrategyManagerVisibility))
    End Sub
@@ -287,7 +235,7 @@ Public Class ProjectVM
          Return m_SceneShowBuldingVisibility
       End Get
    End Property
-   Sub SetSceneShowBuldingVisibility(bVisible As Boolean)
+   Friend Sub SetSceneShowBuldingVisibility(bVisible As Boolean)
       m_SceneShowBuldingVisibility = If(bVisible, Visibility.Visible, Visibility.Collapsed)
       NotifyPropertyChanged(NameOf(SceneShowBuldingVisibility))
    End Sub
@@ -298,7 +246,7 @@ Public Class ProjectVM
          Return m_ManagerTabVisibility
       End Get
    End Property
-   Sub SetManagerTabVisibility(bVisible As Boolean)
+   Friend Sub SetManagerTabVisibility(bVisible As Boolean)
       m_ManagerTabVisibility = If(bVisible, Visibility.Visible, Visibility.Collapsed)
       NotifyPropertyChanged(NameOf(ManagerTabVisibility))
    End Sub
@@ -371,6 +319,7 @@ Public Class ProjectVM
          If Not IsNothing(value) Then
             Map.refStrategyManagerVM.SelStrategySetup.sName = value
             Map.refStrategyManagerVM.SelStrategySetup.Read()
+            Map.refStrategyManagerVM.OrderStrategyList(Map.refStrategyManagerVM.SelStrategySetup.StrategyFeatureList)
             CustomGeneralParameters(value)
          End If
          m_SelStrategySetup = value
@@ -380,6 +329,7 @@ Public Class ProjectVM
    Friend Sub SetSelStrategy(value As String)
       m_SelStrategySetup = value
       Map.refStrategyManagerVM.SelStrategySetup.Read()
+      Map.refStrategyManagerVM.OrderStrategyList(Map.refStrategyManagerVM.SelStrategySetup.StrategyFeatureList)
       Map.refSceneHostVM.SaveProject()
       NotifyPropertyChanged(NameOf(SelStrategySetup))
    End Sub
@@ -545,17 +495,12 @@ Public Class ProjectVM
 
    End Sub
 
-   Friend Sub NotifyAllPanelVisibility()
-      NotifyPropertyChanged(NameOf(FeatureManager_Visibility))
-      NotifyPropertyChanged(NameOf(ShowBeamPanel_Visibility))
-   End Sub
-
    ''' <summary>
    ''' Funzione che permette di eliminare un pezzo modificato e reinserirlo nell'assemblato
    ''' </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 IdAsseBase As Integer = 0
+      If Not Map.refProdManagerVM.ListProjAsseBase.TryGetValue(Map.refProjectVM.BTLStructureVM.SelBTLPart.nPROJ, IdAsseBase) Then Return
       Dim IdPart As Integer = 0
       Dim NewId As Integer = 0
       ' Setto il nuovo contesto
@@ -597,31 +542,26 @@ Public Class ProjectVM
          For Each GeneralParameter In m_GeneralParametersList
             Select Case GeneralParameter.GetType()
                Case GetType(BooleanGenericParameter)
-                  SetbSaveGeneralParameters(False)
-                  SetGeneralParametersIsEnable(False)
+                  SetGeneralParameters(False)
                   EgtRemoveInfo(PartItem.nPartId, GeneralParameter.sNameNge)
                   EgtRemoveInfo(PartItem.nPartId, GeneralParameter.sNameNge & "_FORCED")
                Case GetType(DoubleGenericParameter)
-                  SetbSaveGeneralParameters(False)
-                  SetGeneralParametersIsEnable(False)
+                  SetGeneralParameters(False)
                   EgtRemoveInfo(PartItem.nPartId, GeneralParameter.sNameNge)
                   EgtRemoveInfo(PartItem.nPartId, GeneralParameter.sNameNge & "_FORCED")
                Case GetType(ComboGenericParameter)
-                  SetbSaveGeneralParameters(False)
-                  SetGeneralParametersIsEnable(False)
+                  SetGeneralParameters(False)
                   EgtRemoveInfo(PartItem.nPartId, GeneralParameter.sNameNge)
                   EgtRemoveInfo(PartItem.nPartId, GeneralParameter.sNameNge & "_FORCED")
                Case GetType(StringGenericParameter)
-                  SetbSaveGeneralParameters(False)
-                  SetGeneralParametersIsEnable(False)
+                  SetGeneralParameters(False)
                   EgtRemoveInfo(PartItem.nPartId, GeneralParameter.sNameNge)
                   EgtRemoveInfo(PartItem.nPartId, GeneralParameter.sNameNge & "_FORCED")
                Case GetType(ListGenericParameter)
                   For Each Item As ToolParameter In DirectCast(GeneralParameter, ListGenericParameter).ListValue
                      If Item.bIsActive Then
                         sInfo &= Item.sUUID & "," & Item.sName & ";"
-                        SetbSaveGeneralParameters(False)
-                        SetGeneralParametersIsEnable(False)
+                        SetGeneralParameters(False)
                         EgtRemoveInfo(PartItem.nPartId, GeneralParameter.sNameNge)
                      End If
                   Next
@@ -957,11 +897,12 @@ Public Class ProjectVM
          EgtSetInfo(m_BTLStructureVM.SelBTLPart.BTLPartM.nPartId, AI_SETUP, m_SelStrategySetup)
       End If
    End Sub
+
 #End Region    ' Methods
 
 #Region "COMMAND"
 
-#Region "Ottimization"
+#Region "Optimizer_Command"
 
    Public ReadOnly Property Optimizer_Command As ICommand
       Get
@@ -977,9 +918,9 @@ Public Class ProjectVM
       StatisticWndV.ShowDialog()
    End Sub
 
-#End Region ' Ottimization
+#End Region ' Optimizer_Command
 
-#Region "Parameter"
+#Region "Parameter_Command"
 
    Public ReadOnly Property Parameter_Command As ICommand
       Get
@@ -991,11 +932,11 @@ Public Class ProjectVM
    End Property
 
    Friend Sub Parameter()
-      Dim PartParametersWnd As New PartParametersWndV(Application.Current.MainWindow, New PartParametersWndVM())
+      Dim PartParametersWnd As New PartParametersWndV(Application.Current.MainWindow, New PartParametersWndVM(m_BTLStructureVM.SelBTLPart))
       PartParametersWnd.ShowDialog()
    End Sub
 
-#End Region ' Parameter
+#End Region ' Parameter_Command
 
 #Region "Back_Command"
 
@@ -1010,7 +951,11 @@ Public Class ProjectVM
 
    Public Sub Back()
       SetRawPartManagerVisibility(True)
-      If Not IsNothing(m_MachGroupPanelVM) Then Map.refProjectVM.SetFeatureListVisibility(True)
+      If Not IsNothing(m_MachGroupPanelVM) AndAlso Not IsNothing(m_MachGroupPanelVM.SelectedMachGroup) AndAlso Not IsNothing(m_MachGroupPanelVM.SelectedMachGroup.SelPart) Then
+         Map.refProjectVM.SetFeatureListVisibility(True)
+      Else
+         Map.refProjectVM.SetFeatureListVisibility(False)
+      End If
       SetStrategyManagerVisibility(False)
       SetSelManagerTab(ProjectVM.StrategyManagerTab.RAWPARTMANAGER)
       SetSelFeatureManagerTab(ProjectVM.FeatureManagerTab.FEATURERAWPARTMANAGER)

EgtBEAMWALL.Optimizer/RawPartManager/RawPartManagerVM.vb

@@ -248,7 +248,7 @@ Public Class RawPartManagerVM
          Next
          ' seleziono primo pezzo
          If Map.refProjectVM.BTLStructureVM.BTLPartVMList.Count > 0 Then
-            Map.refProjectVM.BTLStructureVM.SetSelBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList(0))
+            Map.refProjectVM.BTLStructureVM.SelectBTLPart(Map.refProjectVM.BTLStructureVM.BTLPartVMList(0))
          End If
       Else
          Dim SelMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
@@ -259,10 +259,6 @@ Public Class RawPartManagerVM
          If Not IsNothing(Map.refMachGroupPanelVM.SelectedMachGroup) Then Map.refMachGroupPanelVM.SelectedMachGroup = Map.refMachGroupPanelVM.MachGroupVMList(0)
       End If
       EgtDraw()
-      ' se nessun grezzo, rimetto tutti i pezzi invisibili
-      If Map.refProjectVM.MachGroupPanelVM.MachGroupVMList.Count = 0 Then
-         Map.refProjectVM.BTLStructureVM.HideAll(True)
-      End If
    End Sub
 
 #End Region    ' Methods

EgtBEAMWALL.Optimizer/SceneHost/MySceneHostVM.vb

@@ -78,14 +78,15 @@ Public Class MySceneHostVM
          ' Box di avviso chiave mancante : "Chiave non presente. \n Inserirla e riavviare il programma."  "Errore"
          Dim sText As String = EgtMsg(10102) & vbCrLf & EgtMsg(10103)
          Dim sTitle As String = EgtMsg(10101)
-         EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, sText, sTitle, MessageBoxButton.OK, MessageBoxImage.Error)
+         Core.EgtMessageBoxV.Show(Nothing, sText, sTitle, MessageBoxButton.OK, MessageBoxImage.Error)
          ' Altrimenti manca la licenza
       Else
          EgtOutLog("Problems with Licence")
          ' Box di avviso licenza con problemi : "Programma senza licenza. \n Caricala e riavvia il programma."  "Errore"
-         Dim sText As String = EgtMsg(10105) & vbCrLf & EgtMsg(10106)
+         Dim sKeyInfo As String = "" : EgtGetKeyInfo(sKeyInfo)
+         Dim sText As String = sKeyInfo & vbCrLf & EgtMsg(10105) & vbCrLf & EgtMsg(10106)
          Dim sTitle As String = EgtMsg(10101)
-         If EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, sText, sTitle, MessageBoxButton.OKCancel, MessageBoxImage.Error) = MessageBoxResult.OK Then
+         If Core.EgtMessageBoxV.Show(Nothing, sText, sTitle, MessageBoxButton.OKCancel, MessageBoxImage.Error) = MessageBoxResult.OK Then
             ' Apro dialogo per richiesta file licenza
             Dim LicDlg As New Microsoft.Win32.OpenFileDialog() With {
                .Title = EgtMsg(110026),

EgtBEAMWALL.Optimizer/SceneShowBulding/SceneShowBuldingVM.vb

@@ -162,7 +162,6 @@ Public Class SceneShowBuldingVM
       ' Ritorno al contesto corrente
       EgtSetCurrentContext(Map.refSceneHostVM.MainScene.GetCtx())
       Map.refProjectVM.BTLStructureVM.SetSelBTLPart(BTLPartVM, True)
-      Map.refProjectVM.BTLStructureVM.SelectBTLPartScene(BTLPartVM, True)
       ' Setto il nuovo contesto
       EgtSetCurrentContext(SceneShowBulding.GetCtx())
       EgtSetStatus(nOrigPartId, GDB_ST.SEL)

EgtBEAMWALL.Optimizer/ShowBeamPanel/ShowBeamPanelV.xaml

@@ -3,14 +3,6 @@
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             Style="{StaticResource BTLPartManager_StackPanel}">
 
-   <Button Command="{Binding ShowAll_Command}"
-           IsEnabled="{Binding ShowAll_IsEnabled}"
-           ToolTip="{Binding ShowAll_ToolTip}"
-           Visibility="{Binding ShowAll_Visibility}"
-           Style="{StaticResource ToolBarViewPanel_Button}">
-      <Image Source="{StaticResource ShowAll_Image}"
-             Style="{StaticResource BTLDataWnd_Image}"/>
-   </Button>
    <ToggleButton IsChecked="{Binding ShowSolid_IsChecked}"
                  IsEnabled="{Binding ShowSolid_IsEnabled}"
                  ToolTip="{Binding ShowSolid_ToolTip}"

EgtBEAMWALL.Optimizer/ShowBeamPanel/ShowBeamPanelVM.vb

@@ -61,7 +61,11 @@ Public Class ShowBeamPanelVM
             EgtSetCurrentContext(Map.refSceneHostVM.MainScene.GetCtx())
             Map.refProjectVM.SetSceneShowBuldingVisibility(False)
             Map.refProjectVM.SetManagerTabVisibility(True)
-            If Not IsNothing(Map.refProjectVM.MachGroupPanelVM) Then Map.refProjectVM.SetFeatureListVisibility(False)
+            If Not IsNothing(Map.refProjectVM.MachGroupPanelVM) AndAlso Not IsNothing(Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup) AndAlso Not IsNothing(Map.refProjectVM.MachGroupPanelVM.SelectedMachGroup.SelPart) Then
+               Map.refProjectVM.SetFeatureListVisibility(True)
+            Else
+               Map.refProjectVM.SetFeatureListVisibility(False)
+            End If
             Map.refOptimizePanelVM.SetOptimizePanelIsEnabled(True)
          End If
          NotifyPropertyChanged(NameOf(ShowBuilding_IsChecked))
@@ -162,41 +166,4 @@ Public Class ShowBeamPanelVM
 
 #End Region    ' METHODS
 
-#Region "COMMANDS"
-
-#Region "ShowAll"
-
-   Public ReadOnly Property ShowAll_Command As ICommand
-      Get
-         If m_cmdShowAll Is Nothing Then
-            m_cmdShowAll = New Command(AddressOf ShowAllCmd)
-         End If
-         Return m_cmdShowAll
-      End Get
-   End Property
-
-   Public Sub ShowAllCmd()
-      ShowAll(True)
-   End Sub
-
-   Public Sub ShowAll(bDraw As Boolean)
-      If IsNothing(Map.refProjectVM.BTLStructureVM) Then Return
-      ' se necessario tolgo solido dal precedentemente selezionato
-      If Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) AndAlso m_bShowSolid Then
-         Map.refShowBeamPanelVM.SetShowSolid(False)
-         Map.refProjectVM.BTLStructureVM.ShowSolid(GDB_ID.NULL, False, False)
-      End If
-      ' mostro tutti i pezzi
-      Map.refProjectVM.BTLStructureVM.ShowAll(False)
-      ' deseleziono tutto
-      Map.refProjectVM.BTLStructureVM.SelBTLParts.Clear()
-      ' se attivata opzione, li assemblo
-      Map.refProjectVM.BTLStructureVM.ShowBuilding(ShowBuilding_IsChecked, False)
-      If bDraw Then EgtDraw()
-   End Sub
-
-#End Region ' ShowAll
-
-#End Region    ' COMMANDS
-
 End Class

EgtBEAMWALL.Optimizer/Statistics/OptimizerStatisticsV.xaml

@@ -2,7 +2,17 @@
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
              xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer"
-             xmlns:EgwWPFBaseLib="clr-namespace:EgwWPFBaseLib;assembly=EgwWPFBaseLib">
+             xmlns:EgwWPFBaseLib="clr-namespace:EgwWPFBaseLib;assembly=EgwWPFBaseLib"
+             xmlns:dx="http://schemas.devexpress.com/winfx/2008/xaml/core"
+             xmlns:dxg="http://schemas.devexpress.com/winfx/2008/xaml/grid"
+             xmlns:dxgt="http://schemas.devexpress.com/winfx/2008/xaml/grid/themekeys"
+             xmlns:dxe="http://schemas.devexpress.com/winfx/2008/xaml/editors"
+             xmlns:dxeh="http://schemas.devexpress.com/winfx/2008/xaml/editors/internal"
+             xmlns:dxet="http://schemas.devexpress.com/winfx/2008/xaml/editors/themekeys"
+             xmlns:dxb="http://schemas.devexpress.com/winfx/2008/xaml/bars"
+             xmlns:dxfui="http://schemas.devexpress.com/winfx/2008/xaml/core/filteringui"
+             xmlns:dxi="http://schemas.devexpress.com/winfx/2008/xaml/core/internal"
+             xmlns:i="http://schemas.devexpress.com/winfx/2008/xaml/mvvm">
    <Grid>
       <Grid.RowDefinitions>
          <RowDefinition Height="1*"/>
@@ -17,163 +27,159 @@
 
          <TabItem Header="OPTIMIZERSTATS">
             <TabItem.Content>
-               <EgwWPFBaseLib:EgwDataGrid x:Name="dgOptimizerStatistics"
-                                          ItemsSource="{Binding Tag.MachGroupPanelVM.MachGroupVMList,
-                                                                RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:OptimizerStatisticsV}}}"
-                                          CanUserAddRows="False"
-                                          AutoGenerateColumns="False"
-                                          CanUserResizeRows="False"
-                                          SelectionMode="Extended"
-                                          ScrollViewer.CanContentScroll="True" 
-                                          ScrollViewer.VerticalScrollBarVisibility="Auto"
-                                          ScrollViewer.HorizontalScrollBarVisibility="Auto"
-                                          Margin="0,0,0,5"
-                                          ColumnLayouts="{Binding OptimizerStatisticsColumns}"
-                                          AlternatingRowBackground="{StaticResource BeamWall_LinkWater}"
-                                          AlternationCount="2"
-                                          ColumnHeaderStyle="{StaticResource Main_DataGridColumnHeader}"
-                                          CellStyle="{StaticResource CellDataGrid_CustomHighLight}"
-                                          RowStyle="{StaticResource RowDataGrid_CustomHighLight}"
-                                          Style="{StaticResource Optimizer_DataGrid}">
-                  <DataGrid.Resources>
-                     <!--Id - Nome-->
-                     <DataGridTextColumn x:Key="colNAME" Binding="{Binding Name}" SortMemberPath="nName">
-                        <DataGridTextColumn.HeaderTemplate>
-                           <DataTemplate>
-                              <TextBlock Text="{Binding Path=DataContext.ID_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                           </DataTemplate>
-                        </DataGridTextColumn.HeaderTemplate>
-                     </DataGridTextColumn>
-                     <!--W - Larghezza-->
-                     <DataGridTextColumn x:Key="colW" Binding="{Binding dW}">
-                        <DataGridTextColumn.HeaderTemplate>
-                           <DataTemplate>
-                              <TextBlock Text="{Binding Path=DataContext.W_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                           </DataTemplate>
-                        </DataGridTextColumn.HeaderTemplate>
-                     </DataGridTextColumn>
-                     <!--H - Altezza-->
-                     <DataGridTextColumn x:Key="colH" Binding="{Binding dH}">
-                        <DataGridTextColumn.HeaderTemplate>
-                           <DataTemplate>
-                              <TextBlock Text="{Binding Path=DataContext.H_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                           </DataTemplate>
-                        </DataGridTextColumn.HeaderTemplate>
-                     </DataGridTextColumn>
-                     <!--L - Lunghezza-->
-                     <DataGridTextColumn x:Key="colL" Binding="{Binding dL}">
-                        <DataGridTextColumn.HeaderTemplate>
-                           <DataTemplate>
-                              <TextBlock Text="{Binding Path=DataContext.L_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                           </DataTemplate>
-                        </DataGridTextColumn.HeaderTemplate>
-                     </DataGridTextColumn>
-                     <!--MAT - Materiale-->
-                     <DataGridTextColumn x:Key="colMATERIAL" Binding="{Binding sMATERIAL}">
-                        <DataGridTextColumn.HeaderTemplate>
-                           <DataTemplate>
-                              <TextBlock Text="{Binding Path=DataContext.MAT_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                           </DataTemplate>
-                        </DataGridTextColumn.HeaderTemplate>
-                     </DataGridTextColumn>
-                     <!--% - % utilizzo-->
-                     <DataGridTextColumn x:Key="colUSAGE" Binding="{Binding sUsage}" SortMemberPath="dUsage">
-                        <DataGridTextColumn.HeaderTemplate>
-                           <DataTemplate>
-                              <TextBlock Text="{Binding Path=DataContext.Used_Msg,
-                                                        RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                           </DataTemplate>
-                        </DataGridTextColumn.HeaderTemplate>
-                     </DataGridTextColumn>
-                     <!--S - Scarti-->
-                     <DataGridTextColumn x:Key="colWASTE" Binding="{Binding sWaste}" SortMemberPath="dWaste">
-                        <DataGridTextColumn.HeaderTemplate>
-                           <DataTemplate>
-                              <TextBlock Text="{Binding Path=DataContext.Waste_Msg,
-                                                        RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                           </DataTemplate>
-                        </DataGridTextColumn.HeaderTemplate>
-                     </DataGridTextColumn>
-                     <!--CALCTIME - TEMPO UNITARIO STIMATO-->
-                     <DataGridTextColumn x:Key="colUNITTIME" Binding="{Binding sUnitTime}">
-                        <DataGridTextColumn.HeaderTemplate>
-                           <DataTemplate>
-                              <TextBlock Text="{Binding Path=DataContext.UNIT_TIME_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                           </DataTemplate>
-                        </DataGridTextColumn.HeaderTemplate>
-                     </DataGridTextColumn>
-
-                  </DataGrid.Resources>
-
-               </EgwWPFBaseLib:EgwDataGrid>
+               <dxg:GridControl x:Name="dgOptimizerStatistics_GridControl"
+                                ItemsSource="{Binding Tag.MachGroupPanelVM.MachGroupVMList,
+                                                      RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:OptimizerStatisticsV}}}"
+                                
+                                SelectionMode="Row">
+                  <dxg:GridControl.View>
+                     <dxg:TableView x:Name="dgOptimizerStatistics_TableView"  
+                                    AllowPerPixelScrolling="True"
+                                    AllowEditing="False"
+                                    AllowSorting="True"
+                                    AllowGrouping="True"
+                                    AllowColumnFiltering="True"
+                                    AllowFilterEditor="False"
+                                    AllowFilterPanelNavigation="False"
+                                    ExtendScrollBarToFixedColumns="True"
+                                    Focusable="False"
+                                    GroupSummaryDisplayMode="AlignByColumns"
+                                    IsTotalSummaryMenuEnabled="False"
+                                    IsGroupFooterMenuEnabled="True"
+                                    ShowGroupPanel="False"
+                                    ShowTotalSummary="False"
+                                    ShowSearchPanelMode="Default"
+                                    ShowFilterPanelMode="Never"
+                                    ShowIndicator="False"
+                                    ShowColumnHeaders="True"
+                                    ShowHorizontalLines="True"
+                                    ShowVerticalLines="False"
+                                    ShowFocusedRectangle="True"
+                                    ShowGroupFooters="True"
+                                    ShowSearchPanelResultInfo="True"
+                                    ShowSearchPanelNavigationButtons="True"
+                                    UseEvenRowBackground="True"
+                                    
+                                    ShowGridMenu="OnShowGridMenu"        
+                                    
+                                    ColumnHeaderStyle="{StaticResource HeaderStyle}"
+                                    ColumnHeaderImageStyle="{StaticResource HeaderImageStyle}"
+                           
+                                    RowStyle="{StaticResource RowStyle}"
+                           
+                                    Style="{StaticResource TableViewStyle}"/>
+                  </dxg:GridControl.View>
+                  <dxg:GridColumn FieldName="Name" 
+                                  SortFieldName="dName"
+                                  Header="{Binding ID_Msg}"
+                                  Fixed="Left"
+                                  Style="{StaticResource ColumnInfoStyle}"/>
+                  <dxg:GridColumn FieldName="dW"
+                                  Header="{Binding W_Msg}"
+                                  Binding="{Binding dW}"
+                                  Style="{StaticResource ColumnInfoStyle}"/>
+                  <dxg:GridColumn FieldName="dH"
+                                  Header="{Binding H_Msg}"
+                                  Binding="{Binding dH}"
+                                  Style="{StaticResource ColumnInfoStyle}"/>
+                  <dxg:GridColumn FieldName="dL"
+                                  Header="{Binding L_Msg}"
+                                  Binding="{Binding dL}"
+                                  Style="{StaticResource ColumnInfoStyle}"/>
+                  <dxg:GridColumn FieldName="sMATERIAL" 
+                                  Header="{Binding MAT_Msg}"
+                                  Binding="{Binding sMATERIAL}"
+                                  AllowSorting="False"
+                                  FilterPopupMode="Custom"
+                                  Style="{StaticResource ColumnInfoStyle}"/>
+                  <dxg:GridColumn FieldName="sUsage"
+                                  SortFieldName="dUsage"
+                                  Header="{Binding Used_Msg}"
+                                  Binding="{Binding sUsage}"
+                                  AllowColumnFiltering="False"
+                                  Style="{StaticResource ColumnInfoStyle}"/>
+                  <dxg:GridColumn FieldName="sWaste"
+                                  SortFieldName="dWaste"
+                                  Header="{Binding Waste_Msg}"
+                                  Binding="{Binding sWaste}"
+                                  AllowColumnFiltering="False"
+                                  Style="{StaticResource ColumnInfoStyle}"/>
+                  <dxg:GridColumn FieldName="sUnitTime"
+                                  Header="{Binding UNIT_TIME_Msg}"
+                                  Binding="{Binding sUnitTime}"
+                                  Style="{StaticResource ColumnInfoStyle}"/>
+               </dxg:GridControl>
             </TabItem.Content>
          </TabItem>
 
          <TabItem Header="RAWPARTSTAT">
             <TabItem.Content>
-               <EgwWPFBaseLib:EgwDataGrid x:Name="dgRawPartStatistics"
-                                          ItemsSource="{Binding RawPartList}"
-                                          CanUserAddRows="False"
-                                          AutoGenerateColumns="False"
-                                          CanUserResizeRows="False"
-                                          SelectionMode="Extended"
-                                          ScrollViewer.CanContentScroll="True" 
-                                          ScrollViewer.VerticalScrollBarVisibility="Auto"
-                                          ScrollViewer.HorizontalScrollBarVisibility="Auto"
-                                          Margin="0,0,0,5"
-                                          ColumnLayouts="{Binding RawPartStatisticsColumns}"
-                                          AlternatingRowBackground="{StaticResource BeamWall_LinkWater}"
-                                          AlternationCount="2"
-                                          ColumnHeaderStyle="{StaticResource Main_DataGridColumnHeader}"
-                                          CellStyle="{StaticResource CellDataGrid_CustomHighLight}"
-                                          RowStyle="{StaticResource RowDataGrid_CustomHighLight}"
-                                          Style="{StaticResource Optimizer_DataGrid}">
-                  <DataGrid.Resources>
-                     <!--W - Larghezza-->
-                     <DataGridTextColumn x:Key="colW" Binding="{Binding sW}">
-                        <DataGridTextColumn.HeaderTemplate>
-                           <DataTemplate>
-                              <TextBlock Text="{Binding Path=DataContext.W_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                           </DataTemplate>
-                        </DataGridTextColumn.HeaderTemplate>
-                     </DataGridTextColumn>
-                     <!--H - Altezza-->
-                     <DataGridTextColumn x:Key="colH" Binding="{Binding sH}">
-                        <DataGridTextColumn.HeaderTemplate>
-                           <DataTemplate>
-                              <TextBlock Text="{Binding Path=DataContext.H_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                           </DataTemplate>
-                        </DataGridTextColumn.HeaderTemplate>
-                     </DataGridTextColumn>
-                     <!--L - Lunghezza-->
-                     <DataGridTextColumn x:Key="colL" Binding="{Binding sL}">
-                        <DataGridTextColumn.HeaderTemplate>
-                           <DataTemplate>
-                              <TextBlock Text="{Binding Path=DataContext.L_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                           </DataTemplate>
-                        </DataGridTextColumn.HeaderTemplate>
-                     </DataGridTextColumn>
-                     <!--MAT - Materiale-->
-                     <DataGridTextColumn x:Key="colMATERIAL" Binding="{Binding sMaterial}">
-                        <DataGridTextColumn.HeaderTemplate>
-                           <DataTemplate>
-                              <TextBlock Text="{Binding Path=DataContext.MAT_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                           </DataTemplate>
-                        </DataGridTextColumn.HeaderTemplate>
-                     </DataGridTextColumn>
-                     <!--QTY - Quantita'-->
-                     <DataGridTextColumn x:Key="colQTY" Binding="{Binding nQuantity, Mode=TwoWay}">
-                        <DataGridTextColumn.HeaderTemplate>
-                           <DataTemplate>
-                              <TextBlock Text="{Binding Path=DataContext.QTY_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                           </DataTemplate>
-                        </DataGridTextColumn.HeaderTemplate>
-                     </DataGridTextColumn>
-                  </DataGrid.Resources>
-               </EgwWPFBaseLib:EgwDataGrid>
+               <dxg:GridControl x:Name="dgRawPartStatistics_GridControl"
+                                ItemsSource="{Binding RawPartList}"
+                                
+                                SelectionMode="Row">
+                  <dxg:GridControl.View>
+                     <dxg:TableView x:Name="dgRawPartStatistics_TableView"
+                                    AllowPerPixelScrolling="True"
+                                    AllowEditing="False"
+                                    AllowSorting="True"
+                                    AllowGrouping="True"
+                                    AllowColumnFiltering="True"
+                                    AllowFilterEditor="False"
+                                    AllowFilterPanelNavigation="False"
+                                    ExtendScrollBarToFixedColumns="True"
+                                    Focusable="False"
+                                    GroupSummaryDisplayMode="AlignByColumns"
+                                    IsTotalSummaryMenuEnabled="False"
+                                    IsGroupFooterMenuEnabled="True"
+                                    ShowGroupPanel="False"
+                                    ShowTotalSummary="False"
+                                    ShowSearchPanelMode="Default"
+                                    ShowFilterPanelMode="Never"
+                                    ShowIndicator="False"
+                                    ShowColumnHeaders="True"
+                                    ShowHorizontalLines="True"
+                                    ShowVerticalLines="False"
+                                    ShowFocusedRectangle="True"
+                                    ShowGroupFooters="True"
+                                    ShowSearchPanelResultInfo="True"
+                                    ShowSearchPanelNavigationButtons="True"
+                                    UseEvenRowBackground="True"
+                                    
+                                    ShowGridMenu="OnShowGridMenu2"
+                                    
+                                    ColumnHeaderStyle="{StaticResource HeaderStyle}"
+                                    ColumnHeaderImageStyle="{StaticResource HeaderImageStyle}"
+                           
+                                    RowStyle="{StaticResource RowStyle}"
+                           
+                                    Style="{StaticResource TableViewStyle}"/>                        
+                  </dxg:GridControl.View>
+                  <dxg:GridColumn FieldName="sW"
+                                  Header="{Binding W_Msg}"
+                                  Binding="{Binding sW}"
+                                  Style="{StaticResource ColumnInfoStyle}"/>
+                  <dxg:GridColumn FieldName="sH"
+                                  Header="{Binding H_Msg}"
+                                  Binding="{Binding sH}"
+                                  Style="{StaticResource ColumnInfoStyle}"/>
+                  <dxg:GridColumn FieldName="sL"
+                                  Header="{Binding L_Msg}"
+                                  Binding="{Binding sL}"
+                                  Style="{StaticResource ColumnInfoStyle}"/>
+                  <dxg:GridColumn FieldName="sMaterial" 
+                                  Header="{Binding MAT_Msg}"
+                                  Binding="{Binding sMaterial}"
+                                  AllowSorting="False"
+                                  FilterPopupMode="Custom"
+                                  Style="{StaticResource ColumnInfoStyle}"/>
+                  <dxg:GridColumn FieldName="nQuantity"
+                                  Header="{Binding QTY_Msg}"
+                                  Binding="{Binding nQuantity}"
+                                  Style="{StaticResource ColumnInfoStyle}"/>
+               </dxg:GridControl>
             </TabItem.Content>
          </TabItem>
-
       </TabControl>
 
       <Grid Grid.Row="1" 

EgtBEAMWALL.Optimizer/Statistics/OptimizerStatisticsV.xaml.vb

@@ -1,10 +1,204 @@
-Public Class OptimizerStatisticsV
+Imports DevExpress.Data
+Imports DevExpress.Xpf.Bars
+Imports DevExpress.Xpf.Core.Serialization
+Imports DevExpress.Xpf.Grid
+Imports EgtBEAMWALL.Core
+Imports System.IO
+
+Public Class OptimizerStatisticsV
 
    Private m_StatisticsVM As StatisticsVM
+   Private m_sOptimizerDataGridLayoutPath As String = ""
+   Private m_sRawPartDataGridLayoutPath As String = ""
+
+   Sub New()
+
+      ' This call is required by the designer.
+      InitializeComponent()
+
+      ' Add any initialization after the InitializeComponent() call.
+      m_sOptimizerDataGridLayoutPath = Path.GetDirectoryName(DataGridColumnsIniFile.m_sDataGridColumnsIniFile) & "\DataGridLayoutFile\OptimizerStatistics.json"
+      m_sRawPartDataGridLayoutPath = Path.GetDirectoryName(DataGridColumnsIniFile.m_sDataGridColumnsIniFile) & "\DataGridLayoutFile\RawPartStatistics.json"
+
+      Map.refStatisticsVM.LoadRawPart()
+
+      For Each Column In dgOptimizerStatistics_GridControl.Columns
+         Column.[AddHandler](DXSerializer.AllowPropertyEvent,
+            New AllowPropertyEventHandler(AddressOf OnAllowProperty))
+      Next
+      DXSerializer.AddAllowPropertyHandler(dgOptimizerStatistics_GridControl, AddressOf OnAddAllowProperty)
+
+      For Each Column In dgRawPartStatistics_GridControl.Columns
+         Column.[AddHandler](DXSerializer.AllowPropertyEvent,
+            New AllowPropertyEventHandler(AddressOf OnAllowProperty))
+      Next
+      DXSerializer.AddAllowPropertyHandler(dgRawPartStatistics_GridControl, AddressOf OnAddAllowProperty)
+
+   End Sub
+
+   ' imposto parametri da aggiungere o togliere in Json tabella per i parametri di colonna
+   Private Sub OnAllowProperty(sender As Object, e As AllowPropertyEventArgs)
+      If e.DependencyProperty Is GridColumn.AllowResizingProperty Then
+         e.Allow = True
+      End If
+   End Sub
+
+   ' imposto parametri da aggiungere o togliere in Json tabella per i parametri generali
+   Private Sub OnAddAllowProperty(sender As Object, e As AllowPropertyEventArgs)
+      If e.Property.Name = "FilterString" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "MRUFilters" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "MRUFilterList" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "GroupSummarySortInfo" Then
+         e.Allow = False
+      End If
+   End Sub
+
+   ' salvataggio del layout colonne
+   Public Sub SaveOptimizerStatisticGridControlLayout()
+      dgOptimizerStatistics_GridControl.SaveLayoutToJson(m_sOptimizerDataGridLayoutPath)
+   End Sub
+
+   Public Sub SaveRawPartStatisticGridControlLayout()
+      dgRawPartStatistics_GridControl.SaveLayoutToJson(m_sRawPartDataGridLayoutPath)
+   End Sub
+
+   Public Sub IsVisibleGroupSummary(bValue As Boolean)
+      If bValue AndAlso dgOptimizerStatistics_GridControl.GroupSummary.Count = 0 Then
+         dgOptimizerStatistics_GridControl.GroupSummary.Clear()
+         Dim PDNGroupSummaryItem As New GridSummaryItem() With {.FieldName = "Name",
+                                                                .DisplayFormat = "{0}",
+                                                                .SummaryType = SummaryItemType.Count,
+                                                                .ShowInGroupColumnFooter = "Name"}
+         dgOptimizerStatistics_GridControl.GroupSummary.Add(PDNGroupSummaryItem)
+      End If
+      dgOptimizerStatistics_TableView.ShowGroupFooters = bValue
+   End Sub
+
+   Public Sub Me_Loaded() Handles Me.Loaded
+      ' imposto DataContext
+      m_StatisticsVM = Me.DataContext
+      ' imposto riferimento ad action per salvataggio layout tabella
+      m_StatisticsVM.refSaveStatisticGridControlLayout = AddressOf SaveOptimizerStatisticGridControlLayout
+      m_StatisticsVM.refSaveStatisticGridControlLayout = AddressOf SaveRawPartStatisticGridControlLayout
+      ' rispristino layout tabella
+      If Not IsNothing(m_sOptimizerDataGridLayoutPath) AndAlso File.Exists(m_sOptimizerDataGridLayoutPath) Then
+         dgOptimizerStatistics_GridControl.RestoreLayoutFromJson(m_sOptimizerDataGridLayoutPath)
+      End If
+      If Not IsNothing(m_sRawPartDataGridLayoutPath) AndAlso File.Exists(m_sRawPartDataGridLayoutPath) Then
+         dgRawPartStatistics_GridControl.RestoreLayoutFromJson(m_sRawPartDataGridLayoutPath)
+      End If
+
+      ' da gestire chiamandolo quando viene aperto un progetto o aggiunto/rimosso un btl, per evitare che ci sia il GroupSummary se c'e' un solo gruppo
+      IsVisibleGroupSummary(False)
+   End Sub
 
    Private Sub PrintBtn_Click(sender As Object, e As RoutedEventArgs) Handles CopyToClipboardBtn.Click
       m_StatisticsVM = Me.DataContext()
-      CopyToClipboard(dgOptimizerStatistics, dgRawPartStatistics, m_StatisticsVM)
+      'CopyToClipboard(dgOptimizerStatistics, dgRawPartStatistics, m_StatisticsVM)
+      If Map.refStatisticsVM.bRawPart_IsChecked Then
+         dgRawPartStatistics_GridControl.CopyToClipboard()
+      Else
+         dgOptimizerStatistics_GridControl.CopyToClipboard()
+      End If
+   End Sub
+
+   Private Sub OnShowGridMenu(sender As Object, e As DevExpress.Xpf.Grid.GridMenuEventArgs)
+      If e.MenuType = GridMenuType.Column Then
+         ' rimozione bottoni
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupBox})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupColumn})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.ColumnChooser})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFit})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFitColumns})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.FilterEditor})
+
+         Dim info As GridColumnMenuInfo = CType(e.MenuInfo, GridColumnMenuInfo)
+         Dim item As ColumnBase = CType(info.Column, ColumnBase)
+         ' aggiunta separatore
+         Dim separator As BarItemLinkSeparator = New BarItemLinkSeparator()
+         e.Customizations.Add(separator)
+         ' aggiunta bottone AllowResize e Auto Fit
+         Dim AllowResize As BarCheckItem = New BarCheckItem() With {.Content = "Allow Resize", .IsChecked = (dgOptimizerStatistics_TableView.AllowResizing AndAlso (item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default))}
+         AddHandler AllowResize.CheckedChanged, AddressOf AllowResize_CheckedChanged
+         e.Customizations.Add(AllowResize)
+         If item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default Then
+            Dim FixAuto As BarButtonItem = New BarCheckItem() With {.Content = "Auto Fit"}
+            AddHandler FixAuto.ItemClick, AddressOf FixAuto_ItemClick
+            e.Customizations.Add(FixAuto)
+         End If
+      End If
+   End Sub
+
+   ' gestore evento Allow Resize
+   Private Sub AllowResize_CheckedChanged(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(dgOptimizerStatistics_TableView.GridMenu.MenuInfo, GridColumnMenuInfo)
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      If item.AllowResizing = DevExpress.Utils.DefaultBoolean.False Then
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.True
+      Else
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
+      End If
+   End Sub
+
+   ' gestore evento Auto Fit
+   Private Sub FixAuto_ItemClick(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(dgOptimizerStatistics_TableView.GridMenu.MenuInfo, GridColumnMenuInfo)
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      item.Width = New GridColumnWidth(1, GridColumnUnitType.Auto)
+      dgOptimizerStatistics_TableView.UpdateLayout()
+      item.Width = item.ActualWidth
+      item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
+   End Sub
+
+   Private Sub OnShowGridMenu2(sender As Object, e As DevExpress.Xpf.Grid.GridMenuEventArgs)
+      If e.MenuType = GridMenuType.Column Then
+         ' rimozione bottoni
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupBox})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupColumn})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.ColumnChooser})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFit})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFitColumns})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.FilterEditor})
+
+         Dim info As GridColumnMenuInfo = CType(e.MenuInfo, GridColumnMenuInfo)
+         Dim item As ColumnBase = CType(info.Column, ColumnBase)
+         ' aggiunta separatore
+         Dim separator As BarItemLinkSeparator = New BarItemLinkSeparator()
+         e.Customizations.Add(separator)
+         ' aggiunta bottone AllowResize e Auto Fit
+         Dim AllowResize As BarCheckItem = New BarCheckItem() With {.Content = "Allow Resize", .IsChecked = (dgRawPartStatistics_TableView.AllowResizing AndAlso (item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default))}
+         AddHandler AllowResize.CheckedChanged, AddressOf AllowResize_CheckedChanged2
+         e.Customizations.Add(AllowResize)
+         If item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default Then
+            Dim FixAuto As BarButtonItem = New BarCheckItem() With {.Content = "Auto Fit"}
+            AddHandler FixAuto.ItemClick, AddressOf FixAuto_ItemClick2
+            e.Customizations.Add(FixAuto)
+         End If
+      End If
+   End Sub
+
+   ' gestore evento Allow Resize
+   Private Sub AllowResize_CheckedChanged2(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(dgRawPartStatistics_TableView.GridMenu.MenuInfo, GridColumnMenuInfo)
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      If item.AllowResizing = DevExpress.Utils.DefaultBoolean.False Then
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.True
+      Else
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
+      End If
+   End Sub
+
+   ' gestore evento Auto Fit
+   Private Sub FixAuto_ItemClick2(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(dgRawPartStatistics_TableView.GridMenu.MenuInfo, GridColumnMenuInfo)
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      item.Width = New GridColumnWidth(1, GridColumnUnitType.Auto)
+      dgRawPartStatistics_TableView.UpdateLayout()
+      item.Width = item.ActualWidth
+      item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
    End Sub
 
 End Class

EgtBEAMWALL.Optimizer/Statistics/PDFEditorV.xaml

@@ -1,7 +1,9 @@
 <Grid x:Class="PDFEditorV"
       xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
       xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-      xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer">
+      xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer"
+      xmlns:dxb="http://schemas.devexpress.com/winfx/2008/xaml/bars"
+      xmlns:dxpdf="http://schemas.devexpress.com/winfx/2008/xaml/pdf">
 
    <Grid.Resources>
       <OPTIMIZER:ColumnNameConverter x:Key="ColumnNameConverter"/>
@@ -89,6 +91,8 @@
                                        <DataTemplate>
                                           <StackPanel Style="{StaticResource PDFEditor_StackPanel}">
                                              <CheckBox IsChecked="{Binding IsVisible}" 
+                                                       Checked="CheckBox_Checked"
+                                                       Unchecked="CheckBox_Checked"
                                                        Style="{StaticResource Option_CheckBox}"/>
                                              <TextBlock Text="{Binding Key, Converter={StaticResource ColumnNameConverter}}"
                                                         Style="{StaticResource Option_TextBlock}"/>
@@ -147,6 +151,42 @@
          </GroupBox.Header>
          <OPTIMIZER:PdfViewer PdfPath="{Binding WebAddress}" 
                               Visibility="{Binding PdfViewer_Visibility}"/>
+         <!--<AdornerDecorator>
+            <dxpdf:PdfViewerControl x:Name="PDFViewer" 
+                                    CommandBarStyle="None"
+                                    Visibility="{Binding PdfViewer_Visibility}">
+               <dxpdf:PdfViewerControl.CommandProvider>
+                  <dxpdf:PdfCommandProvider>
+                     <dxpdf:PdfCommandProvider.RibbonActions>
+                        <dxb:RemoveAction ContainerName="{x:Static dxpdf:DefaultPdfBarManagerItemNames.ContextMenu}"/>
+                        <dxb:RemoveAction ElementName="{x:Static dxpdf:DefaultPdfBarManagerItemNames.HandTool}"/>
+                        <dxb:RemoveAction ElementName="{x:Static dxpdf:DefaultPdfBarManagerItemNames.SelectAll}"/>
+                        <dxb:RemoveAction ElementName="{x:Static dxpdf:DefaultPdfBarManagerItemNames.SelectTool}"/>
+                        <dxb:RemoveAction ElementName="{x:Static dxpdf:DefaultPdfBarManagerItemNames.MarqueeZoom}"/>
+                        <dxb:RemoveAction ElementName="{x:Static dxpdf:DefaultPdfBarManagerItemNames.ClockwiseRotate}"/>
+                        <dxb:RemoveAction ElementName="{x:Static dxpdf:DefaultPdfBarManagerItemNames.FindContext}"/>
+                        <dxb:RemoveAction ElementName="{x:Static dxpdf:DefaultPdfBarManagerItemNames.PrintContext}"/>
+                        <dxb:RemoveAction ElementName="{x:Static dxpdf:DefaultPdfBarManagerItemNames.Properties}"/>
+                        <dxb:UpdateAction ElementName="{x:Static dxpdf:DefaultPdfBarManagerItemNames.Ribbon}"
+                                          PropertyName="ShowApplicationButton"
+                                          Value="False"/>
+                     </dxpdf:PdfCommandProvider.RibbonActions>
+                  </dxpdf:PdfCommandProvider>
+               </dxpdf:PdfViewerControl.CommandProvider>
+               <dxpdf:PdfViewerControl.ThumbnailsViewerSettings>
+                  <dxpdf:PdfThumbnailsViewerSettings HideThumbnailsViewer="True"/>
+               </dxpdf:PdfViewerControl.ThumbnailsViewerSettings>
+               <dxpdf:PdfViewerControl.AttachmentsViewerSettings>
+                  <dxpdf:PdfAttachmentsViewerSettings HideAttachmentsViewer="True"/>
+               </dxpdf:PdfViewerControl.AttachmentsViewerSettings>
+               <dxpdf:PdfViewerControl.CommentViewerSettings>
+                  <dxpdf:PdfCommentViewerSettings HideCommentViewer="True"/>
+               </dxpdf:PdfViewerControl.CommentViewerSettings>
+               <dxpdf:PdfViewerControl.OutlinesViewerSettings>
+                  <dxpdf:PdfOutlinesViewerSettings HideOutlinesViewer="True"/>
+               </dxpdf:PdfViewerControl.OutlinesViewerSettings>
+            </dxpdf:PdfViewerControl>
+         </AdornerDecorator>-->
       </GroupBox>
    </Grid>
 

EgtBEAMWALL.Optimizer/Statistics/PDFEditorV.xaml.vb

@@ -1,4 +1,7 @@
-Public Class PDFEditorV
+Imports EgtWPFLib5
+Imports EgtBEAMWALL.Core
+
+Public Class PDFEditorV
 
    Sub New()
 
@@ -9,4 +12,12 @@
       DataContext = New PDFEditorVM()
    End Sub
 
+   Private Sub CheckBox_Checked(sender As Object, e As RoutedEventArgs)
+      Dim CheckBox As CheckBox = DirectCast(sender, CheckBox)
+      If IsNothing(CheckBox) Then Return
+      Dim ColumnLayout As EgwWPFBaseLib.ColumnLayout = DirectCast(CheckBox.DataContext, EgwWPFBaseLib.ColumnLayout)
+      If IsNothing(ColumnLayout) Then Return
+      WriteMainPrivateProfileString(S_PDFEDITOR, ColumnLayout.Key, If(ColumnLayout.IsVisible, 1, 0))
+   End Sub
+
 End Class

EgtBEAMWALL.Optimizer/Statistics/PDFEditorVM.vb

@@ -61,6 +61,7 @@ Public Class PDFEditorVM
       m_nViewButton = value
       NotifyPropertyChanged(NameOf(nViewButton))
    End Sub
+
    ' Definizione comandi
    Private m_cmdCreatePDFPreviewVis As ICommand
    Private m_cmdCreatePDFPreviewOtt As ICommand
@@ -124,6 +125,7 @@ Public Class PDFEditorVM
             SetPdfViewer_Visibility(True)
             Configuration.CreatePrintPDF(PDFPage.VIEW, True)
             SetWebAddress(Map.refMainWindowVM.MainWindowM.sTempDir & "\Statistics.pdf")
+            'MapV.refPDFEditorV.PDFViewer.OpenDocument(WebAddress)
       End Select
    End Sub
 
@@ -158,7 +160,8 @@ Public Class PDFEditorVM
          Case VIEW_BUTTON.PDF
             SetPdfViewer_Visibility(True)
             Configuration.CreatePrintPDF(PDFPage.MACHING, True)
-            SetWebAddress(Map.refMainWindowVM.MainWindowM.sTempDir & "\Statistics.pdf")
+            SetWebAddress(Map.refMainWindowVM.MainWindowM.sTempDir & "\OptStatistics.pdf")
+            'MapV.refPDFEditorV.PDFViewer.OpenDocument(WebAddress)
       End Select
    End Sub
 
@@ -181,6 +184,7 @@ Public Class PDFEditorVM
    Public Sub ClosePreview()
       Try
          File.Delete(Map.refMainWindowVM.MainWindowM.sTempDir & "\Statistics.pdf")
+         File.Delete(Map.refMainWindowVM.MainWindowM.sTempDir & "\OptStatistics.pdf")
       Catch ex As Exception
          EgtOutLog("Errore! Cancellazione dei file pdf fallita")
       End Try
@@ -195,7 +199,7 @@ Public Class PDFEditorVM
       SetWebAddress("")
    End Sub
 
-#End Region    ' CreatePreviewVis
+#End Region    ' ClosePreview
 
 #End Region    '  Commands
 

EgtBEAMWALL.Optimizer/Statistics/PDFHelper.vb

@@ -384,7 +384,6 @@ Module PDFHelper
       Dim paragraph As Paragraph = section.AddParagraph(EgtMsg(62590), "Heading2")
       paragraph.Format.SpaceAfter = Unit.FromMillimeter(3.0)
 
-      ' Controllo se bPreview è true mostra il PDF di preview se no il PDF completo
       If bPreview Then
          CreateRawPartPage(section, sMachGroupList, sPDN, sW, sH, sL, sDesc, sMaterial, Nothing, bPreview)
       Else

EgtBEAMWALL.Optimizer/Statistics/StatisticsV.xaml

@@ -2,148 +2,126 @@
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
              xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer" 
-             xmlns:EgwWPFBaseLib="clr-namespace:EgwWPFBaseLib;assembly=EgwWPFBaseLib">
+             xmlns:EgwWPFBaseLib="clr-namespace:EgwWPFBaseLib;assembly=EgwWPFBaseLib"
+             xmlns:dx="http://schemas.devexpress.com/winfx/2008/xaml/core"
+             xmlns:dxg="http://schemas.devexpress.com/winfx/2008/xaml/grid"
+             xmlns:dxgt="http://schemas.devexpress.com/winfx/2008/xaml/grid/themekeys"
+             xmlns:dxe="http://schemas.devexpress.com/winfx/2008/xaml/editors"
+             xmlns:dxeh="http://schemas.devexpress.com/winfx/2008/xaml/editors/internal"
+             xmlns:dxet="http://schemas.devexpress.com/winfx/2008/xaml/editors/themekeys"
+             xmlns:dxb="http://schemas.devexpress.com/winfx/2008/xaml/bars"
+             xmlns:dxfui="http://schemas.devexpress.com/winfx/2008/xaml/core/filteringui"
+             xmlns:dxi="http://schemas.devexpress.com/winfx/2008/xaml/core/internal"
+             xmlns:i="http://schemas.devexpress.com/winfx/2008/xaml/mvvm">
    <Grid>
       <Grid.RowDefinitions>
          <RowDefinition Height="1*"/>
          <RowDefinition Height="Auto"/>
       </Grid.RowDefinitions>
-      <EgwWPFBaseLib:EgwDataGrid x:Name="dgStatistics"
-                                 ItemsSource="{Binding Tag.BTLPartVMList,
-                                                       RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:StatisticsV}}}"
-                                 CanUserAddRows="False"
-                                 AutoGenerateColumns="False"
-                                 CanUserResizeRows="False"
-                                 SelectionMode="Extended"
-                                 ScrollViewer.CanContentScroll="True" 
-                                 ScrollViewer.VerticalScrollBarVisibility="Auto"
-                                 ScrollViewer.HorizontalScrollBarVisibility="Auto"
-                                 Margin="0,0,0,5"
-                                 ColumnLayouts="{Binding StatisticsColumns}"
-                                 AlternatingRowBackground="{StaticResource BeamWall_LinkWater}"
-                                 AlternationCount="2"
-                                 ColumnHeaderStyle="{StaticResource Main_DataGridColumnHeader}"
-                                 CellStyle="{StaticResource CellDataGrid_CustomHighLight}"
-                                 RowStyle="{StaticResource RowDataGrid_CustomHighLight}"
-                                 Style="{StaticResource Optimizer_DataGrid}">
-         <DataGrid.Resources>
-            <!--PDN - Nome-->
-            <DataGridTextColumn x:Key="colPDN" Binding="{Binding nPDN}">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.PDN_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--W - Larghezza-->
-            <DataGridTextColumn x:Key="colW" Binding="{Binding sW}" SortMemberPath="dW">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.W_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--H - Altezza-->
-            <DataGridTextColumn x:Key="colH" Binding="{Binding sH}" SortMemberPath="dH">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.H_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--L - Lunghezza-->
-            <DataGridTextColumn x:Key="colL" Binding="{Binding sL}" SortMemberPath="dL">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.L_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--NAM - Descrizione-->
-            <DataGridTextColumn x:Key="colDESC" Binding="{Binding sNAM}">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.NAM_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--MAT - Materiale-->
-            <DataGridTextColumn x:Key="colMATERIAL" Binding="{Binding sMATERIAL}">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.MAT_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--CNT - Richiesti da BTL-->
-            <DataGridTextColumn x:Key="colCNT" Binding="{Binding sCNT}" SortMemberPath="nCNT">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.CNT_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--ADDED - Aggiunti-->
-            <DataGridTextColumn x:Key="colADDED" Binding="{Binding sADDED}" SortMemberPath="nADDED">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.ADDED_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--INPROD - IN OTTIMIZZAZIONE-->
-            <DataGridTextColumn x:Key="colINPROD" Binding="{Binding nINPROD}">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.INPROD_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--DONE - PRODOTTI-->
-            <DataGridTextColumn x:Key="colDONE" Binding="{Binding nDONE}">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.DONE_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--UNITVOLUME - VOLUME UNITARIO-->
-            <DataGridTextColumn x:Key="colUNITVOLUME" Binding="{Binding sUnitVolume}" SortMemberPath="dUnitVolume">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.UNIT_VOLUME_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--TOTVOLUME - VOLUME TOTALE-->
-            <DataGridTextColumn x:Key="colTOTVOLUME" Binding="{Binding sTotVolume}">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.TOT_VOLUME_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--CALCTIME - TEMPO UNITARIO STIMATO-->
-            <DataGridTextColumn x:Key="colUNITTIME" Binding="{Binding sUnitTime}">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.UNIT_TIME_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-            <!--CALCTIME - TEMPO TOTALE STIMATO-->
-            <DataGridTextColumn x:Key="colTOTTIME" Binding="{Binding sTotTime}">
-               <DataGridTextColumn.HeaderTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.TOT_TIME_Msg,RelativeSource={RelativeSource AncestorType={x:Type DataGrid}}}"/>
-                  </DataTemplate>
-               </DataGridTextColumn.HeaderTemplate>
-            </DataGridTextColumn>
-
-         </DataGrid.Resources>
-
-      </EgwWPFBaseLib:EgwDataGrid>
-
+      <dxg:GridControl x:Name="dgStatistics_GridControl"
+                       ItemsSource="{Binding Tag.BTLPartVMList,
+                                             RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:StatisticsV}}}"                       
+                       SelectionMode="Row">
+         <dxg:GridControl.View>
+            <dxg:TableView x:Name="dgStatistics_TableView" 
+                           AllowPerPixelScrolling="True"
+                           AllowEditing="False"
+                           AllowSorting="True"
+                           AllowGrouping="True"
+                           AllowColumnFiltering="True"
+                           AllowFilterEditor="False"
+                           AllowFilterPanelNavigation="False"
+                           ExtendScrollBarToFixedColumns="True"
+                           Focusable="False"
+                           GroupSummaryDisplayMode="AlignByColumns"
+                           IsTotalSummaryMenuEnabled="False"
+                           IsGroupFooterMenuEnabled="True"
+                           ShowGroupPanel="False"
+                           ShowTotalSummary="False"
+                           ShowSearchPanelMode="Default"
+                           ShowFilterPanelMode="Never"
+                           ShowIndicator="False"
+                           ShowColumnHeaders="True"
+                           ShowHorizontalLines="True"
+                           ShowVerticalLines="False"
+                           ShowFocusedRectangle="True"
+                           ShowGroupFooters="True"
+                           ShowSearchPanelResultInfo="True"
+                           ShowSearchPanelNavigationButtons="True"
+                           UseEvenRowBackground="True"
+                           
+                           ShowGridMenu="OnShowGridMenu"                         
+                                                      
+                           ColumnHeaderStyle="{StaticResource HeaderStyle}"
+                           ColumnHeaderImageStyle="{StaticResource HeaderImageStyle}"
+                           
+                           RowStyle="{StaticResource RowStyle}"
+                           
+                           Style="{StaticResource TableViewStyle}"/>
+         </dxg:GridControl.View>
+         <dxg:GridColumn FieldName="nPDN" 
+                         Header="{Binding PDN_Msg}"
+                         Fixed="Left"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sW"
+                         SortFieldName="dW"
+                         Header="{Binding W_Msg}"
+                         AllowColumnFiltering="False"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sH"
+                         SortFieldName="dH"
+                         Header="{Binding H_Msg}"
+                         AllowColumnFiltering="False"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sL"
+                         SortFieldName="dL"
+                         Header="{Binding L_Msg}"
+                         AllowColumnFiltering="False"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sNAM"
+                         Header="{Binding NAM_Msg}"
+                         AllowSorting="False" 
+                         FilterPopupMode="CheckedList"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sMATERIAL" 
+                         Header="{Binding MAT_Msg}"
+                         AllowSorting="False"
+                         FilterPopupMode="Custom"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sCNT" 
+                         Header="{Binding CNT_Msg}"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sADDED" 
+                         Header="{Binding ADDED_Msg}"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="nINPROD" 
+                         Header="{Binding INPROD_Msg}"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="nDONE" 
+                         Header="{Binding DONE_Msg}"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sUnitVolume"
+                         SortFieldName="dUnitVolume"
+                         Header="{Binding UNIT_VOLUME_Msg}"
+                         AllowColumnFiltering="False"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sTotVolume"
+                         SortFieldName="dTotVolume"
+                         Header="{Binding TOT_VOLUME_Msg}"
+                         AllowColumnFiltering="False"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sUnitTime"
+                         SortFieldName="dUnitTime"
+                         Header="{Binding UNIT_TIME_Msg}"
+                         AllowColumnFiltering="False"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+         <dxg:GridColumn FieldName="sTotTime"
+                         SortFieldName="dTotTime"
+                         Header="{Binding TOT_TIME_Msg}"
+                         AllowColumnFiltering="False"
+                         Style="{StaticResource ColumnInfoStyle}"/>
+      </dxg:GridControl>
+      
       <Grid Grid.Row="1" 
             Style="{StaticResource Statistics_Grid}">
          <Grid.ColumnDefinitions>

EgtBEAMWALL.Optimizer/Statistics/StatisticsV.xaml.vb

@@ -1,10 +1,153 @@
-Public Class StatisticsV
+Imports DevExpress.Data
+Imports DevExpress.Xpf.Bars
+Imports DevExpress.Xpf.Core.Serialization
+Imports DevExpress.Xpf.Grid
+Imports EgtBEAMWALL.Core
+Imports System.IO
+
+Public Class StatisticsV
 
    Private m_StatisticsVM As StatisticsVM
+   Private m_sDataGridLayoutPath As String = ""
+
+   Sub New()
+
+      ' This call is required by the designer.
+      InitializeComponent()
+
+      ' Add any initialization after the InitializeComponent() call.
+      m_sDataGridLayoutPath = Path.GetDirectoryName(DataGridColumnsIniFile.m_sDataGridColumnsIniFile) & "\DataGridLayoutFile\Statistics.json"
+
+      For Each Column In dgStatistics_GridControl.Columns
+         Column.[AddHandler](DXSerializer.AllowPropertyEvent,
+            New AllowPropertyEventHandler(AddressOf OnAllowProperty))
+      Next
+      DXSerializer.AddAllowPropertyHandler(dgStatistics_GridControl, AddressOf OnAddAllowProperty)
+
+   End Sub
+
+   ' imposto parametri da aggiungere o togliere in Json tabella per i parametri di colonna
+   Private Sub OnAllowProperty(sender As Object, e As AllowPropertyEventArgs)
+      If e.DependencyProperty Is GridColumn.AllowResizingProperty Then
+         e.Allow = True
+      End If
+   End Sub
+
+   ' imposto parametri da aggiungere o togliere in Json tabella per i parametri generali
+   Private Sub OnAddAllowProperty(sender As Object, e As AllowPropertyEventArgs)
+      If e.Property.Name = "FilterString" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "MRUFilters" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "MRUFilterList" Then
+         e.Allow = False
+      ElseIf e.Property.Name = "GroupSummarySortInfo" Then
+         e.Allow = False
+      End If
+   End Sub
+
+   ' salvataggio del layout colonne
+   Public Sub SaveStatisticGridControlLayout()
+      dgStatistics_GridControl.SaveLayoutToJson(m_sDataGridLayoutPath)
+   End Sub
+
+   Public Sub IsVisibleGroupSummary(bValue As Boolean)
+      If bValue AndAlso dgStatistics_GridControl.GroupSummary.Count = 0 Then
+         dgStatistics_GridControl.GroupSummary.Clear()
+         Dim PDNGroupSummaryItem As New GridSummaryItem() With {.FieldName = "nPDN",
+                                                                  .DisplayFormat = "{0}",
+                                                                  .SummaryType = SummaryItemType.Count,
+                                                                  .ShowInGroupColumnFooter = "nPDN"}
+         dgStatistics_GridControl.GroupSummary.Add(PDNGroupSummaryItem)
+         Dim CNTGroupSummaryItem As New GridSummaryItem() With {.FieldName = "sCNT",
+                                                                  .DisplayFormat = "{0}",
+                                                                  .SummaryType = SummaryItemType.Sum,
+                                                                  .ShowInGroupColumnFooter = "sCNT"}
+         dgStatistics_GridControl.GroupSummary.Add(CNTGroupSummaryItem)
+         Dim ADDEDGroupSummaryItem As New GridSummaryItem() With {.FieldName = "sADDED",
+                                                                  .DisplayFormat = "{0}",
+                                                                  .SummaryType = SummaryItemType.Sum,
+                                                                  .ShowInGroupColumnFooter = "sADDED"}
+         dgStatistics_GridControl.GroupSummary.Add(ADDEDGroupSummaryItem)
+         Dim INPRODGroupSummaryItem As New GridSummaryItem() With {.FieldName = "nINPROD",
+                                                                  .DisplayFormat = "{0}",
+                                                                  .SummaryType = SummaryItemType.Sum,
+                                                                  .ShowInGroupColumnFooter = "nINPROD"}
+         dgStatistics_GridControl.GroupSummary.Add(INPRODGroupSummaryItem)
+         Dim DONEGroupSummaryItem As New GridSummaryItem() With {.FieldName = "nDONE",
+                                                                  .DisplayFormat = "{0}",
+                                                                  .SummaryType = SummaryItemType.Sum,
+                                                                  .ShowInGroupColumnFooter = "nDONE"}
+         dgStatistics_GridControl.GroupSummary.Add(DONEGroupSummaryItem)
+      End If
+      dgStatistics_TableView.ShowGroupFooters = bValue
+   End Sub
+
+   Public Sub Me_Loaded() Handles Me.Loaded
+      ' imposto DataContext
+      m_StatisticsVM = Me.DataContext
+      ' imposto riferimento ad action per salvataggio layout tabella
+      m_StatisticsVM.refSaveStatisticGridControlLayout = AddressOf SaveStatisticGridControlLayout
+      ' rispristino layout tabella
+      If Not IsNothing(m_sDataGridLayoutPath) AndAlso File.Exists(m_sDataGridLayoutPath) Then
+         dgStatistics_GridControl.RestoreLayoutFromJson(m_sDataGridLayoutPath)
+      End If
+      ' da gestire chiamandolo quando viene aperto un progetto o aggiunto/rimosso un btl, per evitare che ci sia il GroupSummary se c'e' un solo gruppo
+      IsVisibleGroupSummary(False)
+   End Sub
 
    Private Sub PrintBtn_Click(sender As Object, e As RoutedEventArgs) Handles CopyToClipboardBtn.Click
       m_StatisticsVM = Me.DataContext()
-      ExportToExcelAndCsv(dgStatistics, m_StatisticsVM)
+      'ExportToExcelAndCsv(dgStatistics, m_StatisticsVM)
+      dgStatistics_GridControl.CopyToClipboard()
+   End Sub
+
+   Private Sub OnShowGridMenu(sender As Object, e As DevExpress.Xpf.Grid.GridMenuEventArgs)
+      If e.MenuType = GridMenuType.Column Then
+         ' rimozione bottoni
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupBox})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.GroupColumn})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.ColumnChooser})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFit})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNames.BestFitColumns})
+         e.Customizations.Add(New RemoveAction() With {.ElementName = DefaultColumnMenuItemNamesBase.FilterEditor})
+
+         Dim info As GridColumnMenuInfo = CType(e.MenuInfo, GridColumnMenuInfo)
+         Dim item As ColumnBase = CType(info.Column, ColumnBase)
+         ' aggiunta separatore
+         Dim separator As BarItemLinkSeparator = New BarItemLinkSeparator()
+         e.Customizations.Add(separator)
+         ' aggiunta bottone AllowResize e Auto Fit
+         Dim AllowResize As BarCheckItem = New BarCheckItem() With {.Content = "Allow Resize", .IsChecked = (dgStatistics_TableView.AllowResizing AndAlso (item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default))}
+         AddHandler AllowResize.CheckedChanged, AddressOf AllowResize_CheckedChanged
+         e.Customizations.Add(AllowResize)
+         If item.AllowResizing = DevExpress.Utils.DefaultBoolean.True OrElse item.AllowResizing = DevExpress.Utils.DefaultBoolean.Default Then
+            Dim FixAuto As BarButtonItem = New BarCheckItem() With {.Content = "Auto Fit"}
+            AddHandler FixAuto.ItemClick, AddressOf FixAuto_ItemClick
+            e.Customizations.Add(FixAuto)
+         End If
+      End If
+   End Sub
+
+   ' gestore evento Allow Resize
+   Private Sub AllowResize_CheckedChanged(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(dgStatistics_TableView.GridMenu.MenuInfo, GridColumnMenuInfo)
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      If item.AllowResizing = DevExpress.Utils.DefaultBoolean.False Then
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.True
+      Else
+         item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
+      End If
+   End Sub
+
+   ' gestore evento Auto Fit
+   Private Sub FixAuto_ItemClick(sender As Object, e As ItemClickEventArgs)
+      Dim info As GridColumnMenuInfo = TryCast(dgStatistics_TableView.GridMenu.MenuInfo, GridColumnMenuInfo)
+      Dim item As ColumnBase = CType(info.Column, ColumnBase)
+      item.Width = New GridColumnWidth(1, GridColumnUnitType.Auto)
+      dgStatistics_TableView.UpdateLayout()
+      item.Width = item.ActualWidth
+      item.AllowResizing = DevExpress.Utils.DefaultBoolean.False
    End Sub
 
 End Class

EgtBEAMWALL.Optimizer/Statistics/StatisticsVM.vb

@@ -8,6 +8,8 @@ Public Class StatisticsVM
 
 #Region "FIELDS & PROPERTIES"
 
+   Public refSaveStatisticGridControlLayout As Action
+
    ' Evento per chiusura finestra
    Public Event m_CloseWindow(bDialogResult As Boolean)
 
@@ -395,6 +397,11 @@ Public Class StatisticsVM
                                                                                                                            {S_OPTIMIZERSTATISTICS, OptimizerStatisticsColumns},
                                                                                                                            {S_RAWPARTSTATISTICS, RawPartStatisticsColumns}}
       EgwWPFBaseLib.EgwDataGrid.WriteColumnLayout(DataGridColumnsIniFile.m_sDataGridColumnsIniFile, DataGridColumnDictionary)
+
+      If Not IsNothing(refSaveStatisticGridControlLayout) Then
+         refSaveStatisticGridControlLayout()
+      End If
+
       ' Chiudo finestra senza fare niente
       RaiseEvent m_CloseWindow(False)
    End Sub

EgtBEAMWALL.Optimizer/StatisticsWnd/StatisticWndV.xaml

@@ -9,7 +9,8 @@
                                  Title="StatisticWnd"
                                  MaxHeight="600"
                                  Width="1300"
-                                 Style="{StaticResource OptimizerWindow.Dialog}">
+                                 Style="{StaticResource OptimizerWindow.Dialog}" 
+                                 Closed="OptimizerWindow_Closed">
 
    <TabControl Name="Statistic_TabControl" 
                SelectedIndex="0"

EgtBEAMWALL.Optimizer/StatisticsWnd/StatisticWndV.xaml.vb

@@ -12,15 +12,17 @@
    End Sub
 
    Private Sub Statistic_TabControl_SelectionChanged(sender As Object, e As SelectionChangedEventArgs)
-      If Statistic_TabControl.SelectedIndex = 0 Then
-         Me.Tag = Map.refProjectVM.BTLStructureVM
-      Else
-         Me.Tag = Map.refProjectVM
-      End If
+      Me.Tag = If(Statistic_TabControl.SelectedIndex = 0, Map.refProjectVM.BTLStructureVM, Map.refProjectVM)
    End Sub
 
    Private Sub CloseWindow(bDialogResult As Boolean) Handles m_StatisticsVM.m_CloseWindow
       Me.DialogResult = bDialogResult
    End Sub
 
+   Private Sub OptimizerWindow_Closed(sender As Object, e As EventArgs)
+      If Not IsNothing(m_StatisticsVM.refSaveStatisticGridControlLayout) Then
+         m_StatisticsVM.refSaveStatisticGridControlLayout()
+      End If
+   End Sub
+
 End Class

EgtBEAMWALL.Optimizer/StrategyManager/JsonAvailableStrategyHelper.vb

@@ -1,9 +1,9 @@
-Imports EgtWPFLib5
-Imports EgtUILib
-Imports Newtonsoft.Json
-Imports System.Collections.ObjectModel
+Imports System.Collections.ObjectModel
 Imports System.IO
 Imports EgtBEAMWALL.Core.ConstBeam
+Imports EgtUILib
+Imports EgtWPFLib5
+Imports Newtonsoft.Json
 
 '----------- Classe che fa riferimento alle Feature del file Json -----------
 Public Class JsonAvailableStrategyFeature
@@ -339,6 +339,28 @@ Public Class JsonDefaultStrategyParameter
       End Set
    End Property
 
+   Private m_idDescriptionShortMsg As Integer
+   Public Property idDescriptionShortMsg As Integer
+      Get
+         Return m_idDescriptionShortMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionShortMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionShortMsg))
+      End Set
+   End Property
+
+   Private m_idDescriptionLongMsg As Integer
+   Public Property idDescriptionLongMsg As Integer
+      Get
+         Return m_idDescriptionLongMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionLongMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionLongMsg))
+      End Set
+   End Property
+
    Private m_sType As String
    Public Property sType As String
       Get
@@ -410,12 +432,14 @@ Public Class JsonDefaultStrategyParameter
 #Region "CONSTRUCTOR"
 
    <JsonConstructor>
-   Sub New(sName As String, sNameNge As String, sValue As String, sDescriptionShort As String, sDescriptionLong As String, sType As String, sSource As String, sSubType As String, sMessageId As String, sMinUserLevel As Integer)
+   Sub New(sName As String, sNameNge As String, sValue As String, sDescriptionShort As String, sDescriptionLong As String, idDescriptionShortMsg As Integer, idDescriptionLongMsg As Integer, sType As String, sSource As String, sSubType As String, sMessageId As String, sMinUserLevel As Integer)
       m_sName = sName
       m_sNameNge = sNameNge
       m_sValue = sValue
       m_sDescriptionShort = sDescriptionShort
       m_sDescriptionLong = sDescriptionLong
+      m_idDescriptionShortMsg = idDescriptionShortMsg
+      m_idDescriptionLongMsg = idDescriptionLongMsg
       m_sType = sType
       m_sSource = sSource
       m_sSubType = sSubType
@@ -442,6 +466,8 @@ Public Class JsonDefaultStrategyParameter
       m_sSubType = StrategyParameter.sSubType
       m_sDescriptionShort = StrategyParameter.sDescriptionShort
       m_sDescriptionLong = StrategyParameter.sDescriptionLong
+      m_idDescriptionShortMsg = StrategyParameter.idDescriptionShortMsg
+      m_idDescriptionLongMsg = StrategyParameter.idDescriptionLongMsg
       m_sMessageId = StrategyParameter.sMessageId
       m_sMinUserLevel = StrategyParameter.sMinUserLevel
    End Sub
@@ -491,8 +517,18 @@ Public Class JsonDefaultStrategyParameter
       StrategyParameter.sName = m_sName
       StrategyParameter.sNameNge = m_sNameNge
       StrategyParameter.sSubType = m_sSubType
-      StrategyParameter.sDescriptionShort = m_sDescriptionShort
-      StrategyParameter.sDescriptionLong = m_sDescriptionLong
+      If m_idDescriptionShortMsg < 0 OrElse EgtMsg(m_idDescriptionShortMsg).StartsWith("Msg") Then
+         StrategyParameter.sDescriptionShort = m_sDescriptionShort
+      Else
+         StrategyParameter.sDescriptionShort = EgtMsg(m_idDescriptionShortMsg)
+      End If
+      If m_idDescriptionLongMsg < 0 OrElse EgtMsg(m_idDescriptionLongMsg).StartsWith("Msg") Then
+         StrategyParameter.sDescriptionLong = m_sDescriptionLong
+      Else
+         StrategyParameter.sDescriptionLong = EgtMsg(m_idDescriptionLongMsg)
+      End If
+      StrategyParameter.idDescriptionShortMsg = m_idDescriptionShortMsg
+      StrategyParameter.idDescriptionLongMsg = m_idDescriptionLongMsg
       StrategyParameter.sMessageId = m_sMessageId
       StrategyParameter.sMinUserLevel = m_sMinUserLevel
       Return StrategyParameter
@@ -537,6 +573,28 @@ Public Class JsonDefaultComboParameter
       End Set
    End Property
 
+   Private m_idDescriptionShortMsg As Integer
+   Public Property idDescriptionShortMsg As Integer
+      Get
+         Return m_idDescriptionShortMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionShortMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionShortMsg))
+      End Set
+   End Property
+
+   Private m_idDescriptionLongMsg As Integer
+   Public Property idDescriptionLongMsg As Integer
+      Get
+         Return m_idDescriptionLongMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionLongMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionLongMsg))
+      End Set
+   End Property
+
    Private m_sMessageId As String
    Public Property sMessageId As String
       Get
@@ -551,10 +609,12 @@ Public Class JsonDefaultComboParameter
 #Region "CONSTRUCTOR"
 
    <JsonConstructor>
-   Sub New(sValue As String, sDescriptionShort As String, sDescriptionLong As String, sMessageId As String)
+   Sub New(sValue As String, sDescriptionShort As String, sDescriptionLong As String, idDescriptionShortMsg As Integer, idDescriptionLongMsg As Integer, sMessageId As String)
       m_sValue = sValue
       m_sDescriptionShort = sDescriptionShort
       m_sDescriptionLong = sDescriptionLong
+      m_idDescriptionShortMsg = idDescriptionShortMsg
+      m_idDescriptionLongMsg = idDescriptionLongMsg
       m_sMessageId = sMessageId
    End Sub
 
@@ -562,6 +622,8 @@ Public Class JsonDefaultComboParameter
       m_sValue = ComboParameter.sValue
       m_sDescriptionShort = ComboParameter.sDescriptionShort
       m_sDescriptionLong = ComboParameter.sDescriptionLong
+      m_idDescriptionShortMsg = ComboParameter.idDescriptionShortMsg
+      m_idDescriptionLongMsg = ComboParameter.idDescriptionLongMsg
       m_sMessageId = ComboParameter.sMessageId
    End Sub
 

EgtBEAMWALL.Optimizer/StrategyManager/ParameterStrategyV.xaml

@@ -2,139 +2,156 @@
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
              xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer"
+             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
              VerticalAlignment="Top"
              Margin="5,10,0,0">
-   <ItemsControl ItemsSource="{Binding Tag.ParameterList,
-                                       RelativeSource={RelativeSource AncestorType={x:Type UserControl}}}"
-                 Style="{StaticResource ParameterStrategy_ItemsControl}">
-      <ItemsControl.Resources>
-         <DataTemplate DataType="{x:Type OPTIMIZER:BooleanStrategyParameter}">
-            <UniformGrid Columns="2"
-                         Visibility="{Binding bBooleanVisibility}"
-                         Style="{StaticResource ParamStrategy_UniformGrid}">
-               <TextBlock Text="{Binding sDescriptionShort}" 
-                          Style="{StaticResource ParamStrategy_TextBlock}"/>
-               <CheckBox IsChecked="{Binding bValue, UpdateSourceTrigger=PropertyChanged}"
-                         Style="{StaticResource FeatureInPartInRawPartList_CheckBox}"/>
-            </UniformGrid>
-         </DataTemplate>
-         <DataTemplate DataType="{x:Type OPTIMIZER:DoubleStrategyParameter}">
-            <UniformGrid Columns="2"
-                         Visibility="{Binding bDoubleVisibility}"
-                         Style="{StaticResource ParamStrategy_UniformGrid}">
-               <TextBlock Text="{Binding sDescriptionShort}" 
-                          Style="{StaticResource ParamStrategy_TextBlock}"/>
-               <TextBox Text="{Binding sValue}"
-                        Style="{StaticResource ColorPicker_TextBox}"/>
-            </UniformGrid>
-         </DataTemplate>
-         <DataTemplate DataType="{x:Type OPTIMIZER:ComboStrategyParameter}">
-            <UniformGrid Columns="2" 
-                         Visibility="{Binding bComboBoxVisibility}"
-                         Style="{StaticResource ParamStrategy_UniformGrid}">
-               <TextBlock Text="{Binding sDescriptionShort}" 
-                          Style="{StaticResource ParamStrategy_TextBlock}"/>
-               <ComboBox ItemsSource="{Binding ComboList}"
-                         SelectedItem="{Binding SelValue}"
-                         DisplayMemberPath="sValue"
-                         Style="{StaticResource ProjectParameters_ComboBox}">
-               </ComboBox>
-            </UniformGrid>
-         </DataTemplate>
-         <DataTemplate DataType="{x:Type OPTIMIZER:StringStrategyParameter}">
-            <UniformGrid Columns="2" 
-                         Visibility="{Binding bStringVisibility}"
-                         Style="{StaticResource ParamStrategy_UniformGrid}">
-               <TextBlock Text="{Binding sDescriptionShort}" 
-                          Style="{StaticResource ParamStrategy_TextBlock}"/>
-               <TextBox Text="{Binding sValue}"
-                        Style="{StaticResource ColorPicker_TextBox}"/>
-            </UniformGrid>
-         </DataTemplate>
-         <DataTemplate DataType="{x:Type OPTIMIZER:ListStrategyParameter}">
-            <Grid Visibility="{Binding bListBoxVisibility}"
-                  Style="{StaticResource AddRawPartWnd_Grid}">
-               <Grid.RowDefinitions>
-                  <RowDefinition Height="Auto"/>
-                  <RowDefinition Height="Auto"/>
-               </Grid.RowDefinitions>
-               <Grid.ColumnDefinitions>
-                  <ColumnDefinition Width="1.3*"/>
-                  <ColumnDefinition Width="1*"/>
-               </Grid.ColumnDefinitions>
-               <TextBlock Text="{Binding sDescriptionShort}" 
-                          Style="{StaticResource ParamStrategyDescription_TextBlock}"/>
-               <StackPanel Grid.Column="1" 
-                           Style="{StaticResource PartManager_StackPanel}">
-                  <StackPanel Style="{StaticResource ProjectParameters_StackPanel}">
-                     <Button ToolTip="{Binding OpenToolListToolTip}"
-                             IsEnabled="{Binding OpenToolListIsEnable}"
-                             Command="{Binding OpenToolListCommand}"
-                             Style="{StaticResource ProjectParameters_Button}">
-                        <Image Source="{StaticResource Plus_Image}"
-                               Style="{StaticResource BTLDataWnd_Image}"/>
-                     </Button>
-                     <Button ToolTip="{Binding DeselectAllToolTip}"
-                             IsEnabled="{Binding ActiveToolListIsEnable}"
-                             Command="{Binding DeselectAllCommand}"
-                             Style="{StaticResource CloseProjectParameters_Button}">
-                        <Image Source="{StaticResource DeselectAll_Image}" 
-                               Style="{StaticResource BTLDataWnd_Image}"/>
-                     </Button>
+   <Grid>
+      <Grid.RowDefinitions>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
+      <ItemsControl ItemsSource="{Binding Tag.ParameterList,
+                                          RelativeSource={RelativeSource AncestorType={x:Type UserControl}}}"
+                    Style="{StaticResource ParameterStrategy_ItemsControl}">
+         <ItemsControl.Resources>
+            <DataTemplate DataType="{x:Type OPTIMIZER:BooleanStrategyParameter}">
+               <UniformGrid Columns="2"
+                            Visibility="{Binding bBooleanVisibility}"
+                            Style="{StaticResource ParamStrategy_UniformGrid}">
+                  <TextBlock Text="{Binding sDescriptionShort}" 
+                             Style="{StaticResource ParamStrategy_TextBlock}"/>
+                  <CheckBox IsChecked="{Binding bValue, UpdateSourceTrigger=PropertyChanged}"
+                            Style="{StaticResource FeatureInPartInRawPartList_CheckBox}"/>
+               </UniformGrid>
+            </DataTemplate>
+            <DataTemplate DataType="{x:Type OPTIMIZER:DoubleStrategyParameter}">
+               <UniformGrid Columns="2"
+                            Visibility="{Binding bDoubleVisibility}"
+                            Style="{StaticResource ParamStrategy_UniformGrid}">
+                  <TextBlock Text="{Binding sDescriptionShort}" 
+                             Style="{StaticResource ParamStrategy_TextBlock}"/>
+                  <!--<TextBox Text="{Binding sValue, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"
+                           Style="{StaticResource ColorPicker_TextBox}"/>-->
+                  <EgtWPFLib5:EgtTextBox2 Text="{Binding sValue, UpdateSourceTrigger=Explicit}"
+                                          Style="{StaticResource ParameterList_TextBox2}"/>
+               </UniformGrid>
+            </DataTemplate>
+            <DataTemplate DataType="{x:Type OPTIMIZER:ComboStrategyParameter}">
+               <UniformGrid Columns="2" 
+                            Visibility="{Binding bComboBoxVisibility}"
+                            Style="{StaticResource ParamStrategy_UniformGrid}">
+                  <TextBlock Text="{Binding sDescriptionShort}" 
+                             Style="{StaticResource ParamStrategy_TextBlock}"/>
+                  <ComboBox ItemsSource="{Binding ComboList}"
+                            SelectedItem="{Binding SelValue}"
+                            DisplayMemberPath="sValue"
+                            Style="{StaticResource ProjectParameters_ComboBox}">
+                  </ComboBox>
+               </UniformGrid>
+            </DataTemplate>
+            <DataTemplate DataType="{x:Type OPTIMIZER:StringStrategyParameter}">
+               <UniformGrid Columns="2" 
+                            Visibility="{Binding bStringVisibility}"
+                            Style="{StaticResource ParamStrategy_UniformGrid}">
+                  <TextBlock Text="{Binding sDescriptionShort}" 
+                             Style="{StaticResource ParamStrategy_TextBlock}"/>
+                  <TextBox Text="{Binding sValue, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"
+                           Style="{StaticResource ColorPicker_TextBox}"/>
+               </UniformGrid>
+            </DataTemplate>
+            <DataTemplate DataType="{x:Type OPTIMIZER:ListStrategyParameter}">
+               <Grid Visibility="{Binding bListBoxVisibility}"
+                     Style="{StaticResource AddRawPartWnd_Grid}">
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="Auto"/>
+                     <RowDefinition Height="Auto"/>
+                  </Grid.RowDefinitions>
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1.3*"/>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <TextBlock Text="{Binding sDescriptionShort}" 
+                             Style="{StaticResource ParamStrategyDescription_TextBlock}"/>
+                  <StackPanel Grid.Column="1" 
+                              Style="{StaticResource PartManager_StackPanel}">
+                     <StackPanel Style="{StaticResource ProjectParameters_StackPanel}">
+                        <Button ToolTip="{Binding OpenToolListToolTip}"
+                                IsEnabled="{Binding OpenToolListIsEnable}"
+                                Command="{Binding OpenToolListCommand}"
+                                Style="{StaticResource ProjectParameters_Button}">
+                           <Image Source="{StaticResource Plus_Image}"
+                                  Style="{StaticResource BTLDataWnd_Image}"/>
+                        </Button>
+                        <Button ToolTip="{Binding DeselectAllToolTip}"
+                                IsEnabled="{Binding ActiveToolListIsEnable}"
+                                Command="{Binding DeselectAllCommand}"
+                                Style="{StaticResource CloseProjectParameters_Button}">
+                           <Image Source="{StaticResource DeselectAll_Image}" 
+                                  Style="{StaticResource BTLDataWnd_Image}"/>
+                        </Button>
+                     </StackPanel>
+                     <Border Style="{StaticResource ForcedStrategyBTL_Border}">
+                        <ItemsControl ItemsSource="{Binding ActiveToolList_View}"
+                                      Style="{StaticResource ProjectParameters_ItemsControl}">
+                           <ItemsControl.ItemTemplate>
+                              <DataTemplate>
+                                 <StackPanel Style="{StaticResource ExpanderElemen_StackPanel}">
+                                    <CheckBox IsChecked="{Binding bIsActive, UpdateSourceTrigger=PropertyChanged}"
+                                              Style="{StaticResource FreeContourInput_CheckBox}"/>
+                                    <TextBlock Text="{Binding sName}"
+                                               Style="{StaticResource DialogWindow_TextBlock}"/>
+                                 </StackPanel>
+                              </DataTemplate>
+                           </ItemsControl.ItemTemplate>
+                        </ItemsControl>
+                     </Border>
                   </StackPanel>
-                  <Border Style="{StaticResource ForcedStrategyBTL_Border}">
-                     <ItemsControl ItemsSource="{Binding ActiveToolList_View}"
-                                   Style="{StaticResource ProjectParameters_ItemsControl}">
-                        <ItemsControl.ItemTemplate>
-                           <DataTemplate>
-                              <StackPanel Style="{StaticResource ExpanderElemen_StackPanel}">
-                                 <CheckBox IsChecked="{Binding bIsActive, UpdateSourceTrigger=PropertyChanged}"
-                                           Style="{StaticResource FreeContourInput_CheckBox}"/>
-                                 <TextBlock Text="{Binding sName}"
-                                            Style="{StaticResource DialogWindow_TextBlock}"/>
-                              </StackPanel>
-                           </DataTemplate>
-                        </ItemsControl.ItemTemplate>
-                     </ItemsControl>
-                  </Border>
-               </StackPanel>
-               <StackPanel Grid.Row="1" 
-                           Grid.Column="1" 
-                           Visibility="{Binding AvailableToolListVisibility}"
-                           Style="{StaticResource PartManager_StackPanel}">
-                  <StackPanel Style="{StaticResource ProjectParameters_StackPanel}">
-                     <Button ToolTip="{Binding CloseToolListToolTip}"
-                             Command="{Binding CloseToolListCommand}"
-                             Style="{StaticResource ProjectParameters_Button}">
-                        <Image Source="{StaticResource Delete_Image}" 
-                               Style="{StaticResource BTLDataWnd_Image}"/>
-                     </Button>
-                     <Button ToolTip="{Binding SelectAllToolTip}"
-                             IsEnabled="{Binding AvailableToolListIsEnable}"
-                             Command="{Binding SelectAllCommand}"
-                             Style="{StaticResource ProjectParameters_Button}">
-                        <Image Source="{StaticResource SelectAll_Image}" 
-                               Style="{StaticResource BTLDataWnd_Image}"/>
-                     </Button>
+                  <StackPanel Grid.Row="1" 
+                              Grid.Column="1" 
+                              Visibility="{Binding AvailableToolListVisibility}"
+                              Style="{StaticResource PartManager_StackPanel}">
+                     <StackPanel Style="{StaticResource ProjectParameters_StackPanel}">
+                        <Button ToolTip="{Binding CloseToolListToolTip}"
+                                Command="{Binding CloseToolListCommand}"
+                                Style="{StaticResource ProjectParameters_Button}">
+                           <Image Source="{StaticResource Delete_Image}" 
+                                  Style="{StaticResource BTLDataWnd_Image}"/>
+                        </Button>
+                        <Button ToolTip="{Binding SelectAllToolTip}"
+                                IsEnabled="{Binding AvailableToolListIsEnable}"
+                                Command="{Binding SelectAllCommand}"
+                                Style="{StaticResource ProjectParameters_Button}">
+                           <Image Source="{StaticResource SelectAll_Image}" 
+                                  Style="{StaticResource BTLDataWnd_Image}"/>
+                        </Button>
+                     </StackPanel>
+                     <Border Style="{StaticResource ProjectParamters_Border}">
+                        <ItemsControl ItemsSource="{Binding AvailableToolList_View}"                                   
+                                      Style="{StaticResource AvailableToolList_ItemsControl}">
+                           <ItemsControl.ItemTemplate>
+                              <DataTemplate>
+                                 <StackPanel Style="{StaticResource ExpanderElemen_StackPanel}">
+                                    <CheckBox IsChecked="{Binding bIsActive, UpdateSourceTrigger=PropertyChanged}"
+                                              Style="{StaticResource FreeContourInput_CheckBox}"/>
+                                    <TextBlock Text="{Binding sName}"
+                                               Style="{StaticResource DialogWindow_TextBlock}"/>
+                                 </StackPanel>
+                              </DataTemplate>
+                           </ItemsControl.ItemTemplate>
+                        </ItemsControl>
+                     </Border>
                   </StackPanel>
-                  <Border Style="{StaticResource ProjectParamters_Border}">
-                     <ItemsControl ItemsSource="{Binding AvailableToolList_View}"                                   
-                                   Style="{StaticResource AvailableToolList_ItemsControl}">
-                        <ItemsControl.ItemTemplate>
-                           <DataTemplate>
-                              <StackPanel Style="{StaticResource ExpanderElemen_StackPanel}">
-                                 <CheckBox IsChecked="{Binding bIsActive, UpdateSourceTrigger=PropertyChanged}"
-                                           Style="{StaticResource FreeContourInput_CheckBox}"/>
-                                 <TextBlock Text="{Binding sName}"
-                                            Style="{StaticResource DialogWindow_TextBlock}"/>
-                              </StackPanel>
-                           </DataTemplate>
-                        </ItemsControl.ItemTemplate>
-                     </ItemsControl>
-                  </Border>
-               </StackPanel>
-            </Grid>
-         </DataTemplate>
-      </ItemsControl.Resources>
-   </ItemsControl>
+               </Grid>
+            </DataTemplate>
+         </ItemsControl.Resources>
+      </ItemsControl>
+      <Button Grid.Row="1" VerticalAlignment="Bottom"
+              Command="{Binding UpdateFeatureCommand}"
+              Visibility="{Binding Update_Visibility}" 
+              Style="{StaticResource Update_Button}">
+         <Image Source="{StaticResource Update_Image}"
+                Style="{StaticResource BTLDataWnd_Image}"/>
+      </Button>
+   </Grid>
+
 </UserControl>

EgtBEAMWALL.Optimizer/StrategyManager/StrategyManagerV.xaml

@@ -2,9 +2,13 @@
       xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
       xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
       xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer"
+      xmlns:dxg="http://schemas.devexpress.com/winfx/2008/xaml/grid"
+      xmlns:dxc="http://schemas.devexpress.com/winfx/2008/xaml/core"
+      xmlns:dxe="http://schemas.devexpress.com/winfx/2008/xaml/editors"
       Height="{Binding ActualHeight, RelativeSource={RelativeSource AncestorType={x:Type TabControl}}}">
    <Grid.Resources>
       <OPTIMIZER:StrategyTypeToFocusableConverter x:Key="StrategyTypeToFocusableConverter"/>
+      <!--<HierarchicalDataTemplate DataType="{x:Type OPTIMIZER:StrategyFeature}" ItemsSource="{Binding Path=TopologyList}"/>-->
    </Grid.Resources>
    <Grid.RowDefinitions>
       <RowDefinition Height="Auto"/>
@@ -66,6 +70,30 @@
 
       <Border Grid.RowSpan="2"
               Style="{StaticResource StrategyManager_Border}">
+
+         <!--<dxg:TreeViewControl Name="StrategyFeature_TreeView"
+                              Height="{Binding ActualHeight, RelativeSource={RelativeSource AncestorType={x:Type Border}}}"
+                              ItemsSource="{Binding SelStrategySetup.StrategyFeatureList}"
+                              SelectedItem="{Binding SelStrategySetup.SelStrategyFeature, UpdateSourceTrigger=PropertyChanged}"
+                              AllowEditing="False"
+                              AllowDrop="False"
+                              AllowInitiallyFocusedRow="False"
+                              AutoExpandAllNodes="False"
+                              SelectionMode="Row"
+                              ShowSearchPanel="True"
+                              ShowBorder="False"
+                              ShowCheckboxes="False"
+                              ShowDragDropHint="False"
+                              ShowLoadingPanel="False"
+                              ShowNodeImages="False"
+                              SortOrder="None"
+                              TreeViewFieldName="sName" 
+                              TreeDerivationMode="HierarchicalDataTemplate"
+                              SelectedItemChanged="StrategyFeature_TreeView_SelectedItemChanged"
+                              CustomNodeDisplayText="StrategyFeature_TreeView_CustomNodeDisplayText"
+                              Style="{StaticResource TreeViewControlStyle}">
+         </dxg:TreeViewControl>-->
+
          <TreeView Name="StrategyFeature_TreeView" 
                    Height="{Binding ActualHeight, RelativeSource={RelativeSource AncestorType={x:Type Border}}}"
                    ItemsSource="{Binding SelStrategySetup.StrategyFeatureList}"
@@ -97,8 +125,8 @@
                   </CheckBox>
                </HierarchicalDataTemplate>
                <DataTemplate DataType="{x:Type OPTIMIZER:Topology}">
-                  <TextBlock Text="{Binding sName}" 
-                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  <TextBlock Text="{Binding sName}"
+                             Style="{StaticResource TreeView_TextBlock}"/>
                </DataTemplate>
             </TreeView.Resources>
             <TreeView.ItemContainerStyle>
@@ -109,6 +137,7 @@
                </Style>
             </TreeView.ItemContainerStyle>
          </TreeView>
+         
       </Border>
 
       <OPTIMIZER:StrategyV Grid.Column="1"
@@ -122,7 +151,7 @@
             <RowDefinition Height="0.93*"/>
             <RowDefinition Height="1*"/>
          </Grid.RowDefinitions>
-         
+
          <GroupBox x:Name="GR"
                    Style="{StaticResource ProjectParameters_GroupBox}">
             <GroupBox.Header>
@@ -142,7 +171,7 @@
                </Grid.RowDefinitions>
                <Grid.ColumnDefinitions>
                   <ColumnDefinition Width="1*"/>
-                  <ColumnDefinition Width="1*"/>
+                  <!--<ColumnDefinition Width="1*"/>-->
                </Grid.ColumnDefinitions>
                <TextBlock Text="{Binding SelTreeItem.sName}" 
                           Style="{StaticResource TreeItemName_TextBlock}"/>

EgtBEAMWALL.Optimizer/StrategyManager/StrategyManagerV.xaml.vb

@@ -1,4 +1,6 @@
-Public Class StrategyManagerV
+Imports DevExpress.Xpf.Grid
+
+Public Class StrategyManagerV
 
    Private Sub TreeViewItem_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
       If TypeOf sender IsNot TreeViewItem Then Return
@@ -19,4 +21,21 @@
       End If
    End Sub
 
+   'Private Sub StrategyFeature_TreeView_SelectedItemChanged(sender As Object, e As DevExpress.Xpf.Grid.SelectedItemChangedEventArgs)
+   '   If TypeOf e.OldItem Is StrategyFeature Then Return
+   '   If TypeOf e.NewItem Is StrategyFeature Then Return
+   '   Dim OldSelectedTopologyItem As Topology = DirectCast(e.OldItem, Topology)
+   '   Dim SelectedTopologyItem As Topology = DirectCast(e.NewItem, Topology)
+   '   If IsNothing(SelectedTopologyItem) Then Return
+   '   If Not IsNothing(OldSelectedTopologyItem) Then OldSelectedTopologyItem.IsSelected = False
+   '   SelectedTopologyItem.IsSelected = True
+   'End Sub
+
+   'Private Sub StrategyFeature_TreeView_CustomNodeDisplayText(sender As Object, e As TreeList.TreeViewCustomNodeDisplayTextEventArgs)
+   '   If TypeOf e.Node.Content Is Topology Then Return
+   '   Dim SelectedStrategyFeatureItem As StrategyFeature = DirectCast(e.Node.Content, StrategyFeature)
+   '   If IsNothing(SelectedStrategyFeatureItem) Then Return
+   '   e.DisplayText = $"[{SelectedStrategyFeatureItem.nGrp}-{SelectedStrategyFeatureItem.nPrcDesc}] {SelectedStrategyFeatureItem.sName}"
+   'End Sub
+
 End Class

EgtBEAMWALL.Optimizer/StrategyManager/StrategyManagerVM.vb

@@ -66,8 +66,8 @@ Public Class StrategyManagerVM
                End If
             End If
             m_SelStrategySetup.Read()
-            End If
-            SetSaveImage(MODIFY_IMAGE)
+            OrderStrategyList(m_SelStrategySetup.StrategyFeatureList)
+         End If
          NotifyPropertyChanged(NameOf(SelStrategySetup))
       End Set
    End Property
@@ -77,6 +77,7 @@ Public Class StrategyManagerVM
          ' Scrivo file defaultconfig nell'ini
          EgtUILib.WritePrivateProfileString(S_STRATEGY, K_DEFAULTCONFIG, m_SelStrategySetup.sName, Map.refMainWindowVM.MainWindowM.sDefaultConfig)
          m_SelStrategySetup.Read()
+         OrderStrategyList(m_SelStrategySetup.StrategyFeatureList)
       End If
       NotifyPropertyChanged(NameOf(SelStrategySetup))
    End Sub
@@ -105,6 +106,7 @@ Public Class StrategyManagerVM
          Item.sImage = TmpImage
       End If
       m_SelTreeItem = Item
+      SetUpdate_Visibility(False)
       NotifyPropertyChanged(NameOf(SelTreeItem))
    End Sub
 
@@ -207,6 +209,17 @@ Public Class StrategyManagerVM
       NotifyPropertyChanged(NameOf(DefaultConfig_IsChecked))
    End Sub
 
+   Private m_bUpdate_Visibility As Visibility = Visibility.Collapsed
+   Public ReadOnly Property Update_Visibility As Visibility
+      Get
+         Return m_bUpdate_Visibility
+      End Get
+   End Property
+   Friend Sub SetUpdate_Visibility(value As Boolean)
+      m_bUpdate_Visibility = If(value, Visibility.Visible, Visibility.Collapsed)
+      NotifyPropertyChanged(NameOf(Update_Visibility))
+   End Sub
+
 #Region "Messages"
 
    Public ReadOnly Property SaveToolTip As String
@@ -252,6 +265,7 @@ Public Class StrategyManagerVM
    Private m_cmdOk As ICommand
    Private m_cmdCancel As ICommand
    Private m_cmdConfigurationParametersCommand As ICommand
+   Private m_cmdUpdateFeatureCommand As ICommand
 
 #End Region    ' Field & Properties
 
@@ -270,15 +284,29 @@ Public Class StrategyManagerVM
 
    ''' <summary>
    ''' Funzione che salva il file customconfig se sono presenti modifiche
-   ''' </summary>
-   Friend Sub SaveCustomConfigJson()
+   ''' </summary> 
+   Friend Function SaveCustomConfigJson() As Boolean
       ' Controlla se il file JSON è stato modificato
-      If Not m_bIsModifyStrategy Then Return
-      ' Chiede conferma per il salvataggio
-      If EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(62580), EgtMsg(15003), MessageBoxButton.YesNo, MessageBoxImage.Information) = MessageBoxResult.Yes Then
-         m_SelStrategySetup.Write(Map.refGeneralParametersStrategyVM.GeneralParametersList, False)
-      End If
-   End Sub
+      If Not m_bIsModifyStrategy Then Return False
+      Map.refMyMachine.VerifyConfigPageModification()
+      ' Chiedo conferma per il salvataggio
+      Select Case EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(62580), EgtMsg(15003), MessageBoxButton.YesNoCancel, MessageBoxImage.Information)
+         Case MessageBoxResult.Yes
+            If IsNothing(Map.refGeneralParametersStrategyVM) Then
+               Dim GeneralParametersVM As New GeneralParametersStrategyVM()
+               Map.refGeneralParametersStrategyVM.GeneralParametersList = GeneralParametersVM.GeneralParametersList
+            End If
+            m_SelStrategySetup.Write(Map.refGeneralParametersStrategyVM.GeneralParametersList, False)
+            SetbIsModifyStrategy(False)
+            Return True
+         Case MessageBoxResult.No
+            Update()
+            Return False
+         Case MessageBoxResult.Cancel
+            Return True
+      End Select
+      Return True
+   End Function
 
    Friend Sub Update()
       m_StrategySetupList.Clear()
@@ -328,9 +356,23 @@ Public Class StrategyManagerVM
             SetSelStrategySetup(DefaultConfigFile)
          End If
          SetDefaultConfig_IsChecked(True)
+         SetUpdate_Visibility(False)
+         SetbIsModifyStrategy(False)
       End If
    End Sub
 
+   Friend Sub OrderStrategyList(StrategyFeatureList As ObservableCollection(Of StrategyFeature))
+      For Each StrategySetupItem As StrategyFeature In StrategyFeatureList
+         For Each StrategyFeatureItem As Topology In StrategySetupItem.TopologyList
+            Dim OrderStrategyList As List(Of Strategy) = StrategyFeatureItem.StrategyList.OrderBy(Function(s) s.nIndexInList).ToList()
+            StrategyFeatureItem.StrategyList.Clear()
+            For Each OrderStrategyItem As Strategy In OrderStrategyList
+               StrategyFeatureItem.StrategyList.Add(OrderStrategyItem)
+            Next
+         Next
+      Next
+   End Sub
+
 #End Region ' Methods
 
 #Region "COMMANDS"
@@ -356,6 +398,11 @@ Public Class StrategyManagerVM
       SetbIsModifyStrategy(True)
       ' Setto indice per capire che la strategia è stata spostata in ActiveStrategyList
       m_SelTreeItem.SelAvailableStrategy.nIndexInList = 0
+      ' Riallinea tutti gli indici
+      For Index As Integer = 0 To m_SelTreeItem.StrategyList.Count - 1
+         m_SelTreeItem.StrategyList(Index).nIndexInList = Index
+      Next
+      SetUpdate_Visibility(False)
       ' Aggiorno le liste
       m_SelTreeItem.AvailableStrategyList_View.Refresh()
       m_SelTreeItem.ActiveStrategyList_View.Refresh()
@@ -384,6 +431,20 @@ Public Class StrategyManagerVM
       SetbIsModifyStrategy(True)
       ' Setto indice per capire che la strategia è stata spostata in StrategyList
       m_SelTreeItem.SelActiveStrategy.nIndexInList = -1
+      ' Trova l’elemento con indice -1
+      Dim mRemovedItemStrategyList As List(Of Strategy) = m_SelTreeItem.StrategyList.Where(Function(s) s.nIndexInList = -1).ToList()
+      For Each RemovedItemStrategy In mRemovedItemStrategyList
+         m_SelTreeItem.StrategyList.Remove(RemovedItemStrategy)
+      Next
+      ' Riallinea tutti gli indici
+      For Index As Integer = 0 To m_SelTreeItem.StrategyList.Count - 1
+         m_SelTreeItem.StrategyList(Index).nIndexInList = Index
+      Next
+      ' Reinserisco elementi rimossi
+      For Each RemovedItemStrategy In mRemovedItemStrategyList
+         m_SelTreeItem.StrategyList.Add(RemovedItemStrategy)
+      Next
+      SetUpdate_Visibility(False)
       ' Aggiorno le liste
       m_SelTreeItem.AvailableStrategyList_View.Refresh()
       m_SelTreeItem.ActiveStrategyList_View.Refresh()
@@ -489,18 +550,34 @@ Public Class StrategyManagerVM
    Public Sub MoveUpSelectedStrategy()
       ' Controllo se SelectedActiveStrategy se è nullo esco
       If IsNothing(m_SelTreeItem.SelActiveStrategy) Then Return
+      ' Trova l’elemento con indice -1
+      Dim mRemovedItemStrategyList As List(Of Strategy) = m_SelTreeItem.StrategyList.Where(Function(s) s.nIndexInList = -1).ToList()
+      For Each RemovedItemStrategy In mRemovedItemStrategyList
+         m_SelTreeItem.StrategyList.Remove(RemovedItemStrategy)
+      Next
       ' Recupero indice elemento selezionato in lista
       Dim IndexActiveStrategy As Integer = m_SelTreeItem.StrategyList.IndexOf(m_SelTreeItem.SelActiveStrategy)
       ' Recupero indice elemento selezionato in lista
       Dim NewIndexActiveStrategy As Integer = IndexActiveStrategy - 1
+      ' Setto indice per capire che la strategia è stata spostata in StrategyList
+      m_SelTreeItem.SelActiveStrategy.nIndexInList = NewIndexActiveStrategy
       ' Se l'indice è maggiore di 0
       If IndexActiveStrategy > 0 Then
          ' Muovo l'elemento selezionato sopra di 1
          m_SelTreeItem.StrategyList.Move(IndexActiveStrategy, NewIndexActiveStrategy)
       End If
+      ' Riallinea tutti gli indici
+      For Index As Integer = 0 To m_SelTreeItem.StrategyList.Count - 1
+         m_SelTreeItem.StrategyList(Index).nIndexInList = Index
+      Next
+      ' Reinserisco elementi rimossi
+      For Each RemovedItemStrategy In mRemovedItemStrategyList
+         m_SelTreeItem.StrategyList.Add(RemovedItemStrategy)
+      Next
       ' Setto a true booleano per modifica
       SetbIsModifyStrategy(True)
       ' Aggiorno la lista
+      m_SelTreeItem.AvailableStrategyList_View.Refresh()
       m_SelTreeItem.ActiveStrategyList_View.Refresh()
    End Sub
 
@@ -522,18 +599,34 @@ Public Class StrategyManagerVM
    ''' </summary>
    Public Sub MoveDownSelectedStrategy()
       If IsNothing(m_SelTreeItem.SelActiveStrategy) Then Return
+      ' Trova l’elemento con indice -1
+      Dim mRemovedItemStrategyList As List(Of Strategy) = m_SelTreeItem.StrategyList.Where(Function(s) s.nIndexInList = -1).ToList()
+      For Each RemovedItemStrategy In mRemovedItemStrategyList
+         m_SelTreeItem.StrategyList.Remove(RemovedItemStrategy)
+      Next
       ' Recupero indice elemento selezionato in lista
       Dim IndexActiveStrategy As Integer = m_SelTreeItem.StrategyList.IndexOf(m_SelTreeItem.SelActiveStrategy)
       ' Recupero indice elemento selezionato in lista
       Dim NewIndexActiveStrategy As Integer = IndexActiveStrategy + 1
+      ' Setto indice per capire che la strategia è stata spostata in StrategyList
+      m_SelTreeItem.SelActiveStrategy.nIndexInList = NewIndexActiveStrategy
       ' Se l'indice è maggiore di 0
       If IndexActiveStrategy >= 0 Then
          ' Muovo l'elemento selezionato sopra di 1
          m_SelTreeItem.StrategyList.Move(IndexActiveStrategy, NewIndexActiveStrategy)
       End If
+      ' Riallinea tutti gli indici
+      For Index As Integer = 0 To m_SelTreeItem.StrategyList.Count - 1
+         m_SelTreeItem.StrategyList(Index).nIndexInList = Index
+      Next
+      ' Reinserisco elementi rimossi
+      For Each RemovedItemStrategy In mRemovedItemStrategyList
+         m_SelTreeItem.StrategyList.Add(RemovedItemStrategy)
+      Next
       ' Setto a true booleano per modifica
       SetbIsModifyStrategy(True)
       ' Aggiorno la lista
+      m_SelTreeItem.AvailableStrategyList_View.Refresh()
       m_SelTreeItem.ActiveStrategyList_View.Refresh()
    End Sub
 
@@ -599,6 +692,68 @@ Public Class StrategyManagerVM
 
 #End Region    ' ConfigurationParametersCommand
 
+#Region "UpdateFeatureCommand"
+
+   Public ReadOnly Property UpdateFeatureCommand As ICommand
+      Get
+         If m_cmdUpdateFeatureCommand Is Nothing Then
+            m_cmdUpdateFeatureCommand = New Command(AddressOf UpdateFeature)
+         End If
+         Return m_cmdUpdateFeatureCommand
+      End Get
+   End Property
+
+   Public Sub UpdateFeature()
+      Select Case EgtBEAMWALL.Core.EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(62591) & " " & m_SelTreeItem.SelParamStrategy.sStrategyName & " " & EgtMsg(62592) & " " & m_SelTreeItem.sName & " ?", EgtMsg(15003), MessageBoxButton.YesNo, MessageBoxImage.Information)
+         Case MessageBoxResult.Yes
+            For Each StrategyFeatureItem As StrategyFeature In m_SelStrategySetup.StrategyFeatureList
+               For Each TopologyItem As Topology In StrategyFeatureItem.TopologyList
+                  If TopologyItem.sName = m_SelTreeItem.sName Then
+                     For Each StrategyItem As Strategy In TopologyItem.StrategyList
+                        Dim Strategy As Strategy = m_SelTreeItem.StrategyList.FirstOrDefault(Function(s) s.sStrategyId = StrategyItem.sStrategyId AndAlso s.sStrategyName = StrategyItem.sStrategyName)
+                        If IsNothing(Strategy) Then Continue For
+                        For Each ParamItem As StrategyParameter In StrategyItem.ParameterList
+                           Dim StrategyParam As StrategyParameter = Strategy.ParameterList.FirstOrDefault(Function(p) p.sName = ParamItem.sName)
+                           If IsNothing(StrategyParam) Then Continue For
+                           Select Case ParamItem.GetType()
+                              Case GetType(BooleanStrategyParameter)
+                                 Dim bValue As Boolean = DirectCast(StrategyParam, BooleanStrategyParameter).bValue
+                                 DirectCast(ParamItem, BooleanStrategyParameter).SetValue(bValue)
+                              Case GetType(DoubleStrategyParameter)
+                                 Dim sValue As String = DirectCast(StrategyParam, DoubleStrategyParameter).sValue
+                                 DirectCast(ParamItem, DoubleStrategyParameter).SetValue(sValue)
+                              Case GetType(ComboStrategyParameter)
+                                 Dim selValue As ComboParameter = Nothing
+                                 If IsNothing(DirectCast(StrategyParam, ComboStrategyParameter).SelValue) Then
+                                    selValue = DirectCast(ParamItem, ComboStrategyParameter).SelValue
+                                 Else
+                                    selValue = DirectCast(StrategyParam, ComboStrategyParameter).SelValue
+                                 End If
+                                 DirectCast(ParamItem, ComboStrategyParameter).SetSelValue(selValue.sValue)
+                              Case GetType(StringStrategyParameter)
+                                 Dim sValue As String = DirectCast(StrategyParam, StringStrategyParameter).sValue
+                                 DirectCast(ParamItem, StringStrategyParameter).SetValue(sValue)
+                              Case GetType(ListStrategyParameter)
+                                 For Each ToolParamItem In DirectCast(StrategyParam, ListStrategyParameter).ListValue
+                                    Dim NewToolParamItem As ToolParameter = DirectCast(ParamItem, ListStrategyParameter).ListValue.FirstOrDefault(Function(x) x.sName = ToolParamItem.sName)
+                                    NewToolParamItem.bIsActive = ToolParamItem.bIsActive
+                                 Next
+                                 DirectCast(ParamItem, ListStrategyParameter).SelValue = DirectCast(ParamItem, ListStrategyParameter).ListValue.FirstOrDefault(Function(x) x.bIsActive)
+                                 DirectCast(ParamItem, ListStrategyParameter).ActiveToolList_View.Refresh()
+                                 DirectCast(ParamItem, ListStrategyParameter).AvailableToolList_View.Refresh()
+                           End Select
+                        Next
+                     Next
+                  End If
+               Next
+            Next
+         Case MessageBoxResult.No
+            Return
+      End Select
+   End Sub
+
+#End Region    ' UpdateFeatureCommand
+
 #End Region    ' Commands
 
 End Class
@@ -973,6 +1128,8 @@ Public Class Topology
       End Get
       Set(value As Strategy)
          m_SelParamStrategy = value
+         ' Gestisco visibilita' pulsante Update Feature
+         Map.refStrategyManagerVM.SetUpdate_Visibility(If(Map.refStrategyManagerVM.SelTreeItem.sName <> "Feature", True, False))
          NotifyPropertyChanged(NameOf(SelParamStrategy))
       End Set
    End Property
@@ -990,10 +1147,7 @@ Public Class Topology
       m_sName = JsonTopology.sName
       m_sImage = JsonTopology.sImage
       m_StrategyList = New ObservableCollection(Of Strategy)(JsonTopology.StrategyList.Select(Function(jsonStrategy) New Strategy(jsonStrategy)))
-      m_AvailableStrategyList_View = New ListCollectionView(StrategyList)
-      m_AvailableStrategyList_View.Filter = AddressOf AvailableStrategyFilter
-      m_ActiveStrategyList_View = New ListCollectionView(StrategyList)
-      m_ActiveStrategyList_View.Filter = AddressOf ActiveStrategyFilter
+      CreateStrategyViews()
       NotifyPropertyChanged(NameOf(StrategyList))
    End Sub
 
@@ -1012,13 +1166,16 @@ Public Class Topology
    Friend Sub CreateStrategyViews()
       m_AvailableStrategyList_View = New ListCollectionView(StrategyList)
       m_AvailableStrategyList_View.Filter = AddressOf AvailableStrategyFilter
+      m_AvailableStrategyList_View.SortDescriptions.Add(New SortDescription("nIndexInList", ListSortDirection.Ascending))
       m_ActiveStrategyList_View = New ListCollectionView(StrategyList)
       m_ActiveStrategyList_View.Filter = AddressOf ActiveStrategyFilter
+      m_ActiveStrategyList_View.SortDescriptions.Add(New SortDescription("nIndexInList", ListSortDirection.Ascending))
    End Sub
 
    Friend Function Serialize() As JsonTopology
       Dim JsonTopology As New JsonTopology(m_sName)
-      For Each Strategy In m_StrategyList
+      Dim mOrderStrategyList As IOrderedEnumerable(Of Strategy) = m_StrategyList.OrderBy(Function(s) s.nIndexInList)
+      For Each Strategy As Strategy In mOrderStrategyList
          JsonTopology.StrategyList.Add(Strategy.Serialize())
       Next
       Return JsonTopology
@@ -1262,6 +1419,28 @@ Public MustInherit Class StrategyParameter
       End Set
    End Property
 
+   Private m_idDescriptionShortMsg As Integer
+   Public Property idDescriptionShortMsg As Integer
+      Get
+         Return m_idDescriptionShortMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionShortMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionShortMsg))
+      End Set
+   End Property
+
+   Private m_idDescriptionLongMsg As Integer
+   Public Property idDescriptionLongMsg As Integer
+      Get
+         Return m_idDescriptionLongMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionLongMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionLongMsg))
+      End Set
+   End Property
+
    Private m_sMessageId As String
    Public Property sMessageId As String
       Get
@@ -1300,6 +1479,8 @@ Public MustInherit Class StrategyParameter
       m_sSubType = JsonGenericParameter.sSubType
       m_sDescriptionShort = JsonGenericParameter.sDescriptionShort
       m_sDescriptionLong = JsonGenericParameter.sDescriptionLong
+      m_idDescriptionShortMsg = JsonGenericParameter.idDescriptionShortMsg
+      m_idDescriptionLongMsg = JsonGenericParameter.idDescriptionLongMsg
       m_sMessageId = JsonGenericParameter.sMessageId
       m_sMinUserLevel = JsonGenericParameter.sMinUserLevel
    End Sub
@@ -1330,6 +1511,7 @@ Public Class BooleanStrategyParameter
             SetbIsBooleanModify(True)
          End If
          m_bValue = value
+         NotifyPropertyChanged(NameOf(bValue))
       End Set
    End Property
    Friend Sub SetValue(bValue As Boolean)
@@ -1414,6 +1596,7 @@ Public Class DoubleStrategyParameter
             If m_dValue <> dValue Then
                Map.refStrategyManagerVM.SetbIsModifyStrategy(True)
                SetbIsDoubleModify(True)
+               NotifyPropertyChanged(NameOf(sValue))
             End If
             m_dValue = dValue
          Else
@@ -1510,6 +1693,7 @@ Public Class StringStrategyParameter
             SetbIsStringModify(True)
          End If
          m_sValue = value
+         NotifyPropertyChanged(NameOf(sValue))
       End Set
    End Property
    Friend Sub SetValue(dValue As String)
@@ -1603,6 +1787,7 @@ Public Class ComboStrategyParameter
             End If
          End If
          m_SelValue = value
+         NotifyPropertyChanged(NameOf(SelValue))
       End Set
    End Property
    Friend Sub SetSelValue(sValue As String)
@@ -1927,7 +2112,7 @@ Public Class ListStrategyParameter
    End Property
 
    Friend Sub CloseToolList()
-      SetAvailableToolListVisibility(True)
+      SetAvailableToolListVisibility(False)
       SetOpenToolListIsEnable(True)
    End Sub
 
@@ -2022,6 +2207,28 @@ Public Class ComboParameter
       End Set
    End Property
 
+   Private m_idDescriptionShortMsg As Integer
+   Public Property idDescriptionShortMsg As Integer
+      Get
+         Return m_idDescriptionShortMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionShortMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionShortMsg))
+      End Set
+   End Property
+
+   Private m_idDescriptionLongMsg As Integer
+   Public Property idDescriptionLongMsg As Integer
+      Get
+         Return m_idDescriptionLongMsg
+      End Get
+      Set(value As Integer)
+         m_idDescriptionLongMsg = value
+         NotifyPropertyChanged(NameOf(idDescriptionLongMsg))
+      End Set
+   End Property
+
    Private m_sMessageId As String
    Public Property sMessageId As String
       Get
@@ -2046,6 +2253,8 @@ Public Class ComboParameter
          m_sValue = JsonChoiceParameter.sValue
          m_sDescriptionShort = JsonChoiceParameter.sDescriptionShort
          m_sDescriptionLong = JsonChoiceParameter.sDescriptionLong
+         m_idDescriptionShortMsg = JsonChoiceParameter.idDescriptionShortMsg
+         m_idDescriptionLongMsg = JsonChoiceParameter.idDescriptionLongMsg
          m_sMessageId = JsonChoiceParameter.sMessageId
       End If
    End Sub

EgtBEAMWALL.Optimizer/StrategyManager/StrategyV.xaml

@@ -4,7 +4,7 @@
       xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer"
       Height="{Binding ActualHeight, ElementName=StrategyFeature_TreeView}"
       Style="{StaticResource Strategy_Grid}">
-   
+
    <Grid.ColumnDefinitions>
       <ColumnDefinition Width="1*"/>
       <ColumnDefinition Width="Auto"/>
@@ -70,7 +70,7 @@
          </ListBox.ItemContainerStyle>
       </ListBox>
    </Border>
-
+   
    <StackPanel Grid.Column="3"
                Style="{StaticResource Strategy_StackPanel}">
       <Button Command="{Binding MoveUpSelectedStrategyCommand}"

EgtBEAMWALL.Optimizer/SupervisorCommThread/SupervisorComm.vb

@@ -33,10 +33,10 @@ Public Class SupervisorComm
                Select Case Message.ItemType
                   Case StatusMapItemType.Comm
                      Select Case Message.Operation
-                        Case StatusMapOpType.OpenPageInViewOptimRequest
-                           Map.refMainMenuVM.OpenPageFromSupervisor(Math.Abs(Message.ItemId))
                         Case StatusMapOpType.ChangeProdInOptimizerRequest
                            Map.refProdManagerVM.OpenProjectFromSupervisor(Message.ItemId)
+                        Case StatusMapOpType.OpenPageInViewOptimRequest
+                           Map.refMainMenuVM.OpenPageFromSupervisor(Math.Abs(Message.ItemId))
                      End Select
                End Select
             Next

EgtBEAMWALL.Optimizer/Utility/Configuration.vb

@@ -1,7 +1,5 @@
 Imports System.IO
 Imports System.Net.Mail
-Imports System.Reflection
-Imports System.Runtime.CompilerServices
 Imports System.Text
 Imports EgtBEAMWALL.Core
 Imports EgtUILib
@@ -42,12 +40,15 @@ Module Configuration
          ElseIf ActivePage = Pages.MACHINING AndAlso Not bPreview Then
             sFileName = ProjectManagerVM.CurrProd.sProdDirPath & "\" & ProjectManagerVM.CurrProd.sProdId & " - " & "Statistics.pdf"
          ElseIf ActivePage = Pages.MACHINING AndAlso bPreview Then ' Se la pagina e' 1 e' bPreview e' True creo PDF Optimizer
-            sFileName = Map.refMainWindowVM.MainWindowM.sTempDir & "\Statistics.pdf"
+            sFileName = Map.refMainWindowVM.MainWindowM.sTempDir & "\OptStatistics.pdf"
             PrevSelect()
          End If
-         Dim renderer As New PdfDocumentRenderer() With {
+         Dim renderer As New PdfDocumentRenderer(True) With {
             .Document = document}
          renderer.RenderDocument()
+         renderer.PdfDocument.Options.FlateEncodeMode = PdfSharp.Pdf.PdfFlateEncodeMode.BestCompression
+         renderer.PdfDocument.Options.UseFlateDecoderForJpegImages = PdfSharp.Pdf.PdfUseFlateDecoderForJpegImages.Automatic
+         renderer.PdfDocument.Options.CompressContentStreams = True
          renderer.PdfDocument.Save(sFileName)
          If Not bPreview Then Process.Start(sFileName)
       Catch ex As Exception
@@ -67,51 +68,4 @@ Module Configuration
       EgtZoom(ZM.ALL, True)
    End Sub
 
-   Public Sub SaveEml(message As MailMessage, filename As String)
-      Dim boundary As String = "====BOUNDARY_" & Guid.NewGuid().ToString() & "===="
-      Dim sb As New StringBuilder()
-
-      ' Intestazioni principali
-      sb.AppendLine("To: " & String.Join(";", message.To.Select(Function(t) t.Address)))
-      If message.CC.Count > 0 Then
-         sb.AppendLine("Cc: " & String.Join(";", message.CC.Select(Function(t) t.Address)))
-      End If
-      sb.AppendLine("Subject: " & message.Subject)
-
-      sb.AppendLine("X-Unsent: 1")
-      sb.AppendLine("MIME-Version: 1.0")
-      sb.AppendLine("Content-Type: multipart/mixed; boundary=""" & boundary & """")
-      sb.AppendLine()
-
-      ' Corpo HTML
-      sb.AppendLine("--" & boundary)
-      sb.AppendLine("Content-Type: text/html; charset=utf-8")
-      sb.AppendLine("Content-Transfer-Encoding: quoted-printable")
-      sb.AppendLine()
-      sb.AppendLine(message.Body)
-      sb.AppendLine()
-
-      ' Allegati
-      For Each att As Attachment In message.Attachments
-         Dim ms As New MemoryStream()
-         att.ContentStream.Position = 0
-         att.ContentStream.CopyTo(ms)
-         Dim bytes = ms.ToArray()
-         Dim base64 = Convert.ToBase64String(bytes, Base64FormattingOptions.InsertLineBreaks)
-
-         sb.AppendLine("--" & boundary)
-         sb.AppendLine("Content-Type: " & att.ContentType.MediaType & "; name=""" & att.Name & """")
-         sb.AppendLine("Content-Disposition: attachment; filename=""" & att.Name & """")
-         sb.AppendLine("Content-Transfer-Encoding: base64")
-         sb.AppendLine()
-         sb.AppendLine(base64)
-         sb.AppendLine()
-      Next
-
-      ' Fine MIME
-      sb.AppendLine("--" & boundary & "--")
-      ' Salvataggio file
-      File.WriteAllText(filename, sb.ToString(), Encoding.UTF8)
-   End Sub
-
 End Module