Optimizer 2.7.10.7

-creato nuove tabelle statistiche con nuovo metodo

EgtBEAMWALL.Core/BTLViewModel/BTLFeatureVM.vb

@@ -229,7 +229,6 @@ Public Class BTLFeatureVM
 
    ' funzione che seleziona la feature nella geometria
    Public Sub SelGeomFeature()
-      EgtDeselectAll()
       SelGeomFeature(nFeatureId)
    End Sub
 
@@ -256,6 +255,34 @@ Public Class BTLFeatureVM
       End If
    End Sub
 
+   ' funzione che seleziona la feature nella geometria
+   Public Sub DeselGeomFeature()
+      DeselGeomFeature(nFeatureId)
+   End Sub
+
+   Private Sub DeselGeomFeature(nMyFeatureId As Integer)
+      EgtDeselectObj(nMyFeatureId)
+      Dim sVal As String = ""
+      If EgtGetInfo(nMyFeatureId, BTL_FTR_ADJID, sVal) Then
+         Dim vAdjId() As String = sVal.Split(","c)
+         For Each sAdjId In vAdjId
+            Dim nAdjId As Integer
+            If Integer.TryParse(sAdjId, nAdjId) Then
+               DeselGeomFeature(nMyFeatureId + nAdjId)
+            End If
+         Next
+      End If
+      If EgtGetInfo(nMyFeatureId, BTL_FTR_AUXID, sVal) Then
+         Dim vAuxId() As String = sVal.Split(","c)
+         For Each sAuxId In vAuxId
+            Dim nAuxId As Integer
+            If Integer.TryParse(sAuxId, nAuxId) Then
+               EgtDeselectObj(nMyFeatureId + nAuxId)
+            End If
+         Next
+      End If
+   End Sub
+
    Public Overridable Sub RefreshFeature()
    End Sub
 

EgtBEAMWALL.Core/BeamMachiningsWindow/OnlyProdBeamMachiningsWindowV.xaml

@@ -39,12 +39,7 @@
                                BindingColumns="{Binding BeamMachiningsColumns}"
                                AlternatingRowBackground="{StaticResource BeamWall_LinkWater}"
                                AlternationCount="2"
-                               ColumnHeaderBackground="{StaticResource BeamWall_Teal}"
-                               ColumnHeaderForeground="{StaticResource BeamWall_White}"
-                               ColumnHeaderHorizontalContentAlignment="Center"
-                               ColumnHeaderFontWeight="Bold"
-                               ColumnHeaderFontSize="15"
-                               ColumnHeaderPadding="0,2,0,2"
+                               ColumnHeaderStyle="{StaticResource Main_DataGridColumnHeader}"
                                CellStyle="{StaticResource CellDataGrid_CustomHighLight}"
                                Style="{StaticResource DataGrid_OnlyProd}">
 

EgtBEAMWALL.Core/CALCPanel/CalcIntegration.vb

@@ -23,6 +23,10 @@ Public Module CalcIntegration
       POINT_CLOUD = 5
       RAWPART = 6
       EDIT = 7
+      CHECKNOSIM = 8
+      TOPOLOGY = 9
+      OPENTOOLDB = 11 ' Non utilizzato
+      OPENMACHINIGDB = 12 ' Non utilizzato
    End Enum
 
    Private Structure MyProc
@@ -160,7 +164,7 @@ Public Module CalcIntegration
                         nActProc += 1
                      End If
                   Else
-                     If vBar(nCurrBar).nCmdType = CmdTypes.CHECK OrElse vBar(nCurrBar).nCmdType = CmdTypes.CHECKGEN Then
+                     If vBar(nCurrBar).nCmdType = CmdTypes.CHECK OrElse vBar(nCurrBar).nCmdType = CmdTypes.CHECKGEN OrElse vBar(nCurrBar).nCmdType = CmdTypes.CHECKNOSIM Then
                         RaiseEvent Calc_ProcessResult(Nothing, New CalcResultEventArgs(vBar(nCurrBar))) 'ProcessResults(vBar(nCurrBar))
                      ElseIf vBar(nCurrBar).nCmdType = CmdTypes.GENERATE Then
                         RaiseEvent Calc_ProcessResult(Nothing, New CalcResultEventArgs(vBar(nCurrBar))) 'ProcessResults(vBar(nCurrBar))
@@ -175,7 +179,7 @@ Public Module CalcIntegration
                   ' se terminato con successo
                   If vProc(j).Proc.ExitCode = 0 Then
                      ' salvo il risultato
-                     If vBar(vProc(j).nBar).nCmdType = CmdTypes.CHECK OrElse vBar(vProc(j).nBar).nCmdType = CmdTypes.CHECKGEN Then
+                     If vBar(vProc(j).nBar).nCmdType = CmdTypes.CHECK OrElse vBar(vProc(j).nBar).nCmdType = CmdTypes.CHECKGEN OrElse vBar(vProc(j).nBar).nCmdType = CmdTypes.CHECKNOSIM Then
                         RaiseEvent Calc_ProcessResult(Nothing, New CalcResultEventArgs(vBar(vProc(j).nBar))) ' ProcessResults(vBar(vProc(j).nBar))
                      ElseIf vBar(vProc(j).nBar).nCmdType = CmdTypes.GENERATE Then
                         RaiseEvent Calc_ProcessResult(Nothing, New CalcResultEventArgs(vBar(vProc(j).nBar))) ' ProcessResults(vBar(vProc(j).nBar))
@@ -197,7 +201,7 @@ Public Module CalcIntegration
                      ' altrimenti (errore generico di esecuzione)
                   Else
                      ' salvo il risultato
-                     If vBar(vProc(j).nBar).nCmdType = CmdTypes.CHECK OrElse vBar(vProc(j).nBar).nCmdType = CmdTypes.CHECKGEN Then
+                     If vBar(vProc(j).nBar).nCmdType = CmdTypes.CHECK OrElse vBar(vProc(j).nBar).nCmdType = CmdTypes.CHECKGEN OrElse vBar(vProc(j).nBar).nCmdType = CmdTypes.CHECKNOSIM Then
                         RaiseEvent Calc_ProcessResult(Nothing, New CalcResultEventArgs(vBar(vProc(j).nBar))) ' ProcessResults(vBar(vProc(j).nBar))
                      ElseIf vBar(vProc(j).nBar).nCmdType = CmdTypes.GENERATE Then
                         RaiseEvent Calc_ProcessResult(Nothing, New CalcResultEventArgs(vBar(vProc(j).nBar))) ' ProcessResults(vBar(vProc(j).nBar))
@@ -321,7 +325,7 @@ Public Module CalcIntegration
       RaiseEvent Calc_Ended(Nothing, New CalcEndEventArgs(If(bIsSimulation And Not bIsSimulationVerifyed, CmdTypes.SIMULATE, CmdTypes.CHECKGEN), If(bAllKO, CalcEndEventArgs.Results.ERROR_, CalcEndEventArgs.Results.OK)))
    End Sub
 
-   Private Function CreateNewProjectFromPart(nPartId As Integer, sProjDirPath As String) As String
+   Public Function CreateNewProjectFromPart(nPartId As Integer, sProjDirPath As String) As String
 
       ' Aggiorno identificativi per segnalazione errori
       UpdateCutIdAndTaskId(nPartId)
@@ -350,7 +354,7 @@ Public Module CalcIntegration
       Return If(bOk, sPartFilePath, String.Empty)
    End Function
 
-   Private Function CreateNewProjectFromMachGroup(nMachGroupId As Integer, sProjDirPath As String, nGlobState As Integer) As String
+   Public Function CreateNewProjectFromMachGroup(nMachGroupId As Integer, sProjDirPath As String, nGlobState As Integer) As String
       ' aggiorno cutid e taskid solo fuori dal supervisore o se pezzo ricalcolato
       If Not m_bIsSupervisor OrElse nGlobState = CalcStates.NOTCALCULATED Then
          Dim DisableMgr As DisableModifiedMgr = Nothing
@@ -389,9 +393,12 @@ Public Module CalcIntegration
       Dim sMachGroupName As String = ""
       EgtGetMachGroupName(nMachGroupId, sMachGroupName)
       Dim sMachGroupFilePath As String = sProjDirPath & "\" & sMachGroupName & ".bwe"
-      If EgtSaveObjToFile(nMachGroupId, sMachGroupFilePath, NGE.CMPTEXT) Then
+      If EgtSaveMachGroupToFile(nMachGroupId, {EgtGetFirstNameInGroup(GDB_ID.ROOT, BTLINFO), EgtGetFirstNameInGroup(GDB_ID.ROOT, PROJECTINFO)}, sMachGroupFilePath, NGE.CMPTEXT) Then
          Return sMachGroupFilePath
       End If
+      'If EgtSaveObjToFile(nMachGroupId, sMachGroupFilePath, NGE.CMPTEXT) Then
+      '   Return sMachGroupFilePath
+      'End If
       Return String.Empty
    End Function
 

EgtBEAMWALL.Core/ConfigurationPage/OnlyProdGeneral_ConfigurationPageV.xaml

@@ -119,6 +119,12 @@
             </StackPanel>
          </Grid>
       </GroupBox>
+      <UniformGrid Columns="2"
+                   Margin="0,5,0,0">
+         <TextBlock Text="Importa BTL con verifica" VerticalAlignment="Center" Foreground="{StaticResource BeamWall_Corduroy}"/>
+         <CheckBox IsChecked="{Binding bVerifyImportBTL_IsChecked}"
+                   Margin="0,5,0,0"/>
+      </UniformGrid>
    </StackPanel>
 
 </Grid>

EgtBEAMWALL.Core/Constants/ConstBeam.vb

@@ -120,6 +120,7 @@
    Public Const PROJ As String = "PROJ"
    Public Const FILENAMESEPARATOR As Char = "^"c
    Public Const BTLINFO As String = "BtlInfo"
+   Public Const PROJECTINFO As String = "ProjectInfo"
 
    ' layer per assemblato
    Public Const ASSEBASE As String = "AsseBase"

EgtBEAMWALL.Core/Constants/ConstGen.vb

@@ -28,6 +28,7 @@ Public Module ConstGen
 
    ' Pagine del programma
    Public Enum Pages As Integer
+      EMPTY = -1
       VIEW = 0
       MACHINING = 1
       SUPERVISOR = 2
@@ -35,6 +36,7 @@ Public Module ConstGen
       INPUTS = 4
       OUTPUTS = 5
       ONLYPRODPAGE = 6
+      CONFIGPROGRAM = 7
    End Enum
 
    ' Abilitazioni licenza
@@ -55,7 +57,7 @@ Public Module ConstGen
    End Enum
 
    ' File di log generale
-   Public Const VWOPTGENLOG_FILE_NAME As String = "EgtBEAMWALL.ViewerOptimizerLog#.txt"
+   Public Const VWOPTGENLOG_FILE_NAME As String = "EgtBEAMWALL.OptimizerLog#.txt"
    Public Const SUPGENLOG_FILE_NAME As String = "EgtBEAMWALL.SupervisorLog#.txt"
 
    ' Sottodirettorio di configurazione
@@ -76,14 +78,12 @@ Public Module ConstGen
    Public Const WAREHOUSE_DIR As String = "Warehouse"
    ' Sottodirettorio per lavorazioni travi
    Public Const BEAM_DIR As String = "Beam"
+   ' Sottodirettorio per lavorazioni travi nuovo
+   Public Const BEAMNEW_DIR As String = "BeamNew"
    ' Sottodirettorio per lavorazioni pareti
    Public Const WALL_DIR As String = "Wall"
-   ' Sottodirettorio per setup strategie
-   Public Const AISETUP_DIR As String = "AISetup"
-   ' Sottodirettorio per automarismo strategie
-   Public Const STRATEGIES_DIR As String = "Strategies"
-   ' File contenente lista strategie per feature/topologia
-   Public Const AVAILABLESTRATEGYLIST_FILE As String = "AvailableStrategyList"
+   ' Sottodirettorio per lavorazioni pareti nuovo
+   Public Const WALLNEW_DIR As String = "WallNew"
    ' Sottodirettorio di default per il salvataggio con nome
    Public Const SAVE_DFL_NAMEDIR As String = "MyProjects"
    ' Sottodirettorio di default per le macchine
@@ -96,5 +96,16 @@ Public Module ConstGen
    Public Const ZEBRAPRINTER_EXE As String = "ZebraPrinterUtilitiesD32.exe"
    ' Sottodirettorio di default per macro
    Public Const MACRO_DFL_DIR As String = "Macro"
-
+   ' Sottodirettorio per setup strategie
+   Public Const AISETUP_DIR As String = "AISetup"
+   ' Sottodirettorio per automatismo strategie
+   Public Const STRATEGIES_DIR As String = "Strategies"
+   ' Sottodirettorio per automatismo strategie standard
+   Public Const STANDARD_DIR As String = "Standard"
+   ' File contenente lista strategie per feature/topologia
+   Public Const AVAILABLESTRATEGYLIST_FILE As String = "AvailableStrategyList"
+   ' File contente tutte le feature 
+   Public Const CUSTOMERCONFIG_FILE As String = "CustomerConfig"
+   ' File contenente i parametri generali
+   Public Const GENERALPARAMETERS_FILE As String = "GeneralParameters"
 End Module

EgtBEAMWALL.Core/Constants/ConstIni.vb

@@ -35,6 +35,8 @@ Public Module ConstIni
    Public Const K_FASTPRODUCE As String = "FastProduce"
    Public Const K_ADDPROJ As String = "AddProj"
    Public Const K_PROJECTMODE As String = "ProjectMode"
+   Public Const K_CAMEXEPATH As String = "CAMExePath"
+   Public Const K_PIPELUADIR As String = "PipeLuaDir"
 
    Public Const K_SHOWBUILDING As String = "ShowBuilding"
 
@@ -50,14 +52,21 @@ Public Module ConstIni
    Public Const K_EXPORTBWE As String = "ExpBwe"
 
    Public Const S_BEAM As String = "Beam"
+   Public Const S_BEAMNEW As String = "BeamNew"
    Public Const K_CALCPATH As String = "CalcPath"
    Public Const K_BEAMBASEDIR As String = "BaseDir"
    Public Const K_BEAMBWEEXEC As String = "BweExec"
 
    Public Const S_WALL As String = "Wall"
+   Public Const S_WALLNEW As String = "WallNew"
    Public Const K_WALLBASEDIR As String = "BaseDir"
    Public Const K_WALLBWEEXEC As String = "BweExec"
 
+   Public Const S_EXECGROUP As String = "ExecGroup"
+   Public Const K_ENVIRONMENT As String = "Environment"
+   Public Const K_PIPELUAFILE As String = "PipeLuaFile"
+   Public Const K_MAXCAMINSTANCES As String = "MaxCAMInstances"
+
    Public Const S_MACHINELOGFILTER As String = "MachineLogFilters"
    Public Const K_PARTEVENTTYPE As String = "PartEventType"
    Public Const K_ENTITYTYPE As String = "EntityType"
@@ -119,4 +128,10 @@ Public Module ConstIni
    ' Server Address
    Public Const K_SERVERADDRESS As String = "ServerAddressRelease"
    Public Const K_BEAMWALL As String = "EgtBeamWall"
+
+   Public Const S_STRATEGY As String = "Strategy"
+   Public Const K_PARAMPASSWORD As String = "ParamPassword"
+   Public Const K_DEFAULTCONFIG As String = "DefaultConfiguration"
+
+   Public Const K_VERIFYIMPORTBTL As String = "VerifyImportBTL"
 End Module

EgtBEAMWALL.Core/EgtBEAMWALL.Core.vbproj

@@ -60,7 +60,7 @@
       <HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.8.0.0\lib\net462\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
     </Reference>
     <Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
-      <HintPath>..\packages\Newtonsoft.Json.13.0.1\lib\net45\Newtonsoft.Json.dll</HintPath>
+      <HintPath>..\packages\Newtonsoft.Json.13.0.4\lib\net45\Newtonsoft.Json.dll</HintPath>
     </Reference>
     <Reference Include="PresentationCore" />
     <Reference Include="PresentationFramework" />
@@ -137,12 +137,6 @@
     <Compile Include="ConfigurationPage\Machine_ConfigurationPageV.xaml.vb">
       <DependentUpon>Machine_ConfigurationPageV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="ConfigurationPage\OnlyProdQParameter_ConfigurationPageV.xaml.vb">
-      <DependentUpon>OnlyProdQParameter_ConfigurationPageV.xaml</DependentUpon>
-    </Compile>
-    <Compile Include="ConfigurationPage\QParameter_ConfigurationPageV.xaml.vb">
-      <DependentUpon>QParameter_ConfigurationPageV.xaml</DependentUpon>
-    </Compile>
     <Compile Include="Constants\ConstColumns.vb" />
     <Compile Include="Constants\ConstDataGridColumnsIni.vb" />
     <Compile Include="Constants\ConstDims.vb" />
@@ -222,12 +216,6 @@
     <Compile Include="OpenProjectFileDialog\OnlyProdOpenProjectFileDialogV.xaml.vb">
       <DependentUpon>OnlyProdOpenProjectFileDialogV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="SetUpWindow\OnlyProdSetUpWindowV.xaml.vb">
-      <DependentUpon>OnlyProdSetUpWindowV.xaml</DependentUpon>
-    </Compile>
-    <Compile Include="ToolsDbWindow\OnlyProdToolDbWindowV.xaml.vb">
-      <DependentUpon>OnlyProdToolDbWindowV.xaml</DependentUpon>
-    </Compile>
     <Compile Include="Utility\Configuration.vb" />
     <Compile Include="ProjectFileVM\ProdItem.vb" />
     <Compile Include="Utility\DimensionsIniFile.vb" />
@@ -326,14 +314,6 @@
       <SubType>Designer</SubType>
       <Generator>XamlIntelliSenseFileGenerator</Generator>
     </Page>
-    <Page Include="ConfigurationPage\OnlyProdQParameter_ConfigurationPageV.xaml">
-      <Generator>MSBuild:Compile</Generator>
-      <SubType>Designer</SubType>
-    </Page>
-    <Page Include="ConfigurationPage\QParameter_ConfigurationPageV.xaml">
-      <SubType>Designer</SubType>
-      <Generator>XamlIntelliSenseFileGenerator</Generator>
-    </Page>
     <Page Include="EgtColorPicker\EgtColorPickerV.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
@@ -406,14 +386,6 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="SetUpWindow\OnlyProdSetUpWindowV.xaml">
-      <SubType>Designer</SubType>
-      <Generator>MSBuild:Compile</Generator>
-    </Page>
-    <Page Include="ToolsDbWindow\OnlyProdToolDbWindowV.xaml">
-      <SubType>Designer</SubType>
-      <Generator>MSBuild:Compile</Generator>
-    </Page>
     <Page Include="ViewPanel\ViewPanelV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>

EgtBEAMWALL.Core/EgtDataGrid/EgtDataGrid.xaml

@@ -1,20 +1,6 @@
 <DataGrid x:Class="EgtDataGrid"
-          x:Name="CurrDataGrid"
           xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
           xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
-   <DataGrid.ColumnHeaderStyle>
-      <Style TargetType="{x:Type DataGridColumnHeader}">
-         <EventSetter Event="SizeChanged" Handler="Cell_SizedChanged" />
-         <EventSetter Event="MouseRightButtonDown" Handler="Cell_MouseRightButtonDown" />
-         <!-- Propieta' Header DataGrid -->
-         <Setter Property="Background" Value="{Binding ColumnHeaderBackground, ElementName=CurrDataGrid}" />
-         <Setter Property="Foreground" Value="{Binding ColumnHeaderForeground, ElementName=CurrDataGrid}" />
-         <Setter Property="FontWeight" Value="{Binding ColumnHeaderFontWeight, ElementName=CurrDataGrid}" />
-         <Setter Property="FontSize" Value="{Binding ColumnHeaderFontSize, ElementName=CurrDataGrid}" />
-         <Setter Property="HorizontalContentAlignment" Value="{Binding ColumnHeaderHorizontalContentAlignment, ElementName=CurrDataGrid}" />
-         <Setter Property="Padding" Value="{Binding ColumnHeaderPadding, ElementName=CurrDataGrid}" />
-      </Style>
-   </DataGrid.ColumnHeaderStyle>
 </DataGrid>
 
 

EgtBEAMWALL.Core/EgtDataGrid/EgtDataGrid.xaml.vb

@@ -6,6 +6,7 @@ Imports System.Windows.Controls
 Imports System.Windows.Controls.Primitives
 Imports System.Windows.Data
 Imports System.Windows.Media
+Imports System.Windows.Threading
 Imports EgtUILib
 Imports EgtWPFLib5
 
@@ -25,6 +26,7 @@ Public Class EgtDataGrid
 
    Sub New()
       InitializeComponent()
+      AddHandler Columns.CollectionChanged, AddressOf Columns_CollectionChanged
    End Sub
 
    Public Shadows Property BindingColumns As ObservableCollection(Of EgtDataGridColumn)
@@ -70,6 +72,78 @@ Public Class EgtDataGrid
       End If
    End Sub
 
+   Private Sub Columns_CollectionChanged(sender As Object, e As NotifyCollectionChangedEventArgs)
+      If e.Action = NotifyCollectionChangedAction.Add Then
+         For Each newColumn As DataGridColumn In e.NewItems
+            Dispatcher.BeginInvoke(New Action(Sub()
+                                                 HookHeaderForColumn(newColumn)
+                                              End Sub), DispatcherPriority.Loaded)
+         Next
+      ElseIf e.Action = NotifyCollectionChangedAction.Remove Then
+         For Each removedColumn As DataGridColumn In e.OldItems
+            Dispatcher.BeginInvoke(New Action(Sub()
+                                                 UnhookHeaderForColumn(removedColumn)
+                                              End Sub), DispatcherPriority.Loaded)
+         Next
+      End If
+   End Sub
+
+   Private Sub HookHeaderForColumn(ByVal column As DataGridColumn)
+      Dim headersPresenter = FindVisualChild(Of DataGridColumnHeadersPresenter)(Me)
+      If headersPresenter Is Nothing Then Return
+
+      For Each header In FindVisualChildren(Of DataGridColumnHeader)(headersPresenter)
+
+         If header.Column Is column Then
+            AddHandler header.SizeChanged, AddressOf ColumnHeader_SizeChanged
+            AddHandler header.MouseRightButtonDown, AddressOf ColumnHeader_MouseRightButtonDown
+            Exit For
+         End If
+      Next
+   End Sub
+
+   Private Sub UnhookHeaderForColumn(ByVal column As DataGridColumn)
+      Dim headersPresenter = FindVisualChild(Of DataGridColumnHeadersPresenter)(Me)
+      If headersPresenter Is Nothing Then Return
+
+      For Each header In FindVisualChildren(Of DataGridColumnHeader)(headersPresenter)
+
+         If header.Column Is column Then
+            RemoveHandler header.SizeChanged, AddressOf ColumnHeader_SizeChanged
+            RemoveHandler header.MouseRightButtonDown, AddressOf ColumnHeader_MouseRightButtonDown
+            Exit For
+         End If
+      Next
+   End Sub
+
+   Private Function FindVisualChild(Of T As DependencyObject)(ByVal parent As DependencyObject) As T
+      Dim tChild As T = Nothing
+
+      For i As Integer = 0 To VisualTreeHelper.GetChildrenCount(parent) - 1
+         Dim child = VisualTreeHelper.GetChild(parent, i)
+         tChild = TryCast(child, T)
+         If tChild IsNot Nothing Then Return tChild
+         Dim result = FindVisualChild(Of T)(child)
+         If result IsNot Nothing Then Return result
+      Next
+
+      Return Nothing
+   End Function
+
+   Private Iterator Function FindVisualChildren(Of T As DependencyObject)(ByVal parent As DependencyObject) As IEnumerable(Of T)
+      Dim tChild As T = Nothing
+
+      For i As Integer = 0 To VisualTreeHelper.GetChildrenCount(parent) - 1
+         Dim child = VisualTreeHelper.GetChild(parent, i)
+         tChild = TryCast(child, T)
+         If tChild IsNot Nothing Then Yield tChild
+
+         For Each descendant In FindVisualChildren(Of T)(child)
+            Yield descendant
+         Next
+      Next
+   End Function
+
    Private Sub collectionChanged(ByVal sender As Object, ByVal e As NotifyCollectionChangedEventArgs)
       Select Case e.Action
          Case NotifyCollectionChangedAction.Add
@@ -78,11 +152,11 @@ Public Class EgtDataGrid
 
                For Each one As EgtDataGridColumn In e.NewItems
                   Try
-                     Dim col As DataGridColumn = CurrDataGrid.FindResource(one.Name)
+                     Dim col As DataGridColumn = Me.FindResource(one.Name)
                      one.InitColumn(col)
-                     CurrDataGrid.Columns.Insert(e.NewStartingIndex, col)
+                     Me.Columns.Insert(e.NewStartingIndex, col)
                      If col.DisplayIndex <> e.NewStartingIndex Then
-                        CurrDataGrid.Columns(e.NewStartingIndex).DisplayIndex = e.NewStartingIndex
+                        Me.Columns(e.NewStartingIndex).DisplayIndex = e.NewStartingIndex
                      End If
                   Catch ex As Exception
                      MessageBox.Show(String.Format(EgtMsg(61883), one.Name, one.ParentDataGridName), EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
@@ -95,34 +169,34 @@ Public Class EgtDataGrid
             If e.OldItems IsNot Nothing Then
 
                For Each one As EgtDataGridColumn In e.OldItems
-                  Dim col As DataGridColumn = CurrDataGrid.FindResource(one.Name)
-                  CurrDataGrid.Columns.Remove(col)
+                  Dim col As DataGridColumn = Me.FindResource(one.Name)
+                  Me.Columns.Remove(col)
                Next
             End If
 
          Case NotifyCollectionChangedAction.Move
-            'Dim col As DataGridColumn = CurrDataGrid.FindResource(BindingColumns(e.OldStartingIndex))
+            'Dim col As DataGridColumn = Me.FindResource(BindingColumns(e.OldStartingIndex))
             'col.DisplayIndex = e.NewStartingIndex
-            CurrDataGrid.Columns.Move(e.OldStartingIndex, e.NewStartingIndex)
-            CurrDataGrid.Columns(e.NewStartingIndex).DisplayIndex = e.NewStartingIndex
-            'Dim x = CurrDataGrid.Columns(e.OldStartingIndex).DisplayIndex
+            Me.Columns.Move(e.OldStartingIndex, e.NewStartingIndex)
+            Me.Columns(e.NewStartingIndex).DisplayIndex = e.NewStartingIndex
+            'Dim x = Me.Columns(e.OldStartingIndex).DisplayIndex
          Case NotifyCollectionChangedAction.Reset
-            CurrDataGrid.Columns.Clear()
+            Me.Columns.Clear()
 
             If e.NewItems IsNot Nothing Then
 
                For Each one As DataGridColumn In e.NewItems
-                  Dim col As DataGridColumn = CurrDataGrid.FindResource(one)
-                  CurrDataGrid.Columns.Add(col)
+                  Dim col As DataGridColumn = Me.FindResource(one)
+                  Me.Columns.Add(col)
                Next
             End If
          Case NotifyCollectionChangedAction.Replace
-            Dim col As DataGridColumn = CurrDataGrid.FindResource(e.NewItems(0))
-            CurrDataGrid.Columns(e.NewStartingIndex) = col
+            Dim col As DataGridColumn = Me.FindResource(e.NewItems(0))
+            Me.Columns(e.NewStartingIndex) = col
       End Select
    End Sub
 
-   Private Sub Cell_SizedChanged(sender As Object, e As SizeChangedEventArgs)
+   Private Sub ColumnHeader_SizeChanged(sender As Object, e As SizeChangedEventArgs)
       ' ad ogni ridimensionamento della cella del ColumnHeader salvo le nuove dimensioni nell'ini
       If Not IsNothing(e.OriginalSource.Column) AndAlso Not IsNothing(BindingColumns(e.OriginalSource.Column.DisplayIndex)) Then
          ' se la colonna corrente è Star ed è preceduta da una colonna Pixel non scrivo le modifiche
@@ -132,17 +206,17 @@ Public Class EgtDataGrid
       End If
    End Sub
 
-   Private Sub DataGrid_SizedChanged(sender As Object, e As SizeChangedEventArgs) Handles CurrDataGrid.SizeChanged
+   Private Sub DataGrid_SizedChanged(sender As Object, e As SizeChangedEventArgs) Handles Me.SizeChanged
       ' confronto la larghezza effettiva della EgtDataGrid con la somma delle larghezze delle colonne
       UpdateColumnsWidth()
       If BindingColumns.Count > 0 Then
-         If CurrDataGrid.ActualWidth - LASTCOLUMN_MINWIDTH > columnsWidth Then
+         If Me.ActualWidth - LASTCOLUMN_MINWIDTH > columnsWidth Then
             ' nascondo la ScrollBar orizzontale e setto lo UnitType dell'ultima colonna visibile a Star
-            ScrollViewer.SetHorizontalScrollBarVisibility(CurrDataGrid, ScrollBarVisibility.Hidden)
+            ScrollViewer.SetHorizontalScrollBarVisibility(Me, ScrollBarVisibility.Hidden)
             BindingColumns.Last(Function(x) x.Visible = True).Width = New DataGridLength(1, DataGridLengthUnitType.Star)
          Else
             ' mostro la ScrollBar orizzontale e se UnitType delle colonne è Star lo setto a Pixel
-            ScrollViewer.SetHorizontalScrollBarVisibility(CurrDataGrid, ScrollBarVisibility.Visible)
+            ScrollViewer.SetHorizontalScrollBarVisibility(Me, ScrollBarVisibility.Visible)
             For Each bc In BindingColumns
                If bc.Width.IsStar Then
                   bc.Width = New DataGridLength(bc.ActualWidth, DataGridLengthUnitType.Pixel)
@@ -170,7 +244,7 @@ Public Class EgtDataGrid
       End If
    End Sub
 
-   Private Sub Cell_MouseRightButtonDown(sender As Object, e As RoutedEventArgs)
+   Private Sub ColumnHeader_MouseRightButtonDown(sender As Object, e As RoutedEventArgs)
       Dim nDispIndex As Integer = sender.DisplayIndex
       ' creo il ContextMenu con gli item checkabili
       Dim cm As ContextMenu = New ContextMenu()
@@ -254,12 +328,12 @@ Public Class EgtDataGrid
       cm.IsOpen = True
    End Sub
 
-   Private Sub CurrDataGrid_ColumnReordering(sender As Object, e As DataGridColumnEventArgs) Handles CurrDataGrid.ColumnReordering
+   Private Sub CurrDataGrid_ColumnReordering(sender As Object, e As DataGridColumnEventArgs) Handles Me.ColumnReordering
       ' conservo il vecchio indice in modo da effettuare lo scambio in BindingColumns una volta riordinate graficamente
       OldIndex = e.Column.DisplayIndex
    End Sub
 
-   Private Sub CurrDataGrid_ColumnReordered(sender As Object, e As DataGridColumnEventArgs) Handles CurrDataGrid.ColumnReordered
+   Private Sub CurrDataGrid_ColumnReordered(sender As Object, e As DataGridColumnEventArgs) Handles Me.ColumnReordered
       ' scambio le colonne in BindingColumns
       BindingColumns.Move(OldIndex, e.Column.DisplayIndex)
       ' scrivo tutte le colonne interessate dallo spostamento
@@ -315,12 +389,12 @@ Public Class EgtDataGrid
       ResetSortDirections()
    End Sub
 
-   Private Sub CurrDataGrid_Loaded(sender As Object, e As RoutedEventArgs) Handles CurrDataGrid.Loaded
+   Private Sub CurrDataGrid_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
       ' setto la SortDirection, se attiva, sulla colonna su cui è attiva
       Dim colIndex As Integer = 0
       For Each col In BindingColumns
          If col.SortDirection > 0 Then
-            CurrDataGrid.Items.SortDescriptions.Add(New SortDescription(CurrDataGrid.Columns(colIndex).SortMemberPath, col.SortDirection - 1))
+            Me.Items.SortDescriptions.Add(New SortDescription(Me.Columns(colIndex).SortMemberPath, col.SortDirection - 1))
             Exit For
          End If
          colIndex += 1
@@ -333,7 +407,7 @@ Public Class EgtDataGrid
       Next
    End Sub
 
-   Private Sub CurrDataGrid_Sorting(sender As Object, e As DataGridSortingEventArgs) Handles CurrDataGrid.Sorting
+   Private Sub CurrDataGrid_Sorting(sender As Object, e As DataGridSortingEventArgs) Handles Me.Sorting
       ' salvo la SortDirection corrente della colonna prima di resettarla per tutte le colonne
       Dim CurrSortDirection As ListSortDirection? = e.Column.SortDirection
       ResetSortDirections(True)
@@ -356,129 +430,16 @@ Public Class EgtDataGrid
          Next
       Else
          ' altrimenti (caso ResetSort da ContextMenu) è necessatio un Clear più ampio e anche grafico
-         CurrDataGrid.Items.SortDescriptions.Clear()
+         Me.Items.SortDescriptions.Clear()
          For Each column In BindingColumns
             column.SortDirection = 0
             ' resetto graficamente anche l'header della colonna
-            CurrDataGrid.Columns(column.DisplayIndex).SortDirection = Nothing
+            Me.Columns(column.DisplayIndex).SortDirection = Nothing
          Next
          RaiseEvent ResetSort()
       End If
    End Sub
 
-#Region "COLUMN HEADER PROPERTY DATAGRID"
-
-#Region "BACKGROUND HEADER"
-
-   Public Shared ReadOnly ColumnHeaderBackgroundProperty As DependencyProperty = DependencyProperty.Register("ColumnHeaderBackground",
-                                                                                                              GetType(Brush),
-                                                                                                              GetType(EgtDataGrid),
-                                                                                                              New FrameworkPropertyMetadata(SystemColors.ControlBrush))
-
-   Public Property ColumnHeaderBackground As Brush
-      Get
-         Return DirectCast(GetValue(ColumnHeaderBackgroundProperty), Brush)
-      End Get
-      Set(value As Brush)
-         SetValue(ColumnHeaderBackgroundProperty, value)
-      End Set
-   End Property
-
-#End Region    ' BackGround Heder
-
-#Region "FOREGROUND HEADER"
-
-   Public Shared ReadOnly ColumnHeaderForegroundProperty As DependencyProperty = DependencyProperty.Register("ColumnHeaderForeground",
-                                                                                                              GetType(Brush),
-                                                                                                              GetType(EgtDataGrid),
-                                                                                                              New FrameworkPropertyMetadata(SystemColors.ControlTextBrush))
-
-   Public Property ColumnHeaderForeground As Brush
-      Get
-         Return DirectCast(GetValue(ColumnHeaderForegroundProperty), Brush)
-      End Get
-      Set(value As Brush)
-         SetValue(ColumnHeaderForegroundProperty, value)
-      End Set
-   End Property
-
-#End Region    ' Foreground Header
-
-#Region "FONTWEIGHT HEADER"
-
-   Public Shared ReadOnly ColumnHeaderFontWeightProperty As DependencyProperty = DependencyProperty.Register("ColumnHeaderFontWeight",
-                                                                                                              GetType(FontWeight),
-                                                                                                              GetType(EgtDataGrid),
-                                                                                                              New FrameworkPropertyMetadata(FontWeights.Normal))
-
-   Public Property ColumnHeaderFontWeight As FontWeight
-      Get
-         Return DirectCast(GetValue(ColumnHeaderFontWeightProperty), FontWeight)
-      End Get
-      Set(value As FontWeight)
-         SetValue(ColumnHeaderFontWeightProperty, value)
-      End Set
-   End Property
-
-#End Region    ' FontWeight Header
-
-#Region "FONTSIZE HEADER"
-
-   Public Shared ReadOnly ColumnHeaderFontSizeProperty As DependencyProperty = DependencyProperty.Register("ColumnHeaderFontSize",
-                                                                                                            GetType(Double),
-                                                                                                            GetType(EgtDataGrid),
-                                                                                                            New FrameworkPropertyMetadata(Convert.ToDouble(12)))
-
-   Public Property ColumnHeaderFontSize As Double
-      Get
-         Return DirectCast(GetValue(ColumnHeaderFontSizeProperty), Double)
-      End Get
-      Set(value As Double)
-         SetValue(ColumnHeaderFontSizeProperty, value)
-      End Set
-   End Property
-
-#End Region    ' FontSize Header
-
-#Region "HORIZONTAKCONTENTALIGNMENT HEADER"
-
-   Public Shared ReadOnly ColumnHeaderHorizontalContentAlignmentProperty As DependencyProperty = DependencyProperty.Register("ColumnHeaderHorizontalContentAlignment",
-                                                                                                                              GetType(HorizontalAlignment),
-                                                                                                                              GetType(EgtDataGrid),
-                                                                                                                              New FrameworkPropertyMetadata(HorizontalAlignment.Stretch))
-
-   Public Property ColumnHeaderHorizontalContentAlignment As HorizontalAlignment
-      Get
-         Return DirectCast(GetValue(ColumnHeaderHorizontalContentAlignmentProperty), HorizontalAlignment)
-      End Get
-      Set(value As HorizontalAlignment)
-         SetValue(ColumnHeaderHorizontalContentAlignmentProperty, value)
-      End Set
-   End Property
-
-#End Region    ' HorizontalContentAlignment Header
-
-#Region "PADDING HEADER"
-
-   Public Shared ReadOnly ColumnHeaderPaddingProperty As DependencyProperty = DependencyProperty.Register("ColumnHeaderPadding",
-                                                                                                           GetType(Thickness),
-                                                                                                           GetType(EgtDataGrid),
-                                                                                                           New FrameworkPropertyMetadata(New Thickness(0)))
-
-   Public Property ColumnHeaderPadding As Thickness
-      Get
-         Return DirectCast(GetValue(ColumnHeaderPaddingProperty), Thickness)
-      End Get
-      Set(value As Thickness)
-         SetValue(ColumnHeaderPaddingProperty, value)
-      End Set
-   End Property
-
-#End Region    ' Padding Header
-
-
-#End Region    ' Column Header Property DataGrid
-
 End Class
 
 Public Class EgtDataGridColumn

EgtBEAMWALL.Core/LoadingWnd/LoadingWndHelper.vb

@@ -59,12 +59,7 @@ Public Module LoadingWndHelper
       m_thread = New Thread(Sub()
                                m_LoadingWndVM = New Core.LoadingWndVM(nSteps, TotText, AddressOf LoadingCallback)
                                m_LoadingWndVM.UpdateProgress(m_CurrStep, m_StepText, m_nProgress, m_nNextProgress)
-                               Dim LoadingWnd As Object
-                               If bOnlyProd Then
-                                  LoadingWnd = New OnlyProdLoadingWndV(Nothing, m_LoadingWndVM)
-                               Else
-                                  LoadingWnd = New LoadingWndV(Nothing, m_LoadingWndVM)
-                               End If
+                               Dim LoadingWnd As New OnlyProdLoadingWndV(Nothing, m_LoadingWndVM)
                                ' posiziono la finestra
                                If WindowStartupLocation = Windows.WindowStartupLocation.CenterScreen Then
                                   LoadingWnd.WindowStartupLocation = Windows.WindowStartupLocation.CenterScreen

EgtBEAMWALL.Core/MachGroupModel/MyMachGroupPanelM.vb

@@ -88,7 +88,6 @@ Public Class MyMachGroupPanelM
       Return Nothing
    End Function
 
-
    ' funzione che restituisce solo i gruppi di lavorazione creati nel nesting 
    Public Shared Function UpdateFromNestingMyMachGroups(MachineList As List(Of Machine)) As List(Of MachGroupM)
       Dim TempList As New List(Of MachGroupM)
@@ -342,7 +341,9 @@ Public Class MyMachGroupPanelM
    End Sub
 
    Public Shared Sub SetDuploModified(nPartId As Integer)
-      If Configuration.bOnlyProd Then
+      Dim nDuploCount As Integer = 0
+      EgtDuploCount(nPartId, nDuploCount)
+      If nDuploCount > 0 Then
          ' segno modificato e aggiorno duplo
          EgtDuploSetModified(nPartId)
          UpdateDuplo(nPartId)
@@ -353,8 +354,6 @@ Public Class MyMachGroupPanelM
          For Each CurrMachGroup As MyMachGroupVM In DuploList
             CurrMachGroup.RefreshMachGroup()
          Next
-      Else
-         EgtDuploSetModified(nPartId)
       End If
    End Sub
 

EgtBEAMWALL.Core/MachinePanel/OnlyProdMachinePanelV.xaml

@@ -28,16 +28,16 @@
               ToolTip="{Binding ToolDBToolTip}"
               Command="{Binding ToolDbCommand}"
               Style="{StaticResource GeneralConfigurationToolBar_TextButton}"/>
-      <Button Content="{Binding MachiningDbMsg}"
+      <!--<Button Content="{Binding MachiningDbMsg}"
               Command="{Binding MachDbCommand}" 
               ToolTip="{Binding MachiningDbToolTip}"
-              Style="{StaticResource GeneralConfigurationToolBar_TextButton}" Width="100"/>
+              Style="{StaticResource GeneralConfigurationToolBar_TextButton}" Width="100"/>-->
       <Button Content="{Binding SetUpMsg}"
               Command="{Binding SetUpCommand}" 
               ToolTip="{Binding SetUpToolTip}"
               Style="{StaticResource GeneralConfigurationToolBar_TextButton}"
               Visibility="{Binding SetUp_Visibility}"/>
-      <Button ToolTip="{Binding BeamTable_ToolTip}"
+      <!--<Button ToolTip="{Binding BeamTable_ToolTip}"
               Command="{Binding BeamTable_Command}"
               Visibility="{Binding BeamTable_Visibility}"
               Style="{StaticResource ToolBarWarehouse_Button}">
@@ -48,7 +48,7 @@
               Visibility="{Binding WallTable_Visibility}"
               Style="{StaticResource ToolBarWarehouse_Button}">
          <Image Source="/Resources/Configuration/MachiningsTable.png" Stretch="Uniform"/>
-      </Button>
+      </Button>-->
       <Button Content="{Binding ParameterMachineMsg}"
               ToolTip="{Binding ParameterMachineMsg}"
               Command="{Binding ParameterMachine_Command}"

EgtBEAMWALL.Core/NewOpenProjectFileDialog/NewOpenProjectFileDialogV.xaml

@@ -90,8 +90,7 @@
          </Grid>
       </GroupBox>
 
-      <EgtBEAMWALL:EgtDataGrid x:Name="MainDataGrid"
-                               Grid.Row="1"
+      <EgtBEAMWALL:EgtDataGrid Grid.Row="1"
                                ItemsSource="{Binding ProjectList}" 
                                SelectedItem="{Binding SelProject}"
                                CanUserAddRows="False"
@@ -104,7 +103,6 @@
                                Margin="5"
                                RowDetailsVisibilityMode="Visible"
                                CellEditEnding="MainDataGrid_CellEditEnding"
-                               ColumnHeaderBackground="{x:Null}"
                                BindingColumns="{Binding ProdColumns}">
          <DataGrid.Resources>
             <!-- ProdId -->

EgtBEAMWALL.Core/NewOpenProjectFileDialog/OnlyProdNewOpenProjectFileDialogV.xaml

@@ -106,12 +106,7 @@
                                CellEditEnding="MainDataGrid_CellEditEnding"
                                AlternatingRowBackground="{StaticResource BeamWall_LinkWater}"
                                AlternationCount="2"
-                               ColumnHeaderBackground="{StaticResource BeamWall_Teal}"
-                               ColumnHeaderForeground="{StaticResource BeamWall_White}"
-                               ColumnHeaderHorizontalContentAlignment="Center"
-                               ColumnHeaderFontWeight="Bold"
-                               ColumnHeaderFontSize="15"
-                               ColumnHeaderPadding="0,2,0,2"
+                               ColumnHeaderStyle="{StaticResource Main_DataGridColumnHeader}"
                                Style="{StaticResource DataGrid_OnlyProd}"
                                CellStyle="{StaticResource CellDataGrid_CustomHighLight}">
          <DataGrid.Resources>

EgtBEAMWALL.Core/OpenProjectFileDialog/OnlyProdOpenProjectFileDialogV.xaml

@@ -102,12 +102,7 @@
                                BindingColumns="{Binding ProjectColumns}"
                                AlternatingRowBackground="{StaticResource BeamWall_LinkWater}"
                                AlternationCount="2"
-                               ColumnHeaderBackground="{StaticResource BeamWall_Teal}"
-                               ColumnHeaderForeground="{StaticResource BeamWall_White}"
-                               ColumnHeaderHorizontalContentAlignment="Center"
-                               ColumnHeaderFontWeight="Bold"
-                               ColumnHeaderFontSize="15"
-                               ColumnHeaderPadding="0,2,0,2"
+                               ColumnHeaderStyle="{StaticResource Main_DataGridColumnHeader}"
                                Style="{StaticResource DataGrid_OnlyProd}"
                                CellStyle="{StaticResource CellDataGrid_CustomHighLight}">
          <DataGrid.RowStyle>

EgtBEAMWALL.Core/OpenProjectFileDialog/OpenProjectFileDialogV.xaml

@@ -94,7 +94,6 @@
                                ScrollViewer.CanContentScroll="True" 
                                ScrollViewer.VerticalScrollBarVisibility="Auto"
                                ScrollViewer.HorizontalScrollBarVisibility="Auto"
-                               ColumnHeaderBackground="{x:Null}"
                                Margin="5"
                                BindingColumns="{Binding ProjectColumns}">
          <DataGrid.Resources>

EgtBEAMWALL.Core/SetUpWindow/OnlyProdSetUpWindowV.xaml

@@ -1,208 +0,0 @@
-<EgtWPFLib5:EgtCustomWindow x:Class="OnlyProdSetUpWindowV"
-                            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"
-                            Title="{Binding TitleMsg}"
-                            WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="False"
-                            IsMinimizable="False" WindowStartupLocation="CenterOwner" ShowInTaskbar="False"
-                            CloseCommand="{Binding CloseSetUpCommand, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"
-                            Style="{StaticResource OnlyProd_EgtCustomWindow}">
-
-   <EgtWPFLib5:EgtCustomWindow.Resources>
-      <Style x:Key="HorizontalScrollViewerItemsControlStyle" TargetType="{x:Type ItemsControl}">
-         <Setter Property="ItemsPanel">
-            <Setter.Value>
-               <ItemsPanelTemplate>
-                  <WrapPanel Orientation="Vertical"/>
-               </ItemsPanelTemplate>
-            </Setter.Value>
-         </Setter>
-         <Setter Property="Template">
-            <Setter.Value>
-               <ControlTemplate TargetType="{x:Type ItemsControl}">
-                  <ScrollViewer HorizontalScrollBarVisibility="Auto" VerticalScrollBarVisibility="Disabled" >
-                     <ItemsPresenter/>
-                  </ScrollViewer>
-               </ControlTemplate>
-            </Setter.Value>
-         </Setter>
-      </Style>
-   </EgtWPFLib5:EgtCustomWindow.Resources>
-
-   <Grid>
-      <Grid.ColumnDefinitions>
-         <ColumnDefinition Width="1*"/>
-         <ColumnDefinition Width="3*"/>
-      </Grid.ColumnDefinitions>
-
-      <Grid>
-         <Grid.RowDefinitions>
-            <RowDefinition Height="Auto"/>
-            <RowDefinition Height="1*"/>
-         </Grid.RowDefinitions>
-
-         <UniformGrid Columns="4">
-            <Button Content="{Binding ApplyMsg}" Command="{Binding ApplyCommand}"
-                    IsEnabled="{Binding IsEnabledApplyBtn}" Height="30"
-                    Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
-            <Button Content="{Binding ArchiveMsg}" Command="{Binding ArchiveCommand}" Height="30"
-                    Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
-            <Button Content="{Binding RetrievesMsg}" Command="{Binding RetrievesCommand}" Height="30" 
-                    CommandParameter="{Binding SelectedItem,ElementName=ToolsTreeView}"
-                    Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
-            <Button Content="{Binding AutomaticMsg}" Command="{Binding AutomaticCommand}" Height="30"
-                    CommandParameter="{Binding SelectedItem,ElementName=ToolsTreeView}"
-                    Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
-         </UniformGrid>
-
-         <TreeView Grid.Row="1" Name="ToolsTreeView" ItemsSource="{Binding ToolsList}">
-            <TreeView.Style>
-               <Style TargetType="{x:Type TreeView}">
-                  <Setter Property="Background">
-                     <Setter.Value>
-                        <LinearGradientBrush EndPoint="0.5,1" StartPoint="0.35,0">
-                           <GradientStop Color="{StaticResource BeamWall_Mercury_Color}" Offset="0"/>
-                           <GradientStop Color="{StaticResource BeamWall_Concrete_Color}" Offset="0.45"/>
-                           <GradientStop Color="{StaticResource BeamWall_White_Color}" Offset="1"/>
-                        </LinearGradientBrush>
-                     </Setter.Value>
-                  </Setter>
-               </Style>
-            </TreeView.Style>
-
-            <TreeView.ItemContainerStyle>
-               <Style TargetType="{x:Type TreeViewItem}">
-                  <Setter Property="IsSelected" Value="{Binding IsSelected, Mode=TwoWay}" />
-                  <Setter Property="IsExpanded" Value="{Binding IsExpanded, Mode=TwoWay}" />
-                  <EventSetter Event="MouseDoubleClick" Handler="Tool_DoubleClick"/>
-               </Style>
-            </TreeView.ItemContainerStyle>
-
-            <TreeView.Resources>
-               <HierarchicalDataTemplate DataType="{x:Type EgtWPFLib5:FamilyToolItem}" ItemsSource="{Binding Items}">
-
-                  <Grid Height="20">
-                     <Grid.ColumnDefinitions>
-                        <ColumnDefinition Width="Auto"/>
-                        <ColumnDefinition Width="1*"/>
-                        <ColumnDefinition Width="Auto"/>
-                     </Grid.ColumnDefinitions>
-
-                     <Image Grid.Column="0" Source="{Binding PictureString}" Height="20" Width="20" Margin="0,0,5,0" />
-                     <TextBlock Grid.Column="1" Text="{Binding Name}" FontSize="15" Margin="0,-2,5,0" VerticalAlignment="Center" />
-                     <Ellipse Grid.Column="2" Height="10" Width="10" Fill="{Binding FamilyColor}" />
-
-                  </Grid>
-
-               </HierarchicalDataTemplate>
-
-               <DataTemplate DataType="{x:Type EgtWPFLib5:ToolItem}">
-                  <Grid Height="20" ToolTip="{Binding ToolTipMsg}">
-                     <Grid.ColumnDefinitions>
-                        <ColumnDefinition Width="Auto"/>
-                        <ColumnDefinition Width="1*"/>
-                        <ColumnDefinition Width="Auto"/>
-                     </Grid.ColumnDefinitions>
-
-                     <!--<Image Grid.Column="0" Source="{Binding PictureString}" Height="32" Margin="0,8,6,4" />-->
-                     <TextBlock Grid.Column="1" Text="{Binding Name}" FontSize="15" Margin="0,-2,5,0" VerticalAlignment="Center" />
-                     <Ellipse Grid.Column="2" Height="10" Width="10" Fill="{Binding ToolColor}" />
-
-                  </Grid>
-               </DataTemplate>
-
-            </TreeView.Resources>
-
-         </TreeView>
-
-      </Grid>
-
-      <Grid Grid.Column="1">
-         <Grid.ColumnDefinitions>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="1*"/>
-         </Grid.ColumnDefinitions>
-
-         <Image Source="{Binding SetUpImage}" MaxWidth="300"/>
-
-         <ItemsControl Grid.Column="1" ItemsSource="{Binding PositionGroupList}"
-                       Style="{DynamicResource HorizontalScrollViewerItemsControlStyle}">
-            <ItemsControl.ItemsPanel>
-               <ItemsPanelTemplate>
-                  <StackPanel Orientation="Horizontal"/>
-               </ItemsPanelTemplate>
-            </ItemsControl.ItemsPanel>
-            <ItemsControl.ItemTemplate>
-               <DataTemplate>
-
-                  <ItemsControl Grid.Column="1" ItemsSource="{Binding PositionList}" Margin="0,0,20,0">
-                     <ItemsControl.ItemsPanel>
-                        <ItemsPanelTemplate>
-                           <WrapPanel Orientation="Vertical"/>
-                        </ItemsPanelTemplate>
-                     </ItemsControl.ItemsPanel>
-                     <ItemsControl.ItemTemplate>
-                        <DataTemplate>
-                           <Grid Margin="5,5,15,5">
-                              <Grid.ColumnDefinitions>
-                                 <ColumnDefinition Width="30"/>
-                                 <ColumnDefinition Width="1*"/>
-                              </Grid.ColumnDefinitions>
-
-                              <TextBlock Text="{Binding TcPos}"/>
-                              <ItemsControl Grid.Column="1" ItemsSource="{Binding ExitToolAssociationList}"
-                                            HorizontalAlignment="Left">
-                                 <ItemsControl.ItemsPanel>
-                                    <ItemsPanelTemplate>
-                                       <!--<WrapPanel Orientation="Horizontal" MaxWidth="200"/>-->
-                                       <UniformGrid Columns="1"/>
-                                    </ItemsPanelTemplate>
-                                 </ItemsControl.ItemsPanel>
-                                 <ItemsControl.ItemTemplate>
-                                    <DataTemplate>
-                                       <Grid Margin="10,0,0,5">
-                                          <Grid.ColumnDefinitions>
-                                             <ColumnDefinition Width="Auto"/>
-                                             <ColumnDefinition Width="1*"/>
-                                          </Grid.ColumnDefinitions>
-
-                                          <ToggleButton Content="{Binding ExitPar}" Name="ExitBtn"
-                                                        CommandParameter="{Binding SelectedItem,ElementName=ToolsTreeView}"
-                                                        IsChecked="{Binding IsOccupied}" Height="25" Width="25" Margin="0,0,5,0"
-                                                        Command="{Binding SetUpToolCommand}"
-                                                        IsEnabled="{Binding IsEnabledPos}"
-                                                        Background="{Binding ExitBtnBackgroundCol}"/>
-                                          <Border x:Name="ToolBorder" Grid.Column="1" BorderBrush="#4D84C4"
-                                                  BorderThickness="1" ToolTip="{Binding ToolTipMsg}">
-                                             <Border.Style>
-                                                <Style TargetType="{x:Type Border}">
-                                                   <Setter Property="Visibility" Value="Hidden"/>
-                                                   <Style.Triggers>
-                                                      <DataTrigger Binding="{Binding ElementName=ExitBtn, Path=IsChecked}" Value="True">
-                                                         <Setter Property="Visibility" Value="Visible"/>
-                                                      </DataTrigger>
-                                                   </Style.Triggers>
-                                                </Style>
-                                             </Border.Style>
-                                             <TextBlock  Text="{Binding Tool.Name}" Margin="3"/>
-                                          </Border>
-
-                                       </Grid>
-                                    </DataTemplate>
-                                 </ItemsControl.ItemTemplate>
-                              </ItemsControl>
-
-                           </Grid>
-                        </DataTemplate>
-                     </ItemsControl.ItemTemplate>
-                  </ItemsControl>
-
-               </DataTemplate>
-            </ItemsControl.ItemTemplate>
-         </ItemsControl>
-
-      </Grid>
-
-   </Grid>
-
-</EgtWPFLib5:EgtCustomWindow>

EgtBEAMWALL.Core/SetUpWindow/OnlyProdSetUpWindowV.xaml.vb

@@ -1,31 +0,0 @@
-Imports EgtWPFLib5
-Imports System.Windows.Controls
-Imports System.Windows.Input
-
-Public Class OnlyProdSetUpWindowV
-
-   Private WithEvents m_SetUpWindowVM As SetUpWindowVM
-
-   Sub New(Owner As System.Windows.Window, SetUpWindowVM As SetUpWindowVM)
-      MyBase.New(Owner)
-      ' This call is required by the designer.
-      InitializeComponent()
-      Me.DataContext = SetUpWindowVM
-      ' Assegno al riferimento locale al VM il VM preso dal DataContext
-      m_SetUpWindowVM = SetUpWindowVM
-   End Sub
-
-   Private Sub Tool_DoubleClick(sender As Object, e As MouseButtonEventArgs)
-      Dim TreeViewItem As TreeViewItem = DirectCast(sender, TreeViewItem)
-      If TypeOf TreeViewItem.DataContext Is ToolItem Then
-         Dim SelTool As ToolItem = DirectCast(TreeViewItem.DataContext, ToolItem)
-         m_SetUpWindowVM.ToolDoubleClick(SelTool)
-         e.Handled = True
-      End If
-   End Sub
-
-   Private Sub CloseWindow(bDialogResult As Boolean) Handles m_SetUpWindowVM.m_CloseWindow
-      Me.DialogResult = bDialogResult
-   End Sub
-
-End Class

EgtBEAMWALL.Core/ToolsDbWindow/OnlyProdToolDbWindowV.xaml

@@ -1,138 +0,0 @@
-<EgtWPFLib5:EgtCustomWindow x:Class="OnlyProdToolDbWindowV"
-                            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-                            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-                            xmlns:sys="clr-namespace:System;assembly=mscorlib"
-                            xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
-                            Title="{Binding Title}"
-                            WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="False"
-                            IsMinimizable="False" WindowStartupLocation="CenterOwner" ShowInTaskbar="False"
-                            CloseCommand="{Binding CloseToolsDbCommand,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}"
-                            CloseCommandParameter="{Binding Path=SelectedItem, ElementName=ToolsTreeView}"
-                            Style="{StaticResource OnlyProd_EgtCustomWindow}">
-   <EgtWPFLib5:EgtCustomWindow.InputBindings>
-      <KeyBinding Key="Escape" Command="{Binding ReloadToolCommand}"
-                  CommandParameter="{Binding Path=SelectedItem,ElementName=ToolsTreeView}"/>
-   </EgtWPFLib5:EgtCustomWindow.InputBindings>
-
-   <EgtWPFLib5:EgtCustomWindow.Resources>
-      <EgtWPFLib5:ToolDrawUUIDConverter x:Key="ToolDrawUUIDConverter"/>
-      <EgtWPFLib5:ErrorVisibilityConverter x:Key="ErrorVisibilityConverter"/>
-   </EgtWPFLib5:EgtCustomWindow.Resources>
-
-   <Grid>
-      <Grid.ColumnDefinitions>
-         <ColumnDefinition Width="0.75*"/>
-         <ColumnDefinition Width="2*"/>
-         <ColumnDefinition Width="1*"/>
-      </Grid.ColumnDefinitions>
-
-      <Grid>
-         <Grid.RowDefinitions>
-            <RowDefinition Height="Auto"/>
-            <RowDefinition Height="10*"/>
-            <RowDefinition Height="Auto"/>
-         </Grid.RowDefinitions>
-
-         <UniformGrid Grid.Row="0" Columns="3">
-            <Button Content="{Binding NewMsg}" Command="{Binding NewCommand}"
-                    CommandParameter="{Binding Path=SelectedItem, ElementName=ToolsTreeView}"
-                    IsEnabled="{Binding IsEnabledNewBtn, Mode=OneWay}" Height="30"
-                    Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
-            <Button Content="{Binding SaveMsg}" Command="{Binding SaveCommand}"
-                    CommandParameter="{Binding Path=SelectedItem, ElementName=ToolsTreeView}"
-                    IsEnabled="{Binding IsEnabledSaveBtn, Mode=OneWay}" Height="30"
-                    Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
-            <Button Content="{Binding RemoveMsg}" Command="{Binding RemoveCommand}"
-                    CommandParameter="{Binding Path=SelectedItem, ElementName=ToolsTreeView}"
-                    IsEnabled="{Binding IsEnabledRemoveBtn, Mode=OneWay}" Height="30"
-                    Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
-         </UniformGrid>
-
-         <TreeView Name="ToolsTreeView" Grid.Row="1" ItemsSource="{Binding ToolsList}">
-            <TreeView.Style>
-               <Style TargetType="{x:Type TreeView}">
-                  <Setter Property="Background">
-                     <Setter.Value>
-                        <LinearGradientBrush EndPoint="0.5,1" StartPoint="0.35,0">
-                           <GradientStop Color="{StaticResource BeamWall_Mercury_Color}" Offset="0"/>
-                           <GradientStop Color="{StaticResource BeamWall_Concrete_Color}" Offset="0.45"/>
-                           <GradientStop Color="{StaticResource BeamWall_White_Color}" Offset="1"/>
-                        </LinearGradientBrush>
-                     </Setter.Value>
-                  </Setter>
-               </Style>
-            </TreeView.Style>
-
-            <TreeView.ItemContainerStyle>
-               <Style TargetType="{x:Type TreeViewItem}">
-                  <Setter Property="IsSelected" Value="{Binding IsSelected, Mode=TwoWay}" />
-                  <Setter Property="IsExpanded" Value="{Binding IsExpanded, Mode=TwoWay}" />
-                  <Setter Property="IsEnabled" Value="{Binding IsEnabled, Mode=TwoWay}" />
-               </Style>
-            </TreeView.ItemContainerStyle>
-
-            <TreeView.Resources>
-               <HierarchicalDataTemplate DataType="{x:Type EgtWPFLib5:FamilyToolTreeViewItem}" ItemsSource="{Binding Items}">
-
-                  <Grid Height="20">
-                     <Grid.ColumnDefinitions>
-                        <ColumnDefinition Width="Auto"/>
-                        <ColumnDefinition Width="1*"/>
-                     </Grid.ColumnDefinitions>
-
-                     <Image Grid.Column="0" Source="{Binding PictureString}" Height="20" Width="20" Margin="0,0,5,0" />
-                     <TextBlock Grid.Column="1" Text="{Binding Name}" FontSize="15" Margin="0,-2,5,0" VerticalAlignment="Center" />
-
-                  </Grid>
-
-               </HierarchicalDataTemplate>
-
-               <DataTemplate DataType="{x:Type EgtWPFLib5:ToolTreeViewItem}">
-                  <Grid Height="20">
-                     <Grid.ColumnDefinitions>
-                        <ColumnDefinition Width="Auto"/>
-                        <ColumnDefinition Width="1*"/>
-                     </Grid.ColumnDefinitions>
-
-                     <!--<Image Grid.Column="0" Source="{Binding PictureString}" Height="32" Margin="0,8,6,4" />-->
-                     <CheckBox Name="ActiveTxBx" Grid.Column="0" Height="15" Width="15" Margin="-15,0,5,0" VerticalContentAlignment="Center"
-                               IsChecked="{Binding Active}"
-                               Visibility="{Binding Path=DataContext.Active_Visibility,
-                                                    RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-                     <TextBlock Grid.Column="1" Text="{Binding NamePar}" FontSize="15" Margin="0,-2,5,0" VerticalAlignment="Center" />
-
-                  </Grid>
-               </DataTemplate>
-
-            </TreeView.Resources>
-
-         </TreeView>
-
-         <UniformGrid Grid.Row="2" Columns="3">
-            <Button Content="{Binding ImportMsg}"
-                    Command="{Binding ImportCommand}" 
-                    IsEnabled="{Binding IsEnabledImpExpBtn, Mode=OneWay}"
-                    Height="30"
-                    Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
-            <Button Content="{Binding ExportMsg}"
-                    Command="{Binding ExportCommand}"
-                    IsEnabled="{Binding IsEnabledImpExpBtn, Mode=OneWay}"
-                    Height="30"
-                    Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
-            <Button Content="{Binding ResetMsg}" 
-                    Command="{Binding ReloadToolCommand}" 
-                    CommandParameter="{Binding Path=SelectedItem,ElementName=ToolsTreeView}" 
-                    Height="30"
-                    Style="{StaticResource OnlyRightPanel_HalfRound_Button}"/>
-         </UniformGrid>
-
-      </Grid>
-
-      <ContentControl Content="{Binding Path=ParamPageV}" Grid.Column="1"/>
-
-      <!--ContentControl che ospita la scena restituita sotto forma di WindowsFormsHost-->
-      <ContentControl Content="{Binding ToolSceneHost}" Grid.Column="2"/>
-
-   </Grid>
-
-</EgtWPFLib5:EgtCustomWindow>

EgtBEAMWALL.Core/ToolsDbWindow/OnlyProdToolDbWindowV.xaml.vb

@@ -1,33 +0,0 @@
-Imports EgtWPFLib5
-Imports System.Windows.Input
-Imports EgtUILib
-
-Public Class OnlyProdToolDbWindowV
-
-   Private WithEvents m_ToolDbWindowVM As ToolDbWindowVM
-
-   Sub New(Owner As System.Windows.Window, ToolDbWindowVM As ToolDbWindowVM)
-      MyBase.New(Owner)
-      ' This call is required by the designer.
-      InitializeComponent()
-      Me.DataContext = ToolDbWindowVM
-      ' Assegno al riferimento locale al VM il VM preso dal DataContext
-      m_ToolDbWindowVM = ToolDbWindowVM
-   End Sub
-
-   Private Sub ToolsDbView_Closed(bDialogResult As Boolean) Handles m_ToolDbWindowVM.m_CloseWindow
-      ' Imposto contesto generale
-      EgtSetCurrentContext(ToolDbWindowVM.ProjectSceneContext)
-      ' Cancello contesto di visualizzazione utensile
-      EgtDeleteContext(ToolDbWindowVM.ToolDbSceneContext)
-      Me.Close()
-   End Sub
-
-   Private Sub ToolsDbView_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles Me.Closing
-      If (Keyboard.Modifiers And ModifierKeys.Alt) = ModifierKeys.Alt OrElse Keyboard.IsKeyDown(Key.F4) Then
-         e.Cancel = True
-         Return
-      End If
-   End Sub
-
-End Class

EgtBEAMWALL.Core/Utility/Configuration.vb

@@ -6,19 +6,6 @@ Public Module Configuration
    ' Test per comunicazione
    Public m_commLib As DataSyncro
 
-   ''' <summary>
-   ''' Flag per impostare la visualizzazione con la singola pagina
-   ''' </summary>
-   Private m_bOnlyProd As Boolean
-   Public ReadOnly Property bOnlyProd As Boolean
-      Get
-         Return m_bOnlyProd
-      End Get
-   End Property
-   Public Sub SetOnlyProd(value As Boolean)
-      m_bOnlyProd = value
-   End Sub
-
    ''' <summary>
    ''' Flag per visualizzare il pulsante Db Attrezzaggi
    ''' </summary>
@@ -80,34 +67,6 @@ Public Module Configuration
       IniFile.m_sIniFile = m_sConfigDir & "\" & Core.ConstIni.INI_FILE_NAME
    End Sub
 
-   ''' <summary>
-   ''' Funzione per recuperare bOnlyProd
-   ''' </summary>
-   ''' <param name="Section">Sezione dove si trova la variabile che devo cercare</param>
-   ''' <param name="Key">Variabile che sto cercando</param>
-   ''' <param name="Path">Cartella dove e' presente il file ini</param>
-   ''' <param name="Default_Value">Valore di defaul opzionabile</param>
-   ''' <returns></returns>
-   Public Function Read_Value(Section As String, Key As String, Path As String, Optional Default_Value As String = "") As String
-      Dim Reader_Lines As String() = System.IO.File.ReadAllLines(Path)
-      Dim Current_Section As String = ""
-
-      For Each Reader_Line As String In Reader_Lines
-
-         If Reader_Line.StartsWith("[") AndAlso Reader_Line.EndsWith("]") Then
-            Current_Section = Reader_Line
-         ElseIf Current_Section.Equals($"[{Section}]") Then
-            Dim lineParts As String() = Reader_Line.Split({"="c}, 2)
-
-            If lineParts.Length >= 1 AndAlso lineParts(0) = Key Then
-               Return If(lineParts.Length >= 2, lineParts(1), Default_Value)
-            End If
-         End If
-      Next
-
-      Return Default_Value
-   End Function
-
    ''' <summary>
    ''' Metodo che controlla la comunicazione server
    ''' </summary>

EgtBEAMWALL.Core/Utility/MyMachine.vb

@@ -45,4 +45,4 @@ Public Class MyMachine
       Return True
    End Function
 
-End Class
+End Class

EgtBEAMWALL.Core/packages.config

@@ -2,7 +2,7 @@
 <packages>
   <package id="EgwProxy.LiMan" version="1.0.2408.718" targetFramework="net472" />
   <package id="Microsoft.Bcl.AsyncInterfaces" version="8.0.0" targetFramework="net472" />
-  <package id="Newtonsoft.Json" version="13.0.1" targetFramework="net472" />
+  <package id="Newtonsoft.Json" version="13.0.4" targetFramework="net472" />
   <package id="RestSharp" version="111.2.0" targetFramework="net472" />
   <package id="System.Buffers" version="4.5.1" targetFramework="net472" />
   <package id="System.Memory" version="4.5.5" targetFramework="net472" />

EgtBEAMWALL.DataLayer/EgtBEAMWALL.DataLayer.csproj

@@ -71,7 +71,7 @@
       <HintPath>..\packages\MySql.Data.EntityFramework.8.0.21\lib\net452\MySql.Data.EntityFramework.dll</HintPath>
     </Reference>
     <Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
-      <HintPath>..\packages\Newtonsoft.Json.13.0.1\lib\net45\Newtonsoft.Json.dll</HintPath>
+      <HintPath>..\packages\Newtonsoft.Json.13.0.4\lib\net45\Newtonsoft.Json.dll</HintPath>
     </Reference>
     <Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
       <HintPath>..\packages\NLog.5.0.1\lib\net46\NLog.dll</HintPath>

EgtBEAMWALL.DataLayer/packages.config

@@ -9,7 +9,7 @@
   <package id="K4os.Hash.xxHash" version="1.0.8" targetFramework="net472" />
   <package id="MySql.Data" version="8.0.21" targetFramework="net472" />
   <package id="MySql.Data.EntityFramework" version="8.0.21" targetFramework="net472" />
-  <package id="Newtonsoft.Json" version="13.0.1" targetFramework="net452" />
+  <package id="Newtonsoft.Json" version="13.0.4" targetFramework="net472" />
   <package id="NLog" version="5.0.1" targetFramework="net472" />
   <package id="Portable.BouncyCastle" version="1.9.0" targetFramework="net472" />
   <package id="SSH.NET" version="2016.1.0" targetFramework="net472" />

EgtBEAMWALL.Optimizer/AddFeatureWnd/AddFeatureWndV.vb

@@ -1,18 +0,0 @@
-Public Class AddFeatureWndV
-
-   Private WithEvents m_AddFeatureWndVM As AddFeatureWndVM
-
-   Sub New(Owner As Window, AddFeatureWndVM As AddFeatureWndVM)
-      MyBase.New(Owner)
-      ' This call is required by the designer.
-      InitializeComponent()
-      Me.DataContext = AddFeatureWndVM
-      ' Assegno al riferimento locale al VM il VM preso dal DataContext
-      m_AddFeatureWndVM = AddFeatureWndVM
-   End Sub
-
-   Private Sub CloseWindow(bDialogResult As Boolean) Handles m_AddFeatureWndVM.m_CloseWindow
-      Me.DialogResult = bDialogResult
-   End Sub
-
-End Class

EgtBEAMWALL.Optimizer/AddFeatureWnd/AddFeatureWndV.xaml

@@ -2,89 +2,119 @@
                             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:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Optimizer"
-                            Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
                             WindowStyle="None" ResizeMode="NoResize"
                             SizeToContent="WidthAndHeight"
                             WindowStartupLocation="CenterOwner"
                             IsClosable="False"
                             IsMinimizable="False"
                             IsResizable="False"
-                            Title="AddProcess">
-   <StackPanel Margin="5,5,5,0">
-      <TabControl SelectedIndex="{Binding SelGRPType}">
-         <TabItem Header="L"/>
-         <TabItem Header="T"/>
-      </TabControl>
-      <Border Grid.Row="1"
-              BorderThickness="1"
-              BorderBrush="DarkGray"
-              Background="White"
-              Margin="0,-6,0,5">
-         <Grid Margin="0,5,0,0">
-            <Grid.RowDefinitions>
-               <RowDefinition Height="Auto"/>
-               <RowDefinition Height="1*"/>
-               <RowDefinition Height="Auto"/>
-            </Grid.RowDefinitions>
-            <Grid HorizontalAlignment="Center"
-                  Grid.Row="0"
-                  Margin="0,0,0,5">
-               <Grid.RowDefinitions>
-                  <RowDefinition Height="Auto"/>
-                  <RowDefinition Height="Auto"/>
-               </Grid.RowDefinitions>
-               <Grid.ColumnDefinitions>
-                  <ColumnDefinition Width="Auto"/>
-                  <ColumnDefinition Width="Auto"/>
-               </Grid.ColumnDefinitions>
-               <TextBlock Text="Process"
-                          Style="{StaticResource OptionTextBlock}"/>
-               <ComboBox ItemsSource="{Binding PRCList}"
-                         SelectedItem="{Binding nSelPRC}"
-                         Grid.Column="1"
-                         DisplayMemberPath="ghDesc"
-                         Width="200"
-                         HorizontalAlignment="Left"
-                         Style="{StaticResource FeatureComboBox}"/>
-               <TextBlock Text="Macro"
-                          Grid.Row="1"
-                          Margin="0,5,0,0"
-                          Style="{StaticResource OptionTextBlock}"/>
-               <ComboBox ItemsSource="{Binding MacroCustomList}"
-                         SelectedIndex="{Binding nSelMacroCustom}"
-                         Grid.Row="1"
-                         Grid.Column="1"
-                         DisplayMemberPath="Name"
-                         IsEnabled="{Binding MacroList_IsEnabled}"
-                         Width="200"
-                         Margin="0,5,0,0"
-                         Style="{StaticResource FeatureComboBox}"/>
-            </Grid>
-            <Image Source="{Binding sDrawPath}"
-                   Grid.Row="1"
-                   Height="300"
-                   Width="300"
-                   Margin="5,0,5,5"/>
-            <Grid Grid.Row="2" Margin="0,0,0,5">
-               <Grid.ColumnDefinitions>
-                  <ColumnDefinition Width="1*"/>
-                  <ColumnDefinition Width="Auto"/>
-                  <ColumnDefinition Width="1*"/>
-                  <ColumnDefinition Width="Auto"/>
-                  <ColumnDefinition Width="1*"/>
-               </Grid.ColumnDefinitions>
-               <Button Content="Ok"
-                       Command="{Binding Ok_Command}"
-                       IsDefault="True"
-                       Grid.Column="1"
-                       Style="{StaticResource EgtWPFLib5_InputButton}"/>
-               <Button Content="Cancel"
-                       IsCancel="True"
-                       Grid.Column="3"
-                       Style="{StaticResource EgtWPFLib5_InputButton}"/>
-            </Grid>
-         </Grid>
+                            Title="AddProcess"
+                            Style="{StaticResource OnlyProd_EgtCustomWindow}">
+
+   <Grid Margin="5">
+      <Grid.ColumnDefinitions>
+         <ColumnDefinition Width="Auto"/>
+         <ColumnDefinition Width="1*"/>
+         <ColumnDefinition Width="Auto"/>
+      </Grid.ColumnDefinitions>
+      <Grid.RowDefinitions>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
+      <Border Background="{StaticResource BeamWall_Kashmir}" Margin="0,2,0,2" CornerRadius="4,0,0,4">
+      <TextBlock Text="{Binding Process_Msg}"
+                 Style="{StaticResource ListTextBlock}"/>
       </Border>
-   </StackPanel>
+      <Border Grid.Row="1" 
+              Style="{StaticResource OnlyProdPage_Border}"
+              CornerRadius="4,0,0,4"
+              BorderThickness="2,2,0,2">
+         <ListBox Grid.Row="1"
+                  ItemsSource="{Binding PRCListView}"
+                  SelectedItem="{Binding nSelPRC}"
+                  Style="{StaticResource NewAddFeature_ListBox}"
+                  ItemContainerStyle="{StaticResource AlternationIndex_ListBoxItem}">
+            <ListBox.ItemTemplate>
+               <DataTemplate>
+                  <TextBlock Text="{Binding ghDesc}"
+                             ToolTip="{Binding ghDesc}"
+                             TextAlignment="Justify"
+                             Width="{Binding ActualWidth, RelativeSource={RelativeSource AncestorType={x:Type ListBox}}}"
+                             Style="{StaticResource OptionTextBlock}"/>
+               </DataTemplate>
+            </ListBox.ItemTemplate>
+         </ListBox>
+      </Border>
+      <Border Grid.Column="1" Background="{StaticResource BeamWall_Kashmir}" Margin="0,2,0,2">
+         <TextBlock Grid.Column="1"
+                 Text="{Binding Custom_Msg}"
+                 Style="{StaticResource ListTextBlock}"/>
+      </Border>
+      <Border Grid.Row="1" 
+              Grid.Column="1" 
+              Style="{StaticResource OnlyProdPage_Border}"
+              CornerRadius="0"
+              BorderThickness="0,2,0,2">
+         <ListBox ItemsSource="{Binding MacroCustomList}"
+                  SelectedIndex="{Binding nSelMacroCustom}"
+                  Style="{StaticResource MacroCustom_ListBox}">
+            <ListBox.ItemsPanel>
+               <ItemsPanelTemplate>
+                  <WrapPanel Style="{StaticResource MacroCustom_WrapPanel}"/>
+               </ItemsPanelTemplate>
+            </ListBox.ItemsPanel>
+            <ListBox.ItemTemplate>
+               <DataTemplate>
+                  <Grid>
+                     <Grid.RowDefinitions>
+                        <RowDefinition Height="Auto"/>
+                        <RowDefinition Height="1*"/>
+                     </Grid.RowDefinitions>
+                     <TextBlock Text="{Binding sMacroName}"
+                                Style="{StaticResource Macro_TextBlock}"/>
+                     <Image Grid.Row="1" 
+                            Source="{Binding sMacroDrawPath}"
+                            Style="{StaticResource Macro_Image}"/>
+                  </Grid>
+               </DataTemplate>
+            </ListBox.ItemTemplate>
+         </ListBox>
+      </Border>
+      <Border Grid.Column="2" Background="{StaticResource BeamWall_Kashmir}" Margin="0,2,0,2" Padding="0,10,0,10" CornerRadius="0,4,4,0">
+         <TextBlock 
+                 Text="{Binding Default_Msg}"
+                 Style="{StaticResource ListTextBlock}"/>
+      </Border>
+      <Border Grid.Row="1" 
+              Grid.Column="2" 
+              Style="{StaticResource OnlyProdPage_Border}"
+              CornerRadius="0,4,4,0"
+              BorderThickness="0,2,2,2">
+         <ListBox ItemsSource="{Binding MacroDefaultList}"
+                  SelectedIndex="{Binding nSelMacroDefault}"
+                  Style="{StaticResource MacroDefault_ListBox}"
+                  ItemContainerStyle="{StaticResource AlternationIndex_ListBoxItem}">
+            <ListBox.ItemTemplate>
+               <DataTemplate>
+                  <TextBlock Text="{Binding sMacroName}"
+                             TextAlignment="Justify"
+                             Style="{StaticResource MacroDefault_TextBlock}"/>
+               </DataTemplate>
+            </ListBox.ItemTemplate>
+         </ListBox>
+      </Border>
+      <UniformGrid Columns="2"
+                   Grid.Row="2"
+                   Grid.ColumnSpan="3"
+                   Margin="5">
+         <Button Content="{Binding OK_Msg}"
+                 Command="{Binding Ok_Command}"
+                 IsDefault="True"
+                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
+         <Button Content="{Binding Cancel_Msg}"
+                 IsCancel="True"
+                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
+      </UniformGrid>
+   </Grid>
 </EgtWPFLib5:EgtCustomWindow>

EgtBEAMWALL.Optimizer/AddFeatureWnd/AddFeatureWndV.xaml.vb

@@ -1,4 +1,4 @@
-Public Class NewAddFeatureWndV
+Public Class AddFeatureWndV
 
    Private WithEvents m_AddFeatureWndVM As AddFeatureWndVM
 

EgtBEAMWALL.Optimizer/AddFeatureWnd/AddFeatureWndVM.vb

@@ -98,9 +98,7 @@ Public Class AddFeatureWndVM
             NotifyPropertyChanged(NameOf(sDrawPath))
             ' carico eventuali file Macro
             MacroCustomList.Clear()
-            If Core.Configuration.bOnlyProd Then
-               MacroDefaultList.Clear()
-            End If
+            MacroDefaultList.Clear()
             m_MacroFilePathList = New List(Of String)
             m_MacroCustomFilePathList = New List(Of String)
             If Not IsNothing(nSelPRC) Then
@@ -111,7 +109,7 @@ Public Class AddFeatureWndVM
                ' ricavo lista file Macro Default
                GetMacroListDefault(nGRPFromFileName, nPRCFromFileName, sMacroNameFromFileName, nIdMacroName)
                ' ricavo lista file Macro Custom
-               If Core.Configuration.bOnlyProd Then GetMacroListCustom(nGRPFromFileName, nPRCFromFileName, sMacroNameFromFileName, nIdMacroName)
+               GetMacroListCustom(nGRPFromFileName, nPRCFromFileName, sMacroNameFromFileName, nIdMacroName)
                If MacroCustomList.Count > 0 Then
                   MacroList_IsEnabled = True
                Else
@@ -211,39 +209,34 @@ Public Class AddFeatureWndVM
 #Region "CONSTRUCTOR"
 
    Sub New()
-      If Core.Configuration.bOnlyProd Then
-         ' carico lista process
-         Dim TempPRCList As New ObservableCollection(Of Integer)
-         Dim TempPRCLList As New ObservableCollection(Of Integer)
-         Dim TempPRCLTist As New ObservableCollection(Of Integer)
-         GetBeamPrivateProfileProcessList(0, TempPRCLList)
-         GetBeamPrivateProfileProcessList(1, TempPRCLTist)
-         ' riporto le liste process in un unica lista
-         For Each PRCL In TempPRCLList
-            TempPRCList.Add(PRCL)
-         Next
-         For Each PRCT In TempPRCLTist
-            TempPRCList.Add(PRCT)
-         Next
-         m_PRCList.Clear()
-         ' ciclo sulla lista process eliminado i doppi
-         For Each PRC In TempPRCList.Distinct()
-            ' leggo gruppi 
-            Dim GRPLList As New ObservableCollection(Of Integer)
-            Dim GRPTList As New ObservableCollection(Of Integer)
-            GetBeamPrivateProfileGRPList(0, PRC, GRPLList)
-            GetBeamPrivateProfileGRPList(1, PRC, GRPTList)
-            If GRPLList.Count > 0 Then m_PRCList.Add(New PRC(GRPLList(0), PRC, GetBeamPrivateProfileName(0, PRC)))
-            If GRPTList.Count > 0 Then m_PRCList.Add(New PRC(GRPTList(0), PRC, GetBeamPrivateProfileName(1, PRC)))
-         Next
-         m_PRCListView = m_PRCList.OrderBy(Function(x) x.nPRC).ToList()
-         nSelPRC = m_PRCList(0)
-         NotifyPropertyChanged(NameOf(PRCListView))
-         NotifyPropertyChanged(NameOf(PRCList))
-      Else
-         SelGRPType = 0
-         nSelPRC = PRCList(0)
-      End If
+      ' carico lista process
+      Dim TempPRCList As New ObservableCollection(Of Integer)
+      Dim TempPRCLList As New ObservableCollection(Of Integer)
+      Dim TempPRCLTist As New ObservableCollection(Of Integer)
+      GetBeamPrivateProfileProcessList(0, TempPRCLList)
+      GetBeamPrivateProfileProcessList(1, TempPRCLTist)
+      ' riporto le liste process in un unica lista
+      For Each PRCL In TempPRCLList
+         TempPRCList.Add(PRCL)
+      Next
+      For Each PRCT In TempPRCLTist
+         TempPRCList.Add(PRCT)
+      Next
+      m_PRCList.Clear()
+      ' ciclo sulla lista process eliminado i doppi
+      For Each PRC In TempPRCList.Distinct()
+         ' leggo gruppi 
+         Dim GRPLList As New ObservableCollection(Of Integer)
+         Dim GRPTList As New ObservableCollection(Of Integer)
+         GetBeamPrivateProfileGRPList(0, PRC, GRPLList)
+         GetBeamPrivateProfileGRPList(1, PRC, GRPTList)
+         If GRPLList.Count > 0 Then m_PRCList.Add(New PRC(GRPLList(0), PRC, GetBeamPrivateProfileName(0, PRC)))
+         If GRPTList.Count > 0 Then m_PRCList.Add(New PRC(GRPTList(0), PRC, GetBeamPrivateProfileName(1, PRC)))
+      Next
+      m_PRCListView = m_PRCList.OrderBy(Function(x) x.nPRC).ToList()
+      nSelPRC = m_PRCList(0)
+      NotifyPropertyChanged(NameOf(PRCListView))
+      NotifyPropertyChanged(NameOf(PRCList))
    End Sub
 
 #End Region    ' CONSTRUCTOR
@@ -267,11 +260,7 @@ Public Class AddFeatureWndVM
                      sMacroNameFromFileName = DataFromFileName(1)
                   End If
                   If nGRPFromFileName = CalcBeamPrivateProfileGRP(nSelPRC.nGRP) AndAlso nPRCFromFileName = nSelPRC.nPRC Then
-                     If Core.Configuration.bOnlyProd Then
-                        MacroCustomList.Add(New NewMacro(nIdMacroName, sMacroNameFromFileName, Map.refMainWindowVM.MainWindowM.sMacroCustomDir & "\Template\" & sMacroNameFromFileName & ".png"))
-                     Else
-                        MacroCustomList.Add(New IdNameStruct(nIdMacroName, sMacroNameFromFileName))
-                     End If
+                     MacroCustomList.Add(New NewMacro(nIdMacroName, sMacroNameFromFileName, Map.refMainWindowVM.MainWindowM.sMacroCustomDir & "\Template\" & sMacroNameFromFileName & ".png"))
                      m_MacroFilePathList.Add(File)
                      nIdMacroName += 1
                   End If
@@ -385,30 +374,12 @@ Public Class PRC
       End Get
    End Property
 
-   ' lista dei parametri Q della feature
-   Protected m_QBTLParamVMList As List(Of QBTLParamVM)
-   Public Property QBTLParamVMList As List(Of QBTLParamVM)
-      Get
-         Return m_QBTLParamVMList
-      End Get
-      Set(value As List(Of QBTLParamVM))
-         m_QBTLParamVMList = value
-      End Set
-   End Property
-
    Sub New(GRP As Integer, PRC As Integer, Name As String)
       m_nPRC = PRC
       m_sName = Name
       m_nGRP = GRP
    End Sub
 
-   Sub New(GRP As Integer, PRC As Integer, Name As String, QBTLParamList As List(Of QBTLParamVM))
-      m_nPRC = PRC
-      m_sName = Name
-      m_nGRP = GRP
-      m_QBTLParamVMList = QBTLParamList
-   End Sub
-
 End Class
 
 Public Class NewMacro

EgtBEAMWALL.Optimizer/AddFeatureWnd/NewAddFeatureWndV.xaml

@@ -1,120 +0,0 @@
-<EgtWPFLib5:EgtCustomWindow x:Class="NewAddFeatureWndV"
-                            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"
-                            WindowStyle="None" ResizeMode="NoResize"
-                            SizeToContent="WidthAndHeight"
-                            WindowStartupLocation="CenterOwner"
-                            IsClosable="False"
-                            IsMinimizable="False"
-                            IsResizable="False"
-                            Title="AddProcess"
-                            Style="{StaticResource OnlyProd_EgtCustomWindow}">
-
-   <Grid Margin="5">
-      <Grid.ColumnDefinitions>
-         <ColumnDefinition Width="Auto"/>
-         <ColumnDefinition Width="1*"/>
-         <ColumnDefinition Width="Auto"/>
-      </Grid.ColumnDefinitions>
-      <Grid.RowDefinitions>
-         <RowDefinition Height="Auto"/>
-         <RowDefinition Height="1*"/>
-         <RowDefinition Height="Auto"/>
-      </Grid.RowDefinitions>
-      <Border Background="{StaticResource BeamWall_Kashmir}" Margin="0,2,0,2" CornerRadius="4,0,0,4">
-      <TextBlock Text="{Binding Process_Msg}"
-                 Style="{StaticResource ListTextBlock}"/>
-      </Border>
-      <Border Grid.Row="1" 
-              Style="{StaticResource OnlyProdPage_Border}"
-              CornerRadius="4,0,0,4"
-              BorderThickness="2,2,0,2">
-         <ListBox Grid.Row="1"
-                  ItemsSource="{Binding PRCListView}"
-                  SelectedItem="{Binding nSelPRC}"
-                  Style="{StaticResource NewAddFeature_ListBox}"
-                  ItemContainerStyle="{StaticResource AlternationIndex_ListBoxItem}">
-            <ListBox.ItemTemplate>
-               <DataTemplate>
-                  <TextBlock Text="{Binding ghDesc}"
-                             ToolTip="{Binding ghDesc}"
-                             TextAlignment="Justify"
-                             Width="{Binding ActualWidth, RelativeSource={RelativeSource AncestorType={x:Type ListBox}}}"
-                             Style="{StaticResource OptionTextBlock}"/>
-               </DataTemplate>
-            </ListBox.ItemTemplate>
-         </ListBox>
-      </Border>
-      <Border Grid.Column="1" Background="{StaticResource BeamWall_Kashmir}" Margin="0,2,0,2">
-         <TextBlock Grid.Column="1"
-                 Text="{Binding Custom_Msg}"
-                 Style="{StaticResource ListTextBlock}"/>
-      </Border>
-      <Border Grid.Row="1" 
-              Grid.Column="1" 
-              Style="{StaticResource OnlyProdPage_Border}"
-              CornerRadius="0"
-              BorderThickness="0,2,0,2">
-         <ListBox ItemsSource="{Binding MacroCustomList}"
-                  SelectedIndex="{Binding nSelMacroCustom}"
-                  Style="{StaticResource MacroCustom_ListBox}">
-            <ListBox.ItemsPanel>
-               <ItemsPanelTemplate>
-                  <WrapPanel Style="{StaticResource MacroCustom_WrapPanel}"/>
-               </ItemsPanelTemplate>
-            </ListBox.ItemsPanel>
-            <ListBox.ItemTemplate>
-               <DataTemplate>
-                  <Grid>
-                     <Grid.RowDefinitions>
-                        <RowDefinition Height="Auto"/>
-                        <RowDefinition Height="1*"/>
-                     </Grid.RowDefinitions>
-                     <TextBlock Text="{Binding sMacroName}"
-                                Style="{StaticResource Macro_TextBlock}"/>
-                     <Image Grid.Row="1" 
-                            Source="{Binding sMacroDrawPath}"
-                            Style="{StaticResource Macro_Image}"/>
-                  </Grid>
-               </DataTemplate>
-            </ListBox.ItemTemplate>
-         </ListBox>
-      </Border>
-      <Border Grid.Column="2" Background="{StaticResource BeamWall_Kashmir}" Margin="0,2,0,2" Padding="0,10,0,10" CornerRadius="0,4,4,0">
-         <TextBlock 
-                 Text="{Binding Default_Msg}"
-                 Style="{StaticResource ListTextBlock}"/>
-      </Border>
-      <Border Grid.Row="1" 
-              Grid.Column="2" 
-              Style="{StaticResource OnlyProdPage_Border}"
-              CornerRadius="0,4,4,0"
-              BorderThickness="0,2,2,2">
-         <ListBox ItemsSource="{Binding MacroDefaultList}"
-                  SelectedIndex="{Binding nSelMacroDefault}"
-                  Style="{StaticResource MacroDefault_ListBox}"
-                  ItemContainerStyle="{StaticResource AlternationIndex_ListBoxItem}">
-            <ListBox.ItemTemplate>
-               <DataTemplate>
-                  <TextBlock Text="{Binding sMacroName}"
-                             TextAlignment="Justify"
-                             Style="{StaticResource MacroDefault_TextBlock}"/>
-               </DataTemplate>
-            </ListBox.ItemTemplate>
-         </ListBox>
-      </Border>
-      <UniformGrid Columns="2"
-                   Grid.Row="2"
-                   Grid.ColumnSpan="3"
-                   Margin="5">
-         <Button Content="{Binding OK_Msg}"
-                 Command="{Binding Ok_Command}"
-                 IsDefault="True"
-                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
-         <Button Content="{Binding Cancel_Msg}"
-                 IsCancel="True"
-                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
-      </UniformGrid>
-   </Grid>
-</EgtWPFLib5:EgtCustomWindow>

EgtBEAMWALL.Optimizer/AddPartWnd/AddPartWndV.xaml

@@ -2,15 +2,15 @@
                             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:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Optimizer"
-                            Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
                             WindowStyle="None" ResizeMode="NoResize"
                             SizeToContent="WidthAndHeight"
                             WindowStartupLocation="CenterOwner"
                             IsClosable="False"
                             IsMinimizable="False"
                             IsResizable="False"
-                            Title="AddPartWndV">
+                            Title="AddPartWndV"
+                            Style="{StaticResource OnlyProd_EgtCustomWindow}">
+
    <Grid Margin="5,5,5,0">
       <Grid.RowDefinitions>
          <RowDefinition Height="Auto"/>
@@ -19,17 +19,16 @@
          <RowDefinition Height="Auto"/>
       </Grid.RowDefinitions>
 
-      <Grid HorizontalAlignment="Center"
-            Margin="0,0,0,5">
+      <Grid Style="{StaticResource OnlyProdAddPart_Grid}">
          <Grid.ColumnDefinitions>
             <ColumnDefinition Width="Auto"/>
             <ColumnDefinition Width="Auto"/>
          </Grid.ColumnDefinitions>
          <TextBlock Text="Name"
                     Style="{StaticResource OptionTextBlock}"/>
-         <EgtWPFLib5:EgtTextBox Text="{Binding sNAM}"
-                                Grid.Column="1"
-                                Width="200"/>
+         <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                Text="{Binding sNAM}"
+                                Style="{StaticResource NAM_TextBox}"/>
       </Grid>
       <Grid Grid.Row="1"
             Margin="0,0,0,5">
@@ -41,15 +40,15 @@
          </Grid.ColumnDefinitions>
          <TextBlock Text="Prod Number"
                     Style="{StaticResource OptionTextBlock}"/>
-         <EgtWPFLib5:EgtTextBox Text="{Binding nPDN}"
-                                Grid.Column="1"
-                                Width="45"/>
-         <TextBlock Text="Count"
-                    Grid.Column="2"
+         <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                Text="{Binding nPDN}"
+                                Style="{StaticResource Dimension_TextBox}"/>
+         <TextBlock Grid.Column="2"
+                    Text="Count"
                     Style="{StaticResource OptionTextBlock}"/>
-         <EgtWPFLib5:EgtTextBox Text="{Binding sCNT}"
-                                Grid.Column="3"
-                                Width="45"/>
+         <EgtWPFLib5:EgtTextBox Grid.Column="3"
+                                Text="{Binding sCNT}"
+                                Style="{StaticResource Dimension_TextBox}"/>
       </Grid>
       <Grid Grid.Row="2"
             Margin="0,0,0,5">
@@ -63,41 +62,33 @@
          </Grid.ColumnDefinitions>
          <TextBlock Text="W"
                     Style="{StaticResource OptionTextBlock}"/>
-         <EgtWPFLib5:EgtTextBox Text="{Binding sW}"
-                                Grid.Column="1"
-                                Width="45"/>
-         <TextBlock Text="H"
-                    Grid.Column="2"
+         <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                Text="{Binding sW}"
+                                Style="{StaticResource Dimension_TextBox}"/>
+         <TextBlock Grid.Column="2"
+                    Text="H"
                     Style="{StaticResource OptionTextBlock}"/>
-         <EgtWPFLib5:EgtTextBox Text="{Binding sH}"
-                                Grid.Column="3"
-                                Width="45"/>
-         <TextBlock Text="L"
-                    Grid.Column="4"
+         <EgtWPFLib5:EgtTextBox Grid.Column="3"
+                                Text="{Binding sH}"
+                                Style="{StaticResource Dimension_TextBox}"/>
+         <TextBlock Grid.Column="4"
+                    Text="L"
                     Style="{StaticResource OptionTextBlock}"/>
-         <EgtWPFLib5:EgtTextBox Text="{Binding sL}"
-                                Grid.Column="5"
-                                Width="45"/>
+         <EgtWPFLib5:EgtTextBox Grid.Column="5"
+                                Text="{Binding sL}"
+                                Style="{StaticResource Dimension_TextBox}"/>
       </Grid>
 
-      <Grid Grid.Row="3"
-            Margin="0,0,0,5">
-         <Grid.ColumnDefinitions>
-            <ColumnDefinition Width="1*"/>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="1*"/>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="1*"/>
-         </Grid.ColumnDefinitions>
+      <UniformGrid Grid.Row="3"
+                   Columns="2"
+                   Margin="0,5,0,5">
          <Button Content="Ok"
                  Command="{Binding Ok_Command}"
                  IsDefault="True"
-                 Grid.Column="1"
-                 Style="{StaticResource EgtWPFLib5_InputButton}"/>
+                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
          <Button Content="Cancel"
                  IsCancel="True"
-                 Grid.Column="3"
-                 Style="{StaticResource EgtWPFLib5_InputButton}"/>
-      </Grid>
+                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
+      </UniformGrid>
    </Grid>
 </EgtWPFLib5:EgtCustomWindow>

EgtBEAMWALL.Optimizer/AddPartWnd/OnlyProdAddPartWndV.xaml

@@ -1,94 +0,0 @@
-<EgtWPFLib5:EgtCustomWindow x:Class="OnlyProdAddPartWndV"
-                            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"
-                            WindowStyle="None" ResizeMode="NoResize"
-                            SizeToContent="WidthAndHeight"
-                            WindowStartupLocation="CenterOwner"
-                            IsClosable="False"
-                            IsMinimizable="False"
-                            IsResizable="False"
-                            Title="AddPartWndV"
-                            Style="{StaticResource OnlyProd_EgtCustomWindow}">
-
-   <Grid Margin="5,5,5,0">
-      <Grid.RowDefinitions>
-         <RowDefinition Height="Auto"/>
-         <RowDefinition Height="Auto"/>
-         <RowDefinition Height="Auto"/>
-         <RowDefinition Height="Auto"/>
-      </Grid.RowDefinitions>
-
-      <Grid Style="{StaticResource OnlyProdAddPart_Grid}">
-         <Grid.ColumnDefinitions>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-         </Grid.ColumnDefinitions>
-         <TextBlock Text="Name"
-                    Style="{StaticResource OptionTextBlock}"/>
-         <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding sNAM}"
-                                Style="{StaticResource NAM_TextBox}"/>
-      </Grid>
-      <Grid Grid.Row="1"
-            Margin="0,0,0,5">
-         <Grid.ColumnDefinitions>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-         </Grid.ColumnDefinitions>
-         <TextBlock Text="Prod Number"
-                    Style="{StaticResource OptionTextBlock}"/>
-         <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding nPDN}"
-                                Style="{StaticResource Dimension_TextBox}"/>
-         <TextBlock Grid.Column="2"
-                    Text="Count"
-                    Style="{StaticResource OptionTextBlock}"/>
-         <EgtWPFLib5:EgtTextBox Grid.Column="3"
-                                Text="{Binding sCNT}"
-                                Style="{StaticResource Dimension_TextBox}"/>
-      </Grid>
-      <Grid Grid.Row="2"
-            Margin="0,0,0,5">
-         <Grid.ColumnDefinitions>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-         </Grid.ColumnDefinitions>
-         <TextBlock Text="W"
-                    Style="{StaticResource OptionTextBlock}"/>
-         <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                Text="{Binding sW}"
-                                Style="{StaticResource Dimension_TextBox}"/>
-         <TextBlock Grid.Column="2"
-                    Text="H"
-                    Style="{StaticResource OptionTextBlock}"/>
-         <EgtWPFLib5:EgtTextBox Grid.Column="3"
-                                Text="{Binding sH}"
-                                Style="{StaticResource Dimension_TextBox}"/>
-         <TextBlock Grid.Column="4"
-                    Text="L"
-                    Style="{StaticResource OptionTextBlock}"/>
-         <EgtWPFLib5:EgtTextBox Grid.Column="5"
-                                Text="{Binding sL}"
-                                Style="{StaticResource Dimension_TextBox}"/>
-      </Grid>
-
-      <UniformGrid Grid.Row="3"
-                   Columns="2"
-                   Margin="0,5,0,5">
-         <Button Content="Ok"
-                 Command="{Binding Ok_Command}"
-                 IsDefault="True"
-                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
-         <Button Content="Cancel"
-                 IsCancel="True"
-                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
-      </UniformGrid>
-   </Grid>
-</EgtWPFLib5:EgtCustomWindow>

EgtBEAMWALL.Optimizer/AddPartWnd/OnlyProdAddPartWndV.xaml.vb

@@ -1,18 +0,0 @@
-Public Class OnlyProdAddPartWndV
-
-   Private WithEvents m_AddPartWndVM As AddPartWndVM
-
-   Sub New(Owner As Window, AddPartWndVM As AddPartWndVM)
-      MyBase.New(Owner)
-      ' This call is required by the designer.
-      InitializeComponent()
-      Me.DataContext = AddPartWndVM
-      ' Assegno al riferimento locale al VM il VM preso dal DataContext
-      m_AddPartWndVM = AddPartWndVM
-   End Sub
-
-   Private Sub CloseWindow(bDialogResult As Boolean) Handles m_AddPartWndVM.m_CloseWindow
-      Me.DialogResult = bDialogResult
-   End Sub
-
-End Class

EgtBEAMWALL.Optimizer/AddRawPartWnd/AddRawPartWndV.xaml

@@ -2,15 +2,14 @@
                             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:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Optimizer"
-                            Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
                             WindowStyle="None" ResizeMode="NoResize"
                             SizeToContent="WidthAndHeight"
                             WindowStartupLocation="CenterOwner"
                             IsClosable="False"
                             IsMinimizable="False"
                             IsResizable="False"
-                            Title="AddRawPartWnd">
+                            Title="AddRawPartWnd"
+                            Style="{StaticResource OnlyProd_EgtCustomWindow}">
    <Grid Margin="5,5,5,0">
       <Grid.RowDefinitions>
          <RowDefinition Height="Auto"/>
@@ -21,9 +20,10 @@
                 SelectedItem="{Binding SelDimension}"
                 DisplayMemberPath="sDimension"
                 Visibility="{Binding DimensionsList_Visibility}"
-                Margin="0,0,0,5"/>
-      <ItemsControl ItemsSource="{Binding VariableList}"
-                    Grid.Row="1">
+                Margin="0,0,0,5"
+                Style="{StaticResource OnlyProd_ComboBox}"/>
+      <ItemsControl Grid.Row="1"
+                    ItemsSource="{Binding VariableList}">
          <ItemsControl.ItemTemplate>
             <DataTemplate>
                <Grid Margin="0,0,0,5">
@@ -34,31 +34,27 @@
 
                   <TextBlock Text="{Binding sMsg}"
                              Style="{StaticResource OptionTextBlock}"/>
-                  <EgtWPFLib5:EgtTextBox Text="{Binding sValue}"
-                                         Grid.Column="1"
-                                         Width="65"/>
+                  <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                         Text="{Binding sValue}"
+                                         Style="{StaticResource Value_TextBox}"/>
                </Grid>
             </DataTemplate>
          </ItemsControl.ItemTemplate>
       </ItemsControl>
-      <Grid Grid.Row="2"
-            Margin="0,0,0,5">
-         <Grid.ColumnDefinitions>
-            <ColumnDefinition Width="1*"/>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="1*"/>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="1*"/>
-         </Grid.ColumnDefinitions>
-         <Button Content="Ok"
+      <UniformGrid Grid.Row="2"
+                   Columns="2"
+                   Margin="0,0,0,5">
+         <Button Grid.Column="1"
+                 Content="Ok"
                  Command="{Binding Ok_Command}"
                  IsDefault="True"
-                 Grid.Column="1"
-                 Style="{StaticResource EgtWPFLib5_InputButton}"/>
-         <Button Content="Cancel"
+                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"
+                 Margin="0,0,5,0"/>
+         <Button Grid.Column="3"
+                 Content="Cancel"
                  IsCancel="True"
-                 Grid.Column="3"
-                 Style="{StaticResource EgtWPFLib5_InputButton}"/>
-      </Grid>
+                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
+      </UniformGrid>
    </Grid>
+
 </EgtWPFLib5:EgtCustomWindow>

EgtBEAMWALL.Optimizer/AddRawPartWnd/OnlyProdAddRawPartWndV.xaml

@@ -1,60 +0,0 @@
-<EgtWPFLib5:EgtCustomWindow x:Class="OnlyProdAddRawPartWndV"
-                            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"
-                            WindowStyle="None" ResizeMode="NoResize"
-                            SizeToContent="WidthAndHeight"
-                            WindowStartupLocation="CenterOwner"
-                            IsClosable="False"
-                            IsMinimizable="False"
-                            IsResizable="False"
-                            Title="AddRawPartWnd"
-                            Style="{StaticResource OnlyProd_EgtCustomWindow}">
-   <Grid Margin="5,5,5,0">
-      <Grid.RowDefinitions>
-         <RowDefinition Height="Auto"/>
-         <RowDefinition Height="Auto"/>
-         <RowDefinition Height="Auto"/>
-      </Grid.RowDefinitions>
-      <ComboBox ItemsSource="{Binding DimensionsList}"
-                SelectedItem="{Binding SelDimension}"
-                DisplayMemberPath="sDimension"
-                Visibility="{Binding DimensionsList_Visibility}"
-                Margin="0,0,0,5"
-                Style="{StaticResource OnlyProd_ComboBox}"/>
-      <ItemsControl Grid.Row="1"
-                    ItemsSource="{Binding VariableList}">
-         <ItemsControl.ItemTemplate>
-            <DataTemplate>
-               <Grid Margin="0,0,0,5">
-                  <Grid.ColumnDefinitions>
-                     <ColumnDefinition Width="1*"/>
-                     <ColumnDefinition Width="Auto"/>
-                  </Grid.ColumnDefinitions>
-
-                  <TextBlock Text="{Binding sMsg}"
-                             Style="{StaticResource OptionTextBlock}"/>
-                  <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                                         Text="{Binding sValue}"
-                                         Style="{StaticResource Value_TextBox}"/>
-               </Grid>
-            </DataTemplate>
-         </ItemsControl.ItemTemplate>
-      </ItemsControl>
-      <UniformGrid Grid.Row="2"
-                   Columns="2"
-                   Margin="0,0,0,5">
-         <Button Grid.Column="1"
-                 Content="Ok"
-                 Command="{Binding Ok_Command}"
-                 IsDefault="True"
-                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"
-                 Margin="0,0,5,0"/>
-         <Button Grid.Column="3"
-                 Content="Cancel"
-                 IsCancel="True"
-                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
-      </UniformGrid>
-   </Grid>
-
-</EgtWPFLib5:EgtCustomWindow>

EgtBEAMWALL.Optimizer/AddRawPartWnd/OnlyProdAddRawPartWndV.xaml.vb

@@ -1,18 +0,0 @@
-Public Class OnlyProdAddRawPartWndV
-
-   Private WithEvents m_AddRawPartWndVM As AddRawPartWndVM
-
-   Sub New(Owner As Window, AddRawPartWndVM As AddRawPartWndVM)
-      MyBase.New(Owner)
-      ' This call is required by the designer.
-      InitializeComponent()
-      Me.DataContext = AddRawPartWndVM
-      ' Assegno al riferimento locale al VM il VM preso dal DataContext
-      m_AddRawPartWndVM = AddRawPartWndVM
-   End Sub
-
-   Private Sub CloseWindow(bDialogResult As Boolean) Handles m_AddRawPartWndVM.m_CloseWindow
-      Me.DialogResult = bDialogResult
-   End Sub
-
-End Class

EgtBEAMWALL.Optimizer/AddSectionXMaterialWnd/AddSectionXMaterialWndV.xaml

@@ -2,7 +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:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Optimizer"
+                            xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer"
                             xmlns:EgtBEAMWALLCORE="clr-namespace:EgtBEAMWALL.Core;assembly=EgtBEAMWALL.Core"
                             Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
                             WindowStyle="None" ResizeMode="NoResize"
@@ -25,21 +25,20 @@
                                    ScrollViewer.VerticalScrollBarVisibility="Auto"
                                    ScrollViewer.HorizontalScrollBarVisibility="Auto"
                                    Margin="5"
-                                   ColumnHeaderBackground="{x:Null}"
                                    BindingColumns="{Binding SectXMatColumns}">
          <DataGrid.Resources>
             <!-- SectionXMaterial -->
             <DataGridTextColumn x:Key="colSECTXMAT" Binding="{Binding sSectionXMaterial}">
                <DataGridTextColumn.HeaderTemplate>
                   <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.SectionXMaterial_Msg,RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:AddSectionXMaterialWndV}}}"/>
+                     <TextBlock Text="{Binding Path=DataContext.SectionXMaterial_Msg,RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:AddSectionXMaterialWndV}}}"/>
                   </DataTemplate>
                </DataGridTextColumn.HeaderTemplate>
             </DataGridTextColumn>
             <!-- Alias -->
             <DataGridTemplateColumn x:Key="colALIAS">
                <DataGridTemplateColumn.Header>
-                  <TextBlock Text="{Binding Path=DataContext.Alias_Msg,RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:AddSectionXMaterialWndV}}}"/>
+                  <TextBlock Text="{Binding Path=DataContext.Alias_Msg,RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:AddSectionXMaterialWndV}}}"/>
                </DataGridTemplateColumn.Header>
                <DataGridTemplateColumn.CellTemplate>
                   <DataTemplate>
@@ -53,7 +52,7 @@
             <DataGridTextColumn x:Key="colW" Binding="{Binding sNewW}">
                <DataGridTextColumn.HeaderTemplate>
                   <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.W_Msg,RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:AddSectionXMaterialWndV}}}"/>
+                     <TextBlock Text="{Binding Path=DataContext.W_Msg,RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:AddSectionXMaterialWndV}}}"/>
                   </DataTemplate>
                </DataGridTextColumn.HeaderTemplate>
                <DataGridTextColumn.CellStyle>
@@ -66,7 +65,7 @@
             <DataGridTextColumn x:Key="colL" Binding="{Binding sNewL}">
                <DataGridTextColumn.HeaderTemplate>
                   <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.L_Msg,RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:AddSectionXMaterialWndV}}}"/>
+                     <TextBlock Text="{Binding Path=DataContext.L_Msg,RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:AddSectionXMaterialWndV}}}"/>
                   </DataTemplate>
                </DataGridTextColumn.HeaderTemplate>
                <DataGridTextColumn.CellStyle>
@@ -78,7 +77,7 @@
             <!-- Material -->
             <DataGridTemplateColumn x:Key="colMATERIAL">
                <DataGridTemplateColumn.Header>
-                  <TextBlock Text="{Binding Path=DataContext.Material_Msg,RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:AddSectionXMaterialWndV}}}"/>
+                  <TextBlock Text="{Binding Path=DataContext.Material_Msg,RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:AddSectionXMaterialWndV}}}"/>
                </DataGridTemplateColumn.Header>
                <DataGridTemplateColumn.CellTemplate>
                   <DataTemplate>
@@ -92,7 +91,7 @@
             <DataGridTextColumn x:Key="colQTY" Binding="{Binding sQuantity}">
                <DataGridTextColumn.HeaderTemplate>
                   <DataTemplate>
-                     <TextBlock Text="{Binding Path=DataContext.Quantity_Msg,RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:AddSectionXMaterialWndV}}}"/>
+                     <TextBlock Text="{Binding Path=DataContext.Quantity_Msg,RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:AddSectionXMaterialWndV}}}"/>
                   </DataTemplate>
                </DataGridTextColumn.HeaderTemplate>
                <DataGridTextColumn.CellStyle>

EgtBEAMWALL.Optimizer/AddSectionXMaterialWnd/AddSectionXMaterialWndVM.vb

@@ -232,7 +232,7 @@ Public Class AddSectionXMaterialWndVM
 
 #End Region ' Cancel
 
-#End Region    ' CONSTRUCTOR
+#End Region    ' COMMANDS
 
 #Region "METHODS"
 

EgtBEAMWALL.Optimizer/Application.xaml.vb

@@ -5,8 +5,15 @@
    Protected Overrides Sub OnStartup(e As StartupEventArgs)
       MyBase.OnStartup(e)
       ShutdownMode = System.Windows.ShutdownMode.OnMainWindowClose
+      If e.Args.Count = 0 Then
+         ' creo finestra SplashScreen
+         Dim SplashScreen As New SplashScreenV
+         Me.MainWindow = SplashScreen
+         Me.MainWindow.Show()
+         MapV.SetRefSplashScreenV(SplashScreen)
+      End If
       ' Creo la View principale
-      Me.MainWindow = New OnlyProdMainWindowV
+      Me.MainWindow = New MainWindowV
       ' Mostro la View principale
       Me.MainWindow.Show()
    End Sub

EgtBEAMWALL.Optimizer/BTLDataWnd/BTLDataWndV.xaml

@@ -2,7 +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:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Optimizer"
+                            xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer"
                             WindowStyle="None" ResizeMode="NoResize"
                             SizeToContent="WidthAndHeight"
                             WindowStartupLocation="CenterOwner"
@@ -12,148 +12,162 @@
                             Title="BTLDataWndV"
                             Name="BTLDataWndV"
                             Style="{StaticResource OnlyProd_EgtCustomWindow}">
-   
-   <UniformGrid Margin="5"
-                Columns="6" Rows="7">
 
-      <TextBlock Text="{Binding PROJNUM_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sPROJNUM, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding PROJNAME_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sPROJNAME, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding PROJPART_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sPROJPART, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding PROJGUID_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sPROJGUID, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding LISTNAME_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sLISTNAME, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding CUSTOMER_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sCUSTOMER, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding ARCHITECT_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sARCHITECT, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding EDITOR_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sEDITOR, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding DELIVDATE_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sDELIVDATE, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding EXPDATE_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sEXPDATE, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding EXPTIME_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sEXPTIME, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding EXPRELEASE_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sEXPRELEASE, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding LANGUAGE_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sLANGUAGE, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding RANGE_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <ComboBox Grid.Column="1"
-                ItemsSource="{Binding RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}},
-                                      Path=Tag.ocRANGE,
-                                      Mode=OneWay}"
-                SelectedIndex="{Binding RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL: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 RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}},
-                                      Path=Tag.ocPROCESSINGQUALITY,
-                                      Mode=OneWay}"
-                SelectedIndex="{Binding RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL: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 Tag.sCOMPUTERNAME, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding USER_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sUSER, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding SRCFILE_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sSRCFILE, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding EXPFILE_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <EgtWPFLib5:EgtTextBox Grid.Column="1"
-                             Text="{Binding Tag.sEXPFILE, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
-      <TextBlock Text="{Binding RECESS_MSG}"
-                 Style="{StaticResource PartParam_TextBlock}"/>
-      <ComboBox Grid.Column="1"
-                ItemsSource="{Binding RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}},
-                                      Path=Tag.ocRECESS,
-                                      Mode=OneWay}"
-                SelectedIndex="{Binding RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL: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 Tag.sUSERATTRIBUTE, UpdateSourceTrigger=Explicit,
-                                            RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BTLDataWndV}}}"
-                             Style="{StaticResource PartParam_TextBox}"/>
+   <TabControl>
+      <TabItem Header="Strategy">
+         <Grid>
+            <Grid.RowDefinitions>
+               <RowDefinition Height="Auto"/>
+               <RowDefinition Height="1*"/>
+            </Grid.RowDefinitions>
+            <ComboBox ItemsSource="{Binding StrategySetupList}" HorizontalAlignment="Center" Margin="0,10,0,10"
+                      SelectedItem="{Binding SelStrategySetup, UpdateSourceTrigger=PropertyChanged}"
+                      Style="{StaticResource Strategy_ComboBox}" />
+            <Grid Grid.Row="1">
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="Auto"/>
+               </Grid.RowDefinitions>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="1*"/>
+                  <ColumnDefinition Width="Auto"/>
+               </Grid.ColumnDefinitions>
+               <OPTIMIZER:ProjectParametersV Grid.RowSpan="2" Margin="0,10,0,0"
+                                             Tag="{Binding GeneralParametersList}"
+                                             IsEnabled="{Binding GeneralParametersIsEnable}"/>
+               <UniformGrid Rows="2" Grid.Column="1" Margin="0,0,5,0">
+                  <CheckBox IsChecked="{Binding bSaveGeneralParameters, UpdateSourceTrigger=PropertyChanged}" 
+                            Margin="10,10,0,0" VerticalAlignment="Top" HorizontalAlignment="Center"
+                            Style="{StaticResource OnlyProdFeatureInPartInRawPartList_CheckBox}"/>
+                  <Button Command="{Binding Ok_Command}" VerticalAlignment="Bottom" Margin="0,0,0,5"
+                          ToolTip="{Binding SaveAsToolTip}"
+                          Style="{StaticResource SaveStrategy_Button}">
+                     <Image Source="/Resources/NewPage/Ok.png" Stretch="Uniform"/>
+                  </Button>
 
-   </UniformGrid>
+               </UniformGrid>
+            </Grid>
+         </Grid>
+      </TabItem>
+      <TabItem Header="BTL">
+         <UniformGrid Margin="5"
+                      Columns="6" Rows="7">
+
+            <TextBlock Text="{Binding PROJNUM_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sPROJNUM, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding PROJNAME_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sPROJNAME, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding PROJPART_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sPROJPART, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding PROJGUID_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sPROJGUID, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding LISTNAME_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sLISTNAME, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding CUSTOMER_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sCUSTOMER, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding ARCHITECT_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sARCHITECT, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding EDITOR_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sEDITOR, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding DELIVDATE_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sDELIVDATE, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding EXPDATE_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sEXPDATE, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding EXPTIME_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sEXPTIME, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding EXPRELEASE_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sEXPRELEASE, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding LANGUAGE_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sLANGUAGE, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding RANGE_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <ComboBox Grid.Column="1"
+                      ItemsSource="{Binding ocRANGE,
+                                            Mode=OneWay}"
+                      SelectedIndex="{Binding 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,
+                                            Mode=OneWay}"
+                      SelectedIndex="{Binding 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}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding USER_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sUSER, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding SRCFILE_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sSRCFILE, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding EXPFILE_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <EgtWPFLib5:EgtTextBox Grid.Column="1"
+                                   Text="{Binding sEXPFILE, UpdateSourceTrigger=Explicit}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+            <TextBlock Text="{Binding RECESS_MSG}"
+                       Style="{StaticResource PartParam_TextBlock}"/>
+            <ComboBox Grid.Column="1"
+                      ItemsSource="{Binding ocRECESS,
+                                            Mode=OneWay}"
+                      SelectedIndex="{Binding 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}"
+                                   Style="{StaticResource PartParam_TextBox}"/>
+
+         </UniformGrid>
+      </TabItem>
+   </TabControl>
 </EgtWPFLib5:EgtCustomWindow>

EgtBEAMWALL.Optimizer/BTLDataWnd/BTLDataWndV.xaml.vb

@@ -7,7 +7,6 @@
       ' 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

EgtBEAMWALL.Optimizer/BTLDataWnd/BTLDataWndVM.vb

@@ -1,9 +1,442 @@
-Imports EgtWPFLib5
+Imports System.Collections.ObjectModel
+Imports System.IO
+Imports EgtBEAMWALL.Core
+Imports EgtBEAMWALL.Optimizer.MainMenuVM
 Imports EgtUILib
+Imports EgtWPFLib5
+Imports Newtonsoft.Json
 
 Public Class BTLDataWndVM
    Inherits VMBase
 
+#Region "FIELDS & PROPERTIES"
+
+   Friend Event m_CloseWindow(bDialogResult As Boolean)
+
+   Private m_StrategySetupList As New ObservableCollection(Of String)
+   Public ReadOnly Property StrategySetupList As ObservableCollection(Of String)
+      Get
+         Return m_StrategySetupList
+      End Get
+   End Property
+
+   Private m_SelStrategySetup As String
+   Public Property SelStrategySetup As String
+      Get
+         Return m_SelStrategySetup
+      End Get
+      Set(value As String)
+         If m_SelStrategySetup <> value Then
+            EgtSetInfo(m_nBTLInfoLayerId, "AISETUP", value)
+            WriteMainPrivateProfileString(S_STRATEGY, K_DEFAULTCONFIG, value & ".json")
+            Map.refStrategyManagerVM.SelStrategySetup.sName = value
+            Map.refStrategyManagerVM.SelStrategySetup.Read()
+            Map.refProdManagerVM.Save()
+         End If
+         m_SelStrategySetup = value
+         NotifyPropertyChanged(NameOf(SelStrategySetup))
+      End Set
+   End Property
+
+   Private m_nBTLInfoLayerId As Integer = -1
+   Public ReadOnly Property nBTLInfoId As Integer
+      Get
+         Return m_nBTLInfoLayerId
+      End Get
+   End Property
+
+   Private m_GeneralParametersList As New ObservableCollection(Of ProjectParameters)
+   Public Property GeneralParametersList As ObservableCollection(Of ProjectParameters)
+      Get
+         Return m_GeneralParametersList
+      End Get
+      Set(value As ObservableCollection(Of ProjectParameters))
+         m_GeneralParametersList = value
+         NotifyPropertyChanged(NameOf(GeneralParametersList))
+      End Set
+   End Property
+
+   Private m_bSaveGeneralParameters As Boolean
+   Public Property bSaveGeneralParameters As Boolean
+      Get
+         Return m_bSaveGeneralParameters
+      End Get
+      Set(value As Boolean)
+         m_bSaveGeneralParameters = value
+         If m_bSaveGeneralParameters Then
+            SetGeneralParametersIsEnable(True)
+         Else
+            SetGeneralParametersIsEnable(False)
+            Dim sStrategiesDirPath As String = Map.refMainWindowVM.MainWindowM.GetStrategiesDirPath(Map.refStrategyManagerVM.SelStrategyType.Id)
+            Dim sGeneralParametersFilePath As String = sStrategiesDirPath & "\" & GENERALPARAMETERS_FILE & ".json"
+            If File.Exists(sGeneralParametersFilePath) Then
+               Dim sReadedFiles As String = File.ReadAllText(sGeneralParametersFilePath)
+               Dim JsonGeneralParametersList As List(Of JsonGeneralParameters) = JsonConvert.DeserializeObject(Of List(Of JsonGeneralParameters))(sReadedFiles)
+               m_GeneralParametersList = New ObservableCollection(Of ProjectParameters)((From JsonGeneralParameter In JsonGeneralParametersList
+                                                                                         Select JsonGeneralParameter.Deserialize(Map.refStrategyManagerVM.SelStrategyType.Id)).ToList())
+            End If
+         End If
+         NotifyPropertyChanged(NameOf(bSaveGeneralParameters))
+      End Set
+   End Property
+   Friend Sub SetbSaveGeneralParameters(value As Boolean)
+      m_bSaveGeneralParameters = value
+      NotifyPropertyChanged(NameOf(bSaveGeneralParameters))
+   End Sub
+
+   Private m_GeneralParametersIsEnable As Boolean = False
+   Public ReadOnly Property GeneralParametersIsEnable As Boolean
+      Get
+         Return m_GeneralParametersIsEnable
+      End Get
+   End Property
+   Friend Sub SetGeneralParametersIsEnable(value As Boolean)
+      m_GeneralParametersIsEnable = value
+      NotifyPropertyChanged(NameOf(GeneralParametersIsEnable))
+   End Sub
+
+#Region "Parametri generici"
+
+   Public m_sPROJNUM As String
+   Public Property sPROJNUM As String
+      Get
+         Return m_sPROJNUM
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_PROJNUM, value) Then
+            m_sPROJNUM = value
+         Else
+            NotifyPropertyChanged(NameOf(sPROJNUM))
+         End If
+      End Set
+   End Property
+
+   Public m_sPROJNAME As String
+   Public Property sPROJNAME As String
+      Get
+         Return m_sPROJNAME
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_PROJNAME, value) Then
+            m_sPROJNAME = value
+         Else
+            NotifyPropertyChanged(NameOf(sPROJNAME))
+         End If
+      End Set
+   End Property
+
+   Public m_sPROJPART As String
+   Public Property sPROJPART As String
+      Get
+         Return m_sPROJPART
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_PROJPART, value) Then
+            m_sPROJPART = value
+         Else
+            NotifyPropertyChanged(NameOf(sPROJPART))
+         End If
+      End Set
+   End Property
+
+   Public m_sPROJGUID As String
+   Public Property sPROJGUID As String
+      Get
+         Return m_sPROJGUID
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_PROJGUID, value) Then
+            m_sPROJGUID = value
+         Else
+            NotifyPropertyChanged(NameOf(sPROJGUID))
+         End If
+      End Set
+   End Property
+
+   Public m_nPROJTYPE As Integer
+   Public ReadOnly Property nPROJTYPE As BWType
+      Get
+         Select Case Map.refMainMenuVM.SelPage
+            Case Pages.ONLYPRODPAGE
+               Return Map.refProdManagerVM.nProdType
+            Case Else
+               Return BWType.NULL
+         End Select
+      End Get
+   End Property
+
+   Public m_sLISTNAME As String
+   Public Property sLISTNAME As String
+      Get
+         Return m_sLISTNAME
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_LISTNAME, value) Then
+            DbControllers.m_ProjController.UpdateListName(ProjectManagerVM.CurrProj.nProjId, value)
+            m_sLISTNAME = value
+         Else
+            NotifyPropertyChanged(NameOf(sLISTNAME))
+         End If
+      End Set
+   End Property
+
+   Public m_sCUSTOMER As String
+   Public Property sCUSTOMER As String
+      Get
+         Return m_sCUSTOMER
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_CUSTOMER, value) Then
+            m_sCUSTOMER = value
+         Else
+            NotifyPropertyChanged(NameOf(sCUSTOMER))
+         End If
+      End Set
+   End Property
+
+   Public m_sARCHITECT As String
+   Public Property sARCHITECT As String
+      Get
+         Return m_sARCHITECT
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_ARCHITECT, value) Then
+            m_sARCHITECT = value
+         Else
+            NotifyPropertyChanged(NameOf(sARCHITECT))
+         End If
+      End Set
+   End Property
+
+   Public m_sEDITOR As String
+   Public Property sEDITOR As String
+      Get
+         Return m_sEDITOR
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_EDITOR, value) Then
+            m_sEDITOR = value
+         Else
+            NotifyPropertyChanged(NameOf(sEDITOR))
+         End If
+      End Set
+   End Property
+
+   Public m_sDELIVDATE As String
+   Public Property sDELIVDATE As String
+      Get
+         Return m_sDELIVDATE
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_DELIVDATE, value) Then
+            m_sDELIVDATE = value
+         Else
+            NotifyPropertyChanged(NameOf(sDELIVDATE))
+         End If
+      End Set
+   End Property
+
+   Public m_sEXPDATE As String
+   Public Property sEXPDATE As String
+      Get
+         Return m_sEXPDATE
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_EXPDATE, value) Then
+            m_sEXPDATE = value
+         Else
+            NotifyPropertyChanged(NameOf(sEXPDATE))
+         End If
+      End Set
+   End Property
+
+   Public m_sEXPTIME As String
+   Public Property sEXPTIME As String
+      Get
+         Return m_sEXPTIME
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_EXPTIME, value) Then
+            m_sEXPTIME = value
+         Else
+            NotifyPropertyChanged(NameOf(sEXPTIME))
+         End If
+      End Set
+   End Property
+
+   Public m_sEXPRELEASE As String
+   Public Property sEXPRELEASE As String
+      Get
+         Return m_sEXPRELEASE
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_EXPRELEASE, value) Then
+            m_sEXPRELEASE = value
+         Else
+            NotifyPropertyChanged(NameOf(sEXPRELEASE))
+         End If
+      End Set
+   End Property
+
+   Public m_sLANGUAGE As String
+   Public Property sLANGUAGE As String
+      Get
+         Return m_sLANGUAGE
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_LANGUAGE, value) Then
+            m_sLANGUAGE = value
+         Else
+            NotifyPropertyChanged(NameOf(sLANGUAGE))
+         End If
+      End Set
+   End Property
+
+   Public m_ocRANGE As New List(Of Object)({New IdNameStruct(Range.STANDARD, EgtMsg(61710)),
+                                            New IdNameStruct(Range.EXTENDED, EgtMsg(61711))})
+   Public ReadOnly Property ocRANGE As List(Of Object)
+      Get
+         Return m_ocRANGE
+      End Get
+   End Property
+
+   Public m_SelRANGE As Integer
+   Public Property SelRANGE As Integer
+      Get
+         Return m_SelRANGE
+      End Get
+      Set(value As Integer)
+         Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocRANGE)
+         Dim sValue As String = [Enum].GetName(GetType(Range), nValue)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_RANGE, sValue) Then
+            m_SelRANGE = value
+         Else
+            NotifyPropertyChanged(NameOf(SelRANGE))
+         End If
+      End Set
+   End Property
+
+   Public m_ocPROCESSINGQUALITY As New List(Of Object)({New IdNameStruct(ProcessingQuality.AUTOMATIC, EgtMsg(61658)),
+                                                        New IdNameStruct(ProcessingQuality.VISIBLE, EgtMsg(61659)),
+                                                        New IdNameStruct(ProcessingQuality.FAST, EgtMsg(61660))})
+   Public ReadOnly Property ocPROCESSINGQUALITY As List(Of Object)
+      Get
+         Return m_ocPROCESSINGQUALITY
+      End Get
+   End Property
+
+   Public m_SelPROCESSINGQUALITY As Integer
+   Public Property SelPROCESSINGQUALITY As Integer
+      Get
+         Return m_SelPROCESSINGQUALITY
+      End Get
+      Set(value As Integer)
+         Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocPROCESSINGQUALITY)
+         Dim sValue As String = [Enum].GetName(GetType(ProcessingQuality), nValue)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_PRT_PROCESSINGQUALITY, sValue) Then
+            m_SelPROCESSINGQUALITY = value
+         Else
+            NotifyPropertyChanged(NameOf(SelPROCESSINGQUALITY))
+         End If
+      End Set
+   End Property
+
+   Public m_sCOMPUTERNAME As String
+   Public Property sCOMPUTERNAME As String
+      Get
+         Return m_sCOMPUTERNAME
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_COMPUTERNAME, value) Then
+            m_sCOMPUTERNAME = value
+         Else
+            NotifyPropertyChanged(NameOf(sCOMPUTERNAME))
+         End If
+      End Set
+   End Property
+
+   Public m_sUSER As String
+   Public Property sUSER As String
+      Get
+         Return m_sUSER
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_USER, value) Then
+            m_sUSER = value
+         Else
+            NotifyPropertyChanged(NameOf(sUSER))
+         End If
+      End Set
+   End Property
+
+   Public m_sSRCFILE As String
+   Public Property sSRCFILE As String
+      Get
+         Return m_sSRCFILE
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_SRCFILE, value) Then
+            m_sSRCFILE = value
+         Else
+            NotifyPropertyChanged(NameOf(sSRCFILE))
+         End If
+      End Set
+   End Property
+
+   Public m_sEXPFILE As String
+   Public Property sEXPFILE As String
+      Get
+         Return m_sEXPFILE
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_EXPFILE, value) Then
+            m_sEXPFILE = value
+         Else
+            NotifyPropertyChanged(NameOf(sEXPFILE))
+         End If
+      End Set
+   End Property
+
+   Public m_ocRECESS As New List(Of Object)({New IdNameStruct(Recess.AUTOMATIC, EgtMsg(61658)),
+                                             New IdNameStruct(Recess.MANUAL, EgtMsg(61661))})
+   Public ReadOnly Property ocRECESS As List(Of Object)
+      Get
+         Return m_ocRECESS
+      End Get
+   End Property
+
+   Public m_SelRECESS As Integer
+   Public Property SelRECESS As Integer
+      Get
+         Return m_SelRECESS
+      End Get
+      Set(value As Integer)
+         Dim nValue As Integer = IdNameStruct.IdFromInd(value, ocRECESS)
+         Dim sValue As String = [Enum].GetName(GetType(Recess), nValue)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_PRT_RECESS, sValue) Then
+            m_SelRECESS = value
+         Else
+            NotifyPropertyChanged(NameOf(SelRECESS))
+         End If
+      End Set
+   End Property
+
+   Public m_sUSERATTRIBUTE As String
+   Public Property sUSERATTRIBUTE As String
+      Get
+         Return m_sUSERATTRIBUTE
+      End Get
+      Set(value As String)
+         If EgtSetInfo(m_nBTLInfoLayerId, BTL_GEN_USERATTRIBUTE, value) Then
+            m_sUSERATTRIBUTE = value
+         Else
+            NotifyPropertyChanged(NameOf(sUSERATTRIBUTE))
+         End If
+      End Set
+   End Property
+
+#End Region ' Parametri generici
+
 #Region "Messages"
 
    Public ReadOnly Property PROJNUM_MSG As String
@@ -134,10 +567,6 @@ Public Class BTLDataWndVM
 
 #End Region    ' Messages
 
-#Region "FIELDS & PROPERTIES"
-
-   Friend Event m_CloseWindow(bDialogResult As Boolean)
-
    ' Definizione comandi
    Private m_cmdOk As ICommand
 
@@ -145,12 +574,159 @@ Public Class BTLDataWndVM
 
 #Region "CONSTRUCTOR"
 
-   Sub New()
+   Sub New(nProjId As Integer)
+      ' leggo cartella dei setup delle strategie
+      Dim AISetupDirPath As String = Map.refMainWindowVM.MainWindowM.GetAISetupDirPath(ProjectManagerVM.CurrProd.nType, True)
+      Dim AISetupPaths As String() = Directory.GetFiles(AISetupDirPath)
+      For Each AiSetup In AISetupPaths
+         m_StrategySetupList.Add(Path.GetFileNameWithoutExtension(AiSetup))
+      Next
 
+      ' cerco tra i layer BTLInfo
+      Dim nCurrBTLInfoLayerId As Integer = EgtGetFirstNameInGroup(GDB_ID.ROOT, BTLINFO)
+      While nCurrBTLInfoLayerId <> GDB_ID.NULL
+         ' verifico se il layer appartiene al ProjId
+         Dim nBTLInfoLayerProjId As Integer
+         EgtGetInfo(nCurrBTLInfoLayerId, BTL_PRT_PROJ, nBTLInfoLayerProjId)
+         If nBTLInfoLayerProjId = nProjId Then
+            m_nBTLInfoLayerId = nCurrBTLInfoLayerId
+            Exit While
+         End If
+         nCurrBTLInfoLayerId = EgtGetNextName(nCurrBTLInfoLayerId, BTLINFO)
+      End While
+      ' leggo parametri Btl
+      ReadBtlParams()
+      '' leggo strategia
+      'EgtGetInfo(m_nBTLInfoLayerId, "AISETUP", m_SelStrategySetup)
+
+      ' Controllo se presente file default config
+      Dim sDefaultConfigFile As String = String.Empty
+      Dim sTrimDefaultConfig As String = String.Empty
+      If GetMainPrivateProfileString(S_STRATEGY, K_DEFAULTCONFIG, "", sDefaultConfigFile) <> 0 Then
+         sTrimDefaultConfig = System.IO.Path.GetFileNameWithoutExtension(sDefaultConfigFile)
+         m_SelStrategySetup = sTrimDefaultConfig
+         EgtSetInfo(m_nBTLInfoLayerId, "AISETUP", m_SelStrategySetup)
+      End If
+
+      Dim sStrategiesDirPath As String = Map.refMainWindowVM.MainWindowM.GetStrategiesDirPath(Map.refStrategyManagerVM.SelStrategyType.Id)
+      Dim sGeneralParametersFilePath As String = sStrategiesDirPath & "\" & GENERALPARAMETERS_FILE & ".json"
+      If File.Exists(sGeneralParametersFilePath) Then
+         Dim sReadedFiles As String = File.ReadAllText(sGeneralParametersFilePath)
+         Dim JsonGeneralParametersList As List(Of JsonGeneralParameters) = JsonConvert.DeserializeObject(Of List(Of JsonGeneralParameters))(sReadedFiles)
+         m_GeneralParametersList = New ObservableCollection(Of ProjectParameters)((From JsonGeneralParameter In JsonGeneralParametersList
+                                                                                   Select JsonGeneralParameter.Deserialize(Map.refStrategyManagerVM.SelStrategyType.Id)).ToList())
+         For Each GenericItem As ProjectParameters In m_GeneralParametersList
+            Select Case GenericItem.sMinUserLevel
+               Case UserLevel.ADVANCED
+                  Map.refMainMenuVM.UserLevelGenericVisibility(GenericItem, If(Map.refMainMenuVM.UserAdmin_IsChecked, Visibility.Visible, Visibility.Collapsed))
+               Case Else
+                  If Not Map.refMainMenuVM.UserAdmin_IsChecked Then
+                     Map.refMainMenuVM.UserLevelGenericVisibility(GenericItem, If(GenericItem.sMinUserLevel = UserLevel.USER, Visibility.Visible, Visibility.Collapsed))
+                     Map.refMainMenuVM.SetUnloackImage("pack://application:,,,/Resources/NewPage/padlock.png")
+                  End If
+            End Select
+         Next
+         NotifyPropertyChanged(NameOf(GeneralParametersList))
+      End If
+
+      ' Leggo info se presenti
+      Dim sInfo As String = String.Empty
+      For Each GeneralParameter In m_GeneralParametersList
+         Select Case GeneralParameter.GetType()
+            Case GetType(BooleanGenericParameter)
+               SetbSaveGeneralParameters(True)
+               SetGeneralParametersIsEnable(True)
+               Dim sTmpBoolValue As Boolean = DirectCast(GeneralParameter, BooleanGenericParameter).bValue
+               If Not EgtGetInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge, DirectCast(GeneralParameter, BooleanGenericParameter).bValue) Then
+                  DirectCast(GeneralParameter, BooleanGenericParameter).bValue = sTmpBoolValue
+                  SetbSaveGeneralParameters(False)
+                  SetGeneralParametersIsEnable(False)
+                  Return
+               End If
+            Case GetType(DoubleGenericParameter)
+               SetbSaveGeneralParameters(True)
+               SetGeneralParametersIsEnable(True)
+               Dim sTmpDoubleValue As String = DirectCast(GeneralParameter, DoubleGenericParameter).sValue
+               If Not EgtGetInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge, DirectCast(GeneralParameter, DoubleGenericParameter).sValue) Then
+                  DirectCast(GeneralParameter, DoubleGenericParameter).sValue = sTmpDoubleValue
+                  SetbSaveGeneralParameters(False)
+                  SetGeneralParametersIsEnable(False)
+                  Return
+               End If
+            Case GetType(ComboGenericParameter)
+               SetbSaveGeneralParameters(True)
+               SetGeneralParametersIsEnable(True)
+               Dim sTmpComboValue As String = DirectCast(GeneralParameter, ComboGenericParameter).SelValue.sValue
+               If Not EgtGetInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge, DirectCast(GeneralParameter, ComboGenericParameter).SelValue.sValue) Then
+                  DirectCast(GeneralParameter, ComboGenericParameter).SelValue.sValue = sTmpComboValue
+                  SetbSaveGeneralParameters(False)
+                  SetGeneralParametersIsEnable(False)
+                  Return
+               End If
+            Case GetType(StringGenericParameter)
+               SetbSaveGeneralParameters(True)
+               SetGeneralParametersIsEnable(True)
+               Dim sTmpStringValue As String = DirectCast(GeneralParameter, StringGenericParameter).sValue
+               If Not EgtGetInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge, DirectCast(GeneralParameter, StringGenericParameter).sValue) Then
+                  DirectCast(GeneralParameter, StringGenericParameter).sValue = sTmpStringValue
+                  SetbSaveGeneralParameters(False)
+                  SetGeneralParametersIsEnable(False)
+                  Return
+               End If
+            Case GetType(ListGenericParameter)
+               SetbSaveGeneralParameters(True)
+               SetGeneralParametersIsEnable(True)
+               For Each Item As ToolParameter In DirectCast(GeneralParameter, ListGenericParameter).ListValue
+                  If Item.bIsActive Then
+                     sInfo &= Item.sUUID & "," & Item.sName & ";"
+                     Dim sTmpInfo As String = sInfo
+                     If Not EgtGetInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge, sInfo) Then
+                        sInfo = sTmpInfo
+                        SetbSaveGeneralParameters(False)
+                        SetGeneralParametersIsEnable(False)
+                        Return
+                     End If
+                  End If
+               Next
+         End Select
+      Next
    End Sub
 
 #End Region    ' CONSTRUCTOR
 
+#Region "METHODS"
+
+   Private Sub ReadBtlParams()
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_PROJNUM, m_sPROJNUM)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_PROJNAME, m_sPROJNAME)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_PROJPART, m_sPROJPART)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_PROJGUID, m_sPROJGUID)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_PROJTYPE, m_nPROJTYPE)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_LISTNAME, m_sLISTNAME)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_CUSTOMER, m_sCUSTOMER)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_ARCHITECT, m_sARCHITECT)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_EDITOR, m_sEDITOR)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_DELIVDATE, m_sDELIVDATE)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_EXPDATE, m_sEXPDATE)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_EXPTIME, m_sEXPTIME)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_EXPRELEASE, m_sEXPRELEASE)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_LANGUAGE, m_sLANGUAGE)
+      Dim sValue As String = String.Empty
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_RANGE, sValue)
+      m_SelRANGE = IdNameStruct.IndFromId(IdNameStruct.IdFromName(sValue, ocRANGE), ocRANGE)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_PRT_PROCESSINGQUALITY, sValue)
+      m_SelPROCESSINGQUALITY = IdNameStruct.IndFromId(IdNameStruct.IdFromName(sValue, ocPROCESSINGQUALITY), ocPROCESSINGQUALITY)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_COMPUTERNAME, m_sCOMPUTERNAME)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_USER, m_sUSER)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_SRCFILE, m_sSRCFILE)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_EXPFILE, m_sEXPFILE)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_PRT_RECESS, sValue)
+      m_SelRECESS = IdNameStruct.IndFromId(IdNameStruct.IdFromName(sValue, ocRECESS), ocRECESS)
+      EgtGetInfo(m_nBTLInfoLayerId, BTL_GEN_USERATTRIBUTE, m_sUSERATTRIBUTE)
+   End Sub
+
+#End Region    ' METHODS
+
 #Region "COMMANDS"
 
 #Region "Ok"
@@ -165,6 +741,56 @@ Public Class BTLDataWndVM
    End Property
 
    Public Sub Ok()
+      '' scrivo AISetup
+      'Dim sOldStrategySetup As String = ""
+      'EgtGetInfo(m_nBTLInfoLayerId, "AISETUP", sOldStrategySetup)
+      'If m_SelStrategySetup <> sOldStrategySetup Then
+      '   EgtSetInfo(m_nBTLInfoLayerId, "AISETUP", m_SelStrategySetup)
+      'End If
+
+      Dim sInfo As String = String.Empty
+      If m_bSaveGeneralParameters Then
+         For Each GeneralParameter In GeneralParametersList
+            Select Case GeneralParameter.GetType()
+               Case GetType(BooleanGenericParameter)
+                  EgtSetInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge, DirectCast(GeneralParameter, BooleanGenericParameter).bValue)
+               Case GetType(DoubleGenericParameter)
+                  EgtSetInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge, DirectCast(GeneralParameter, DoubleGenericParameter).sValue)
+               Case GetType(ComboGenericParameter)
+                  EgtSetInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge, DirectCast(GeneralParameter, ComboGenericParameter).SelValue.sValue)
+               Case GetType(StringGenericParameter)
+                  EgtSetInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge, DirectCast(GeneralParameter, StringGenericParameter).sValue)
+               Case GetType(ListGenericParameter)
+                  For Each Item As ToolParameter In DirectCast(GeneralParameter, ListGenericParameter).ListValue
+                     If Item.bIsActive Then
+                        sInfo &= Item.sUUID & "," & Item.sName & ";"
+                        EgtSetInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge, sInfo)
+                     End If
+                  Next
+            End Select
+         Next
+      Else
+         For Each GeneralParameter In m_GeneralParametersList
+            Select Case GeneralParameter.GetType()
+               Case GetType(BooleanGenericParameter)
+                  EgtRemoveInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge)
+               Case GetType(DoubleGenericParameter)
+                  EgtRemoveInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge)
+               Case GetType(ComboGenericParameter)
+                  EgtRemoveInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge)
+               Case GetType(StringGenericParameter)
+                  EgtRemoveInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge)
+               Case GetType(ListGenericParameter)
+                  For Each Item As ToolParameter In DirectCast(GeneralParameter, ListGenericParameter).ListValue
+                     If Item.bIsActive Then
+                        sInfo &= Item.sUUID & "," & Item.sName & ";"
+                        EgtRemoveInfo(m_nBTLInfoLayerId, GeneralParameter.sNameNge)
+                     End If
+                  Next
+            End Select
+         Next
+      End If
+      Map.refProdManagerVM.Save()
       RaiseEvent m_CloseWindow(True)
    End Sub
 

EgtBEAMWALL.Optimizer/BTLPartManager/BTLPartManagerV.xaml

@@ -1,79 +1,49 @@
-<StackPanel x:Class="BTLPartManagerV"
-            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-            Orientation="Horizontal"
-            HorizontalAlignment="Right"
-            DataContext="{StaticResource BTLPartManagerVM}">
-   
-   <Button Command="{Binding NewRawPart_Command}"
-           Visibility="{Binding MachiningPage_Visibility}"
-           ToolTip="{Binding NewRawPart_ToolTip}"
-           IsEnabled="{Binding BTLPartManager_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/NewRawPart.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding NewRawPartLast_Command}"
-           Visibility="{Binding MachiningPage_Visibility}"
-           ToolTip="{Binding NewRawPartLast_ToolTip}"
-           IsEnabled="{Binding BTLPartManager_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/NewRawPartAuto.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding AddToRawPart_Command}"
-           Visibility="{Binding MachiningPage_Visibility}"
-           ToolTip="{Binding AddToRawPart_ToolTip}"
-           IsEnabled="{Binding BTLPartManager_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/AddToRawPart.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding CopyPart_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding CopyPart_ToolTip}"
-           IsEnabled="{Binding CopyPart_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/CopyPart.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding AddPart_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding AddPart_ToolTip}"
-           IsEnabled="{Binding BTLPartManager_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/AddPart.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding RemovePart_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding RemovePart_ToolTip}"
-           IsEnabled="{Binding RemovePart_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/RemovePart.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding Invert_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding InvertSx_ToolTip}"
-           IsEnabled="{Binding RotatePart_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
-      <Image Source="/Resources/PartManager/LeftInvert.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding Invert_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding InvertDx_ToolTip}"
-           IsEnabled="{Binding RotatePart_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
-      <Image Source="/Resources/PartManager/RightInvert.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding BackRotation_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding BackRotation_ToolTip}"
-           IsEnabled="{Binding RotatePart_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
-      <Image Source="/Resources/PartManager/LeftRotate.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding ForwardRotation_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding ForwardRotation_ToolTip}"
-           IsEnabled="{Binding RotatePart_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
-      <Image Source="/Resources/PartManager/RightRotate.png" Stretch="Uniform"/>
-   </Button>
+<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}"
+        CornerRadius="5"
+        BorderThickness="2"
+        BorderBrush="{StaticResource BeamWall_Teal}"
+        Background="{StaticResource BeamWall_FountainBlue}">
 
-</StackPanel>
+   <StackPanel Orientation="Horizontal"
+               Style="{StaticResource OnlyProdBTLPartManager_StackPanel}">
+      <Button Command="{Binding CopyPart_Command}"
+              Click="ClosePopUp_Click"
+              ToolTip="{Binding CopyPart_ToolTip}"
+              IsEnabled="{Binding CopyPart_IsEnabled}"
+              Style="{StaticResource OnlyProdLeftPanel_Button}">
+         <Image Source="/Resources/LeftPanel/CopyPart.png" Stretch="Uniform"/>
+      </Button>
+      <Button Command="{Binding RemovePart_Command}"
+              Click="ClosePopUp_Click"
+              ToolTip="{Binding RemovePart_ToolTip}"
+              IsEnabled="{Binding RemovePart_IsEnabled}"
+              Style="{StaticResource OnlyProdLeftPanel_Button}">
+         <Image Source="/Resources/NewPage/Remove.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding Simulate_ToolTip}"
+              Click="ClosePopUp_Click"
+              Command="{Binding Simulate_Command}"
+              IsEnabled="{Binding Simulate_IsEnabled}"
+              Style="{StaticResource OnlyProdLeftPanel_Button}">
+         <Image Source="/Resources/CALCPanel/Simulate.png" Stretch="Uniform"/>
+      </Button>
+      <Button ToolTip="{Binding Edit_ToolTip}"
+              Click="ClosePopUp_Click"
+              Command="{Binding Edit_Command}"
+              IsEnabled="{Binding Edit_IsEnabled}"
+              Style="{StaticResource OnlyProdLeftPanel_Button}">
+         <Image Source="/Resources/CALCPanel/Edit.png" Stretch="Uniform"/>
+      </Button>
+      <Button Command="{Binding ResetCalc_Command}"
+              Click="ClosePopUp_Click"
+              ToolTip="{Binding ResetCalc_ToolTip}"
+              IsEnabled="{Binding CALCPanel_IsEnabled}"
+              Style="{StaticResource OnlyProdLeftPanel_Button}">
+         <Image Source="/Resources/CALCPanel/ResetCalc.png" Stretch="Uniform"/>
+      </Button>
+   </StackPanel>
+
+</Border>

EgtBEAMWALL.Optimizer/BTLPartManager/BTLPartManagerV.xaml.vb

@@ -1,3 +1,14 @@
 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 OnlyProdBTLPartManagerV As BTLPartManagerV = DirectCast(StackPanel.Parent, BTLPartManagerV)
+      Dim Popup As Primitives.Popup = DirectCast(OnlyProdBTLPartManagerV.Parent, Primitives.Popup)
+
+      If Not IsNothing(Popup) Then
+         Popup.IsOpen = False
+      End If
+   End Sub
+
 End Class

EgtBEAMWALL.Optimizer/BTLPartManager/OnlyProdBTLPartManagerV.xaml

@@ -1,84 +0,0 @@
-<StackPanel x:Class="OnlyProdBTLPartManagerV"
-            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-            DataContext="{StaticResource BTLPartManagerVM}"
-            Style="{StaticResource OnlyProdBTLPartManager_StackPanel}">
-   
-   <Button Command="{Binding CopyPart_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding CopyPart_ToolTip}"
-           IsEnabled="{Binding CopyPart_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/CopyPart.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding RemovePart_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding RemovePart_ToolTip}"
-           IsEnabled="{Binding RemovePart_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/RemovePart.png" Stretch="Uniform"/>
-   </Button>
-   <Button ToolTip="{Binding Simulate_ToolTip}"
-           Command="{Binding Simulate_Command}"
-           IsEnabled="{Binding Simulate_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/CALCPanel/Simulate.png" Stretch="Uniform"/>
-   </Button>
-   <Button ToolTip="{Binding Edit_ToolTip}"
-           Command="{Binding Edit_Command}"
-           IsEnabled="{Binding Edit_IsEnabled}"
-           Visibility="{Binding Edit_Visibility}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/CALCPanel/Edit.png" Stretch="Uniform"/>
-   </Button>
-   <!--<Button Command="{Binding NewRawPart_Command}"
-           Visibility="{Binding MachiningPage_Visibility}"
-           ToolTip="{Binding NewRawPart_ToolTip}"
-           IsEnabled="{Binding BTLPartManager_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/NewRawPart.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding NewRawPartLast_Command}"
-           Visibility="{Binding MachiningPage_Visibility}"
-           ToolTip="{Binding NewRawPartLast_ToolTip}"
-           IsEnabled="{Binding BTLPartManager_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/NewRawPartAuto.png" Stretch="Uniform"/>
-   </Button>-->
-   <!--<Button Command="{Binding AddToRawPart_Command}"
-           Visibility="{Binding MachiningPage_Visibility}"
-           ToolTip="{Binding AddToRawPart_ToolTip}"
-           IsEnabled="{Binding BTLPartManager_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/AddToRawPart.png" Stretch="Uniform"/>
-   </Button>-->
-   <!--<Button Command="{Binding Invert_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding InvertSx_ToolTip}"
-           IsEnabled="{Binding RotatePart_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/PartManager/LeftInvert.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding Invert_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding InvertDx_ToolTip}"
-           IsEnabled="{Binding RotatePart_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/PartManager/RightInvert.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding BackRotation_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding BackRotation_ToolTip}"
-           IsEnabled="{Binding RotatePart_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/PartManager/LeftRotate.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding ForwardRotation_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding ForwardRotation_ToolTip}"
-           IsEnabled="{Binding RotatePart_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/PartManager/RightRotate.png" Stretch="Uniform"/>
-   </Button>-->
-
-</StackPanel>

EgtBEAMWALL.Optimizer/BTLPartManager/OnlyProdBTLPartManagerV.xaml.vb

@@ -1,3 +0,0 @@
-Public Class OnlyProdBTLPartManagerV
-
-End Class

EgtBEAMWALL.Optimizer/BTLViewModel/BTLFeatureVM.vb

@@ -8,6 +8,8 @@ Imports EgtWPFLib5
 Public Class BTLFeatureVM
    Inherits Core.BTLFeatureVM
 
+#Region "FIELDS & PROPERTIES"
+
    Public Property GRPList As ObservableCollection(Of Integer)
       Get
          Return m_BTLFeatureM.GRPList
@@ -150,7 +152,6 @@ Public Class BTLFeatureVM
             End If
             NotifyPropertyChanged(NameOf(nSelVARIANT))
             NotifyPropertyChanged(NameOf(PBTLParamVMList))
-            NotifyPropertyChanged(NameOf(QBTLParamVMList))
             EgtDraw()
          End If
       End Set
@@ -161,18 +162,16 @@ Public Class BTLFeatureVM
       m_BTLFeatureM.CreateFeatureParams(m_BTLFeatureM)
       m_BTLFeatureM.SetDefaultValues()
       CreatePBTLParamVMList()
-      CreateQBTLParamVMList()
       ' aggiorno la feature con nuovo valore
       vPar = Nothing
       sPar = Nothing
       vParQ = Nothing
       m_BTLFeatureM.CalcParamArray(vPar, sPar, vParQ)
-      '' imposto path disegno da mostrare in BottomPanel
-      'If value > 0 AndAlso File.Exists(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & sDescGRP & "." & sDES & ".png") Then
-      '   Map.refBottomPanelVM.SetCurrDraw(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & sDescGRP & "." & sDES & ".png")
-      'Else
-      '   Map.refBottomPanelVM.SetCurrDraw(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & sDescGRP & ".png")
-      'End If
+      If value > 0 AndAlso IO.File.Exists(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & sDescGRP & "." & sDES & ".png") Then
+         Map.refPParameterListVM.SetCurrDraw(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & sDescGRP & "." & sDES & ".png")
+      Else
+         Map.refPParameterListVM.SetCurrDraw(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & sDescGRP & ".png")
+      End If
    End Sub
 
    Public Property sPriority As String
@@ -186,11 +185,8 @@ Public Class BTLFeatureVM
                m_BTLFeatureM.nPriority = nTemp
                ' setto feature da ricalcolare
                ResetCalcFeature()
-               ' se in View
-               If Map.refMainMenuVM.SelPage = Pages.VIEW OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE Then
-                  ' imposto modificato per copie
-                  MyMachGroupPanelM.SetDuploModified(m_BTLPartM.nPartId)
-               End If
+               ' imposto modificato per copie
+               MyMachGroupPanelM.SetDuploModified(m_BTLPartM.nPartId)
             End If
          End If
          NotifyPropertyChanged(NameOf(sPriority))
@@ -215,16 +211,11 @@ Public Class BTLFeatureVM
       Set(value As Boolean)
          Dim bShowSolid As Boolean = Map.refShowBeamPanelVM.ShowSolid_IsChecked
          If value <> m_BTLFeatureM.bDO Then
-            'If Map.refMainMenuVM.SelPage = Pages.VIEW Then
-            '   ' verifico se solido attivo
-            '   If bShowSolid Then Map.refProjectVM.BTLStructureVM.ShowSolid(GDB_ID.NULL, False, False)
-            'End If
             If EgtBeamEnableProcess(nFeatureId, value, Not m_bDO_MultipleUpdate) Then
                m_BTLFeatureM.bDO = value
                ' setto feature da ricalcolare
                ResetCalcFeature()
-               ' se in View
-               If Map.refMainMenuVM.SelPage = Pages.VIEW OrElse (Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE AndAlso Not IsNothing(m_BTLPartM)) Then
+               If Not IsNothing(m_BTLPartM) Then
                   MyMachGroupPanelM.SetDuploModified(m_BTLPartM.nPartId)
                End If
                NotifyPropertyChanged(NameOf(bDO))
@@ -233,10 +224,6 @@ Public Class BTLFeatureVM
                   Item.NotifyPropertyChanged(NameOf(Item.sMsg))
                Next
             End If
-            'If Map.refMainMenuVM.SelPage = Pages.VIEW Then
-            '   ' eventualmente ripristino solido
-            '   If bShowSolid Then Map.refProjectVM.BTLStructureVM.ShowSolid(GDB_ID.NULL, True, False)
-            'End If
             If Not m_bDO_MultipleUpdate Then EgtDraw()
             ' aggiorno stato abilitazione del bottone modifica free contour
             Map.refFeatureManagerVM.SetEditIsEnabled()
@@ -273,39 +260,14 @@ Public Class BTLFeatureVM
          m_SelPBTLParam = value
          If Not IsNothing(m_SelPBTLParam) Then
             ' imposto path disegno da mostrare in BottomPanel
-            'If Not IsNothing(Map.refBottomPanelVM) Then
-            '   Map.refBottomPanelVM.SetCurrDraw(m_SelPBTLParam.sDrawPath)
-            'End If
+            If Not IsNothing(Map.refProjectVM) Then
+               Map.refPParameterListVM.SetCurrDraw(m_SelPBTLParam.sDrawPath)
+            End If
          End If
          NotifyPropertyChanged(NameOf(SelPBTLParam))
       End Set
    End Property
 
-   Private m_QBTLParamVMList As ObservableCollection(Of BTLParamVM)
-   Public Property QBTLParamVMList As ObservableCollection(Of BTLParamVM)
-      Get
-         Return m_QBTLParamVMList
-      End Get
-      Set(value As ObservableCollection(Of BTLParamVM))
-         m_QBTLParamVMList = value
-      End Set
-   End Property
-
-   Protected m_SelQParam As BTLParamVM
-   Public Property SelQBTLParam As BTLParamVM
-      Get
-         Return m_SelQParam
-      End Get
-      Set(value As BTLParamVM)
-         m_SelQParam = value
-         'If Not IsNothing(m_SelQParam) AndAlso Not IsNothing(Map.refBottomPanelVM) Then
-         '   ' imposto path disegno da mostrare in BottomPanel
-         '   Map.refBottomPanelVM.SetCurrDraw(m_SelQParam.sDrawPath)
-         'End If
-         NotifyPropertyChanged(NameOf(SelQBTLParam))
-      End Set
-   End Property
-
    Public ReadOnly Property Edit_Visibility As Visibility
       Get
          Return If(BTLFeatureM.IsFreeContour AndAlso Not Map.refFreeContourManagerVM.bIsActive, Visibility.Visible, Visibility.Collapsed)
@@ -349,15 +311,15 @@ Public Class BTLFeatureVM
    Private m_cmdEditFeature As ICommand
    Private m_cmdStategyCmd As ICommand
 
+#End Region    ' FIELDS & PROPERTIES
+
 #Region "CONSTRUCTOR"
 
    Sub New(BTLFeatureM As BTLFeatureM, BTLPartM As BTLPartM)
       m_BTLFeatureM = BTLFeatureM
       AddHandler m_BTLFeatureM.PBTLParamAdded, AddressOf OnPBTLParamAdded
-      AddHandler m_BTLFeatureM.QBTLParamAdded, AddressOf OnQBTLParamAdded
       m_BTLPartM = BTLPartM
       CreatePBTLParamVMList()
-      CreateQBTLParamVMList()
       NotifyPropertyChanged(NameOf(Calc_Background))
       NotifyPropertyChanged(NameOf(CALC_ROT_Visibility))
       NotifyPropertyChanged(NameOf(CALC_ERR_Letter))
@@ -367,10 +329,7 @@ Public Class BTLFeatureVM
 
    Sub New(BTLFeatureM As BTLFeatureM)
       m_BTLFeatureM = BTLFeatureM
-      AddHandler m_BTLFeatureM.QBTLParamAdded, AddressOf OnQBTLParamAdded
       m_BTLPartM = Nothing
-      Dim Part As PartM = BTLFeatureM.ParentPart
-      If Part.nType = BWType.WALL Then CreateQBTLParamVMList()
       NotifyPropertyChanged(NameOf(Calc_Background))
       NotifyPropertyChanged(NameOf(CALC_ROT_Visibility))
       NotifyPropertyChanged(NameOf(CALC_ERR_Letter))
@@ -394,23 +353,11 @@ Public Class BTLFeatureVM
 
    End Sub
 
-   Private Sub CreateQBTLParamVMList()
-      Dim all As List(Of BTLParamVM) = (From BTLParamM In m_BTLFeatureM.GetQBTLParams()
-                                        Select New BTLParamVM(BTLParamM, m_BTLFeatureM)).ToList()
-
-      For Each BTLParamVM As BTLParamVM In all
-         AddHandler BTLParamVM.PropertyChanged, AddressOf OnQBTLParamVMPropertyChanged
-      Next
-
-      m_QBTLParamVMList = New ObservableCollection(Of BTLParamVM)(all)
-      AddHandler m_QBTLParamVMList.CollectionChanged, AddressOf OnQBTLParamVMListChanged
-   End Sub
-
    ' funzione che aggiorna lo stato, la rotazione e gli errori dopo calcolo
-   Friend Sub CalcFeatureUpdate(ERR As Integer, ROT As Integer, MSG As String)
-      EgtSetInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW, ITG_PROJ_ERR, ITG_PROD_ERR), ERR, True)
-      EgtSetInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW, ITG_PROJ_MSG, ITG_PROD_MSG), MSG, True)
-      EgtSetInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW, ITG_PROJ_ROT, ITG_PROD_ROT), ROT, True)
+   Friend Sub CalcFeatureUpdate(nProgramPage As Integer, ERR As Integer, ROT As Integer, MSG As String)
+      EgtSetInfo(nFeatureId, If(nProgramPage = ProjectType.PROJ, ITG_PROJ_ERR, ITG_PROD_ERR), ERR, True)
+      EgtSetInfo(nFeatureId, If(nProgramPage = ProjectType.PROJ, ITG_PROJ_MSG, ITG_PROD_MSG), MSG, True)
+      EgtSetInfo(nFeatureId, If(nProgramPage = ProjectType.PROJ, ITG_PROJ_ROT, ITG_PROD_ROT), ROT, True)
       m_BTLFeatureM.nCALC_ERR = ERR
       m_BTLFeatureM.nCALC_ROT = ROT
       m_BTLFeatureM.sCALC_MSG = MSG
@@ -494,10 +441,6 @@ Public Class BTLFeatureVM
                                                        DestBTLPart.NewProcId(), m_BTLFeatureM.frFRAME, vPar, sPar, vParQ, nCrvId, nCrv2Id)
       ' se è stata creata
       If nNewFeatureId <> GDB_ID.NULL Then
-         ' Riporto eventuali indicazioni di parametri Q custom
-         For Each QPar In QBTLParamVMList
-            If QPar.bCustom Then EgtSetInfo(nNewFeatureId, QPar.sName & "A", 1)
-         Next
          ' Riporto priority
          EgtSetInfo(nNewFeatureId, BTL_FTR_PRIORITY, m_BTLFeatureM.nPriority)
          Dim NewFeat As BTLFeatureM = BTLFeatureM.CreateBTLFeature(m_BTLPartM, nNewFeatureId)
@@ -622,11 +565,48 @@ Public Class BTLFeatureVM
    End Property
 
    Public Sub Strategy()
-      ' disattivo modalita' contorno libero
-      Map.refProjectVM.SetSelManagerTab(ProjectVM.ManagerTab.STRATEGYMANAGER)
+      Map.refProjectVM.SetSelManagerTab(ProjectVM.StrategyManagerTab.STRATEGYMANAGER)
+      ' Disabilito LeftPanel
+      Map.refProjectVM.SetOnlyProdLeftPanel_IsEnabled(False)
+      Map.refProjectVM.SetOnlyProdLeftPanel_Opacity(0.2)
+      Map.refForcedStrategyPanelVM.Init(BTLFeatureM)
    End Sub
 
-#End Region ' Cancel
+#End Region ' Strategy
+
+#Region "Edit"
+
+   ''' <summary>
+   ''' Returns a command that do Open.
+   ''' </summary>
+   Public ReadOnly Property EditFeature_Command As ICommand
+      Get
+         If m_cmdEditFeature Is Nothing Then
+            m_cmdEditFeature = New Command(AddressOf EditFeature)
+         End If
+         Return m_cmdEditFeature
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Execute the Open.  This method is invoked by the OpenCommand.
+   ''' </summary>
+   Friend Sub EditFeature()
+      If Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM) Then
+         'Map.refForcedStrategyBTLVM.Init(Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.BTLFeatureM)
+         Map.refForcedStrategyPanelVM.Init(Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.BTLFeatureM)
+      End If
+      Map.refProjectVM.SetRawPartManagerVisibility(Visibility.Collapsed)
+      'Map.refProjectVM.SetStrategyManagerVisibility(Visibility.Visible)
+      Map.refProjectVM.SetSelManagerTab(ProjectVM.StrategyManagerTab.FEATUREMANAGERBTL)
+      Map.refProjectVM.SetSelFeatureManagerTab(ProjectVM.FeatureManagerTab.STRATEGYMANAGERBTL)
+      ' Disabilito LeftPanel
+      Map.refProjectVM.SetOnlyProdLeftPanel_IsEnabled(False)
+      Map.refProjectVM.SetOnlyProdLeftPanel_Opacity(0.2)
+   End Sub
+
+#End Region ' Edit
+
 
 #End Region    ' COMMANDS
 
@@ -636,10 +616,6 @@ Public Class BTLFeatureVM
       Dim BTLParamVM As New BTLParamVM(e.NewBTLParam, m_BTLFeatureM)
       PBTLParamVMList.Add(BTLParamVM)
    End Sub
-   Private Sub OnQBTLParamAdded(sender As Object, e As BTLParamAddedEventArgs) Handles m_BTLFeatureM.QBTLParamAdded
-      Dim BTLParamVM As New BTLParamVM(e.NewBTLParam, m_BTLFeatureM)
-      QBTLParamVMList.Add(BTLParamVM)
-   End Sub
 
    Private Sub OnPBTLParamVMListChanged(sender As Object, e As NotifyCollectionChangedEventArgs)
       If Not IsNothing(e.NewItems) AndAlso e.NewItems.Count > 0 Then
@@ -653,18 +629,6 @@ Public Class BTLFeatureVM
          Next
       End If
    End Sub
-   Private Sub OnQBTLParamVMListChanged(sender As Object, e As NotifyCollectionChangedEventArgs)
-      If Not IsNothing(e.NewItems) AndAlso e.NewItems.Count > 0 Then
-         For Each BTLParamVM As BTLParamVM In e.NewItems
-            AddHandler BTLParamVM.PropertyChanged, AddressOf OnQBTLParamVMPropertyChanged
-         Next
-      End If
-      If Not IsNothing(e.OldItems) AndAlso e.OldItems.Count > 0 Then
-         For Each BTLParamVM As BTLParamVM In e.OldItems
-            RemoveHandler BTLParamVM.PropertyChanged, AddressOf OnQBTLParamVMPropertyChanged
-         Next
-      End If
-   End Sub
 
    Private Sub OnPBTLParamVMPropertyChanged(sender As Object, e As PropertyChangedEventArgs)
       Select Case e.PropertyName
@@ -675,15 +639,6 @@ Public Class BTLFeatureVM
             ResetCalcFeature()
       End Select
    End Sub
-   Private Sub OnQBTLParamVMPropertyChanged(sender As Object, e As PropertyChangedEventArgs)
-      Select Case e.PropertyName
-         Case NameOf(sender.dValue), NameOf(sender.sValue)
-            ' riseleziono questa feature
-            SelGeomFeature()
-            ' rendo non calcolata questa feature
-            ResetCalcFeature()
-      End Select
-   End Sub
 
 #End Region    ' EVENTS
 

EgtBEAMWALL.Optimizer/BTLViewModel/BTLParamVM.vb

@@ -5,6 +5,8 @@ Imports EgtWPFLib5
 Public Class BTLParamVM
    Inherits VMBase
 
+#Region "FIELDS & PROPERTIES"
+
    Protected m_BTLParamM As BTLParamM
    Public ReadOnly Property BTLParamM As BTLParamM
       Get
@@ -142,7 +144,7 @@ Public Class BTLParamVM
                Dim INPROD As Integer = 0
                EgtDuploInRawCount(nPartId, INPROD)
                ' recupero pezzi lavorati da Db
-               Dim nDoneCnt As Integer = DbControllers.m_ProjController.getCountItemState(ProjectManagerVM.CurrProj.nProjId, nPartId, ItemState.Assigned)
+               Dim nDoneCnt As Integer = DbControllers.m_ProjController.getCountItemState(ProjectManagerVM.CurrProd.nProdId, nPartId, ItemState.Assigned)
                ' controllo se i pezzi sono lavorati se si messaggio di warning altrimenti messaggio informativo
                If nDoneCnt > 0 Then
                   MessageBox.Show("Pezzo " & nPartId & " non modificato in " & INPROD & " barra/e perche' settata/e come da produrre", EgtMsg(30009), MessageBoxButton.OK, MessageBoxImage.Warning)
@@ -252,6 +254,8 @@ Public Class BTLParamVM
       End Get
    End Property
 
+#End Region    ' FIELDS & PROPERTIES
+
 #Region "CONSTRUCTOR"
 
    Sub New(BTLParamM As BTLParamM, BTLFeatureM As BTLFeatureM)
@@ -266,6 +270,8 @@ Public Class BTLParamVM
 
 #End Region    ' CONSTRUCTOR
 
+#Region "METHODS"
+
    Friend Sub UpdateParamValue(dNewValue As Double, sNewValue As String, Optional bDraw As Boolean = True)
       ' verifico se solido attivo
       Dim bShowSolid As Boolean = Map.refShowBeamPanelVM.ShowSolid_IsChecked
@@ -331,4 +337,6 @@ Public Class BTLParamVM
       If bDraw Then EgtDraw()
    End Sub
 
+#End Region    ' METHODS
+
 End Class

EgtBEAMWALL.Optimizer/BTLViewModel/BTLPartVM.vb

@@ -1,10 +1,9 @@
 Imports System.Collections.ObjectModel
-Imports EgtWPFLib5
-Imports EgtUILib
-Imports EgtBEAMWALL.Core
 Imports System.Collections.Specialized
 Imports System.ComponentModel
-Imports System.IO
+Imports EgtBEAMWALL.Core
+Imports EgtUILib
+Imports EgtWPFLib5
 
 Public Class BTLPartVM
    Inherits VMBase
@@ -90,7 +89,7 @@ Public Class BTLPartVM
                         EgtOutLog("Trovato Duplo Ghost")
                      Else
                         Dim MachGroupModel = Nothing
-                        If Not IsNothing(Map.refOnlyProdManagerVM) Then
+                        If Not IsNothing(Map.refProdManagerVM) Then
                            MachGroupModel = DbControllers.m_MachGroupController.FindByMachGroupId(ProjectManagerVM.CurrProj.nProdId, nMachgroupId)
                         End If
                         If Not IsNothing(MachGroupModel) AndAlso MachGroupModel.State > ItemState.ND Then
@@ -1525,50 +1524,84 @@ Public Class BTLPartVM
       End Get
    End Property
 
+   Private m_PrevSelBTLFeatureVM As BTLFeatureVM
    Public m_SelBTLFeatureVM As BTLFeatureVM
    Public Property SelBTLFeatureVM As BTLFeatureVM
       Get
          Return m_SelBTLFeatureVM
       End Get
       Set(value As BTLFeatureVM)
+         If Not IsNothing(m_PrevSelBTLFeatureVM) Then m_PrevSelBTLFeatureVM.DeselGeomFeature()
          m_SelBTLFeatureVM = value
-         'If Map.refMainMenuVM.SelPage = Pages.VIEW OrElse (Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE AndAlso Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.PART) Then
          If Not IsNothing(m_SelBTLFeatureVM) Then
-               DirectCast(m_SelBTLFeatureVM, BTLFeatureVM).SelGeomFeature()
-               ' deseleziono i parametri
-               If Not IsNothing(SelBTLFeatureVM.SelPBTLParam) Then SelBTLFeatureVM.SelPBTLParam = Nothing
-               ' rinfresco bottoni freecontour
-               m_SelBTLFeatureVM.RefreshFCMBtnVisibility()
-               ' aggiorno stato abilitazione del bottone modifica free contour
-               If Map.refMainMenuVM.SelPage <> Pages.ONLYPRODPAGE Then
-                  Map.refFeatureManagerVM.SetEditIsEnabled()
-                  Map.refFeatureManagerVM.NotifyPropertyChanged(NameOf(Map.refFeatureManagerVM.Priority_Visibility))
-               End If
-               ' Controlo se nPRC è 900 rendo visibile combobox Variant
-               If m_SelBTLFeatureVM.nPRC = 900 Then
-                  Map.refFeatureManagerVM.SetVariant_Visibility(Visibility.Visible)
-                  Dim nVariant As Integer = 0
-                  If Integer.TryParse(m_SelBTLFeatureVM.sDES, nVariant) Then
-                     m_SelBTLFeatureVM.nSelVARIANT = nVariant
-                  End If
-               Else
-                  If Map.refMainMenuVM.SelPage <> Pages.ONLYPRODPAGE Then Map.refFeatureManagerVM.SetVariant_Visibility(Visibility.Collapsed)
-               End If
-            Else
-               EgtDeselectAll()
-            End If
-            If Not IsNothing(Map.refFeatureListManagerVM) Then Map.refFeatureListManagerVM.FeatureSelectionChanged()
-         'End If
-         If Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE Then
-            EgtResetCurrMachGroup()
-            ResetSearchFound()
+            m_SelBTLFeatureVM.SelGeomFeature()
+            m_PrevSelBTLFeatureVM = value
+            Map.refPParameterListVM.SetCurrDraw(DirectCast(m_SelBTLFeatureVM, BTLFeatureVM).sDrawPath)
+            ' deseleziono i parametri
+            If Not IsNothing(SelBTLFeatureVM.SelPBTLParam) Then SelBTLFeatureVM.SelPBTLParam = Nothing
+            ' rinfresco bottoni freecontour
+            m_SelBTLFeatureVM.RefreshFCMBtnVisibility()
             Map.refStatisticsTimePanelVM.SetViewPage_Visibility(Visibility.Visible)
             Map.refStatisticsTimePanelVM.SetMachiningPage_Visibility(Visibility.Collapsed)
+            ' Controlo se nPRC è 900 rendo visibile combobox Variant
+            If m_SelBTLFeatureVM.nPRC = 900 Then
+               Map.refFeatureManagerVM.SetVariant_Visibility(Visibility.Visible)
+               Dim nVariant As Integer = 0
+               If Integer.TryParse(m_SelBTLFeatureVM.sDES, nVariant) Then
+                  m_SelBTLFeatureVM.nSelVARIANT = nVariant
+               End If
+               If m_SelBTLFeatureVM.nSelVARIANT > 0 AndAlso
+                     System.IO.File.Exists(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & m_SelBTLFeatureVM.sDescGRP & "." & m_SelBTLFeatureVM.sDES & ".png") Then
+                  ' imposto path disegno da mostrare in BottomPanel
+                  Map.refPParameterListVM.SetCurrDraw(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & m_SelBTLFeatureVM.sDescGRP & "." & m_SelBTLFeatureVM.sDES & ".png")
+               Else
+                  Map.refPParameterListVM.SetCurrDraw(Map.refMainWindowVM.MainWindowM.sResourcesRoot & "\Features\" & m_SelBTLFeatureVM.sDescGRP & ".png")
+               End If
+            Else
+               Map.refFeatureManagerVM.SetVariant_Visibility(Visibility.Collapsed)
+            End If
+            ' Forzo strategia
+            'Map.refForcedStrategyBTLVM.Init(m_SelBTLFeatureVM.BTLFeatureM)
+            Map.refForcedStrategyPanelVM.Init(m_SelBTLFeatureVM.BTLFeatureM)
+            'Else
+            '   EgtDeselectAll()
          End If
+         If Not IsNothing(Map.refFeatureListManagerVM) Then Map.refFeatureListManagerVM.FeatureSelectionChanged()
          EgtDraw()
          NotifyPropertyChanged(NameOf(SelBTLFeatureVM))
+         ' se modalità building, la tolgo
+         If Not IsNothing(m_SelBTLFeatureVM) AndAlso Map.refShowBeamPanelVM.ShowBuilding_IsChecked Then
+            Map.refProjectVM.BTLStructureVM.ShowBuilding(False, False)
+            Map.refShowBeamPanelVM.SetShowBuilding(False)
+         End If
       End Set
    End Property
+   'Public Property SelBTLFeatureVMOnlyGraph As BTLFeatureVM
+   '   Get
+   '      Return m_SelBTLFeatureVM
+   '   End Get
+   '   Set(value As BTLFeatureVM)
+   '      m_SelBTLFeatureVM = value
+   '      If Not IsNothing(m_SelBTLFeatureVM) Then
+   '         m_SelBTLFeatureVM.SelGeomFeature()
+   '         ' deseleziono i parametri
+   '         If Not IsNothing(SelBTLFeatureVM.SelPBTLParam) Then SelBTLFeatureVM.SelPBTLParam = Nothing
+   '      End If
+   '      If Not IsNothing(Map.refFeatureListManagerVM) Then Map.refFeatureListManagerVM.FeatureSelectionChanged()
+   '      EgtResetCurrMachGroup()
+   '      ResetSearchFound()
+   '      Map.refStatisticsTimePanelVM.SetViewPage_Visibility(Visibility.Visible)
+   '      Map.refStatisticsTimePanelVM.SetMachiningPage_Visibility(Visibility.Collapsed)
+   '      EgtDraw()
+   '      NotifyPropertyChanged(NameOf(SelBTLFeatureVM))
+   '      NotifyPropertyChanged(NameOf(SelBTLFeatureVMOnlyGraph))
+   '      ' se modalità building, la tolgo
+   '      If Not IsNothing(m_SelBTLFeatureVM) AndAlso Map.refShowBeamPanelVM.ShowBuilding_IsChecked Then
+   '         Map.refProjectVM.BTLStructureVM.ShowBuilding(False, False)
+   '         Map.refShowBeamPanelVM.SetShowBuilding(False)
+   '      End If
+   '   End Set
+   'End Property
 
    Private m_Calc_PartEnd As Boolean = False
    Public ReadOnly Property Calc_PartEnd As Boolean
@@ -1594,7 +1627,7 @@ Public Class BTLPartVM
 
    Public ReadOnly Property Search_Background As SolidColorBrush
       Get
-         Return If(m_bSearchFound AndAlso Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE, Brushes.Purple, Brushes.Transparent)
+         Return If(m_bSearchFound, Brushes.Purple, Brushes.Transparent)
       End Get
    End Property
 
@@ -1626,6 +1659,33 @@ Public Class BTLPartVM
       NotifyPropertyChanged(NameOf(IsSettingBtnOpen))
    End Sub
 
+   Public Property IsInverted As Boolean
+      Get
+         Return BTLPartM.nINVERTED = 180
+      End Get
+      Set(value As Boolean)
+         ' eseguo inversione
+         m_BTLPartM.Inversion(Map.refProjectVM.BTLStructureVM.nPROJTYPE)
+         ' setto part e tutte le feature da ricalcolare
+         ResetCalcTotalPart()
+         EgtDraw()
+         ' imposto lock
+         bLockInversion = True
+         NotifyPropertyChanged(NameOf(IsInverted))
+      End Set
+   End Property
+
+   Private m_IsRowEnabled As Boolean = True
+   Public ReadOnly Property IsRowEnabled As Boolean
+      Get
+         Return m_IsRowEnabled
+      End Get
+   End Property
+   Friend Sub SetIsRowEnabled(bIsRowEnabled As Boolean)
+      m_IsRowEnabled = bIsRowEnabled
+      NotifyPropertyChanged(NameOf(IsRowEnabled))
+   End Sub
+
    ' Definizione comandi
    Private m_cmdInvert As ICommand
    Private m_cmdBackRotation As ICommand
@@ -1688,6 +1748,7 @@ Public Class BTLPartVM
       ' Aggiorno stato da stati feature
       CalcGlobalUpdate()
       NotifyPropertyChanged(NameOf(CALC_FALL_Visibility))
+      NotifyPropertyChanged(NameOf(IsInverted))
    End Sub
 
    Private Function FeatureFilter(Feature As Object) As Boolean
@@ -1719,10 +1780,6 @@ Public Class BTLPartVM
             AddHandler BTLParamVM.PropertyChanged, AddressOf OnBTLPParamVMPropertyChanged
          Next
          AddHandler BTLFeatureVM.PBTLParamVMList.CollectionChanged, AddressOf OnBTLPParamVMListChanged
-         For Each BTLParamVM As BTLParamVM In BTLFeatureVM.QBTLParamVMList
-            AddHandler BTLParamVM.PropertyChanged, AddressOf OnBTLQParamVMPropertyChanged
-         Next
-         AddHandler BTLFeatureVM.QBTLParamVMList.CollectionChanged, AddressOf OnBTLQParamVMListChanged
       Next
 
       m_BTLFeatureVMList = New ObservableCollection(Of BTLFeatureVM)(all)
@@ -1869,7 +1926,7 @@ Public Class BTLPartVM
       Dim nNewPartId As Integer = EgtBeamCreatePart()
       If nNewPartId = GDB_ID.NULL Then Return Nothing
       ' scrivo info proj
-      If Not IsNothing(Map.refOnlyProdManagerVM) Then
+      If Not IsNothing(Map.refProdManagerVM) Then
          EgtSetInfo(nNewPartId, BTL_PRT_PROJ, ProjectManagerVM.CurrProd.nProjIdList(0))
       End If
       EgtBeamSetPartProdNbr(m_BTLStructureM.NewPDN())
@@ -2230,16 +2287,9 @@ Public Class BTLPartVM
       '   .FullOpen = True,
       '   .Color = Col.ToColor()
       '}
-      Dim ColorDlg As Object
-      If bOnlyProd Then
-         ColorDlg = New OnlyProdEgtColorPickerV(Application.Current.MainWindow, New EgtColorPickerVM()) With {
-            .Color = Col.ToColor()
-         }
-      Else
-         ColorDlg = New EgtColorPickerV(Application.Current.MainWindow, New EgtColorPickerVM()) With {
-            .Color = Col.ToColor()
-         }
-      End If
+      Dim ColorDlg As New OnlyProdEgtColorPickerV(Application.Current.MainWindow, New EgtColorPickerVM()) With {
+         .Color = Col.ToColor()
+      }
       ' Visualizzo dialogo
       If ColorDlg.ShowDialog() <> Forms.DialogResult.OK Then Return False
       ' Recupero colore scelto
@@ -2288,102 +2338,9 @@ Public Class BTLPartVM
    ''' Execute the Open.  This method is invoked by the OpenCommand.
    ''' </summary>
    Friend Sub Verify()
-      If ((IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.BTLStructureVM) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM))) Then Return
-      Dim ProjType As BWType
-      Dim BarList() As EgtBEAMWALL.Core.Bar = Nothing
-      ProjType = ProjectManagerVM.CurrProd.nType
-      If Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.PART Then
-         If Not CreateBarToVerify(Pages.VIEW, ProjType, BarList) Then Return
-         ' lancio calcolo
-         EgtBEAMWALL.Core.CalcIntegration.Run(BarList, Map.refOnlyProdManagerVM.CurrProj.sProjDirPath, AddressOf ManageCalc)
-      ElseIf Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.MACHGROUP Then
-         If Not CreateBarToVerify(Pages.MACHINING, ProjType, BarList) Then Return
-         ' lancio calcolo
-         EgtBEAMWALL.Core.CalcIntegration.Run(BarList, Map.refOnlyProdManagerVM.CurrProd.sProdDirPath, AddressOf ManageCalc)
-      End If
-   End Sub
-
-   Private Function CreateBarToVerify(SelPage As Pages, ProjType As BWType, ByRef BarList As Bar()) As Boolean
-      If SelPage = Pages.VIEW Then
-         If Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) Then
-            Dim TempBarList(0) As EgtBEAMWALL.Core.Bar
-            If Not Map.refProjectVM.BTLStructureVM.SelBTLPart.bDO Then Return False
-            Dim Bar As New EgtBEAMWALL.Core.Bar With {.nBarId = Map.refProjectVM.BTLStructureVM.SelBTLPart.nPartId,
-                                                      .nProgramPage = ProjectType.PROJ,
-                                                      .nProjType = ProjType,
-                                                      .bBarOk = True,
-                                                      .nMachineName = Map.refMachinePanelVM.SelectedMachine.Name,
-                                                      .nGlobState = Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState}
-            Select Case Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState
-               Case Core.CalcStates.OK, CalcStates.INFO
-                  Bar.nCmdType = CalcIntegration.CmdTypes.GENERATE
-               Case Else
-                  If Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState = CalcStates.NOTCALCULATED OrElse Map.refProjectVM.BTLStructureVM.SelBTLPart.nFeaturesGlobalState > CalcStates.INFO Then
-                     Dim sBTLPartFilePath As String = ProjectManagerVM.CurrProj.sProjDirPath & "\" & Map.refProjectVM.BTLStructureVM.SelBTLPart.nPDN.ToString() & ".ori.bwe"
-                     If File.Exists(sBTLPartFilePath) Then File.Delete(sBTLPartFilePath)
-                  End If
-                  Bar.nCmdType = CalcIntegration.CmdTypes.CHECKGEN
-            End Select
-            TempBarList(0) = Bar
-            BarList = TempBarList
-         Else
-            Return False
-         End If
-         ' disabilito interfaccia
-         Map.refProjectVM.SetCalcRunning(True)
-      ElseIf SelPage = Pages.MACHINING Then
-         If Not IsNothing(Map.refMachGroupPanelVM.SelectedMachGroup) Then
-            Dim SelMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
-            ' se barra gia' assegnata a supervisore, esco
-            If SelMachGroup.nProduction_State >= ItemState.Assigned Then Return False
-            Dim TempBarList(0) As EgtBEAMWALL.Core.Bar
-            Dim MachineName As String = ""
-            EgtGetMachGroupMachineName(SelMachGroup.Id, MachineName)
-            Dim Bar As New EgtBEAMWALL.Core.Bar With {.nBarId = SelMachGroup.Id,
-                                                      .nProgramPage = ProjectType.PROD,
-                                                      .nProjType = ProjType,
-                                                      .bBarOk = True,
-                                                      .nMachineName = MachineName,
-                                                      .nGlobState = SelMachGroup.nGlobalState}
-            Select Case SelMachGroup.nGlobalState
-               Case Core.CalcStates.OK, CalcStates.INFO
-                  Bar.nCmdType = CalcIntegration.CmdTypes.GENERATE
-               Case Else
-                  If SelMachGroup.nGlobalState = CalcStates.NOTCALCULATED OrElse (SelMachGroup.nPartsGlobalState > CalcStates.INFO) Then
-                     Dim sMachGroupFilePath As String = ProjectManagerVM.CurrProd.sProdDirPath & "\" & SelMachGroup.Name.ToString() & ".ori.bwe"
-                     If File.Exists(sMachGroupFilePath) Then File.Delete(sMachGroupFilePath)
-                  End If
-                  Bar.nCmdType = CalcIntegration.CmdTypes.CHECKGEN
-            End Select
-            TempBarList(0) = Bar
-            BarList = TempBarList
-         Else
-            Return False
-         End If
-         ' disabilito interfaccia
-         Map.refProjectVM.SetCalcRunning(True)
-      End If
-      Return True
-   End Function
-
-   ' funzione che gestisce risposta da thread di verifica, aggiorna progress e segnala comando di interruzione
-   Private Sub ManageCalc(dProgress As Double, sProgress As String, ByRef bCancel As Boolean)
-      If dProgress = 0 Then
-         Map.refMyStatusBarVM.SetLoadingProgress_Visibility(True)
-         Map.refMyStatusBarVM.SetStopProgress_IsActive(True)
-         Map.refMyStatusBarVM.SetStopProgress_IsEnabled(True)
-         Map.refMyStatusBarVM.SetOutputMessage(sProgress)
-         Map.refMyStatusBarVM.SetStopProgress_IsActive(True)
-         Map.refMyStatusBarVM.SetStopProgress_IsEnabled(True)
-      ElseIf dProgress = 1 Then
-         Map.refMyStatusBarVM.SetLoadingProgress_Visibility(False)
-         Map.refMyStatusBarVM.SetStopProgress_IsActive(False)
-         Map.refMyStatusBarVM.SetStopProgress_IsEnabled(False)
-         Map.refMyStatusBarVM.SetOutputMessage(sProgress, 3)
-      End If
-      bCancel = Map.refMyStatusBarVM.bStopProgress
-      Map.refMyStatusBarVM.SetLoadingProgress(dProgress * 100)
-      Map.refMyStatusBarVM.SetOutputMessage(sProgress)
+      If IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.BTLStructureVM) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM) Then Return
+      Map.refCALCPanelVM.Verify(ProjectType.PROJ)
+      Return
    End Sub
 
 #End Region ' Verify
@@ -2567,7 +2524,7 @@ Public Class BTLPartVM
          nRawId = EgtGetFirstRawPart()
       End While
       Dim sLogPath As String = Map.refMainWindowVM.MainWindowM.sTempDir & "\RawPartLog.txt"
-      If Not ExecBeam(sLogPath, Map.refMachinePanelVM.SelectedMachine.Name, CalcIntegration.CmdTypes.RAWPART, False) Then
+      If Not ExecBeam(sLogPath, ProjectManagerVM.CurrProd.sMachine, CalcIntegration.CmdTypes.RAWPART, False) Then
          EgtOutLog("Fallito inserimento grezzo nella barra in AddPartToBeam")
          ' elimino duplo 
          For Each nDuploId In nPartDuploIdList
@@ -2589,7 +2546,7 @@ Public Class BTLPartVM
             EgtRemoveRawPart(nRawId)
             nRawId = EgtGetFirstRawPart()
          End While
-         If Not ExecBeam(sLogPath, Map.refMachinePanelVM.SelectedMachine.Name, CalcIntegration.CmdTypes.RAWPART, False) Then
+         If Not ExecBeam(sLogPath, ProjectManagerVM.CurrProd.sMachine, CalcIntegration.CmdTypes.RAWPART, False) Then
             EgtOutLog("Fallita esecuzione ExecBeam. ERRORE")
          End If
       End If
@@ -2742,6 +2699,7 @@ Public Class BTLPartVM
             CalcGlobalUpdate(True)
             ' imposto path disegno da mostrare in BottomPanel
             Dim SelPBTLParam As BTLParamVM = Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.SelPBTLParam
+            If Not IsNothing(Map.refProjectVM) AndAlso Not IsNothing(SelPBTLParam) Then Map.refPParameterListVM.SetCurrDraw(SelPBTLParam.sDrawPath)
          Case NameOf(sender.bDO), NameOf(sender.sPriority)
             NotifyPropertyChanged(NameOf(bDOALL))
             ' setto pezzo da ricalcolare
@@ -2761,6 +2719,6 @@ Public Class BTLPartVM
       End Select
    End Sub
 
-#End Region
+#End Region    ' EVENTS
 
 End Class

EgtBEAMWALL.Optimizer/BTLViewModel/BTLRawPartVM.vb

@@ -1,3 +0,0 @@
-Friend Class BTLRawPartVM
-
-End Class

EgtBEAMWALL.Optimizer/BeamMachiningsWindow/BeamMachiningsWindowV.xaml

@@ -1,155 +0,0 @@
-<EgtWPFLib5:EgtCustomWindow x:Class="BeamMachiningsWindowV"
-                            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:EgtBEAMWALLCORE="clr-namespace:EgtBEAMWALL.Core;assembly=EgtBEAMWALL.Core"
-                            Title="{Binding Title}"
-                            Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
-                            WindowStyle="None" ResizeMode="NoResize"
-                            Width="500" Height="450"
-                            IsResizable="False"
-                            IsMinimizable="False" WindowStartupLocation="CenterOwner" ShowInTaskbar="False"
-                            CloseCommand="{Binding Close_Command,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}">
-
-   <Grid Margin="5,5,5,0">
-      <Grid.RowDefinitions>
-         <RowDefinition Height="Auto"/>
-         <RowDefinition Height="1*"/>
-         <RowDefinition Height="Auto"/>
-      </Grid.RowDefinitions>
-      
-      <TabControl ItemsSource="{Binding MachiningList}"
-                  SelectedItem="{Binding SelMachining}"
-                  IsSynchronizedWithCurrentItem="True"
-                  Margin="5,0,5,0"
-                  Style="{StaticResource TabControl_OnlyHeaders}"/>
-
-      <EgtBEAMWALLCORE:EgtDataGrid Grid.Row="1"
-                ItemsSource="{Binding TableRowList}"
-                SelectedIndex="{Binding SelRowIndex}"
-                AutoGenerateColumns="False"
-                CanUserResizeRows="False"
-                SelectionMode="Single"
-                ScrollViewer.CanContentScroll="True" 
-                ScrollViewer.VerticalScrollBarVisibility="Auto"
-                ScrollViewer.HorizontalScrollBarVisibility="Auto"
-                Margin="0,0,0,5"
-                BindingColumns="{Binding BeamMachiningsColumns}">
-         
-         <DataGrid.RowStyle>
-            <Style TargetType="DataGridRow">
-               <Setter Property="Height" Value="25"/>
-               <Setter Property="VerticalContentAlignment" Value="Center"/>
-            </Style>
-         </DataGrid.RowStyle>
-
-         <DataGrid.Resources>
-            <Style x:Key="DataGridCheckBoxColumn_Style"
-                   TargetType="{x:Type DataGridCell}">
-               <Setter Property="Template">
-                  <Setter.Value>
-                     <ControlTemplate TargetType="{x:Type DataGridCell}">
-                        <Grid Background="{TemplateBinding Background}">
-                           <ContentPresenter VerticalAlignment="Center" />
-                        </Grid>
-                     </ControlTemplate>
-                  </Setter.Value>
-               </Setter>
-            </Style>
-            
-            <!--Colonna On-->
-            <DataGridCheckBoxColumn x:Key="colON" Binding="{Binding OnPar, UpdateSourceTrigger=PropertyChanged}"
-                                    CellStyle="{StaticResource DataGridCheckBoxColumn_Style}">
-               <DataGridCheckBoxColumn.Header>
-                  <TextBlock Text="{Binding Path=DataContext.OnHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-               </DataGridCheckBoxColumn.Header>
-            </DataGridCheckBoxColumn>
-
-            <!--Colonna Name-->
-            <DataGridTemplateColumn x:Key="colNAME">
-               <DataGridTemplateColumn.Header>
-                  <TextBlock Text="{Binding Path=DataContext.NameHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-               </DataGridTemplateColumn.Header>
-               <DataGridTemplateColumn.CellEditingTemplate>
-                  <DataTemplate>
-                     <ComboBox IsEditable="False" 
-                               SelectedItem="{Binding Name,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                               ItemsSource="{Binding Path=NamesList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
-                  </DataTemplate>
-               </DataGridTemplateColumn.CellEditingTemplate>
-               <DataGridTemplateColumn.CellTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=Name,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                VerticalAlignment="Center"
-                                Margin="5,0,0,0"/>
-                  </DataTemplate>
-               </DataGridTemplateColumn.CellTemplate>
-            </DataGridTemplateColumn>
-
-            <!--Colonna Style-->
-            <DataGridTemplateColumn x:Key="colTYPE">
-               <DataGridTemplateColumn.Header>
-                  <TextBlock Text="{Binding Path=DataContext.TypeHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-               </DataGridTemplateColumn.Header>
-               <DataGridTemplateColumn.CellEditingTemplate>
-                  <DataTemplate>
-                     <ComboBox IsEditable="False" 
-                               SelectedItem="{Binding Type,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                               ItemsSource="{Binding Path=TypeList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
-                  </DataTemplate>
-               </DataGridTemplateColumn.CellEditingTemplate>
-               <DataGridTemplateColumn.CellTemplate>
-                  <DataTemplate>
-                     <TextBlock Text="{Binding Path=Type,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                VerticalAlignment="Center"
-                                Margin="5,0,0,0"/>
-                  </DataTemplate>
-               </DataGridTemplateColumn.CellTemplate>
-            </DataGridTemplateColumn>
-            
-         </DataGrid.Resources>
-         
-      </EgtBEAMWALLCORE:EgtDataGrid>
-      
-      <Grid Grid.Row="2"
-            Margin="0,0,0,5"
-            HorizontalAlignment="Center">
-         <Grid.ColumnDefinitions>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-         </Grid.ColumnDefinitions>
-
-         <Button Content="/\"
-                 Command="{Binding MoveRowUp_Command}"
-                 Grid.Column="0"
-                 Margin="0,0,2.5,0"
-                 Style="{StaticResource EgtWPFLib5_InputButton}"/>
-         <Button Content="\/"
-                 Command="{Binding MoveRowDown_Command}"
-                 Grid.Column="1"
-                 Margin="2.5,0,2.5,0"
-                 Style="{StaticResource EgtWPFLib5_InputButton}"/>
-         <Button Content="{Binding AddRowMsg}"
-                 Command="{Binding AddRow_Command}"
-                 Grid.Column="2"
-                 Margin="2.5,0,2.5,0"
-                 Style="{StaticResource EgtWPFLib5_InputButton}"/>
-         <Button Content="{Binding DeleteRowMsg}"
-                 Command="{Binding DeleteRow_Command}"
-                 Grid.Column="3"
-                 Margin="2.5,0,2.5,0"
-                 Style="{StaticResource EgtWPFLib5_InputButton}"/>
-         <Button Content="{Binding SaveMsg}"
-                 Command="{Binding Save_Command}"
-                 Grid.Column="4"
-                 Margin="2.5,0,0,0"
-                 Style="{StaticResource EgtWPFLib5_InputButton}"/>
-
-      </Grid>
-
-   </Grid>
-
-</EgtWPFLib5:EgtCustomWindow>

EgtBEAMWALL.Optimizer/BeamMachiningsWindow/BeamMachiningsWindowV.xaml.vb

@@ -1,20 +0,0 @@
-Imports EgtBEAMWALL.Core
-
-Public Class BeamMachiningsWindowV
-
-   Private WithEvents m_BeamMachiningsWindowVM As MyBeamMachiningsWindowVM
-
-   Sub New(Owner As Window, BeamMachiningsWindowVM As MyBeamMachiningsWindowVM)
-      MyBase.New(Owner)
-      ' This call is required by the designer.
-      InitializeComponent()
-      Me.DataContext = BeamMachiningsWindowVM
-      ' Assegno al riferimento locale al VM il VM preso dal DataContext
-      m_BeamMachiningsWindowVM = BeamMachiningsWindowVM
-   End Sub
-
-   Private Sub CloseWindow(bDialogResult As Boolean) Handles m_BeamMachiningsWindowVM.m_CloseWindow
-      Me.DialogResult = bDialogResult
-   End Sub
-
-End Class

EgtBEAMWALL.Optimizer/BeamMachiningsWindow/MyBeamMachiningsWindowVM.vb

@@ -1,36 +0,0 @@
-Imports System.Collections.ObjectModel
-Imports EgtBEAMWALL.Core
-Imports EgtWPFLib5
-
-Public Class MyBeamMachiningsWindowVM
-   Inherits BeamMachiningsWindowVM
-
-#Region "FIELDS & PROPERTIES"
-
-   Private m_BeamMachiningsColumns As New ObservableCollection(Of EgtDataGridColumn)
-   Public Property BeamMachiningsColumns As ObservableCollection(Of EgtDataGridColumn)
-      Get
-         Return m_BeamMachiningsColumns
-      End Get
-      Set(value As ObservableCollection(Of EgtDataGridColumn))
-         m_BeamMachiningsColumns = value
-      End Set
-   End Property
-
-#End Region    ' FIELDS & PROPERTIES
-
-#Region "CONSTRUCTOR"
-
-   Sub New(sTitle As String, sBaseDir As String, sMachTypePath As String, sTabTemplPath As String, Optional bIsBeam As Boolean = True)
-      MyBase.New(sTitle, sBaseDir, sMachTypePath, sTabTemplPath, bIsBeam)
-      ' carico le colonne della datagrid
-      GetPrivateProfileColumns(S_BEAMMACHININGS, BeamMachiningsColumns)
-      ' aggiorno la visibilità delle colonne
-      For Each col In BeamMachiningsColumns
-         col.ColumnVisibility = If(col.Visible, Visibility.Visible, Visibility.Collapsed)
-      Next
-   End Sub
-
-#End Region    ' CONSTRUCTOR
-
-End Class

EgtBEAMWALL.Optimizer/Behavior/DataGridColumnsBehavior.cs

@@ -1,91 +0,0 @@
-using System;
-using System.Collections.Generic;
-using System.Linq;
-using System.Text;
-using System.Threading.Tasks;
-
-namespace EgtBEAMWALL.EgtBEAMWALL.ViewerOptimizer.Behavior
-{
-   public class DataGridColumnsBehavior
-   {
-      public static readonly DependencyProperty BindableColumnsProperty = DependencyProperty.RegisterAttached("BindableColumns", typeof(ObservableCollection<DataGridColumn>), typeof(DataGridColumnsBehavior), new UIPropertyMetadata(null, BindableColumnsPropertyChanged));
-      /// <summary>Collection to store collection change handlers - to be able to unsubscribe later.</summary>
-      private static readonly Dictionary<DataGrid, NotifyCollectionChangedEventHandler> _handlers;
-
-      static DataGridColumnsBehavior()
-      {
-         _handlers = new Dictionary<DataGrid, NotifyCollectionChangedEventHandler>();
-      }
-      private static void BindableColumnsPropertyChanged(DependencyObject source, DependencyPropertyChangedEventArgs e)
-      {
-         if (!(source is DataGrid dataGrid)) return;
-         if (e.OldValue is ObservableCollection<DataGridColumn> oldColumns)
-         {
-            // Remove all columns.
-            dataGrid.Columns.Clear();
-
-            // Unsubscribe from old collection.
-            if (_handlers.TryGetValue(dataGrid, out var h))
-            {
-               oldColumns.CollectionChanged -= h;
-               _handlers.Remove(dataGrid);
-            }
-         }
-
-         var newColumns = e.NewValue as ObservableCollection<DataGridColumn>;
-         dataGrid.Columns.Clear();
-         if (newColumns != null)
-         {
-            // Add columns from this source.
-            foreach (var column in newColumns)
-               if (column != null)
-               {
-                  var dg = (DataGrid)column.GetType().GetProperty("DataGridOwner", BindingFlags.Instance | BindingFlags.NonPublic)?.GetValue(column, null);
-                  dg?.Columns.Clear();
-                  dataGrid.Columns.Add(column);
-               }
-
-
-            // Subscribe to future changes.
-            NotifyCollectionChangedEventHandler h = (_, ne) => OnCollectionChanged(ne, dataGrid);
-            _handlers[dataGrid] = h;
-            newColumns.CollectionChanged += h;
-         }
-      }
-
-      private static void OnCollectionChanged(NotifyCollectionChangedEventArgs ne, DataGrid dataGrid)
-      {
-         switch (ne.Action)
-         {
-            case NotifyCollectionChangedAction.Reset:
-               dataGrid.Columns.Clear();
-               if (ne.NewItems != null && ne.NewItems.Count > 0)
-                  foreach (DataGridColumn column in ne.NewItems)
-                     dataGrid.Columns.Add(column);
-               break;
-            case NotifyCollectionChangedAction.Add:
-               foreach (DataGridColumn column in ne.NewItems)
-                  dataGrid.Columns.Add(column);
-               break;
-            case NotifyCollectionChangedAction.Move:
-               dataGrid.Columns.Move(ne.OldStartingIndex, ne.NewStartingIndex);
-               break;
-            case NotifyCollectionChangedAction.Remove:
-               foreach (DataGridColumn column in ne.OldItems)
-                  dataGrid.Columns.Remove(column);
-               break;
-            case NotifyCollectionChangedAction.Replace:
-               dataGrid.Columns[ne.NewStartingIndex] = ne.NewItems[0] as DataGridColumn;
-               break;
-         }
-      }
-      public static void SetBindableColumns(DependencyObject element, ObservableCollection<DataGridColumn> value)
-      {
-         element.SetValue(BindableColumnsProperty, value);
-      }
-      public static ObservableCollection<DataGridColumn> GetBindableColumns(DependencyObject element)
-      {
-         return (ObservableCollection<DataGridColumn>)element.GetValue(BindableColumnsProperty);
-      }
-   }
-}

EgtBEAMWALL.Optimizer/Behavior/DataGridColumnsBehavior.vb

@@ -1,94 +0,0 @@
-Imports System.Collections.ObjectModel
-Imports System.Collections.Specialized
-Imports System.Reflection
-
-Public Class DataGridColumnsBehavior
-   Public Shared ReadOnly BindableColumnsProperty As DependencyProperty = DependencyProperty.RegisterAttached("BindableColumns", GetType(ObservableCollection(Of DataGridColumn)), GetType(DataGridColumnsBehavior), New UIPropertyMetadata(Nothing, AddressOf BindableColumnsPropertyChanged))
-   Private Shared ReadOnly _handlers As Dictionary(Of DataGrid, NotifyCollectionChangedEventHandler)
-
-   Shared Sub New()
-      _handlers = New Dictionary(Of DataGrid, NotifyCollectionChangedEventHandler)()
-   End Sub
-
-   Private Shared Sub BindableColumnsPropertyChanged(ByVal source As DependencyObject, ByVal e As DependencyPropertyChangedEventArgs)
-      Dim dataGrid As DataGrid = Nothing
-      If Not (source Is dataGrid) Then Return
-      Dim h = Nothing, oldColumns As ObservableCollection(Of DataGridColumn) = Nothing
-
-      If e.OldValue Is oldColumns Then
-         dataGrid.Columns.Clear()
-
-         If _handlers.TryGetValue(dataGrid, h) Then
-            RemoveHandler oldColumns.CollectionChanged, h
-            _handlers.Remove(dataGrid)
-         End If
-      End If
-
-      Dim newColumns = TryCast(e.NewValue, ObservableCollection(Of DataGridColumn))
-      dataGrid.Columns.Clear()
-
-      If newColumns IsNot Nothing Then
-
-         For Each column In newColumns
-
-            If column IsNot Nothing Then
-               Dim dg = CType(column.[GetType]().GetProperty("DataGridOwner", BindingFlags.Instance Or BindingFlags.NonPublic)?.GetValue(column, Nothing), DataGrid)
-               dg?.Columns.Clear()
-               dataGrid.Columns.Add(column)
-            End If
-         Next
-
-         Dim h As NotifyCollectionChangedEventHandler = Function(__, ne) OnCollectionChanged(ne, dataGrid)
-         _handlers(dataGrid) = h
-         AddHandler newColumns.CollectionChanged, h
-      End If
-   End Sub
-
-   Private Shared Sub OnCollectionChanged(ByVal ne As NotifyCollectionChangedEventArgs, ByVal dataGrid As DataGrid)
-      Select Case ne.Action
-         Case NotifyCollectionChangedAction.Reset
-            dataGrid.Columns.Clear()
-
-            If ne.NewItems IsNot Nothing AndAlso ne.NewItems.Count > 0 Then
-
-               For Each column As DataGridColumn In ne.NewItems
-                  dataGrid.Columns.Add(column)
-               Next
-            End If
-
-         Case NotifyCollectionChangedAction.Add
-
-            For Each column As DataGridColumn In ne.NewItems
-               dataGrid.Columns.Add(column)
-            Next
-
-         Case NotifyCollectionChangedAction.Move
-            dataGrid.Columns.Move(ne.OldStartingIndex, ne.NewStartingIndex)
-         Case NotifyCollectionChangedAction.Remove
-
-            For Each column As DataGridColumn In ne.OldItems
-               dataGrid.Columns.Remove(column)
-            Next
-
-         Case NotifyCollectionChangedAction.Replace
-            dataGrid.Columns(ne.NewStartingIndex) = TryCast(ne.NewItems(0), DataGridColumn)
-      End Select
-   End Sub
-
-   Public Shared Sub SetBindableColumns(ByVal element As DependencyObject, ByVal value As ObservableCollection(Of DataGridColumn))
-      element.SetValue(BindableColumnsProperty, value)
-   End Sub
-
-   Public Shared Function GetBindableColumns(ByVal element As DependencyObject) As ObservableCollection(Of DataGridColumn)
-      Return CType(element.GetValue(BindableColumnsProperty), ObservableCollection(Of DataGridColumn))
-   End Function
-
-   Private Class CSharpImpl
-      <Obsolete("Please refactor calling code to use normal Visual Basic assignment")>
-      Shared Function __Assign(Of T)(ByRef target As T, value As T) As T
-         target = value
-         Return value
-      End Function
-   End Class
-
-End Class

EgtBEAMWALL.Optimizer/BlockedWnd/BlockedWndVM.vb

@@ -52,6 +52,8 @@ Public Class BlockedWndVM
 
 #End Region    ' FIELDS & PROPERTIES
 
+#Region "CONSTRUCTOR"
+
    Sub New()
       If DbControllers.bNetwork Then
          m_Buttons_Visibility = Visibility.Visible
@@ -69,6 +71,10 @@ Public Class BlockedWndVM
       m_Waiting_Timer.Start()
    End Sub
 
+#End Region    ' CONSTRUCTOR
+
+#Region "METHODS"
+
    Private Sub WaitingTimer_Tick()
       ' se notifica di chiusura da supervisor, esco
       If Not SupervisorCommThread.bViewerOptimizerBlocked And Map.refMainWindowVM.m_ManagingSupervisorStop Then
@@ -102,6 +108,8 @@ Public Class BlockedWndVM
       End If
    End Sub
 
+#End Region    ' METHODS
+
 #Region "COMMANDS"
 
 #Region "Save"
@@ -124,7 +132,7 @@ Public Class BlockedWndVM
    Public Sub Save()
       ' salvo progetto
       'Map.refProdManagerVM.Save()
-      Map.refOnlyProdManagerVM.Save()
+      Map.refProdManagerVM.Save()
       ' mando messaggio di blocco avvenuto
       DbControllers.m_StatusMapController.UpdateAction("", ProjectManagerVM.CurrProd.nProdId, ProjectManagerVM.CurrProd.nProdId, StatusMapItemType.Comm, StatusMapOpType.ViewOptimStoped, "")
    End Sub

EgtBEAMWALL.Optimizer/BottomPanel/BottomPanelV.xaml

@@ -1,106 +0,0 @@
-<Grid x:Class="BottomPanelV"
-      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:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Optimizer"
-      Height="350"
-      Visibility="{Binding BottomPanel_Visibility}">
-
-   <TabControl SelectedIndex="{Binding SelPartFeatureTab}"
-               TabStripPlacement="Right"
-               Margin="5">
-      <TabControl.ItemContainerStyle>
-         <Style TargetType="{x:Type TabItem}">
-            <Setter Property="Visibility" Value="Collapsed"/>
-         </Style>
-      </TabControl.ItemContainerStyle>
-      <TabItem Header="STRUCTURE">
-         <TabItem.Content>
-            <EgtWPFLib5:EgtScrollViewer Focusable="False">
-               <EgtBEAMWALL:BTLDataV DataContext="{StaticResource BTLDataWndVM}"
-                                     Tag="{Binding Tag, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BottomPanelV}}}"
-                                     Margin="5"/>
-            </EgtWPFLib5:EgtScrollViewer>
-         </TabItem.Content>
-      </TabItem>
-      <TabItem Header="PART">
-         <TabItem.Content>
-            <Grid>
-               <Grid.RowDefinitions>
-                  <RowDefinition Height="1*"/>
-                  <RowDefinition Height="Auto"/>
-               </Grid.RowDefinitions>
-               <EgtWPFLib5:EgtScrollViewer Focusable="False">
-                  <EgtBEAMWALL:PartParametersV DataContext="{StaticResource PartParametersVM}"
-                                               Tag="{Binding Tag.SelBTLPart, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BottomPanelV}}}"
-                                               Margin="5"/>
-               </EgtWPFLib5:EgtScrollViewer>
-               <TextBlock Grid.Row="1"
-                          Text="{Binding Tag.SelBTLPart.sCALC_MSG, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BottomPanelV}}}"
-                          Foreground="{Binding Tag.SelBTLPart.CALC_ERR_Foreground, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BottomPanelV}}}"   
-                          Margin="5,0,5,0"
-                          Visibility="{Binding Tag.SelBTLPart.CALC_MSG_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BottomPanelV}}}"/>
-            </Grid>
-         </TabItem.Content>
-      </TabItem>
-      <TabItem Header="FEATURE">
-         <TabItem.Content>
-            <Grid>
-               <Grid.ColumnDefinitions>
-                  <ColumnDefinition Width="1*"/>
-                  <ColumnDefinition Width="300"/>
-               </Grid.ColumnDefinitions>
-               <Grid.RowDefinitions>
-                  <RowDefinition Height="Auto"/>
-                  <RowDefinition Height="1*"/>
-                  <RowDefinition Height="Auto"/>
-               </Grid.RowDefinitions>
-               <Grid.Resources>
-                  <Style TargetType="TextBlock">
-                     <Style.Triggers>
-                        <Trigger Property="Text" Value="">
-                           <Setter Property="Visibility" Value="Collapsed"/>
-                        </Trigger>
-                     </Style.Triggers>
-                  </Style>
-               </Grid.Resources>
-               <EgtBEAMWALL:FeatureManagerV DataContext="{StaticResource FeatureManagerVM}"
-                                            Tag="{Binding Tag.SelBTLPart.SelBTLFeatureVM, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BottomPanelV}}}"/>
-               <TabControl Grid.Row="1"
-                           TabStripPlacement="Left"
-                           Margin="5,5,2.5,5">
-                  <TabItem Header="P">
-                     <TabItem.Content>
-                        <EgtBEAMWALL:PParameterListV DataContext="{StaticResource PParameterListVM}"
-                                                     Tag="{Binding Tag.SelBTLPart.SelBTLFeatureVM, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BottomPanelV}}}"
-                                                     Margin="5"/>
-                     </TabItem.Content>
-                  </TabItem>
-                  <TabItem Header="Q">
-                     <TabItem.Content>
-                        <EgtBEAMWALL:QParameterListV DataContext="{StaticResource QParameterListVM}"
-                                                     Tag="{Binding Tag.SelBTLPart.SelBTLFeatureVM, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BottomPanelV}}}"
-                                                     Margin="5"/>
-                     </TabItem.Content>
-                  </TabItem>
-               </TabControl>
-               <Image Grid.Column="1"
-                      Grid.Row="1"
-                      Source="{Binding sCurrDraw}" 
-                      Margin="5"/>
-               <TextBlock Grid.Row="2" Grid.ColumnSpan="2"
-                          Text="{Binding Tag.SelBTLPart.SelBTLFeatureVM.sCALC_MSG, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BottomPanelV}}}"
-                          Foreground="{Binding Tag.SelBTLPart.SelBTLFeatureVM.Calc_Background, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BottomPanelV}}}"   
-                          Margin="5,0,5,0"/>
-            </Grid>
-         </TabItem.Content>
-      </TabItem>
-      <TabItem Header="STATISTICS">
-         <TabItem.Content>
-            <EgtBEAMWALL:StatisticsV DataContext="{StaticResource StatisticsVM}"
-                                     Tag="{Binding Tag, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:BottomPanelV}}}"
-                                     Margin="5"/>
-         </TabItem.Content>
-      </TabItem>
-   </TabControl>
-</Grid>

EgtBEAMWALL.Optimizer/BottomPanel/BottomPanelV.xaml.vb

@@ -1,3 +0,0 @@
-Public Class BottomPanelV
-
-End Class

EgtBEAMWALL.Optimizer/BottomPanel/BottomPanelVM.vb

@@ -1,51 +0,0 @@
-Imports EgtWPFLib5
-
-Public Class BottomPanelVM
-   Inherits VMBase
-
-   Friend Enum PartFeatureTab As Integer
-      NULL = -1
-      STRUCTURE_ = 0
-      PART = 1
-      FEATURE = 2
-      STATISTICS = 3
-   End Enum
-
-   Private m_SelPartFeatureTab As PartFeatureTab
-   Public Property SelPartFeatureTab As Integer
-      Get
-         Return m_SelPartFeatureTab
-      End Get
-      Set(value As Integer)
-         m_SelPartFeatureTab = value
-      End Set
-   End Property
-   Friend Sub SetSelPartFeatureTab(SelPartFeatureTab As PartFeatureTab)
-      If m_SelPartFeatureTab = PartFeatureTab.STATISTICS Then
-         Map.refInstrumentPanelVM.SetStatisticsIsChecked(False)
-      End If
-      m_SelPartFeatureTab = SelPartFeatureTab
-      NotifyPropertyChanged(NameOf(SelPartFeatureTab))
-   End Sub
-
-   Private m_sCurrDraw As String
-   Public ReadOnly Property sCurrDraw As String
-      Get
-         Return m_sCurrDraw
-      End Get
-   End Property
-   Friend Sub SetCurrDraw(sCurrDraw As String)
-      m_sCurrDraw = sCurrDraw
-      NotifyPropertyChanged(NameOf(sCurrDraw))
-   End Sub
-
-#Region "CONSTRUCTOR"
-
-   Sub New()
-      ' Creo riferimento a questa classe in EgtCAM5Map
-      Map.SetRefBottomPanelVM(Me)
-   End Sub
-
-#End Region    ' CONSTRUCTOR
-
-End Class

EgtBEAMWALL.Optimizer/CALCPanel/CALCPanelVM.vb

@@ -1,13 +1,18 @@
-Imports System.IO
+Imports System.Collections.ObjectModel
+Imports System.IO
+Imports System.Threading
+Imports System.Windows.Threading
+Imports EgtBEAMWALL.Core
 Imports EgtUILib
 Imports EgtWPFLib5
-Imports EgtBEAMWALL.Core
-Imports System.Collections.ObjectModel
-Imports System.Windows.Threading
+Imports EgwMultiEngineManager.Data
+Imports EgwMultiEngineManager.Data.Constants
 
 Public Class CALCPanelVM
    Inherits VMBase
 
+#Region "FIELDS & PROPERTIES"
+
    Public Enum ProduceType As Integer
       NULL = 0
       PRODUCE = 1
@@ -35,16 +40,6 @@ Public Class CALCPanelVM
       End Set
    End Property
 
-   'Private m_CALCPanel_IsEnabled As Boolean = True
-   'Public Property CALCPanel_IsEnabled As Boolean
-   '   Get
-   '      Return m_CALCPanel_IsEnabled
-   '   End Get
-   '   Set(value As Boolean)
-   '      m_CALCPanel_IsEnabled = value
-   '   End Set
-   'End Property
-
    'Private m_VerifyAll_IsEnabled As Boolean = True
    'Public Property VerifyAll_IsEnabled As Boolean
    '   Get
@@ -110,80 +105,12 @@ Public Class CALCPanelVM
       End Set
    End Property
 
-   'Public ReadOnly Property ViewPage_Visibility As Visibility
-   '   Get
-   '      Return If(Map.refMainMenuVM.SelPage = Pages.VIEW, Visibility.Visible, Visibility.Collapsed)
-   '   End Get
-   'End Property
-
-   'Public ReadOnly Property Edit_Visibility As Visibility
-   '   Get
-   '      Return If(Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso GetMainPrivateProfileInt(S_GENERAL, K_ENABLEEDIT, 0) = 1, Visibility.Visible, Visibility.Collapsed)
-   '   End Get
-   'End Property
-
-   'Public ReadOnly Property Verify_IsEnabled As Boolean
-   '   Get
-   '      Return If(Map.refMainMenuVM.SelPage = Pages.VIEW,
-   '                m_CALCPanel_IsEnabled AndAlso Not Map.refShowBeamPanelVM.bShowAll AndAlso
-   '                Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso Not Map.refProjectVM.BTLStructureVM.SelBTLPartsCnt > 1,
-   '                m_CALCPanel_IsEnabled)
-   '   End Get
-   'End Property
-
-   'Public ReadOnly Property Simulate_IsEnabled As Boolean
-   '   Get
-   '      Return If(Map.refMainMenuVM.SelPage = Pages.VIEW,
-   '                m_CALCPanel_IsEnabled And Not Map.refShowBeamPanelVM.bShowAll AndAlso
-   '                Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso Not Map.refProjectVM.BTLStructureVM.SelBTLPartsCnt > 1,
-   '                m_CALCPanel_IsEnabled)
-   '   End Get
-   'End Property
-
-   'Public ReadOnly Property Edit_IsEnabled As Boolean
-   '   Get
-   '      Return If(Map.refMainMenuVM.SelPage = Pages.VIEW,
-   '                m_CALCPanel_IsEnabled And Not Map.refShowBeamPanelVM.bShowAll AndAlso
-   '                Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso Not Map.refProjectVM.BTLStructureVM.SelBTLPartsCnt > 1,
-   '                True)
-   '   End Get
-   'End Property
-
    ' Definizione comandi
-   'Private m_cmdVerify As ICommand
-   'Private m_cmdVerifyAll As ICommand
-   'Private m_cmdResetCalc As ICommand
-   'Private m_cmdSimulate As ICommand
-   'Private m_cmdEdit As ICommand
    Private m_cmdChooseMachine As ICommand
    Private m_cmdOk As ICommand
 
 #Region "Messages"
 
-   'Public ReadOnly Property Verify_ToolTip As String
-   '   Get
-   '      Return EgtMsg(61901)
-   '   End Get
-   'End Property
-
-   'Public ReadOnly Property VerifyAll_ToolTip As String
-   '   Get
-   '      Return EgtMsg(61928)
-   '   End Get
-   'End Property
-
-   'Public ReadOnly Property Simulate_ToolTip As String
-   '   Get
-   '      Return EgtMsg(61902)
-   '   End Get
-   'End Property
-
-   'Public ReadOnly Property Edit_ToolTip As String
-   '   Get
-   '      Return EgtMsg(61939)
-   '   End Get
-   'End Property
-
    Public ReadOnly Property ResetCalc_ToolTip As String
       Get
          Return EgtMsg(61940)
@@ -198,6 +125,8 @@ Public Class CALCPanelVM
 
 #End Region    ' Messages
 
+#End Region    ' FIELDS & PROPERTIES
+
 #Region "CONSTRUCTORS"
 
    Sub New()
@@ -215,28 +144,6 @@ Public Class CALCPanelVM
 
 #Region "METHODS"
 
-   Friend Sub SetCalcPanelIsEnabled(bIsEnabled As Boolean)
-      'm_CALCPanel_IsEnabled = bIsEnabled
-      'm_VerifyAll_IsEnabled = bIsEnabled
-      'NotifyPropertyChanged(NameOf(CALCPanel_IsEnabled))
-      'NotifyPropertyChanged(NameOf(VerifyAll_IsEnabled))
-      'NotifyPropertyChanged(NameOf(Verify_IsEnabled))
-      'NotifyPropertyChanged(NameOf(Simulate_IsEnabled))
-      'NotifyPropertyChanged(NameOf(Edit_IsEnabled))
-   End Sub
-   Friend Sub SetIsEnabledForSelPart()
-      'NotifyPropertyChanged(NameOf(Verify_IsEnabled))
-      'm_VerifyAll_IsEnabled = False
-      'NotifyPropertyChanged(NameOf(VerifyAll_IsEnabled))
-      'NotifyPropertyChanged(NameOf(Simulate_IsEnabled))
-      'NotifyPropertyChanged(NameOf(Edit_IsEnabled))
-   End Sub
-   Friend Sub SetVerifyIsEnabled(bIsEnabled As Boolean)
-      'm_CALCPanel_IsEnabled = bIsEnabled
-      'NotifyPropertyChanged(NameOf(CALCPanel_IsEnabled))
-      'NotifyPropertyChanged(NameOf(Verify_IsEnabled))
-   End Sub
-
    Private Sub Calc_ProcessResult(sender As Object, e As CalcResultEventArgs)
       ProcessResults(e.m_Result)
    End Sub
@@ -251,12 +158,7 @@ Public Class CALCPanelVM
       End If
       ' se verify o verifyall, salvo il progetto per conservarne gli stati calcolati
       If e.CmdType = CmdTypes.CHECKGEN Then
-         'If Map.refMainMenuVM.SelPage = Pages.VIEW Then
-         '   Map.refProjManagerVM.Save()
-         'ElseIf Map.refMainMenuVM.SelPage = Pages.MACHINING Then
-         '   Map.refProdManagerVM.Save()
-         'End If
-         Map.refOnlyProdManagerVM.Save()
+         Map.refProdManagerVM.Save()
       End If
       ' se modalita' assemblato attiva
       If Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso Map.refShowBeamPanelVM.ShowBuilding_IsChecked AndAlso Map.refShowBeamPanelVM.bShowAll Then
@@ -304,7 +206,7 @@ Public Class CALCPanelVM
       ProcessResults(Bar.sBarPath, Bar.nProgramPage, Bar.nBarId)
    End Sub
 
-   Private Shared Sub ProcessResults(BtlPath As String, nProgramPage As ProjectType, nBarId As Integer)
+   Friend Shared Sub ProcessResults(BtlPath As String, nProgramPage As ProjectType, nBarId As Integer)
 
       Dim ResPath As String = Path.ChangeExtension(BtlPath, ".txt")
       Dim bErrors As Boolean = False
@@ -466,7 +368,7 @@ Public Class CALCPanelVM
                         CurrPartVM.CalcPartUpdate(Line.nERR, Line.dROT, Line.sMSG)
                      End If
                   Case ProcessResult.ProcessResultTypes.TASKID
-                     CurrBTLFeatureVM.CalcFeatureUpdate(Line.nERR, Line.dROT, Line.sMSG)
+                     CurrBTLFeatureVM.CalcFeatureUpdate(nProgramPage, Line.nERR, Line.dROT, Line.sMSG)
                   Case ProcessResult.ProcessResultTypes.FALL
                      If nProgramPage = ProjectType.PROJ Then
                         CurrBTLPartVM.CalcFallUpdate(Line.nFALL)
@@ -589,10 +491,10 @@ Public Class CALCPanelVM
          Dim nMachType As MachineType = DirectCast(Machine, MyMachine).nType
          Dim nProjType As BWType
          Dim sMachineName As String = ""
-         nProjType = Map.refOnlyProdManagerVM.nProdType
+         nProjType = Map.refProdManagerVM.nProdType
          sMachineName = If(Not IsNothing(ProjectManagerVM.CurrProd), ProjectManagerVM.CurrProd.sMachine, "")
          If nMachType = nProjType OrElse
-            (nMachType = 3 And Not IsNothing(Map.refOnlyProdManagerVM) AndAlso Not IsNothing(ProjectManagerVM.CurrProd)) Then
+            (nMachType = 3 And Not IsNothing(Map.refProdManagerVM) AndAlso Not IsNothing(ProjectManagerVM.CurrProd)) Then
             MachineList.Add(Machine)
             ' Se il nome Macchina coincide setto la macchina selezionata con la macchina associata al progetto
             If Machine.Name = sMachineName Then
@@ -634,54 +536,123 @@ Public Class CALCPanelVM
       'NotifyPropertyChanged(NameOf(Edit_IsEnabled))
    End Sub
 
-#End Region    ' METHODS
-
-#Region "COMMANDS"
-
-   '#Region "Verify"
-
-   '   ''' <summary>
-   '   ''' Returns a command that do Open.
-   '   ''' </summary>
-   '   Public ReadOnly Property Verify_Command As ICommand
-   '      Get
-   '         If m_cmdVerify Is Nothing Then
-   '            m_cmdVerify = New Command(AddressOf Verify)
-   '         End If
-   '         Return m_cmdVerify
-   '      End Get
-   '   End Property
-
-   ''' <summary>
-   ''' Execute the Open.  This method is invoked by the OpenCommand.
-   ''' </summary>
-   Friend Sub Verify()
-      If (Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso (IsNothing(ProjectManagerVM.CurrProj) OrElse IsNothing(Map.refProjectVM.BTLStructureVM))) OrElse
-         (Map.refMainMenuVM.SelPage = Pages.MACHINING AndAlso (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM))) OrElse
-         (Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE AndAlso (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.BTLStructureVM) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM))) Then Return
-      Dim ProjType As BWType
+   Friend Sub Verify(ProgramPage As ProjectType)
+      If (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.BTLStructureVM) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM)) Then Return
+      Dim ProjType As BWType = ProjectManagerVM.CurrProd.nType
       Dim BarList() As EgtBEAMWALL.Core.Bar = Nothing
-      If Map.refMainMenuVM.SelPage = Pages.VIEW Then
-         ProjType = ProjectManagerVM.CurrProj.nType
-         If Not CreateBarToVerify(Pages.VIEW, ProjType, BarList) Then Return
-         ' lancio calcolo
-         EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProj.sProjDirPath, AddressOf ManageCalc)
-      ElseIf Map.refMainMenuVM.SelPage = Pages.MACHINING Then
-         ProjType = ProjectManagerVM.CurrProd.nType
-         If Not CreateBarToVerify(Pages.MACHINING, ProjType, BarList) Then Return
-         ' lancio calcolo
-         EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProd.sProdDirPath, AddressOf ManageCalc)
-      ElseIf Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE Then
-         ProjType = ProjectManagerVM.CurrProd.nType
+      If GetMainPrivateProfileInt(S_GENERAL, "UseCam5", 0) = 1 Then
          If Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.PART Then
             If Not CreateBarToVerify(Pages.VIEW, ProjType, BarList) Then Return
             ' lancio calcolo
-            EgtBEAMWALL.Core.CalcIntegration.Run(BarList, Map.refOnlyProdManagerVM.CurrProj.sProjDirPath, AddressOf ManageCalc)
+            EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProd.sProdDirPath & "\Projs\" & Map.refProjectVM.BTLStructureVM.SelBTLPart.nPROJ.ToString("0000"), AddressOf ManageCalc)
          ElseIf Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.MACHGROUP Then
             If Not CreateBarToVerify(Pages.MACHINING, ProjType, BarList) Then Return
             ' lancio calcolo
-            EgtBEAMWALL.Core.CalcIntegration.Run(BarList, Map.refOnlyProdManagerVM.CurrProd.sProdDirPath, AddressOf ManageCalc)
+            EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProd.sProdDirPath, AddressOf ManageCalc)
          End If
+      Else
+         Dim ExecThread As New Thread(Sub()
+                                         VerifyWithEngine(ProgramPage)
+                                      End Sub)
+         ExecThread.Start()
+      End If
+
+   End Sub
+
+   Private Sub VerifyProjWithEngine(CurrPart As BTLPartVM)
+      If Not CurrPart.bDO Then Return
+      Dim Args As New Dictionary(Of String, String)
+      Args.Add("BarId", CurrPart.nPartId)
+      Args.Add("ProgramPage", ProjectType.PROJ)
+      Dim BarPath As String = ProjectManagerVM.CurrProd.sProdDirPath & "\Projs\" & CurrPart.nPROJ.ToString("0000")
+      Args.Add("BarPath", BarPath)
+      Args.Add("ProjType", ProjectManagerVM.CurrProd.nType)
+      Args.Add("MachineName", ProjectManagerVM.CurrProd.sMachine)
+      Args.Add("GlobState", CurrPart.nGlobalState)
+      Dim nCmdType As CalcIntegration.CmdTypes = CmdTypes.GENERATE
+      Select Case CurrPart.nGlobalState
+         Case Core.CalcStates.OK, CalcStates.INFO
+            nCmdType = CalcIntegration.CmdTypes.GENERATE
+         Case Else
+            If CurrPart.nGlobalState = CalcStates.NOTCALCULATED OrElse CurrPart.nFeaturesGlobalState > CalcStates.INFO Then
+               Dim sBTLPartFilePath As String = BarPath & "\" & CurrPart.nPDN.ToString() & ".ori.bwe"
+               If File.Exists(sBTLPartFilePath) Then File.Delete(sBTLPartFilePath)
+            End If
+            nCmdType = CalcIntegration.CmdTypes.CHECKNOSIM
+      End Select
+      Args.Add("CmdType", nCmdType)
+      Dim ExecEnvironment As EXECENVIRONMENTS = EXECENVIRONMENTS.NULL
+      Select Case ProjectManagerVM.CurrProd.nType
+         Case BWType.BEAM
+            ExecEnvironment = EXECENVIRONMENTS.BEAM
+         Case BWType.WALL
+            ExecEnvironment = EXECENVIRONMENTS.WALL
+      End Select
+      Dim Request As New QuestionDTO(1, ExecEnvironment, Args)
+      Request.Args("BarPath") = CreateNewProjectFromPart(CurrPart.nPartId, BarPath)
+      EgtOutLog("Creato progetto " & CurrPart.nPartId)
+      If Request.ExecEnvironment <> EXECENVIRONMENTS.NULL Then
+         MyExecProcessManager.ExecProcessManagerList(Request.ExecEnvironment).ArgumentsEnqueue(Request)
+      End If
+   End Sub
+
+   Private Sub VerifyProdWithEngine(CurrMachGroup As MyMachGroupVM)
+      ' se e' gia' stato assegnato a supervisor, la salto e vado alla prossima barra
+      If CurrMachGroup.nProduction_State >= ItemState.Assigned Then Return
+      Dim Args As New Dictionary(Of String, String)
+      Args.Add("BarId", CurrMachGroup.Id)
+      Args.Add("ProgramPage", ProjectType.PROD)
+      Dim BarPath As String = ProjectManagerVM.CurrProd.sProdDirPath
+      Args.Add("BarPath", BarPath)
+      Args.Add("ProjType", ProjectManagerVM.CurrProd.nType)
+      Dim MachineName As String = ""
+      EgtGetMachGroupMachineName(CurrMachGroup.Id, MachineName)
+      Args.Add("MachineName", MachineName)
+      Args.Add("GlobState", CurrMachGroup.nGlobalState)
+      Dim nCmdType As CalcIntegration.CmdTypes = CmdTypes.GENERATE
+      Select Case CurrMachGroup.nGlobalState
+         Case Core.CalcStates.OK, CalcStates.INFO
+            nCmdType = CalcIntegration.CmdTypes.GENERATE
+         Case Else
+            If CurrMachGroup.nGlobalState = CalcStates.NOTCALCULATED OrElse (CurrMachGroup.nPartsGlobalState > CalcStates.INFO) Then
+               Dim sMachGroupFilePath As String = BarPath & "\" & CurrMachGroup.Name.ToString() & ".ori.bwe"
+               If File.Exists(sMachGroupFilePath) Then File.Delete(sMachGroupFilePath)
+            End If
+            nCmdType = CalcIntegration.CmdTypes.CHECKGEN
+      End Select
+      Args.Add("CmdType", nCmdType)
+      Dim ExecEnvironment As EXECENVIRONMENTS = EXECENVIRONMENTS.NULL
+      Select Case ProjectManagerVM.CurrProd.nType
+         Case BWType.BEAM
+            ExecEnvironment = EXECENVIRONMENTS.BEAM
+         Case BWType.WALL
+            ExecEnvironment = EXECENVIRONMENTS.WALL
+      End Select
+      Dim Request As New QuestionDTO(1, ExecEnvironment, Args)
+      Request.Args("BarPath") = CreateNewProjectFromMachGroup(CurrMachGroup.Id, BarPath, CurrMachGroup.nGlobalState)
+      EgtOutLog("Creato progetto " & CurrMachGroup.Id)
+      If Request.ExecEnvironment <> EXECENVIRONMENTS.NULL Then
+         MyExecProcessManager.ExecProcessManagerList(Request.ExecEnvironment).ArgumentsEnqueue(Request)
+      End If
+   End Sub
+
+   Private Sub VerifyWithEngine(ProgramPage As ProjectType)
+      Dim ProjType As BWType = ProjectManagerVM.CurrProd.nType
+      ' lancio calcolo
+      Dim ExecEnvironment As EXECENVIRONMENTS = EXECENVIRONMENTS.NULL
+      Select Case ProjType
+         Case BWType.BEAM
+            ExecEnvironment = EXECENVIRONMENTS.BEAM
+         Case BWType.WALL
+            ExecEnvironment = EXECENVIRONMENTS.WALL
+      End Select
+      If ProgramPage = ProjectType.PROJ Then
+         If Not Map.refProjectVM.BTLStructureVM.SelBTLPart.bDO Then Return
+         VerifyProjWithEngine(Map.refProjectVM.BTLStructureVM.SelBTLPart)
+      ElseIf ProgramPage = ProjectType.PROD Then
+         ' se e' gia' stato assegnato a supervisor, la salto e vado alla prossima barra
+         If Map.refMachGroupPanelVM.SelectedMachGroup.nProduction_State >= ItemState.Assigned Then Return
+         VerifyProdWithEngine(Map.refMachGroupPanelVM.SelectedMachGroup)
       End If
    End Sub
 
@@ -694,7 +665,7 @@ Public Class CALCPanelVM
                                                       .nProgramPage = ProjectType.PROJ,
                                                       .nProjType = ProjType,
                                                       .bBarOk = True,
-                                                      .nMachineName = Map.refMachinePanelVM.SelectedMachine.Name,
+                                                      .nMachineName = ProjectManagerVM.CurrProd.sMachine,
                                                       .nGlobState = Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState}
             Select Case Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState
                Case Core.CalcStates.OK, CalcStates.INFO
@@ -768,54 +739,49 @@ Public Class CALCPanelVM
       Map.refMyStatusBarVM.SetOutputMessage(sProgress)
    End Sub
 
-   '#End Region ' Verify
-
-   '#Region "VerifyAll"
-
-   '   ''' <summary>
-   '   ''' Returns a command that do Open.
-   '   ''' </summary>
-   '   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
-
-   ''' <summary>
-   ''' Execute the Open.  This method is invoked by the OpenCommand.
-   ''' </summary>
-   Friend Sub VerifyAll()
-      If (Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso (IsNothing(ProjectManagerVM.CurrProj) OrElse IsNothing(Map.refProjectVM.BTLStructureVM))) OrElse
-         (Map.refMainMenuVM.SelPage = Pages.MACHINING AndAlso (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM))) OrElse
-         (Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE AndAlso (IsNothing(ProjectManagerVM.CurrProj) OrElse IsNothing(Map.refProjectVM.BTLStructureVM)) AndAlso (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM))) Then Return
-      ' se modalita' assemblato
-      Configuration.AssembledMode(Map.refShowBeamPanelVM.ShowBuilding_IsChecked)
-      Dim BarList() As EgtBEAMWALL.Core.Bar = Nothing
-      Dim ProjType As BWType
-      If Map.refMainMenuVM.SelPage = Pages.VIEW Then
-         ProjType = ProjectManagerVM.CurrProj.nType
-         If Not CreateBarListToVerify(Pages.VIEW, ProjType, BarList) Then Return
-         ' lancio calcolo
-         EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProj.sProjDirPath, AddressOf ManageCalc)
-      ElseIf Map.refMainMenuVM.SelPage = Pages.MACHINING Then
-         ProjType = ProjectManagerVM.CurrProd.nType
-         If Not CreateBarListToVerify(Pages.MACHINING, ProjType, BarList) Then Return
-         ' lancio calcolo
-         EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProd.sProdDirPath, AddressOf ManageCalc)
-      ElseIf Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE Then
-         ProjType = ProjectManagerVM.CurrProd.nType
+   Friend Sub VerifyAll(ProgramPage As ProjectType)
+      Dim ProjType As BWType = ProjectManagerVM.CurrProd.nType
+      If GetMainPrivateProfileInt(S_GENERAL, "UseCam5", 0) = 1 Then
+         Dim BarList() As EgtBEAMWALL.Core.Bar = Nothing
          If Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.PART OrElse Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.PARTLIST Then
             If Not CreateBarListToVerify(Pages.VIEW, ProjType, BarList) Then Return
             ' lancio calcolo
-            EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProj.sProjDirPath, AddressOf ManageCalc)
+            EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProd.sProdDirPath & "\Projs\" & Map.refProjectVM.BTLStructureVM.SelBTLPart.nPROJ.ToString("0000"), AddressOf ManageCalc)
          ElseIf Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.MACHGROUP Then
             If Not CreateBarListToVerify(Pages.MACHINING, ProjType, BarList) Then Return
             ' lancio calcolo
             EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProd.sProdDirPath, AddressOf ManageCalc)
          End If
+      Else
+         Dim ExecThread As New Thread(Sub()
+                                         VerifyAllWithEngine(ProgramPage)
+                                      End Sub)
+         ExecThread.Start()
+      End If
+
+   End Sub
+
+   Private Sub VerifyAllWithEngine(ProgramPage As ProjectType)
+      Dim QuestionList As New List(Of QuestionDTO)
+      If ProgramPage = ProjectType.PROJ Then
+         For PartIndex = 0 To Map.refProjectVM.BTLStructureVM.BTLPartVMList.Count - 1
+            If Not Map.refProjectVM.BTLStructureVM.BTLPartVMList(PartIndex).bDO Then Continue For
+            VerifyProjWithEngine(Map.refProjectVM.BTLStructureVM.BTLPartVMList(PartIndex))
+         Next
+         For PartIndex = 0 To Map.refProjectVM.BTLStructureVM.BTLPartVMList.Count - 1
+            Map.refProjectVM.BTLStructureVM.BTLPartVMList(PartIndex).SetIsRowEnabled(True)
+         Next
+         Map.refLeftPanelVM.SetCALCPanel_IsEnabled(True)
+      ElseIf ProgramPage = ProjectType.PROD Then
+         For PartIndex = 0 To Map.refMachGroupPanelVM.MachGroupVMList.Count - 1
+            ' se e' gia' stato assegnato a supervisor, la salto e vado alla prossima barra
+            If DirectCast(Map.refMachGroupPanelVM.MachGroupVMList(PartIndex), MyMachGroupVM).nProduction_State >= ItemState.Assigned Then Return
+            VerifyProdWithEngine(Map.refMachGroupPanelVM.MachGroupVMList(PartIndex))
+         Next
+         For PartIndex = 0 To Map.refMachGroupPanelVM.MachGroupVMList.Count - 1
+            DirectCast(Map.refMachGroupPanelVM.MachGroupVMList(PartIndex), MyMachGroupVM).SetIsRowEnabled(True)
+         Next
+         Map.refRawPartManagerVM.SetCALCPanel_IsEnabled(True)
       End If
    End Sub
 
@@ -829,7 +795,7 @@ Public Class CALCPanelVM
                                                      .nProgramPage = ProjectType.PROJ,
                                                      .nProjType = ProjType,
                                                      .bBarOk = True,
-                                                     .nMachineName = Map.refMachinePanelVM.SelectedMachine.Name,
+                                                     .nMachineName = ProjectManagerVM.CurrProd.sMachine,
                                                      .nGlobState = CurrPart.nGlobalState}
             Select Case CurrPart.nGlobalState
                Case Core.CalcStates.OK, CalcStates.INFO
@@ -880,223 +846,12 @@ Public Class CALCPanelVM
       Return True
    End Function
 
-   '#End Region ' VerifyAll
+#End Region    ' METHODS
 
-   '#Region "ResetCalc"
-
-   '   ''' <summary>
-   '   ''' Returns a command that do Exec.
-   '   ''' </summary>
-   '   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
-
-   '   ''' <summary>
-   '   ''' Execute the Exec.  This method is invoked by the ExecCommand.
-   '   ''' </summary>
-   '   Public Sub ResetCalc()
-   '      If (Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso (IsNothing(ProjectManagerVM.CurrProj) OrElse IsNothing(Map.refProjectVM.BTLStructureVM))) OrElse
-   '         (Map.refMainMenuVM.SelPage = Pages.MACHINING AndAlso (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM))) OrElse
-   '         (Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE AndAlso (IsNothing(ProjectManagerVM.CurrProj) OrElse IsNothing(Map.refProjectVM.BTLStructureVM)) AndAlso (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM))) Then Return
-   '      If Map.refMainMenuVM.SelPage = Pages.VIEW OrElse (Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE AndAlso (Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.PART OrElse Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.PARTLIST)) Then
-   '         If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
-   '            For Each Part In Map.refProjectVM.BTLStructureVM.BTLPartVMList
-   '               If Part.nGlobalState <> CalcStates.NOTCALCULATED Then
-   '                  ' resetto stato dei calcoli
-   '                  Part.ResetCalcTotalPart()
-   '               End If
-   '            Next
-   '         ElseIf Map.refProjectVM.BTLStructureVM.SelBTLPartsCnt > 1 Then
-   '         Else
-   '            Dim SelPart As BTLPartVM = Map.refProjectVM.BTLStructureVM.SelBTLPart
-   '            If IsNothing(SelPart) Then Return
-   '            If SelPart.nGlobalState <> CalcStates.NOTCALCULATED Then
-   '               SelPart.ResetCalcTotalPart()
-   '            End If
-   '         End If
-   '      ElseIf Map.refMainMenuVM.SelPage = Pages.MACHINING OrElse (Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE AndAlso Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.MACHGROUP) Then
-   '         If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
-   '            For Each MachGroup As MyMachGroupVM In Map.refProjectVM.MachGroupPanelVM.MachGroupVMList
-   '               If MachGroup.nProduction_State >= ItemState.Assigned Then Continue For
-   '               If MachGroup.nGlobalState <> CalcStates.NOTCALCULATED Then
-   '                  MachGroup.ResetCalcTotalMachGroup()
-   '               End If
-   '            Next
-   '         Else
-   '            Dim SelMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
-   '            If IsNothing(SelMachGroup) Then Return
-   '            ' se barra gia' assegnata a supervisore, esco
-   '            If SelMachGroup.nProduction_State >= ItemState.Assigned Then Return
-   '            If SelMachGroup.nGlobalState <> CalcStates.NOTCALCULATED Then
-   '               SelMachGroup.ResetCalcTotalMachGroup()
-   '            End If
-   '         End If
-   '      End If
-   '   End Sub
-
-   '#End Region    ' ResetCalc
-
-   '#Region "Simulate"
-
-   '   ''' <summary>
-   '   ''' Returns a command that do Open.
-   '   ''' </summary>
-   '   Public ReadOnly Property Simulate_Command As ICommand
-   '      Get
-   '         If m_cmdSimulate Is Nothing Then
-   '            m_cmdSimulate = New Command(AddressOf Simulate)
-   '         End If
-   '         Return m_cmdSimulate
-   '      End Get
-   '   End Property
-
-   '   ''' <summary>
-   '   ''' Execute the Open.  This method is invoked by the OpenCommand.
-   '   ''' </summary>
-   '   Friend Sub Simulate()
-   '      If (Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso (IsNothing(ProjectManagerVM.CurrProj) OrElse IsNothing(Map.refProjectVM.BTLStructureVM))) OrElse
-   '         (Map.refMainMenuVM.SelPage = Pages.MACHINING AndAlso (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM))) OrElse
-   '         (Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE AndAlso (IsNothing(ProjectManagerVM.CurrProj) OrElse IsNothing(Map.refProjectVM.BTLStructureVM)) AndAlso (IsNothing(ProjectManagerVM.CurrProd) OrElse IsNothing(Map.refProjectVM.MachGroupPanelVM))) Then Return
-   '      Dim ProjType As BWType
-   '      Dim BarList() As EgtBEAMWALL.Core.Bar = Nothing
-   '      If Map.refMainMenuVM.SelPage = Pages.VIEW Then
-   '         ProjType = ProjectManagerVM.CurrProj.nType
-   '         If Not CreateBarToSimulate(Pages.VIEW, ProjType, BarList) Then Return
-   '         ' lancio simulazione
-   '         EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProj.sProjDirPath, AddressOf ManageCalc)
-   '      ElseIf Map.refMainMenuVM.SelPage = Pages.MACHINING Then
-   '         ProjType = ProjectManagerVM.CurrProd.nType
-   '         If Not CreateBarToSimulate(Pages.MACHINING, ProjType, BarList) Then Return
-   '         ' lancio simulazione
-   '         EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProd.sProdDirPath, AddressOf ManageCalc)
-   '      ElseIf Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE Then
-   '         ProjType = Map.refOnlyProdManagerVM.CurrProd.nType
-   '         If Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.PART Then
-   '            If Not CreateBarToSimulate(Pages.VIEW, ProjType, BarList) Then Return
-   '            ' lancio simulazione
-   '            EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProj.sProjDirPath, AddressOf ManageCalc)
-   '         ElseIf Map.refProjectVM.LastSelGridType = ProjectVM.GridSelTypes.MACHGROUP Then
-   '            If Not CreateBarToSimulate(Pages.MACHINING, ProjType, BarList) Then Return
-   '            ' lancio simulazione
-   '            EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProd.sProdDirPath, AddressOf ManageCalc)
-   '         End If
-   '      End If
-   '   End Sub
-
-   '   Private Function CreateBarToSimulate(SelPage As Pages, ProjType As BWType, ByRef BarList As Bar()) As Boolean
-   '      If SelPage = Pages.VIEW Then
-   '         If Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) Then
-   '            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,
-   '                                                     .bBarOk = True,
-   '                                                     .nMachineName = Map.refMachinePanelVM.SelectedMachine.Name,
-   '                                                     .nCmdType = CalcIntegration.CmdTypes.SIMULATE,
-   '                                                     .nGlobState = Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState}
-   '            If Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState = CalcStates.NOTCALCULATED Then
-   '               Dim sBTLPartFilePath As String = ProjectManagerVM.CurrProj.sProjDirPath & "\" & Map.refProjectVM.BTLStructureVM.SelBTLPart.nPDN.ToString() & ".ori.bwe"
-   '               If File.Exists(sBTLPartFilePath) Then File.Delete(sBTLPartFilePath)
-   '            End If
-   '            TempBarList(0) = Bar
-   '            BarList = TempBarList
-   '         Else
-   '            Return False
-   '         End If
-   '         ' disabilito interfaccia
-   '         Map.refProjectVM.SetCalcRunning(True)
-   '      ElseIf SelPage = Pages.MACHINING Then
-   '         If Not IsNothing(Map.refMachGroupPanelVM.SelectedMachGroup) Then
-   '            Dim SelMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.SelectedMachGroup
-   '            Dim TempBarList(0) As EgtBEAMWALL.Core.Bar
-   '            Dim MachineName As String = ""
-   '            EgtGetMachGroupMachineName(SelMachGroup.Id, MachineName)
-   '            Dim Bar As New EgtBEAMWALL.Core.Bar With {.nBarId = SelMachGroup.Id,
-   '                                                     .nProgramPage = ProjectType.PROD,
-   '                                                     .nProjType = ProjType,
-   '                                                     .bBarOk = True,
-   '                                                     .nMachineName = MachineName,
-   '                                                     .nCmdType = CalcIntegration.CmdTypes.SIMULATE,
-   '                                                     .nGlobState = SelMachGroup.nGlobalState}
-   '            If SelMachGroup.nGlobalState = CalcStates.NOTCALCULATED Then
-   '               Dim sMachGroupFilePath As String = ProjectManagerVM.CurrProd.sProdDirPath & "\" & SelMachGroup.Name.ToString() & ".ori.bwe"
-   '               If File.Exists(sMachGroupFilePath) Then File.Delete(sMachGroupFilePath)
-   '            End If
-   '            TempBarList(0) = Bar
-   '            BarList = TempBarList
-   '         Else
-   '            Return False
-   '         End If
-   '         ' disabilito interfaccia
-   '         Map.refProjectVM.SetCalcRunning(True)
-   '      End If
-   '      Return True
-   '   End Function
-
-   '#End Region ' Simulate
-
-   '#Region "Edit"
-
-   '   ''' <summary>
-   '   ''' Returns a command that do Open.
-   '   ''' </summary>
-   '   Public ReadOnly Property Edit_Command As ICommand
-   '      Get
-   '         If m_cmdEdit Is Nothing Then
-   '            m_cmdEdit = New Command(AddressOf Edit)
-   '         End If
-   '         Return m_cmdEdit
-   '      End Get
-   '   End Property
-
-   '   ''' <summary>
-   '   ''' Execute the Open.  This method is invoked by the OpenCommand.
-   '   ''' </summary>
-   '   Friend Sub Edit()
-   '      If Map.refMainMenuVM.SelPage = Pages.VIEW AndAlso (IsNothing(ProjectManagerVM.CurrProj) OrElse IsNothing(Map.refProjectVM.BTLStructureVM)) Then Return
-   '      Dim ProjType As BWType
-   '      If Map.refMainMenuVM.SelPage = Pages.VIEW Then
-   '         ProjType = ProjectManagerVM.CurrProj.nType
-   '      Else
-   '         ProjType = ProjectManagerVM.CurrProd.nType
-   '      End If
-   '      Dim BarList() As EgtBEAMWALL.Core.Bar
-   '      If Map.refMainMenuVM.SelPage = Pages.VIEW Then
-   '         If Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) Then
-   '            ' salvo il progetto prima di editarlo
-   '            Map.refProjManagerVM.Save()
-   '            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,
-   '                                                     .bBarOk = True,
-   '                                                     .nMachineName = Map.refMachinePanelVM.SelectedMachine.Name,
-   '                                                     .nCmdType = CalcIntegration.CmdTypes.EDIT,
-   '                                                     .nGlobState = Map.refProjectVM.BTLStructureVM.SelBTLPart.nGlobalState}
-   '            TempBarList(0) = Bar
-   '            BarList = TempBarList
-   '         Else
-   '            Return
-   '         End If
-   '         ' disabilito interfaccia
-   '         Map.refProjectVM.SetCalcRunning(True)
-   '         ' lancio edit
-   '         EgtBEAMWALL.Core.CalcIntegration.Run(BarList, ProjectManagerVM.CurrProj.sProjDirPath, AddressOf ManageCalc)
-   '      End If
-   '   End Sub
-
-   '#End Region ' Edit
+#Region "COMMANDS"
 
 #Region "ChooseMachine"
 
-   ''' <summary>
-   ''' Returns a command that do Open.
-   ''' </summary>
    Public ReadOnly Property ChooseMachine_Command As ICommand
       Get
          If m_cmdChooseMachine Is Nothing Then
@@ -1106,12 +861,9 @@ Public Class CALCPanelVM
       End Get
    End Property
 
-   ''' <summary>
-   ''' Execute the Open.  This method is invoked by the OpenCommand.
-   ''' </summary>
    Friend Sub ChooseMachine()
       ' rendo visibile la CmBx per la scelta e il pulsante di conferma solo se il Proj corrente non ha associato alcun Prod
-      If ProjectManagerVM.CurrProj.nProdId > 0 AndAlso Map.refMainMenuVM.SelPage <> Pages.ONLYPRODPAGE Then
+      If ProjectManagerVM.CurrProd.nProjId > 0 Then
          MessageBox.Show(EgtMsg(61929), EgtMsg(30009), MessageBoxButton.OK, MessageBoxImage.Exclamation)
       Else
          SetChooseMachine_Visibility(True)
@@ -1122,9 +874,6 @@ Public Class CALCPanelVM
 
 #Region "Ok"
 
-   ''' <summary>
-   ''' Returns a command that do Open.
-   ''' </summary>
    Public ReadOnly Property Ok_Command As ICommand
       Get
          If m_cmdOk Is Nothing Then
@@ -1134,9 +883,6 @@ Public Class CALCPanelVM
       End Get
    End Property
 
-   ''' <summary>
-   ''' Execute the Open.  This method is invoked by the OpenCommand.
-   ''' </summary>
    Friend Sub Ok()
       ' aggiorno la Macchina selezionata nel Machine Panel e collasso CmBx e pulsante di conferma
       If Not IsNothing(SelectedMachine) Then Map.refMachinePanelVM.SelectedMachine = SelectedMachine
@@ -1147,17 +893,17 @@ Public Class CALCPanelVM
       Dim nPartProjId As Integer
       'Dim TempList As New List(Of BTLPartM)
       Dim nPartId As Integer = EgtGetFirstPart()
-      If Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE Then
-         ProjId = ProjectManagerVM.CurrProd.nProjIdList(0)
-      Else
-         ProjId = ProjectManagerVM.CurrProj.nProjId
-      End If
+      'If Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE Then
+      ProjId = ProjectManagerVM.CurrProd.nProjIdList(0)
+      'Else
+      '   ProjId = ProjectManagerVM.CurrProj.nProjId
+      'End If
       EgtGetInfo(nPartId, BTL_PRT_PROJ, nPartProjId)
       While nPartId <> GDB_ID.NULL
          ' se devo filtrare un progetto
-         If ProjId > 0 OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE Then
+         If ProjId > 0 Then
             ' verifico se il pezzo appartiene al ProjId
-            If nPartProjId = ProjId OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE Then
+            If nPartProjId = ProjId Then
                EgtRemoveInfo(nPartId, ITG_PROJ_ERR)
                EgtRemoveInfo(nPartId, ITG_PROJ_MSG)
                EgtRemoveInfo(nPartId, ITG_PROJ_ROT)
@@ -1184,9 +930,12 @@ Public Class CALCPanelVM
                   ' verifico che sia una feature
                   Dim nGRP As Integer
                   If EgtGetInfo(nFeatureId, BTL_FTR_GRP, nGRP) AndAlso Not EgtExistsInfo(nFeatureId, BTL_FTR_MAINID) Then
-                     EgtRemoveInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE, ITG_PROJ_ERR, ITG_PROD_ERR))
-                     EgtRemoveInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE, ITG_PROJ_MSG, ITG_PROD_MSG))
-                     EgtRemoveInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE, ITG_PROJ_ROT, ITG_PROD_ROT))
+                     'EgtRemoveInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE, ITG_PROJ_ERR, ITG_PROD_ERR))
+                     EgtRemoveInfo(nFeatureId, ITG_PROD_ERR)
+                     'EgtRemoveInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE, ITG_PROJ_MSG, ITG_PROD_MSG))
+                     EgtRemoveInfo(nFeatureId, ITG_PROD_MSG)
+                     'EgtRemoveInfo(nFeatureId, If(Map.refMainMenuVM.SelPage = Pages.VIEW OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE, ITG_PROJ_ROT, ITG_PROD_ROT))
+                     EgtRemoveInfo(nFeatureId, ITG_PROD_ROT)
                   End If
                   nFeatureId = EgtGetNext(nFeatureId)
                End While
@@ -1195,7 +944,7 @@ Public Class CALCPanelVM
          nPartId = EgtGetNextPart(nPartId)
       End While
       ' Se OnlyProdPage rimuovo MachGroup
-      If Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE AndAlso Map.refProjectVM.MachGroupPanelVM.MachGroupVMList.Count > 0 Then
+      If Map.refProjectVM.MachGroupPanelVM.MachGroupVMList.Count > 0 Then
          If MessageBox.Show(EgtMsg(61779), EgtMsg(30009), MessageBoxButton.OKCancel, MessageBoxImage.Exclamation) = MessageBoxResult.OK Then
             For Index As Integer = Map.refMachGroupPanelVM.MachGroupVMList.Count - 1 To 0 Step -1
                Dim CurrMachGroup As MyMachGroupVM = Map.refMachGroupPanelVM.MachGroupVMList(Index)

EgtBEAMWALL.Optimizer/CALCPanel/CalcPanelV.xaml

@@ -1,69 +1,32 @@
-<EgtFloating:EgtFloatingPanel x:Class="CalcPanelV"
-                              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-                              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-                              xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
-                              IsTopDockable="True" IsBottomDockable="False" IsLeftDockable="False"
-                              IsRightDockable="False" Style="{StaticResource ToolBar_EgtFloatingPanel}">
-
-   <Button FontSize="20"
-           FontWeight="Light"
-           ToolTip="{Binding Verify_ToolTip}"
-           Style="{StaticResource ToolBar_Button}"
-           Command="{Binding Verify_Command}"
-           IsEnabled="{Binding Verify_IsEnabled}">
-      <Image Source="/Resources/CALCPanel/Verify.png" Stretch="Uniform"/>
-   </Button>
-   <Button FontSize="20"
-           FontWeight="Light"
-           ToolTip="{Binding VerifyAll_ToolTip}"
-           Style="{StaticResource ToolBar_Button}"
-           Command="{Binding VerifyAll_Command}"
-           IsEnabled="{Binding VerifyAll_IsEnabled}">
-      <Image Source="/Resources/CALCPanel/VerifyAll.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding ResetCalc_Command}"
-           ToolTip="{Binding ResetCalc_ToolTip}"
-           IsEnabled="{Binding CALCPanel_IsEnabled}"
-           Style="{StaticResource ToolBar_Button}">
-      <Image Source="/Resources/CALCPanel/ResetCalc.png" Stretch="Uniform"/>
-   </Button>
-   <Button ToolTip="{Binding Simulate_ToolTip}"
-           Style="{StaticResource ToolBar_Button}"
-           Command="{Binding Simulate_Command}"
-           IsEnabled="{Binding Simulate_IsEnabled}">
-      <Image Source="/Resources/CALCPanel/Simulate.png" Stretch="Uniform"/>
-   </Button>
-   <Button ToolTip="{Binding Edit_ToolTip}"
-           Style="{StaticResource ToolBar_Button}"
-           Command="{Binding Edit_Command}"
-           IsEnabled="{Binding Edit_IsEnabled}"
-           Visibility="{Binding Edit_Visibility}">
-      <Image Source="/Resources/CALCPanel/Edit.png" Stretch="Uniform"/>
-   </Button>
+<StackPanel x:Class="CalcPanelV"
+            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+            Style="{StaticResource OnlyProdPartManager_StackPanel}">
+   
    <Button ToolTip="{Binding ChooseMachine_ToolTip}"
-           Style="{StaticResource ToolBar_Button}"
            Command="{Binding ChooseMachine_Command}"
            IsEnabled="{Binding CALCPanel_IsEnabled}"
-           Visibility="{Binding ChooseMachineBtn_Visibility}">
+           Visibility="{Binding ChooseMachineBtn_Visibility}"
+           Style="{StaticResource ToolBarViewPanel_Button}">
       <Image Source="/Resources/CALCPanel/ChooseMachine.png" Stretch="Uniform"/>
    </Button>
 
    <Grid Margin="0,0,5,0" Visibility="{Binding ChooseMachine_Visibility}">
-        <Grid.ColumnDefinitions>
-            <ColumnDefinition Width="Auto"/>
-            <ColumnDefinition Width="Auto"/>
-        </Grid.ColumnDefinitions>
-        <!--Combobox per selezionare la macchina corrente-->
-        <ComboBox ItemsSource="{Binding Path=MachineList}" DisplayMemberPath="Name"
-                SelectedItem="{Binding Path=SelectedMachine}" SelectedValuePath="Name"
-                Height="22" Width="150"
-                Grid.Column="0"/>
-        <Button Content="OK"
-                FontSize="10"
-                FontWeight="Light"
-                Style="{StaticResource ToolBar_Button}"
-                Command="{Binding Ok_Command}"
-                Grid.Column="1"/>
-    </Grid>
+      <Grid.ColumnDefinitions>
+         <ColumnDefinition Width="Auto"/>
+         <ColumnDefinition Width="Auto"/>
+      </Grid.ColumnDefinitions>
+      <!--Combobox per selezionare la macchina corrente-->
+      <ComboBox Grid.Column="0"
+                ItemsSource="{Binding Path=MachineList}" 
+                DisplayMemberPath="Name"
+                SelectedItem="{Binding Path=SelectedMachine}" 
+                SelectedValuePath="Name"
+                Style="{StaticResource OnlyProdCalcPanel_ComboBox}"/>
+      <Button Grid.Column="1"
+              Content="OK"
+              Command="{Binding Ok_Command}"
+              Style="{StaticResource ToolBarOnlyProdCalcPanel_Button}"/>
+   </Grid>
 
-</EgtFloating:EgtFloatingPanel>
+</StackPanel>

EgtBEAMWALL.Optimizer/CALCPanel/OnlyProdCalcPanelV.xaml

@@ -1,64 +0,0 @@
-<StackPanel x:Class="OnlyProdCalcPanelV"
-            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-            xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
-            Style="{StaticResource OnlyProdPartManager_StackPanel}">
-   
-   <!--<Button ToolTip="{Binding Verify_ToolTip}"
-           Command="{Binding Verify_Command}"
-           IsEnabled="{Binding Verify_IsEnabled}"
-           Style="{StaticResource ToolBarViewPanel_Button}">
-      <Image Source="/Resources/CALCPanel/Verify.png" Stretch="Uniform"/>
-   </Button>
-   <Button ToolTip="{Binding VerifyAll_ToolTip}"
-           Command="{Binding VerifyAll_Command}"
-           IsEnabled="{Binding VerifyAll_IsEnabled}"
-           Style="{StaticResource ToolBarViewPanel_Button}">
-      <Image Source="/Resources/CALCPanel/VerifyAll.png" Stretch="Uniform"/>
-   </Button>-->
-   <!--<Button Command="{Binding ResetCalc_Command}"
-           ToolTip="{Binding ResetCalc_ToolTip}"
-           IsEnabled="{Binding CALCPanel_IsEnabled}"
-           Style="{StaticResource ToolBarViewPanel_Button}">
-      <Image Source="/Resources/CALCPanel/ResetCalc.png" Stretch="Uniform"/>
-   </Button>-->
-   <!--<Button ToolTip="{Binding Simulate_ToolTip}"
-           Command="{Binding Simulate_Command}"
-           IsEnabled="{Binding Simulate_IsEnabled}"
-           Style="{StaticResource ToolBarViewPanel_Button}">
-      <Image Source="/Resources/CALCPanel/Simulate.png" Stretch="Uniform"/>
-   </Button>-->
-   <!--<Button ToolTip="{Binding Edit_ToolTip}"
-           Command="{Binding Edit_Command}"
-           IsEnabled="{Binding Edit_IsEnabled}"
-           Visibility="{Binding Edit_Visibility}"
-           Style="{StaticResource ToolBarViewPanel_Button}">
-      <Image Source="/Resources/CALCPanel/Edit.png" Stretch="Uniform"/>
-   </Button>-->
-   <Button ToolTip="{Binding ChooseMachine_ToolTip}"
-           Command="{Binding ChooseMachine_Command}"
-           IsEnabled="{Binding CALCPanel_IsEnabled}"
-           Visibility="{Binding ChooseMachineBtn_Visibility}"
-           Style="{StaticResource ToolBarViewPanel_Button}">
-      <Image Source="/Resources/CALCPanel/ChooseMachine.png" Stretch="Uniform"/>
-   </Button>
-
-   <Grid Margin="0,0,5,0" Visibility="{Binding ChooseMachine_Visibility}">
-      <Grid.ColumnDefinitions>
-         <ColumnDefinition Width="Auto"/>
-         <ColumnDefinition Width="Auto"/>
-      </Grid.ColumnDefinitions>
-      <!--Combobox per selezionare la macchina corrente-->
-      <ComboBox Grid.Column="0"
-                ItemsSource="{Binding Path=MachineList}" 
-                DisplayMemberPath="Name"
-                SelectedItem="{Binding Path=SelectedMachine}" 
-                SelectedValuePath="Name"
-                Style="{StaticResource OnlyProdCalcPanel_ComboBox}"/>
-      <Button Grid.Column="1"
-              Content="OK"
-              Command="{Binding Ok_Command}"
-              Style="{StaticResource ToolBarOnlyProdCalcPanel_Button}"/>
-   </Grid>
-
-</StackPanel>

EgtBEAMWALL.Optimizer/CALCPanel/OnlyProdCalcPanelV.xaml.vb

@@ -1,3 +0,0 @@
-Public Class OnlyProdCalcPanelV
-
-End Class

EgtBEAMWALL.Optimizer/ChangeMaterialWnd/ChangeMaterialWndV.xaml

@@ -2,7 +2,6 @@
                             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:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Optimizer"
                             Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
                             WindowStyle="None" ResizeMode="NoResize"
                             SizeToContent="WidthAndHeight"

EgtBEAMWALL.Optimizer/ChangeParameterWnd/ChangeParameterWndV.xaml

@@ -2,7 +2,6 @@
                             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:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Optimizer"
                             Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
                             WindowStyle="None" ResizeMode="NoResize"
                             SizeToContent="Height"

EgtBEAMWALL.Optimizer/ConfigurationPage/ConfigurationPageV.xaml

@@ -1,83 +1,9 @@
-<DockPanel x:Class="ConfigurationPageV"
+<DockPanel x:Class="ConfigurationPageV"
            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-           xmlns:EgtBEAMWALLCORE="clr-namespace:EgtBEAMWALL.Core;assembly=EgtBEAMWALL.Core"
-           xmlns:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Optimizer"
+           xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer"
            DataContext="{StaticResource ConfigurationPageVM}">
 
-   <Grid>
-      <Grid.ColumnDefinitions>
-         <ColumnDefinition Width="1*"/>
-         <ColumnDefinition Width="10*"/>
-      </Grid.ColumnDefinitions>
-      <Grid.RowDefinitions>
-         <RowDefinition Height="1*"/>
-         <RowDefinition Height="6*"/>
-      </Grid.RowDefinitions>
-      <TabControl Grid.Row="0" Grid.Column="0" Grid.RowSpan="2" Grid.ColumnSpan="2"
-                  SelectedIndex="{Binding SelConfigSubPage}">
-         <TabItem>
-            <TabItem.Header>
-               <StackPanel Orientation="Horizontal">
-                  <TextBlock Text="{Binding General_Msg}"
-                             Style="{StaticResource OptionTextBlock}"/>
-                  <Button Command="{Binding SaveCommand}"
-                          ToolTip="{Binding SaveToolTip}"
-                          Visibility="{Binding General_Visibility}"
-                          Style="{StaticResource OptionPanel_Button}">
-                     <Image Source="/Resources/ProjectManager/Save.png" Stretch="Uniform"/>
-                  </Button>
-               </StackPanel>
-            </TabItem.Header>
-            <TabItem.Content>
-               <EgtBEAMWALLCORE:General_ConfigurationPageV/>
-            </TabItem.Content>
-         </TabItem>
-         <TabItem>
-            <TabItem.Header>
-               <StackPanel Orientation="Horizontal">
-                  <TextBlock Text="{Binding ParameterQ_Msg}"
-                             Style="{StaticResource OptionTextBlock}"/>
-                  <Button Command="{Binding SaveCommand}"
-                          ToolTip="{Binding SaveToolTip}"
-                          Visibility="{Binding ParameterQ_Visibility}"
-                          Style="{StaticResource OptionPanel_Button}">
-                     <Image Source="/Resources/ProjectManager/Save.png" Stretch="Uniform"/>
-                  </Button>
-               </StackPanel>
-            </TabItem.Header>
-            <TabItem.Content>
-               <EgtBEAMWALLCORE:QParameter_ConfigurationPageV/>
-            </TabItem.Content>
-         </TabItem>
-         <TabItem>
-            <TabItem.Header>
-               <TextBlock Text="{Binding Machine_Msg}"
-                          Style="{StaticResource Machine_TextBlock}"/>
-            </TabItem.Header>
-            <TabItem.Content>
-               <EgtBEAMWALLCORE:Machine_ConfigurationPageV/>
-            </TabItem.Content>
-         </TabItem>
-         <TabItem>
-            <TabItem.Header>
-               <StackPanel Orientation="Horizontal">
-                  <TextBlock Text="{Binding PDFEditor_Msg}"
-                             Style="{StaticResource OptionTextBlock}"/>
-                  <Button Command="{Binding SaveCommand}"
-                          ToolTip="{Binding SaveToolTip}"
-                          Visibility="{Binding PDFEditor_Visibility}"
-                          Style="{StaticResource OptionPanel_Button}">
-                     <Image Source="/Resources/ProjectManager/Save.png" Stretch="Uniform"/>
-                  </Button>
-               </StackPanel>
-            </TabItem.Header>
-
-            <TabItem.Content>
-               <EgtBEAMWALL:PDFEditorV/>
-            </TabItem.Content>
-         </TabItem>
-
-      </TabControl>
-   </Grid>
+   <OPTIMIZER:MachinePanelV DataContext="{Binding MachinePanelVM}"/>
+   
 </DockPanel>

EgtBEAMWALL.Optimizer/ConfigurationPage/ConfigurationPageV.xaml.vb

@@ -1,5 +1,2 @@
 Public Class ConfigurationPageV
-   Private Sub ScrollViewer_Scroll(sender As Object, e As Primitives.ScrollEventArgs)
-
-   End Sub
 End Class

EgtBEAMWALL.Optimizer/ConfigurationPage/ConfigurationProgramV.xaml

@@ -1,10 +1,9 @@
-<DockPanel x:Class="OnlyProdConfigurationPageV"
+<DockPanel x:Class="ConfigurationProgramV"
            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
            xmlns:EgtBEAMWALLCORE="clr-namespace:EgtBEAMWALL.Core;assembly=EgtBEAMWALL.Core"
-           xmlns:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Optimizer"
+           xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer"
            DataContext="{StaticResource ConfigurationPageVM}">
-
    <Grid>
       <Grid.ColumnDefinitions>
          <ColumnDefinition Width="1*"/>
@@ -14,7 +13,7 @@
          <RowDefinition Height="1*"/>
          <RowDefinition Height="6*"/>
       </Grid.RowDefinitions>
-      <TabControl Grid.Row="0" Grid.Column="0" Grid.RowSpan="2" Grid.ColumnSpan="2"
+      <TabControl Grid.RowSpan="2" Grid.ColumnSpan="2"
                   SelectedIndex="{Binding SelConfigSubPage}"
                   Style="{StaticResource OnlyProd_TabControl}">
          <TabItem>
@@ -34,38 +33,6 @@
                <EgtBEAMWALLCORE:OnlyProdGeneral_ConfigurationPageV/>
             </TabItem.Content>
          </TabItem>
-         <!--<TabItem>
-            <TabItem.Header>
-               <StackPanel Orientation="Horizontal" Margin="5">
-                  <TextBlock Text="{Binding ParameterQ_Msg}"
-                             FontSize="15"/>
-                  <Button Command="{Binding SaveCommand}"
-                          ToolTip="{Binding SaveToolTip}"
-                          Visibility="{Binding ParameterQ_Visibility}"
-                          Style="{StaticResource SaveOptionPanel_Button}">
-                     <Image Source="/Resources/ProjectManager/Save.png" Stretch="Uniform"/>
-                  </Button>
-               </StackPanel>
-            </TabItem.Header>
-            <TabItem.Content>
-               <EgtBEAMWALLCORE:OnlyProdQParameter_ConfigurationPageV/>
-            </TabItem.Content>
-         </TabItem>-->
-         <TabItem>
-            <TabItem.Header>
-               <StackPanel Orientation="Horizontal" Margin="5">
-                  <TextBlock Text="{Binding Machine_Msg}"
-                             FontSize="15"/>
-               </StackPanel>
-            </TabItem.Header>
-            <TabItem.Content>
-               <StackPanel>
-                  <Button Content="Strategies"
-                          Command="{Binding StrategyManager_Command}"/>
-                  <EgtBEAMWALLCORE:OnlyProdMachine_ConfigurationPageV/>
-               </StackPanel>
-            </TabItem.Content>
-         </TabItem>
          <TabItem>
             <TabItem.Header>
                <StackPanel Orientation="Horizontal" Margin="5">
@@ -80,20 +47,9 @@
                </StackPanel>
             </TabItem.Header>
             <TabItem.Content>
-               <EgtBEAMWALL:OnlyProdPDFEditorV/>
+               <OPTIMIZER:PDFEditorV/>
             </TabItem.Content>
          </TabItem>
-         <!--<TabItem>
-            <TabItem.Header>
-               <StackPanel Orientation="Horizontal" Margin="5">
-                  <TextBlock Text="{Binding CtrlVersion_Msg}"
-                             FontSize="15"/>
-               </StackPanel>
-            </TabItem.Header>
-            <TabItem.Content>
-               <EgtBEAMWALL:OnlyProdCheckVersionV/>
-            </TabItem.Content>
-         </TabItem>-->
       </TabControl>
    </Grid>
 </DockPanel>

EgtBEAMWALL.Optimizer/ConfigurationPage/ConfigurationProgramV.xaml.vb

@@ -0,0 +1,3 @@
+Public Class ConfigurationProgramV
+
+End Class

EgtBEAMWALL.Optimizer/ConfigurationPage/General_ConfigurationPageV.xaml

@@ -1,118 +0,0 @@
-<Grid x:Class="General_ConfigurationPageV"
-      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">
-
-   <Grid.ColumnDefinitions>
-      <ColumnDefinition Width="1*"/>
-      <ColumnDefinition Width="1*"/>
-      <ColumnDefinition Width="1*"/>
-   </Grid.ColumnDefinitions>
-   <Grid.RowDefinitions>
-      <RowDefinition Height="1*"/>
-      <RowDefinition Height="1*"/>
-   </Grid.RowDefinitions>
-   <StackPanel Grid.Row="0" Grid.Column="0" Margin="5,5,5,0">
-      <GroupBox Header="{Binding CurrentLanguage_Msg}"
-                Margin="0,0,0,5">
-         <UniformGrid Rows="2" Margin="3,3,3,3">
-            <ComboBox ItemsSource="{Binding LanguageList, Mode=OneWay}" Height="25"
-                      DisplayMemberPath="Name" SelectedItem="{Binding SelectedLanguage}"
-                      Margin="0,0,0,5"/>
-            <TextBlock Text="{Binding LanguageAdvert_Msg}" TextWrapping="Wrap"
-                       TextAlignment="Center"/>
-         </UniformGrid>
-      </GroupBox>
-      <UniformGrid Columns="2"
-                   Margin="0,0,0,5">
-         <TextBlock Text="{Binding MMUnits_Msg}" VerticalAlignment="Center"/>
-         <ComboBox ItemsSource="{Binding UnitMeasureList, Mode=OneWay}"
-                   SelectedIndex="{Binding SelMeasureUnit}" Height="25"
-                   Margin="0,5,0,0"/>
-      </UniformGrid>
-      <GroupBox Header="{Binding Nesting_Msg}"
-                Margin="0,0,0,5">
-         <StackPanel>
-            <UniformGrid Columns="2"
-                         Margin="0,0,0,5">
-               <TextBlock Text="{Binding SectionTime_Msg}"
-                          Grid.Row="0" Grid.Column="0"/>
-               <EgtWPFLib5:EgtTextBox Text="{Binding SectionTime, UpdateSourceTrigger=Explicit}"
-                                      Grid.Row="0" Grid.Column="1"/>
-            </UniformGrid>
-            <UniformGrid Columns="2"
-                         Margin="0,0,0,5">
-               <TextBlock Text="{Binding PartTime_Msg}"
-                          Grid.Row="1" Grid.Column="0"/>
-               <EgtWPFLib5:EgtTextBox Text="{Binding PartTime, UpdateSourceTrigger=Explicit}"
-                                      Grid.Row="1" Grid.Column="1"/>
-            </UniformGrid>
-         </StackPanel>
-      </GroupBox>
-      <UniformGrid Columns="2"
-                   Margin="0,0,0,5">
-         <TextBlock Text="{Binding PrintLabel_Msg}" VerticalAlignment="Center"/>
-         <CheckBox IsChecked="{Binding bPrintLabel_IsChecked}"
-                   Margin="0,5,0,0"/>
-      </UniformGrid>
-      <GroupBox Header="Backup And Restore">
-         <Grid>
-            <Grid.RowDefinitions>
-               <RowDefinition Height="Auto"/>
-               <RowDefinition Height="Auto"/>
-               <RowDefinition Height="Auto"/>
-               <RowDefinition Height="Auto"/>
-            </Grid.RowDefinitions>
-            <Grid Grid.Row="0"
-                  Margin="0,2,0,5">
-               <Grid.ColumnDefinitions>
-                  <ColumnDefinition Width="Auto"/>
-                  <ColumnDefinition Width="1*"/>
-               </Grid.ColumnDefinitions>
-               <CheckBox x:Name="ExternalBackup_CheckBox"
-                         IsChecked="{Binding bExternalBackupActive}"
-                         VerticalAlignment="Center"/>
-               <TextBlock Grid.Column="1"
-                          Text="External file path:"
-                          VerticalAlignment="Center"/>
-            </Grid>
-            <Grid Grid.Row="1"
-                  Margin="0,2,0,5">
-               <Grid.ColumnDefinitions>
-                  <ColumnDefinition Width="1*"/>
-                  <ColumnDefinition Width="Auto"/>
-               </Grid.ColumnDefinitions>
-               <TextBox Text="{Binding ExternalBackupFolderPath}"
-                        IsEnabled="{Binding IsChecked, ElementName=ExternalBackup_CheckBox}"
-                        Margin="0,0,2.5,0"/>
-               <Button Grid.Column="1"
-                       Content="..."
-                       Width="18"
-                       Command="{Binding ChooseExternalBackupFolderPath_Command}"
-                       IsEnabled="{Binding IsChecked, ElementName=ExternalBackup_CheckBox}"
-                       Margin="2.5,0,0,0"/>
-            </Grid>
-            <Grid Grid.Row="2">
-               <Grid.ColumnDefinitions>
-                  <ColumnDefinition Width="1*"/>
-                  <ColumnDefinition Width="Auto"/>
-               </Grid.ColumnDefinitions>
-               <TextBlock Text="Reminder Frequency"/>
-               <ComboBox Grid.Column="1"
-                         ItemsSource="{Binding ReminderList}"
-                         SelectedItem="{Binding SelReminder}"/>
-            </Grid>
-            <StackPanel Grid.Row="3"
-                        Orientation="Horizontal">
-               <Button Content="Backup"
-                       Command="{Binding Backup_Command}"
-                       Style="{StaticResource ToolBar_TextButton}"/>
-               <Button Content="Restore"
-                       Command="{Binding Restore_Command}"
-                       Style="{StaticResource ToolBar_TextButton}"/>
-            </StackPanel>
-         </Grid>
-      </GroupBox>
-   </StackPanel>
-
-</Grid>

EgtBEAMWALL.Optimizer/ConfigurationPage/General_ConfigurationPageV.xaml.vb

@@ -1,3 +0,0 @@
-Public Class General_ConfigurationPageV
-
-End Class

EgtBEAMWALL.Optimizer/ConfigurationPage/Machine_ConfigurationPageV.xaml

@@ -1,70 +0,0 @@
-<Grid x:Class="Machine_ConfigurationPageV"
-      xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-      xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-      xmlns:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.ViewerOptimizer"
-      xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
-
-   <Grid.ColumnDefinitions>
-      <ColumnDefinition Width="Auto"/>
-      <ColumnDefinition Width="1*"/>
-      <ColumnDefinition Width="1*"/>
-      <ColumnDefinition Width="1*"/>
-   </Grid.ColumnDefinitions>
-   <Grid.RowDefinitions>
-      <RowDefinition Height="Auto"/>
-      <RowDefinition Height="10*"/>
-   </Grid.RowDefinitions>
-
-   <StackPanel Grid.Row="0" Grid.Column="0" Orientation="Horizontal">
-      <GroupBox Style="{StaticResource GroupBoxStyle_NoHeader}" Padding="5,10,5,5">
-         <EgtBEAMWALL:MachinePanelV  DataContext="{Binding MachinePanelVM}" VerticalAlignment="Center"/>
-      </GroupBox>
-   </StackPanel>
-
-   <StackPanel Grid.Row="1" Grid.Column="0" Orientation="Horizontal">
-      <ItemsControl ItemsSource="{Binding ConfigMachTableList}">
-         <ItemsControl.ItemsPanel>
-            <ItemsPanelTemplate>
-               <StackPanel x:Name="GroupStackPanel" Orientation="Horizontal"/>
-            </ItemsPanelTemplate>
-         </ItemsControl.ItemsPanel>
-         <ItemsControl.ItemTemplate>
-            <DataTemplate>
-               <GroupBox Header="{Binding sName}"  Width="Auto" VerticalAlignment="Top" Height="Auto">
-                  <ItemsControl Name="MachParamsItemsControl" ItemsSource="{Binding MachParamList}" Margin="0,5,0,0">
-                     <ItemsControl.ItemsPanel>
-                        <ItemsPanelTemplate>
-                           <WrapPanel Orientation="Vertical"/>
-                        </ItemsPanelTemplate>
-                     </ItemsControl.ItemsPanel>
-                     <ItemsControl.ItemTemplate>
-                        <DataTemplate>
-                           <Grid Margin="0,0,5,5">
-                              <Grid.ColumnDefinitions>
-                                 <ColumnDefinition Width="*" />
-                                 <ColumnDefinition Width="*" />
-                                 <ColumnDefinition Width="*" />
-                              </Grid.ColumnDefinitions>
-                              <TextBlock Text="{Binding sName}"
-                                         TextWrapping="WrapWithOverflow"
-                                         Width="100"
-                                         Style="{StaticResource MachParamTextBlock}"/>
-                              <EgtWPFLib5:EgtTextBox Text="{Binding sValue, UpdateSourceTrigger=Explicit}"
-                                                     Grid.Column="1"
-                                                     Width="70"/>
-                              <TextBlock Text="{Binding sDescription}"
-                                         TextWrapping="WrapWithOverflow"
-                                         Width="200"
-                                         Style="{StaticResource MachParamTextBlock}"
-                                         Grid.Column="2"/>
-                           </Grid>
-                        </DataTemplate>
-                     </ItemsControl.ItemTemplate>
-                  </ItemsControl>
-               </GroupBox>
-            </DataTemplate>
-         </ItemsControl.ItemTemplate>
-      </ItemsControl>
-   </StackPanel>
-
-</Grid>

EgtBEAMWALL.Optimizer/ConfigurationPage/Machine_ConfigurationPageV.xaml.vb

@@ -1,3 +0,0 @@
-Public Class Machine_ConfigurationPageV
-
-End Class

EgtBEAMWALL.Optimizer/ConfigurationPage/OnlyProdCheckVersionV.xaml

@@ -1,143 +0,0 @@
-<Grid x:Class="OnlyProdCheckVersionV"
-      xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-      xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-      xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
-      xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-      xmlns:EgtBEAMWALLCORE="clr-namespace:EgtBEAMWALL.Core;assembly=EgtBEAMWALL.Core"
-      xmlns:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Optimizer">
-   <Grid.Resources>
-      <!--<EgtBEAMWALL:IsPermittedConverter x:Key="IsPermittedConverter"/>-->
-   </Grid.Resources>
-
-   <Grid.ColumnDefinitions>
-      <ColumnDefinition Width="Auto"/>
-      <ColumnDefinition Width="1*"/>
-   </Grid.ColumnDefinitions>
-   <Grid Margin="10" 
-         VerticalAlignment="Top" 
-         HorizontalAlignment="Left">
-      <Grid.RowDefinitions>
-         <RowDefinition Height="Auto"/>
-         <RowDefinition Height="Auto"/>
-         <RowDefinition Height="1*"/>
-      </Grid.RowDefinitions>
-      <StackPanel Orientation="Horizontal" HorizontalAlignment="Center">
-         <TextBlock Text="{Binding ActVersion_Msg}"
-                    VerticalAlignment="Center"
-                    FontSize="15"
-                    FontWeight="Bold"
-                    Margin="10,0,0,0"
-                    Style="{StaticResource OptionTextBlock_OnlyProd}"/>
-         <TextBlock Text="{Binding ActualVersion}"
-                    VerticalAlignment="Center"
-                    FontSize="15"
-                    FontWeight="Bold"
-                    Margin="10,0,0,0"
-                    Style="{StaticResource OptionTextBlock_OnlyProd}"/>
-      </StackPanel>
-      <UniformGrid Grid.Row="1"
-                   Columns="2"
-                   Margin="0,20,0,10">
-         <Button Content="{Binding AllVersion_Msg}"
-                 Width="180"
-                 Command="{Binding GetAllReleaseCommand}"
-                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
-         <Button Content="{Binding VersionFrom_Msg}"
-                 Width="150"
-                 Command="{Binding GetVersionFromCommand}"
-                 Style="{StaticResource OnlyProdEgtWPFLib5_InputButton}"/>
-      </UniformGrid>
-      <Border Grid.Row="2" 
-              Margin="0,10,10,10"  
-              Visibility="{Binding ProgramVersionListVisibility}"
-              Style="{StaticResource OnlyProdPage_Border}">
-         <DataGrid ItemsSource="{Binding ProgramVersionList}"
-                   SelectedItem="{Binding ProgramVersionListItem}"
-                   AutoGenerateColumns="False"
-                   CanUserSortColumns="False"
-                   CanUserResizeColumns="False"
-                   CanUserResizeRows="False"
-                   CanUserReorderColumns="False"
-                   SelectionMode="Single"
-                   ScrollViewer.CanContentScroll="True" 
-                   ScrollViewer.VerticalScrollBarVisibility="Auto"
-                   ScrollViewer.HorizontalScrollBarVisibility="Hidden"
-                   AlternatingRowBackground="{StaticResource BeamWall_LinkWater}"
-                   AlternationCount="2"
-                   CellStyle="{StaticResource CellDataGrid_CustomHighLight}"
-                   RowStyle="{StaticResource RowDataGrid_CustomHighLight}"
-                   Style="{StaticResource DataGrid_OnlyProd}">
-            <DataGrid.ColumnHeaderStyle>
-               <Style TargetType="{x:Type DataGridColumnHeader}">
-                  <Setter Property="Background" Value="{StaticResource BeamWall_Teal}"/>
-                  <Setter Property="Foreground" Value="{StaticResource BeamWall_White}"/>
-                  <Setter Property="HorizontalContentAlignment" Value="Center"/>
-                  <Setter Property="FontWeight" Value="Bold"/>
-                  <Setter Property="FontSize" Value="15"/>
-               </Style>
-            </DataGrid.ColumnHeaderStyle>
-            <DataGrid.Columns>
-               <!--Numero Versione-->
-               <DataGridTemplateColumn Width="170">
-                  <DataGridTemplateColumn.HeaderTemplate>
-                     <DataTemplate>
-                        <TextBlock Text="{Binding DataContext.NumVersion_Msg, RelativeSource={RelativeSource AncestorType=DataGrid}}"/>
-                     </DataTemplate>
-                  </DataGridTemplateColumn.HeaderTemplate>
-                  <DataGridTemplateColumn.CellTemplate>
-                     <DataTemplate>
-                        <TextBlock Text="{Binding VersNum}"/>
-                     </DataTemplate>
-                  </DataGridTemplateColumn.CellTemplate>
-               </DataGridTemplateColumn>
-               <!--Versione-->
-               <DataGridTemplateColumn Width="110">
-                  <DataGridTemplateColumn.HeaderTemplate>
-                     <DataTemplate>
-                        <TextBlock Text="{Binding DataContext.Version_Msg, RelativeSource={RelativeSource AncestorType=DataGrid}}"/>
-                     </DataTemplate>
-                  </DataGridTemplateColumn.HeaderTemplate>
-                  <DataGridTemplateColumn.CellTemplate>
-                     <DataTemplate>
-                        <TextBlock Text="{Binding VersText}"/>
-                     </DataTemplate>
-                  </DataGridTemplateColumn.CellTemplate>
-               </DataGridTemplateColumn>
-               <!--Data di Rilascio-->
-               <DataGridTemplateColumn Width="160">
-                  <DataGridTemplateColumn.HeaderTemplate>
-                     <DataTemplate>
-                        <TextBlock Text="{Binding DataContext.DateVersion_Msg, RelativeSource={RelativeSource AncestorType=DataGrid}}"/>
-                     </DataTemplate>
-                  </DataGridTemplateColumn.HeaderTemplate>
-                  <DataGridTemplateColumn.CellTemplate>
-                     <DataTemplate>
-                        <TextBlock Text="{Binding ReleaseDate, StringFormat=dd/MM/yyyy}"/>
-                     </DataTemplate>
-                  </DataGridTemplateColumn.CellTemplate>
-               </DataGridTemplateColumn>
-               <!--Stato Versione-->
-               <DataGridTemplateColumn Width="150">
-                  <DataGridTemplateColumn.HeaderTemplate>
-                     <DataTemplate>
-                        <TextBlock Text="{Binding DataContext.StateVersion_Msg, RelativeSource={RelativeSource AncestorType=DataGrid}}"/>
-                     </DataTemplate>
-                  </DataGridTemplateColumn.HeaderTemplate>
-                  <!--<DataGridTemplateColumn.CellTemplate>
-                     <DataTemplate>
-                        <TextBlock Text="{Binding Converter={StaticResource IsPermittedConverter}}"/>
-                     </DataTemplate>
-                  </DataGridTemplateColumn.CellTemplate>-->
-               </DataGridTemplateColumn>
-            </DataGrid.Columns>
-         </DataGrid>
-      </Border>
-   </Grid>
-   <Border Grid.Column="1" 
-           Margin="0,10,10,10"  
-           Style="{StaticResource OnlyProdPage_Border}">
-      <!--<WebView:WebView2 Grid.Column="1"
-                        Source="{Binding LinkVersionView}"/>-->
-   </Border>
-
-</Grid>

EgtBEAMWALL.Optimizer/ConfigurationPage/OnlyProdCheckVersionV.xaml.vb

@@ -1,3 +0,0 @@
-Public Class OnlyProdCheckVersionV
-
-End Class

EgtBEAMWALL.Optimizer/ConfigurationPage/OnlyProdConfigurationPageV.xaml.vb

@@ -1,2 +0,0 @@
-Public Class OnlyProdConfigurationPageV
-End Class

EgtBEAMWALL.Optimizer/ConfigurationPage/QParameter_ConfigurationPageV.xaml

@@ -1,80 +0,0 @@
-<Grid x:Class="QParameter_ConfigurationPageV"
-      xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-      xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-      xmlns:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.ViewerOptimizer">
-
-   <Grid.ColumnDefinitions>
-      <ColumnDefinition Width="2*"/>
-      <ColumnDefinition Width="1*"/>
-   </Grid.ColumnDefinitions>
-   <Grid.RowDefinitions>
-      <RowDefinition Height="1*"/>
-   </Grid.RowDefinitions>
-   <EgtBEAMWALL:QParamListV DataContext="{Binding}" 
-                            ItemsSource="{Binding QBTLParamVMList}"
-                            SelectedItem="{Binding SelQParam}"
-                            Grid.Column="0"
-                            Margin="5">
-      <DataGrid.GroupStyle>
-         <GroupStyle>
-            <GroupStyle.Panel>
-               <ItemsPanelTemplate>
-                  <DataGridRowsPresenter/>
-               </ItemsPanelTemplate>
-            </GroupStyle.Panel>
-            <GroupStyle.HeaderTemplate>
-               <DataTemplate>
-                  <StackPanel>
-                     <TextBlock Text="{Binding Path=Name}"/>
-                  </StackPanel>
-               </DataTemplate>
-            </GroupStyle.HeaderTemplate>
-            <GroupStyle.ContainerStyle>
-               <Style TargetType="{x:Type GroupItem}">
-                  <Setter Property="Template">
-                     <Setter.Value>
-                        <ControlTemplate TargetType="{x:Type GroupItem}">
-                           <Expander IsExpanded="True">
-                              <Expander.Background>
-                                 <SolidColorBrush Color="#FFBABABA"></SolidColorBrush>
-                              </Expander.Background>
-                              <Expander.Header>
-                                 <StackPanel Orientation="Horizontal">
-                                    <TextBlock Text="{Binding Path=Name}" />
-                                 </StackPanel>
-                              </Expander.Header>
-                              <ItemsPresenter />
-                           </Expander>
-                        </ControlTemplate>
-                     </Setter.Value>
-                  </Setter>
-               </Style>
-            </GroupStyle.ContainerStyle>
-         </GroupStyle>
-         <GroupStyle>
-            <GroupStyle.ContainerStyle>
-               <Style TargetType="{x:Type GroupItem}">
-                  <Setter Property="Template">
-                     <Setter.Value>
-                        <ControlTemplate TargetType="{x:Type GroupItem}">
-                           <Expander IsExpanded="True">
-                              <Expander.Background>
-                                 <SolidColorBrush Color="LightGray"></SolidColorBrush>
-                              </Expander.Background>
-                              <Expander.Header>
-                                 <StackPanel Orientation="Horizontal">
-                                    <TextBlock Text="{Binding Path=Name}" />
-                                 </StackPanel>
-                              </Expander.Header>
-                              <ItemsPresenter />
-                           </Expander>
-                        </ControlTemplate>
-                     </Setter.Value>
-                  </Setter>
-               </Style>
-            </GroupStyle.ContainerStyle>
-         </GroupStyle>
-      </DataGrid.GroupStyle>
-   </EgtBEAMWALL:QParamListV>
-
-</Grid>

EgtBEAMWALL.Optimizer/ConfigurationPage/QParameter_ConfigurationPageV.xaml.vb

@@ -1,3 +0,0 @@
-Public Class QParameter_ConfigurationPageV
-
-End Class

EgtBEAMWALL.Optimizer/EgtBEAMWALL.Optimizer.vbproj

@@ -14,6 +14,21 @@
     <Deterministic>true</Deterministic>
     <NuGetPackageImportStamp>
     </NuGetPackageImportStamp>
+    <PublishUrl>publish\</PublishUrl>
+    <Install>true</Install>
+    <InstallFrom>Disk</InstallFrom>
+    <UpdateEnabled>false</UpdateEnabled>
+    <UpdateMode>Foreground</UpdateMode>
+    <UpdateInterval>7</UpdateInterval>
+    <UpdateIntervalUnits>Days</UpdateIntervalUnits>
+    <UpdatePeriodically>false</UpdatePeriodically>
+    <UpdateRequired>false</UpdateRequired>
+    <MapFileExtensions>true</MapFileExtensions>
+    <ApplicationRevision>0</ApplicationRevision>
+    <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
+    <IsWebBootstrapper>false</IsWebBootstrapper>
+    <UseApplicationTrust>false</UseApplicationTrust>
+    <BootstrapperEnabled>true</BootstrapperEnabled>
   </PropertyGroup>
   <PropertyGroup>
     <OptionExplicit>On</OptionExplicit>
@@ -48,6 +63,9 @@
     <PlatformTarget>x86</PlatformTarget>
     <Prefer32Bit>true</Prefer32Bit>
   </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>Resources\EgtBEAMWALL.ico</ApplicationIcon>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="EgtBEAMWALL.Core">
       <HintPath>..\EgtBEAMWALL.Core\bin\Debug\EgtBEAMWALL.Core.dll</HintPath>
@@ -85,9 +103,6 @@
     <Reference Include="System.Xaml">
       <RequiredTargetFramework>4.0</RequiredTargetFramework>
     </Reference>
-    <Reference Include="Windows">
-      <HintPath>..\..\..\Program Files (x86)\Windows Kits\10\UnionMetadata\10.0.22000.0\Windows.winmd</HintPath>
-    </Reference>
     <Reference Include="WindowsBase" />
     <Reference Include="PresentationCore" />
     <Reference Include="PresentationFramework" />
@@ -103,16 +118,16 @@
       <DependentUpon>AboutBoxV.xaml</DependentUpon>
     </Compile>
     <Compile Include="AddFeatureWnd\AddFeatureWndVM.vb" />
-    <Compile Include="AddFeatureWnd\NewAddFeatureWndV.xaml.vb">
-      <DependentUpon>NewAddFeatureWndV.xaml</DependentUpon>
+    <Compile Include="AddFeatureWnd\AddFeatureWndV.xaml.vb">
+      <DependentUpon>AddFeatureWndV.xaml</DependentUpon>
     </Compile>
     <Compile Include="AddPartWnd\AddPartWndVM.vb" />
-    <Compile Include="AddPartWnd\OnlyProdAddPartWndV.xaml.vb">
-      <DependentUpon>OnlyProdAddPartWndV.xaml</DependentUpon>
+    <Compile Include="AddPartWnd\AddPartWndV.xaml.vb">
+      <DependentUpon>AddPartWndV.xaml</DependentUpon>
     </Compile>
     <Compile Include="AddRawPartWnd\AddRawPartWndVM.vb" />
-    <Compile Include="AddRawPartWnd\OnlyProdAddRawPartWndV.xaml.vb">
-      <DependentUpon>OnlyProdAddRawPartWndV.xaml</DependentUpon>
+    <Compile Include="AddRawPartWnd\AddRawPartWndV.xaml.vb">
+      <DependentUpon>AddRawPartWndV.xaml</DependentUpon>
     </Compile>
     <Compile Include="AddSectionXMaterialWnd\AddSectionXMaterialWndV.xaml.vb">
       <DependentUpon>AddSectionXMaterialWndV.xaml</DependentUpon>
@@ -122,23 +137,54 @@
       <DependentUpon>Application.xaml</DependentUpon>
       <SubType>Code</SubType>
     </Compile>
+    <Compile Include="ConfigurationPage\ConfigurationProgramV.xaml.vb">
+      <DependentUpon>ConfigurationProgramV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="ExecProcessManager\MyExecProcessManager.vb" />
+    <Compile Include="ForcedStrategyBTL\ForcedStrategyBTLV.xaml.vb">
+      <DependentUpon>ForcedStrategyBTLV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="ForcedStrategyPanel\ForcedStrategyPanelV.xaml.vb">
+      <DependentUpon>ForcedStrategyPanelV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="ForcedStrategyPanel\ForcedStrategyPanelVM.vb" />
+    <Compile Include="GeneralParametersStrategy\GeneralParametersStrategyV.xaml.vb">
+      <DependentUpon>GeneralParametersStrategyV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="GeneralParametersStrategy\GeneralParametersStrategyVM.vb" />
+    <Compile Include="GeneralParametersStrategy\GeneralParametersWnd.xaml.vb">
+      <DependentUpon>GeneralParametersWnd.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="GeneralParametersStrategy\GeneralParametersWndVM.vb" />
+    <Compile Include="GeneralParametersStrategy\JsonGeneralParameters.vb" />
+    <Compile Include="GeneralParametersStrategy\JsonGenericParametersHelper.vb" />
+    <Compile Include="GeneralParametersStrategy\JsonParameters.vb" />
+    <Compile Include="GeneralParametersStrategy\JsonParametersHelper.vb" />
+    <Compile Include="GeneralParametersStrategy\ProjectParametersV.xaml.vb">
+      <DependentUpon>ProjectParametersV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="MachinePanel\MachinePanelV.xaml.vb">
+      <DependentUpon>MachinePanelV.xaml</DependentUpon>
+    </Compile>
     <Compile Include="NestingRunningWnd\NestingRunningWndVM.vb" />
-    <Compile Include="NestingRunningWnd\OnlyProdNestingRunningWndV.xaml.vb">
-      <DependentUpon>OnlyProdNestingRunningWndV.xaml</DependentUpon>
+    <Compile Include="NestingRunningWnd\NestingRunningWndV.xaml.vb">
+      <DependentUpon>NestingRunningWndV.xaml</DependentUpon>
     </Compile>
     <Compile Include="NewOpenProjectFileDialog\NewOpenProjectFileDialogVM.vb" />
-    <Compile Include="OnlyProdManager\OnlyProdManagerV.vb" />
-    <Compile Include="OnlyProdManager\OnlyProdManagerVM.vb" />
-    <Compile Include="OnlyProdProject\OnlyProdProjectV.xaml.vb">
-      <DependentUpon>OnlyProdProjectV.xaml</DependentUpon>
+    <Compile Include="ProdManager\ProdManagerV.xaml.vb">
+      <DependentUpon>ProdManagerV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="ProdManager\ProdManagerVM.vb" />
+    <Compile Include="Project\ProjectV.xaml.vb">
+      <DependentUpon>ProjectV.xaml</DependentUpon>
     </Compile>
     <Compile Include="OpenProjectFileDialog\OpenProjectFileDialogVM.vb" />
-    <Compile Include="OptimizePanel\OnlyProdOptimizePanelV.xaml.vb">
-      <DependentUpon>OnlyProdOptimizePanelV.xaml</DependentUpon>
+    <Compile Include="OptimizePanel\OptimizePanelV.xaml.vb">
+      <DependentUpon>OptimizePanelV.xaml</DependentUpon>
     </Compile>
     <Compile Include="OptimizePanel\OptimizePanelVM.vb" />
-    <Compile Include="PartManager\OnlyProdPartManagerV.xaml.vb">
-      <DependentUpon>OnlyProdPartManagerV.xaml</DependentUpon>
+    <Compile Include="PartManager\PartManagerV.xaml.vb">
+      <DependentUpon>PartManagerV.xaml</DependentUpon>
     </Compile>
     <Compile Include="PartManager\PartManagerVM.vb" />
     <Compile Include="PartParametersWnd\PartParametersWndV.xaml.vb">
@@ -152,56 +198,72 @@
     <Compile Include="ProjectFileVM\ProdFileVM.vb" />
     <Compile Include="ProjectFileVM\ProjFileVM.vb" />
     <Compile Include="ProjectManager\ProjectManagerVM.vb" />
-    <Compile Include="ProjectTypeWnd\OnlyProdProjectTypeWndV.xaml.vb">
-      <DependentUpon>OnlyProdProjectTypeWndV.xaml</DependentUpon>
-    </Compile>
     <Compile Include="ProjectTypeWnd\ProjectTypeWndV.xaml.vb">
       <DependentUpon>ProjectTypeWndV.xaml</DependentUpon>
     </Compile>
     <Compile Include="ProjectTypeWnd\ProjectTypeWndVM.vb" />
     <Compile Include="Project\ProjectVM.vb" />
-    <Compile Include="RawPartManager\OnlyProdRawPartManagerV.xaml.vb">
-      <DependentUpon>OnlyProdRawPartManagerV.xaml</DependentUpon>
+    <Compile Include="RawPartManager\RawPartManagerV.xaml.vb">
+      <DependentUpon>RawPartManagerV.xaml</DependentUpon>
     </Compile>
     <Compile Include="RawPartManager\RawPartManagerVM.vb" />
     <Compile Include="RawPartManager\RawPartManagerWndV.xaml.vb">
       <DependentUpon>RawPartManagerWndV.xaml</DependentUpon>
     </Compile>
+    <Compile Include="SaveAsStrategyWnd\SaveAsStrategyV.xaml.vb">
+      <DependentUpon>SaveAsStrategyV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="SaveAsStrategyWnd\SaveAsStrategyVM.vb" />
     <Compile Include="SceneHost\MySceneHostVM.vb" />
     <Compile Include="SceneHost\SceneHostV.xaml.vb">
       <DependentUpon>SceneHostV.xaml</DependentUpon>
     </Compile>
+    <Compile Include="SceneShowBulding\SceneBuildingV.xaml.vb">
+      <DependentUpon>SceneBuildingV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="SceneShowBulding\SceneBuildingVM.vb" />
+    <Compile Include="SceneShowBulding\SceneShowBuldingV.xaml.vb">
+      <DependentUpon>SceneShowBuldingV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="SceneShowBulding\SceneShowBuldingVM.vb" />
+    <Compile Include="SceneShowBulding\ViewPanelShowBuildingVM.vb" />
     <Compile Include="SetUp\SetUpSupportClass.vb" />
     <Compile Include="SetUp\SetUpV.xaml.vb">
       <DependentUpon>SetUpV.xaml</DependentUpon>
     </Compile>
     <Compile Include="SetUp\SetUpVM.vb" />
-    <Compile Include="ShowBeamPanel\OnlyProdShowBeamPanelV.xaml.vb">
-      <DependentUpon>OnlyProdShowBeamPanelV.xaml</DependentUpon>
+    <Compile Include="ShowBeamPanel\ShowBeamPanelV.xaml.vb">
+      <DependentUpon>ShowBeamPanelV.xaml</DependentUpon>
     </Compile>
     <Compile Include="ShowBeamPanel\ShowBeamPanelVM.vb" />
-    <Compile Include="ShowPanel\OnlyProdShowPanelV.xaml.vb">
-      <DependentUpon>OnlyProdShowPanelV.xaml</DependentUpon>
+    <Compile Include="ShowPanel\ShowPanelV.xaml.vb">
+      <DependentUpon>ShowPanelV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="SpecialPanel\OnlyProdSpecialPanelV.xaml.vb">
-      <DependentUpon>OnlyProdSpecialPanelV.xaml</DependentUpon>
+    <Compile Include="SpecialPanel\SpecialPanelV.xaml.vb">
+      <DependentUpon>SpecialPanelV.xaml</DependentUpon>
     </Compile>
     <Compile Include="SpecialPanel\SpecialPanelVM.vb" />
-    <Compile Include="StatisticsTimePanel\OnlyProdStatisticsTimePanelV.xaml.vb">
-      <DependentUpon>OnlyProdStatisticsTimePanelV.xaml</DependentUpon>
+    <Compile Include="SplashScreen\SplashScreenV.xaml.vb">
+      <DependentUpon>SplashScreenV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="StatisticsTimePanel\StatisticsTimePanelV.xaml.vb">
+      <DependentUpon>StatisticsTimePanelV.xaml</DependentUpon>
     </Compile>
     <Compile Include="StatisticsTimePanel\StatisticsTimePanelVM.vb" />
     <Compile Include="StatisticsWnd\OptimizerStatisticsWndV.xaml.vb">
       <DependentUpon>OptimizerStatisticsWndV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="Statistics\OnlyProdOptimizerStatisticsV.xaml.vb">
-      <DependentUpon>OnlyProdOptimizerStatisticsV.xaml</DependentUpon>
+    <Compile Include="StatisticsWnd\StatisticsWndV.xaml.vb">
+      <DependentUpon>StatisticsWndV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="Statistics\OnlyProdPDFEditorV.xaml.vb">
-      <DependentUpon>OnlyProdPDFEditorV.xaml</DependentUpon>
+    <Compile Include="Statistics\OptimizerStatisticsV.xaml.vb">
+      <DependentUpon>OptimizerStatisticsV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="Statistics\OnlyProdStatisticsV.xaml.vb">
-      <DependentUpon>OnlyProdStatisticsV.xaml</DependentUpon>
+    <Compile Include="Statistics\PDFEditorV.xaml.vb">
+      <DependentUpon>PDFEditorV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="Statistics\StatisticsV.xaml.vb">
+      <DependentUpon>StatisticsV.xaml</DependentUpon>
     </Compile>
     <Compile Include="Statistics\PDFEditorVM.vb" />
     <Compile Include="Statistics\PDFHelper.vb" />
@@ -211,27 +273,35 @@
     <Compile Include="StatusBar\StatusBarV.xaml.vb">
       <DependentUpon>StatusBarV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="StrategyManagerWnd\StrategyManagerWndV.xaml.vb">
-      <DependentUpon>StrategyManagerWndV.xaml</DependentUpon>
+    <Compile Include="StrategyManager\JsonAvailableStrategyHelper.vb" />
+    <Compile Include="StrategyManager\JsonStrategyHelper.vb" />
+    <Compile Include="StrategyManager\ParameterStrategyV.xaml.vb">
+      <DependentUpon>ParameterStrategyV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="StrategyManager\StrategyManagerV.xaml.vb">
+      <DependentUpon>StrategyManagerV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="StrategyManager\StrategyManagerVM.vb" />
+    <Compile Include="StrategyManager\StrategyProductionV.xaml.vb">
+      <DependentUpon>StrategyProductionV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="StrategyManager\StrategyV.xaml.vb">
+      <DependentUpon>StrategyV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="StrategyManager\UserAdminV.xaml.vb">
+      <DependentUpon>UserAdminV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="StrategyManagerWnd\StrategyManagerWndVM.vb" />
     <Compile Include="SupervisorCommThread\SupervisorComm.vb" />
     <Compile Include="SupervisorCommThread\SupervisorCommThread.vb" />
     <Compile Include="ToolsDbWindow\MyToolDbWindowVM.vb" />
     <Compile Include="ToolsDbWindow\ToolsUpdate.vb" />
-    <Compile Include="UpdateBTLWnd\OnlyProdUpdateBTLWndV.xaml.vb">
-      <DependentUpon>OnlyProdUpdateBTLWndV.xaml</DependentUpon>
-    </Compile>
-    <Compile Include="UpdateBTLWnd\OnlyProdUpdateOrAppendWndV.xaml.vb">
-      <DependentUpon>OnlyProdUpdateOrAppendWndV.xaml</DependentUpon>
-    </Compile>
     <Compile Include="UpdateBTLWnd\UpdateBTLWndV.xaml.vb">
       <DependentUpon>UpdateBTLWndV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="UpdateBTLWnd\UpdateBTLWndVM.vb" />
     <Compile Include="UpdateBTLWnd\UpdateOrAppendWndV.xaml.vb">
       <DependentUpon>UpdateOrAppendWndV.xaml</DependentUpon>
     </Compile>
+    <Compile Include="UpdateBTLWnd\UpdateBTLWndVM.vb" />
     <Compile Include="UpdateBTLWnd\UpdateOrAppendWndVM.vb" />
     <Compile Include="Utility\Configuration.vb" />
     <Compile Include="Utility\CurrentMachine.vb" />
@@ -243,16 +313,19 @@
     <Compile Include="Utility\LuaExec.vb" />
     <Compile Include="Utility\MachParamIniFile.vb" />
     <Compile Include="Utility\Map.vb" />
+    <Compile Include="Utility\MapV.vb" />
+    <Compile Include="Utility\MyMachine.vb" />
     <Compile Include="Utility\PartsObservableCollection.vb" />
     <Compile Include="Utility\SectionXMaterialToBeAdded.vb" />
     <Compile Include="Utility\Statistic_Messages.vb" />
     <Compile Include="Utility\TextBlockUtils.vb" />
+    <Compile Include="Utility\TreeHelperManager.vb" />
     <Compile Include="Utility\TreeViewItemBase.vb" />
-    <Compile Include="ViewPanel\OnlyProdViewPanelV.xaml.vb">
-      <DependentUpon>OnlyProdViewPanelV.xaml</DependentUpon>
+    <Compile Include="ViewPanel\ViewPanelV.xaml.vb">
+      <DependentUpon>ViewPanelV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="WarehouseWnd\OnlyProdWarehouseWndV.xaml.vb">
-      <DependentUpon>OnlyProdWarehouseWndV.xaml</DependentUpon>
+    <Compile Include="WarehouseWnd\WarehouseWndV.xaml.vb">
+      <DependentUpon>WarehouseWndV.xaml</DependentUpon>
     </Compile>
     <Compile Include="WarehouseWnd\WarehouseHelper.vb" />
     <Compile Include="WarehouseWnd\WarehouseWndVM.vb" />
@@ -286,16 +359,16 @@
     </Compile>
     <Compile Include="BTLDataWnd\BTLDataWndVM.vb" />
     <Compile Include="BTLPartManager\BTLPartManagerVM.vb" />
-    <Compile Include="BTLPartManager\OnlyProdBTLPartManagerV.xaml.vb">
-      <DependentUpon>OnlyProdBTLPartManagerV.xaml</DependentUpon>
+    <Compile Include="BTLPartManager\BTLPartManagerV.xaml.vb">
+      <DependentUpon>BTLPartManagerV.xaml</DependentUpon>
     </Compile>
     <Compile Include="BTLViewModel\BTLFeatureVM.vb" />
     <Compile Include="BTLViewModel\BTLParamVM.vb" />
     <Compile Include="BTLViewModel\BTLPartVM.vb" />
     <Compile Include="BTLViewModel\BTLStructureVM.vb" />
     <Compile Include="CALCPanel\CALCPanelVM.vb" />
-    <Compile Include="CALCPanel\OnlyProdCalcPanelV.xaml.vb">
-      <DependentUpon>OnlyProdCalcPanelV.xaml</DependentUpon>
+    <Compile Include="CALCPanel\CalcPanelV.xaml.vb">
+      <DependentUpon>CalcPanelV.xaml</DependentUpon>
     </Compile>
     <Compile Include="ChangeMaterialWnd\ChangeMaterialWndV.xaml.vb">
       <DependentUpon>ChangeMaterialWndV.xaml</DependentUpon>
@@ -306,107 +379,84 @@
     </Compile>
     <Compile Include="ChangeParameterWnd\ChangeParameterWndVM.vb" />
     <Compile Include="ConfigurationPage\ConfigurationPageVM.vb" />
-    <Compile Include="ConfigurationPage\OnlyProdCheckVersionV.xaml.vb">
-      <DependentUpon>OnlyProdCheckVersionV.xaml</DependentUpon>
-    </Compile>
-    <Compile Include="ConfigurationPage\OnlyProdConfigurationPageV.xaml.vb">
-      <DependentUpon>OnlyProdConfigurationPageV.xaml</DependentUpon>
+    <Compile Include="ConfigurationPage\ConfigurationPageV.xaml.vb">
+      <DependentUpon>ConfigurationPageV.xaml</DependentUpon>
     </Compile>
     <Compile Include="Constants\ConstWarehouseIni.vb" />
     <Compile Include="DataGridMultiselectManaging\IListItemConverter.vb" />
     <Compile Include="DataGridMultiselectManaging\MultiSelectorBehaviours.vb" />
     <Compile Include="DataGridMultiselectManaging\TwoListSynchronizer.vb" />
     <Compile Include="FeatureListManager\FeatureListManagerVM.vb" />
-    <Compile Include="FeatureListManager\OnlyProdFeatureListManagerV.xaml.vb">
-      <DependentUpon>OnlyProdFeatureListManagerV.xaml</DependentUpon>
+    <Compile Include="FeatureListManager\FeatureListManagerV.xaml.vb">
+      <DependentUpon>FeatureListManagerV.xaml</DependentUpon>
     </Compile>
     <Compile Include="FeatureManager\FeatureManagerVM.vb" />
-    <Compile Include="FeatureManager\OnlyProdFeatureManagerV.xaml.vb">
-      <DependentUpon>OnlyProdFeatureManagerV.xaml</DependentUpon>
+    <Compile Include="FeatureManager\FeatureManagerV.xaml.vb">
+      <DependentUpon>FeatureManagerV.xaml</DependentUpon>
     </Compile>
     <Compile Include="FreeContourInput\FreeContourInputVM.vb" />
-    <Compile Include="FreeContourInput\OnlyProdFreeContourInputV.xaml.vb">
-      <DependentUpon>OnlyProdFreeContourInputV.xaml</DependentUpon>
+    <Compile Include="FreeContourInput\FreeContourInputV.xaml.vb">
+      <DependentUpon>FreeContourInputV.xaml</DependentUpon>
     </Compile>
     <Compile Include="FreeContourManager\FreeContourManagerVM.vb" />
-    <Compile Include="FreeContourManager\OnlyProdFreeContourManagerV.xaml.vb">
-      <DependentUpon>OnlyProdFreeContourManagerV.xaml</DependentUpon>
+    <Compile Include="FreeContourManager\FreeContourManagerV.xaml.vb">
+      <DependentUpon>FreeContourManagerV.xaml</DependentUpon>
     </Compile>
     <Compile Include="InputPwdWnd\InputPwdWndVM.vb" />
-    <Compile Include="InputPwdWnd\OnlyProdInputPwdWndV.xaml.vb">
-      <DependentUpon>OnlyProdInputPwdWndV.xaml</DependentUpon>
+    <Compile Include="InputPwdWnd\InputPwdWndV.xaml.vb">
+      <DependentUpon>InputPwdWndV.xaml</DependentUpon>
     </Compile>
     <Compile Include="InstrumentPanel\MyInstrumentPanelVM.vb" />
-    <Compile Include="InstrumentPanel\OnlyProdInstrumentPanelV.xaml.vb">
-      <DependentUpon>OnlyProdInstrumentPanelV.xaml</DependentUpon>
+    <Compile Include="InstrumentPanel\InstrumentPanelV.xaml.vb">
+      <DependentUpon>InstrumentPanelV.xaml</DependentUpon>
     </Compile>
     <Compile Include="ItemParamList\BTLDataV.xaml.vb">
       <DependentUpon>BTLDataV.xaml</DependentUpon>
     </Compile>
     <Compile Include="ItemParamList\BTLPartListVM.vb" />
-    <Compile Include="ItemParamList\DuploQParameterListVM.vb" />
     <Compile Include="ItemParamList\FeatureInPartInRawPartListVM.vb" />
-    <Compile Include="ItemParamList\FeatureListVM.vb" />
-    <Compile Include="ItemParamList\OnlyProdBTLPartListV.xaml.vb">
-      <DependentUpon>OnlyProdBTLPartListV.xaml</DependentUpon>
+    <Compile Include="ItemParamList\BTLPartListV.xaml.vb">
+      <DependentUpon>BTLPartListV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="ItemParamList\OnlyProdFeatureInPartInRawPartListV.xaml.vb">
-      <DependentUpon>OnlyProdFeatureInPartInRawPartListV.xaml</DependentUpon>
+    <Compile Include="ItemParamList\FeatureInPartInRawPartListV.xaml.vb">
+      <DependentUpon>FeatureInPartInRawPartListV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="ItemParamList\OnlyProdFeatureListV.xaml.vb">
-      <DependentUpon>OnlyProdFeatureListV.xaml</DependentUpon>
+    <Compile Include="ItemParamList\PParameterListV.xaml.vb">
+      <DependentUpon>PParameterListV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="ItemParamList\OnlyProdPartInRawPartListV.xaml.vb">
-      <DependentUpon>OnlyProdPartInRawPartListV.xaml</DependentUpon>
+    <Compile Include="ItemParamList\RawPartListV.xaml.vb">
+      <DependentUpon>RawPartListV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="ItemParamList\OnlyProdPParameterListV.xaml.vb">
-      <DependentUpon>OnlyProdPParameterListV.xaml</DependentUpon>
-    </Compile>
-    <Compile Include="ItemParamList\OnlyProdQParameterListProdV.xaml.vb">
-      <DependentUpon>OnlyProdQParameterListProdV.xaml</DependentUpon>
-    </Compile>
-    <Compile Include="ItemParamList\OnlyProdQParameterListV.xaml.vb">
-      <DependentUpon>OnlyProdQParameterListV.xaml</DependentUpon>
-    </Compile>
-    <Compile Include="ItemParamList\OnlyProdRawPartListV.xaml.vb">
-      <DependentUpon>OnlyProdRawPartListV.xaml</DependentUpon>
-    </Compile>
-    <Compile Include="ItemParamList\PartInRawPartListVM.vb" />
     <Compile Include="ItemParamList\PartParametersV.xaml.vb">
       <DependentUpon>PartParametersV.xaml</DependentUpon>
     </Compile>
     <Compile Include="ItemParamList\PartParametersVM.vb" />
     <Compile Include="ItemParamList\PParameterListVM.vb" />
-    <Compile Include="ItemParamList\QBTLParamVM.vb" />
-    <Compile Include="ItemParamList\QParameterListVM.vb" />
-    <Compile Include="ItemParamList\QParamListV.xaml.vb">
-      <DependentUpon>QParamListV.xaml</DependentUpon>
-    </Compile>
     <Compile Include="ItemParamList\RawPartListVM.vb" />
     <Compile Include="LeftPanel\LeftPanelVM.vb" />
-    <Compile Include="LeftPanel\OnlyProdLeftPanelV.xaml.vb">
-      <DependentUpon>OnlyProdLeftPanelV.xaml</DependentUpon>
+    <Compile Include="LeftPanel\LeftPanelV.xaml.vb">
+      <DependentUpon>LeftPanelV.xaml</DependentUpon>
     </Compile>
     <Compile Include="MachGroupPanel\MyMachGroupPanelVM.vb" />
     <Compile Include="MachGroupPanel\MyMachGroupVM.vb" />
     <Compile Include="MachGroupPanel\PartVM.vb" />
     <Compile Include="MachinePanel\MachinePanelVM.vb" />
     <Compile Include="MacroFeatureWnd\MacroFeatureWndVM.vb" />
-    <Compile Include="MacroFeatureWnd\NewMacroFeatureWnd.xaml.vb">
-      <DependentUpon>NewMacroFeatureWnd.xaml</DependentUpon>
+    <Compile Include="MacroFeatureWnd\MacroFeatureWnd.xaml.vb">
+      <DependentUpon>MacroFeatureWnd.xaml</DependentUpon>
     </Compile>
     <Compile Include="MainMenu\MainMenuVM.vb" />
-    <Compile Include="MainMenu\OnlyProdMainMenuV.xaml.vb">
-      <DependentUpon>OnlyProdMainMenuV.xaml</DependentUpon>
+    <Compile Include="MainMenu\MainMenuV.xaml.vb">
+      <DependentUpon>MainMenuV.xaml</DependentUpon>
     </Compile>
     <Compile Include="MainWindow\MainWindowM.vb" />
     <Compile Include="MainWindow\MainWindowVM.vb" />
-    <Compile Include="MainWindow\OnlyProdMainWindowV.xaml.vb">
-      <DependentUpon>OnlyProdMainWindowV.xaml</DependentUpon>
+    <Compile Include="MainWindow\MainWindowV.xaml.vb">
+      <DependentUpon>MainWindowV.xaml</DependentUpon>
     </Compile>
     <Compile Include="MovePartInRawPartWnd\MovePartInRawPartWndVM.vb" />
-    <Compile Include="MovePartInRawPartWnd\OnlyProdMovePartInRawPartWndV.xaml.vb">
-      <DependentUpon>OnlyProdMovePartInRawPartWndV.xaml</DependentUpon>
+    <Compile Include="MovePartInRawPartWnd\MovePartInRawPartWndV.xaml.vb">
+      <DependentUpon>MovePartInRawPartWndV.xaml</DependentUpon>
     </Compile>
     <Compile Include="MultiCopyRawPartWnd\MultiCopyRawPartWndV.xaml.vb">
       <DependentUpon>MultiCopyRawPartWndV.xaml</DependentUpon>
@@ -447,15 +497,15 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="AddFeatureWnd\NewAddFeatureWndV.xaml">
+    <Page Include="AddFeatureWnd\AddFeatureWndV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="AddPartWnd\OnlyProdAddPartWndV.xaml">
+    <Page Include="AddPartWnd\AddPartWndV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="AddRawPartWnd\OnlyProdAddRawPartWndV.xaml">
+    <Page Include="AddRawPartWnd\AddRawPartWndV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
@@ -471,11 +521,11 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="BTLPartManager\OnlyProdBTLPartManagerV.xaml">
+    <Page Include="BTLPartManager\BTLPartManagerV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="CALCPanel\OnlyProdCalcPanelV.xaml">
+    <Page Include="CALCPanel\CalcPanelV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
@@ -487,35 +537,55 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="ConfigurationPage\OnlyProdCheckVersionV.xaml">
+    <Page Include="ConfigurationPage\ConfigurationProgramV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="ConfigurationPage\ConfigurationPageV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="ConfigurationPage\OnlyProdConfigurationPageV.xaml">
+    <Page Include="FeatureListManager\FeatureListManagerV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="FeatureListManager\OnlyProdFeatureListManagerV.xaml">
+    <Page Include="FeatureManager\FeatureManagerV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="FeatureManager\OnlyProdFeatureManagerV.xaml">
+    <Page Include="ForcedStrategyBTL\ForcedStrategyBTLV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="ForcedStrategyPanel\ForcedStrategyPanelV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="FreeContourInput\FreeContourInputV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="FreeContourInput\OnlyProdFreeContourInputV.xaml">
+    <Page Include="FreeContourManager\FreeContourManagerV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="FreeContourManager\OnlyProdFreeContourManagerV.xaml">
+    <Page Include="GeneralParametersStrategy\GeneralParametersStrategyV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="GeneralParametersStrategy\GeneralParametersWnd.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="GeneralParametersStrategy\ProjectParametersV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="InputPwdWnd\InputPwdWndV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="InputPwdWnd\OnlyProdInputPwdWndV.xaml">
-      <Generator>MSBuild:Compile</Generator>
-      <SubType>Designer</SubType>
-    </Page>
-    <Page Include="InstrumentPanel\OnlyProdInstrumentPanelV.xaml">
+    <Page Include="InstrumentPanel\InstrumentPanelV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
@@ -523,35 +593,19 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="ItemParamList\OnlyProdBTLPartListV.xaml">
+    <Page Include="ItemParamList\BTLPartListV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="ItemParamList\OnlyProdFeatureInPartInRawPartListV.xaml">
+    <Page Include="ItemParamList\FeatureInPartInRawPartListV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="ItemParamList\OnlyProdFeatureListV.xaml">
+    <Page Include="ItemParamList\PParameterListV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="ItemParamList\OnlyProdPartInRawPartListV.xaml">
-      <Generator>MSBuild:Compile</Generator>
-      <SubType>Designer</SubType>
-    </Page>
-    <Page Include="ItemParamList\OnlyProdPParameterListV.xaml">
-      <Generator>MSBuild:Compile</Generator>
-      <SubType>Designer</SubType>
-    </Page>
-    <Page Include="ItemParamList\OnlyProdQParameterListProdV.xaml">
-      <Generator>MSBuild:Compile</Generator>
-      <SubType>Designer</SubType>
-    </Page>
-    <Page Include="ItemParamList\OnlyProdQParameterListV.xaml">
-      <Generator>MSBuild:Compile</Generator>
-      <SubType>Designer</SubType>
-    </Page>
-    <Page Include="ItemParamList\OnlyProdRawPartListV.xaml">
+    <Page Include="ItemParamList\RawPartListV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
@@ -559,27 +613,27 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="ItemParamList\QParamListV.xaml">
+    <Page Include="LeftPanel\LeftPanelV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="LeftPanel\OnlyProdLeftPanelV.xaml">
+    <Page Include="MachinePanel\MachinePanelV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="MacroFeatureWnd\NewMacroFeatureWnd.xaml">
+    <Page Include="MacroFeatureWnd\MacroFeatureWnd.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="MainMenu\OnlyProdMainMenuV.xaml">
+    <Page Include="MainMenu\MainMenuV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="MainWindow\OnlyProdMainWindowV.xaml">
+    <Page Include="MainWindow\MainWindowV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="MovePartInRawPartWnd\OnlyProdMovePartInRawPartWndV.xaml">
+    <Page Include="MovePartInRawPartWnd\MovePartInRawPartWndV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
@@ -587,23 +641,23 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="NestingRunningWnd\OnlyProdNestingRunningWndV.xaml">
+    <Page Include="NestingRunningWnd\NestingRunningWndV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="OnlyProdManager\OnlyProdManagerV.xaml">
+    <Page Include="ProdManager\ProdManagerV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="Project\ProjectV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="OnlyProdProject\OnlyProdProjectV.xaml">
+    <Page Include="OptimizePanel\OptimizePanelV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="OptimizePanel\OnlyProdOptimizePanelV.xaml">
-      <Generator>MSBuild:Compile</Generator>
-      <SubType>Designer</SubType>
-    </Page>
-    <Page Include="PartManager\OnlyProdPartManagerV.xaml">
+    <Page Include="PartManager\PartManagerV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
@@ -615,15 +669,11 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="ProjectTypeWnd\OnlyProdProjectTypeWndV.xaml">
+    <Page Include="ProjectTypeWnd\ProjectTypeWndV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="ProjectTypeWnd\ProjectTypeWndV.xaml">
-      <SubType>Designer</SubType>
-      <Generator>XamlIntelliSenseFileGenerator</Generator>
-    </Page>
-    <Page Include="RawPartManager\OnlyProdRawPartManagerV.xaml">
+    <Page Include="RawPartManager\RawPartManagerV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
@@ -631,27 +681,43 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
+    <Page Include="SaveAsStrategyWnd\SaveAsStrategyV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="SceneHost\SceneHostV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
+    <Page Include="SceneShowBulding\SceneBuildingV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="SceneShowBulding\SceneShowBuldingV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="SetUp\SetUpV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="ShowBeamPanel\OnlyProdShowBeamPanelV.xaml">
+    <Page Include="ShowBeamPanel\ShowBeamPanelV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="ShowPanel\OnlyProdShowPanelV.xaml">
+    <Page Include="ShowPanel\ShowPanelV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="SpecialPanel\OnlyProdSpecialPanelV.xaml">
+    <Page Include="SpecialPanel\SpecialPanelV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="StatisticsTimePanel\OnlyProdStatisticsTimePanelV.xaml">
+    <Page Include="SplashScreen\SplashScreenV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="StatisticsTimePanel\StatisticsTimePanelV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
@@ -659,15 +725,19 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="Statistics\OnlyProdOptimizerStatisticsV.xaml">
+    <Page Include="StatisticsWnd\StatisticsWndV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="Statistics\OnlyProdPDFEditorV.xaml">
+    <Page Include="Statistics\OptimizerStatisticsV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="Statistics\OnlyProdStatisticsV.xaml">
+    <Page Include="Statistics\PDFEditorV.xaml">
+      <Generator>MSBuild:Compile</Generator>
+      <SubType>Designer</SubType>
+    </Page>
+    <Page Include="Statistics\StatisticsV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
@@ -675,35 +745,43 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="StrategyManagerWnd\StrategyManagerWndV.xaml">
+    <Page Include="StrategyManager\ParameterStrategyV.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
-    <Page Include="UpdateBTLWnd\OnlyProdUpdateBTLWndV.xaml">
-      <Generator>MSBuild:Compile</Generator>
+    <Page Include="StrategyManager\StrategyManagerV.xaml">
       <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
     </Page>
-    <Page Include="UpdateBTLWnd\OnlyProdUpdateOrAppendWndV.xaml">
-      <Generator>MSBuild:Compile</Generator>
+    <Page Include="StrategyManager\StrategyProductionV.xaml">
       <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="StrategyManager\StrategyV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="StrategyManager\UserAdminV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
     </Page>
     <Page Include="UpdateBTLWnd\UpdateBTLWndV.xaml">
+      <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
-      <Generator>XamlIntelliSenseFileGenerator</Generator>
     </Page>
     <Page Include="UpdateBTLWnd\UpdateOrAppendWndV.xaml">
+      <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
-      <Generator>XamlIntelliSenseFileGenerator</Generator>
     </Page>
     <Page Include="Utility\Dictionary.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="ViewPanel\OnlyProdViewPanelV.xaml">
+    <Page Include="ViewPanel\ViewPanelV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
-    <Page Include="WarehouseWnd\OnlyProdWarehouseWndV.xaml">
+    <Page Include="WarehouseWnd\WarehouseWndV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
@@ -874,9 +952,7 @@
     <Resource Include="Resources\ViewPanel\ZoomIn.png" />
     <Resource Include="Resources\ViewPanel\ZoomOut.png" />
   </ItemGroup>
-  <ItemGroup>
-    <Folder Include="Behavior\" />
-  </ItemGroup>
+  <ItemGroup />
   <ItemGroup>
     <PackageReference Include="BouncyCastle">
       <Version>1.8.5</Version>
@@ -884,6 +960,15 @@
     <PackageReference Include="DotNetZip">
       <Version>1.16.0</Version>
     </PackageReference>
+    <PackageReference Include="EgwMultiEngineManager.Core">
+      <Version>2.7.10.1</Version>
+    </PackageReference>
+    <PackageReference Include="EgwMultiEngineManager.Data">
+      <Version>2.7.10.1</Version>
+    </PackageReference>
+    <PackageReference Include="EgwWPFBaseLib">
+      <Version>2.7.10-beta.9</Version>
+    </PackageReference>
     <PackageReference Include="EntityFramework">
       <Version>6.4.4</Version>
     </PackageReference>
@@ -900,7 +985,7 @@
       <Version>8.0.21</Version>
     </PackageReference>
     <PackageReference Include="Newtonsoft.Json">
-      <Version>13.0.1</Version>
+      <Version>13.0.4</Version>
     </PackageReference>
     <PackageReference Include="NLog">
       <Version>5.0.1</Version>
@@ -936,11 +1021,123 @@
   <ItemGroup>
     <Resource Include="Resources\NewPage\Ok.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\SaveModify.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\LogoProvaStrategy.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <BootstrapperPackage Include=".NETFramework,Version=v4.7.2">
+      <Visible>False</Visible>
+      <ProductName>Microsoft .NET Framework 4.7.2 %28x86 e x64%29</ProductName>
+      <Install>true</Install>
+    </BootstrapperPackage>
+    <BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
+      <Visible>False</Visible>
+      <ProductName>.NET Framework 3.5 SP1</ProductName>
+      <Install>false</Install>
+    </BootstrapperPackage>
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\VerifyIntestazione.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\AddToRawPartIntestazione.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\SettingIntestazione.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\InversionIntestazione.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\Rotate.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\RotateIntestazione.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\ProduceRawPartIntestazione.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\SimulateIntestazione.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\RotateIntestazioneRawPart.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\InversionIntestazioneRawPart.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\Remove.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\MoveDown.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\MoveUp.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\MoveLeft.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\MoveRight.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\Inversion.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\deselectall.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\selectall.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\configuration.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\configurationIsChecked.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\padlock.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\padlock-unlock.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\play.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\add.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\diskette.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\pezzo.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\NewPage\adjustment.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\EgtBEAMWALL\EgtBEAMWALL.OptimizerR32.exe
 IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Debug" copy $(TargetPath) c:\EgtProg\EgtBEAMWALL\EgtBEAMWALL.OptimizerD32.exe
 IF "$(PlatformName)"=="x64" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\EgtBEAMWALL\EgtBEAMWALL.OptimizerR64.exe
-IF "$(PlatformName)"=="x64" IF "$(ConfigurationName)" == "Debug" copy $(TargetPath) c:\EgtProg\EgtBEAMWALL\EgtBEAMWALL.OptimizerD64.exe</PostBuildEvent>
+IF "$(PlatformName)"=="x64" IF "$(ConfigurationName)" == "Debug" copy $(TargetPath) c:\EgtProg\EgtBEAMWALL\EgtBEAMWALL.OptimizerD64.exe
+IF "$(ConfigurationName)" == "Debug" copy c:\EgtDev\EgtBEAMWALL\EgtBEAMWALL.Optimizer\bin\x86\Debug\EgwMultiEngineManager.Data.dll c:\EgtProg\EgtBEAMWALL\EgwMultiEngineManager.Data.dll
+IF "$(ConfigurationName)" == "Release" copy c:\EgtDev\EgtBEAMWALL\EgtBEAMWALL.Optimizer\bin\x86\Release\EgwMultiEngineManager.Data.dll c:\EgtProg\EgtBEAMWALL\EgwMultiEngineManager.Data.dll
+IF "$(ConfigurationName)" == "Debug" copy c:\EgtDev\EgtBEAMWALL\EgtBEAMWALL.Optimizer\bin\x86\Debug\EgwMultiEngineManager.Core.dll c:\EgtProg\EgtBEAMWALL\EgwMultiEngineManager.Core.dll
+IF "$(ConfigurationName)" == "Release" copy c:\EgtDev\EgtBEAMWALL\EgtBEAMWALL.Optimizer\bin\x86\Release\EgwMultiEngineManager.Core.dll c:\EgtProg\EgtBEAMWALL\EgwMultiEngineManager.Core.dll
+IF "$(ConfigurationName)" == "Debug" copy c:\EgtDev\EgtBEAMWALL\EgtBEAMWALL.Optimizer\bin\x86\Debug\EgwWPFBaseLib.dll c:\EgtProg\EgtBEAMWALL\EgwWPFBaseLib.dll
+IF "$(ConfigurationName)" == "Release" copy c:\EgtDev\EgtBEAMWALL\EgtBEAMWALL.Optimizer\bin\x86\Release\EgwWPFBaseLib.dll c:\EgtProg\EgtBEAMWALL\EgwWPFBaseLib.dll</PostBuildEvent>
+  </PropertyGroup>
+  <PropertyGroup>
+    <PreBuildEvent>
+    </PreBuildEvent>
   </PropertyGroup>
 </Project>

EgtBEAMWALL.Optimizer/ExecProcessManager/MyExecProcessManager.vb

@@ -0,0 +1,86 @@
+Imports System.IO
+Imports EgtBEAMWALL.Core.ConstIni
+Imports EgtUILib
+Imports EgtWPFLib5
+Imports EgwMultiEngineManager.Core
+Imports EgwMultiEngineManager.Data
+Imports EgwMultiEngineManager.Data.Constants
+
+Module MyExecProcessManager
+
+   Private m_ExecProcessManagerList As New Dictionary(Of EXECENVIRONMENTS, ExecProcessManager)
+   Public ReadOnly Property ExecProcessManagerList As Dictionary(Of EXECENVIRONMENTS, ExecProcessManager)
+      Get
+         Return m_ExecProcessManagerList
+      End Get
+   End Property
+
+   Friend Function Init() As Boolean
+      ' creazione manager dei processi
+      Dim sCamExePath As String = ""
+      GetMainPrivateProfileString(S_GENERAL, K_CAMEXEPATH, "", sCamExePath)
+      EgtOutLog("CAMExePath = " & sCamExePath)
+      If Not File.Exists(sCamExePath) Then
+         Dim sMsg As String = "CAMExePath not found!"
+         EgtOutLog(sMsg)
+         Return False
+      End If
+      Dim sPipeLuaDir As String = ""
+      GetMainPrivateProfileString(S_GENERAL, K_PIPELUADIR, "", sPipeLuaDir)
+      EgtOutLog("PipeLuaDir = " & sPipeLuaDir)
+      If Not File.Exists(sCamExePath) Then
+         Dim sMsg As String = "PipeLuaDir not found!"
+         EgtOutLog(sMsg)
+         Return False
+      End If
+      Dim nGroupIndex As Integer = 1
+      Dim sEnvironment As String = ""
+      Dim sPipeLuaFile As String = ""
+      Dim nMaxCamInstances As Integer = 0
+      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)
+         System.Console.WriteLine("Group" & nGroupIndex.ToString())
+         System.Console.WriteLine("Environment = " & sEnvironment)
+         System.Console.WriteLine("PipeLuaFile = " & sPipeLuaFile)
+         System.Console.WriteLine("MaxCAMInstances = " & nMaxCamInstances)
+         Dim Environment As EXECENVIRONMENTS = EXECENVIRONMENTS.NULL
+         Select Case sEnvironment
+            Case "BEAM"
+               Environment = EXECENVIRONMENTS.BEAM
+            Case "WALL"
+               Environment = EXECENVIRONMENTS.WALL
+         End Select
+         Dim PipeLuaPath As String = sPipeLuaDir & "\" & sPipeLuaFile
+         If nMaxCamInstances <= 0 OrElse Environment = EXECENVIRONMENTS.NULL OrElse Not File.Exists(PipeLuaPath) Then
+            System.Console.WriteLine(String.Format("Group{0} not created!", nGroupIndex.ToString()))
+            nGroupIndex += 1
+            Continue While
+         End If
+         Dim NewExecProcessManager As New ExecProcessManager(nGroupIndex, Environment, sCamExePath, PipeLuaPath, nMaxCamInstances, ExecProcessManager.ReturnModes.EVENT_, False)
+         AddHandler NewExecProcessManager.m_AnswerReceived, AddressOf ExecProcessManager_AnswerReceived
+         NewExecProcessManager.StartExecutionThread()
+         m_ExecProcessManagerList.Add(Environment, NewExecProcessManager)
+         nGroupIndex += 1
+      End While
+      Return True
+   End Function
+
+   Private Sub ExecProcessManager_AnswerReceived(Answer As AnswerDTO)
+      Dim sBarPath As String = Answer.Args("BarPath")
+      Dim nProgramPage As Integer = -1
+      Integer.TryParse(Answer.Args("ProgramPage"), nProgramPage)
+      Dim nBarId As Integer = -1
+      Integer.TryParse(Answer.Args("BarId"), nBarId)
+      EgtOutLog("Risultato progetto " & nBarId)
+      Map.refCALCPanelVM.ProcessResults(sBarPath, nProgramPage, nBarId)
+   End Sub
+
+   Friend Function Close()
+      For Each Key In m_ExecProcessManagerList.Keys
+         m_ExecProcessManagerList(Key).Dispose()
+      Next
+      Return True
+   End Function
+
+End Module

EgtBEAMWALL.Optimizer/FeatureListManager/FeatureListManagerV.xaml

@@ -1,36 +1,26 @@
 <StackPanel x:Class="FeatureListManagerV"
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-            Orientation="Horizontal"
-            HorizontalAlignment="Right"
-            DataContext="{StaticResource FeatureListManagerVM}">
-
+            DataContext="{StaticResource FeatureListManagerVM}"
+            Style="{StaticResource OnlyProdFeatureListManager_StackPanel}">
+   
    <Button Command="{Binding CopyFeature_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
            ToolTip="{Binding CopyFeature_ToolTip}"
            IsEnabled="{Binding CopyFeature_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
+           Style="{StaticResource OnlyProdLeftPanel_Button}">
       <Image Source="/Resources/LeftPanel/CopyFeature.png" Stretch="Uniform"/>
    </Button>
-   <Button Command="{Binding MacroFeature_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
-           ToolTip="{Binding MacroFeature_ToolTip}"
-           IsEnabled="{Binding MacroFeature_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/MacroFeature.png" Stretch="Uniform"/>
-   </Button>
    <Button Command="{Binding AddFeature_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
            ToolTip="{Binding AddFeature_ToolTip}"
            IsEnabled="{Binding AddFeature_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
+           Style="{StaticResource OnlyProdLeftPanel_Button}">
       <Image Source="/Resources/LeftPanel/AddFeature.png" Stretch="Uniform"/>
    </Button>
    <Button Command="{Binding RemoveFeature_Command}"
-           Visibility="{Binding ViewPage_Visibility}"
            ToolTip="{Binding RemoveFeature_ToolTip}"
            IsEnabled="{Binding RemoveFeature_IsEnabled}"
-           Style="{StaticResource LeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/RemoveFeature.png" Stretch="Uniform"/>
+           Style="{StaticResource OnlyProdLeftPanel_Button}">
+      <Image Source="/Resources/NewPage/Remove.png" Stretch="Uniform"/>
    </Button>
+
 </StackPanel>

EgtBEAMWALL.Optimizer/FeatureListManager/FeatureListManagerVM.vb

@@ -7,12 +7,6 @@ Public Class FeatureListManagerVM
 
 #Region "FIELDS & PROPERTIES"
 
-   Public ReadOnly Property ViewPage_Visibility As Visibility
-      Get
-         Return If(Map.refMainMenuVM.SelPage = Pages.VIEW OrElse Map.refMainMenuVM.SelPage = Pages.ONLYPRODPAGE, Visibility.Visible, Visibility.Collapsed)
-      End Get
-   End Property
-
    Public ReadOnly Property PartIsSelected As Boolean
       Get
          Return Not IsNothing(Map.refProjectVM) AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart)
@@ -25,39 +19,43 @@ Public Class FeatureListManagerVM
       End Get
    End Property
 
-
    Public ReadOnly Property CopyFeature_IsEnabled As Boolean
       Get
-         Return PartIsSelected AndAlso FeatureIsSelected
+         If Not IsNothing(Map.refBTLPartManagerVM) Then
+            Return Map.refBTLPartManagerVM.BTLPartManager_IsEnabled AndAlso PartIsSelected AndAlso FeatureIsSelected
+         End If
+         Return False
       End Get
    End Property
 
    Public ReadOnly Property MacroFeature_IsEnabled As Boolean
       Get
-         Return PartIsSelected AndAlso FeatureIsSelected
+         If Not IsNothing(Map.refBTLPartManagerVM) Then
+            Return Map.refBTLPartManagerVM.BTLPartManager_IsEnabled AndAlso PartIsSelected AndAlso FeatureIsSelected
+         End If
+         Return False
       End Get
    End Property
 
    Public ReadOnly Property AddFeature_IsEnabled As Boolean
       Get
-         Return PartIsSelected AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso Not Map.refProjectVM.BTLStructureVM.SelBTLPartsCnt > 1
+         Return PartIsSelected AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso Not Map.refProjectVM.BTLStructureVM.SelBTLParts.Count > 1
       End Get
    End Property
 
    Public ReadOnly Property RemoveFeature_IsEnabled As Boolean
       Get
-         Return PartIsSelected AndAlso FeatureIsSelected
+         If Not IsNothing(Map.refBTLPartManagerVM) Then
+            Return Map.refBTLPartManagerVM.BTLPartManager_IsEnabled AndAlso PartIsSelected AndAlso FeatureIsSelected
+         End If
+         Return False
       End Get
    End Property
 
-
    Private m_cmdCopyFeature As ICommand
-   Private m_cmdMacroFeature As ICommand
    Private m_cmdAddFeature As ICommand
    Private m_cmdRemoveFeature As ICommand
 
-#End Region    ' Fields & Properties
-
 #Region "Messages"
 
    Public ReadOnly Property CopyFeature_ToolTip As String
@@ -66,12 +64,6 @@ Public Class FeatureListManagerVM
       End Get
    End Property
 
-   Public ReadOnly Property MacroFeature_ToolTip As String
-      Get
-         Return EgtMsg(61909)
-      End Get
-   End Property
-
    Public ReadOnly Property AddFeature_ToolTip As String
       Get
          Return EgtMsg(61910)
@@ -84,9 +76,10 @@ Public Class FeatureListManagerVM
       End Get
    End Property
 
-
 #End Region    ' Messages
 
+#End Region    ' Fields & Properties
+
 #Region "CONSTRUCTOR"
 
    Sub New()
@@ -97,17 +90,6 @@ Public Class FeatureListManagerVM
 
 #Region "METHODS"
 
-   Friend Sub UpdateView()
-      NotifyPropertyChanged(NameOf(ViewPage_Visibility))
-   End Sub
-
-   Friend Sub SetLeftPanelIsEnabled(bIsEnabled As Boolean)
-      NotifyPropertyChanged(NameOf(CopyFeature_IsEnabled))
-      NotifyPropertyChanged(NameOf(AddFeature_IsEnabled))
-      NotifyPropertyChanged(NameOf(RemoveFeature_IsEnabled))
-      NotifyPropertyChanged(NameOf(MacroFeature_IsEnabled))
-   End Sub
-
    Friend Sub PartShowAllChanged()
       NotifyPropertyChanged(NameOf(AddFeature_IsEnabled))
    End Sub
@@ -123,7 +105,7 @@ Public Class FeatureListManagerVM
       If MacroListCount > 0 AndAlso nSelMacro >= 0 Then
          ' Creo nuova feature sulla base della Macro selezionata
          ' Creo table e setto variabili
-         CreateMacroTable()
+         CreateMacroTable(AddFeatureWndVM)
          Dim bOk As Boolean
          If AddFeatureWndVM.nSelMacroDefault >= 0 Then
             bOk = EgtLuaExecFile(AddFeatureWndVM.m_MacroCustomFilePathList(nSelMacro))
@@ -167,7 +149,7 @@ Public Class FeatureListManagerVM
       End If
    End Sub
 
-   Private Sub CreateMacroTable()
+   Private Sub CreateMacroTable(AddFeatureWndVM As AddFeatureWndVM)
       Dim nMacroW, nMacroH As Integer
       If Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart.m_SelBTLFeatureVM) Then
          If Map.refProjectVM.BTLStructureVM.SelBTLPart.nROTATED = 0 OrElse Map.refProjectVM.BTLStructureVM.SelBTLPart.nROTATED = 180 Then
@@ -191,8 +173,8 @@ Public Class FeatureListManagerVM
             nMacroH = Map.refProjectVM.BTLStructureVM.SelBTLPart.dBtlH
          End If
       End If
-
       EgtLuaCreateGlobTable("MACRO")
+      EgtLuaSetGlobStringVar("MACRO.NAME", AddFeatureWndVM.nSelPRC.sName)
       EgtLuaSetGlobNumVar("MACRO.L", Map.refProjectVM.BTLStructureVM.SelBTLPart.dBtlL)
       EgtLuaSetGlobNumVar("MACRO.W", nMacroW)
       EgtLuaSetGlobNumVar("MACRO.H", nMacroH)
@@ -205,9 +187,6 @@ Public Class FeatureListManagerVM
 
 #Region "CopyFeature"
 
-   ''' <summary>
-   ''' Returns a command that do Exec.
-   ''' </summary>
    Public ReadOnly Property CopyFeature_Command As ICommand
       Get
          If m_cmdCopyFeature Is Nothing Then
@@ -217,11 +196,7 @@ Public Class FeatureListManagerVM
       End Get
    End Property
 
-   ''' <summary>
-   ''' Execute the Exec.  This method is invoked by the ExecCommand.
-   ''' </summary>
    Public Sub CopyFeature()
-      If IsNothing(ProjectManagerVM.CurrProj) Then Return
       Dim SelPart As BTLPartVM = Map.refProjectVM.BTLStructureVM.SelBTLPart
       If IsNothing(SelPart) Then Return
       Dim SelFeature As BTLFeatureVM = SelPart.SelBTLFeatureVM
@@ -237,40 +212,8 @@ Public Class FeatureListManagerVM
 
 #End Region    ' CopyFeature
 
-#Region "MacroFeature"
-
-   ''' <summary>
-   ''' Returns a command that do Exec.
-   ''' </summary>
-   Public ReadOnly Property MacroFeature_Command As ICommand
-      Get
-         If m_cmdMacroFeature Is Nothing Then
-            m_cmdMacroFeature = New Command(AddressOf MacroFeature)
-         End If
-         Return m_cmdMacroFeature
-      End Get
-   End Property
-
-   ''' <summary>
-   ''' Execute the Exec.  This method is invoked by the ExecCommand.
-   ''' </summary>
-   Public Sub MacroFeature()
-      If IsNothing(ProjectManagerVM.CurrProj) Then Return
-      If IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) Then Return
-      ' apro finestra di creazione macro
-      Dim MacroFeatureWndVM As New MacroFeatureWndVM()
-      Dim NewMacroFeatureWnd As New NewMacroFeatureWnd(Application.Current.MainWindow, MacroFeatureWndVM)
-      If NewMacroFeatureWnd.ShowDialog() Then
-      End If
-   End Sub
-
-#End Region    ' MacroFeature
-
 #Region "AddFeature"
 
-   ''' <summary>
-   ''' Returns a command that do Exec.
-   ''' </summary>
    Public ReadOnly Property AddFeature_Command As ICommand
       Get
          If m_cmdAddFeature Is Nothing Then
@@ -280,18 +223,14 @@ Public Class FeatureListManagerVM
       End Get
    End Property
 
-   ''' <summary>
-   ''' Execute the Exec.  This method is invoked by the ExecCommand.
-   ''' </summary>
    Public Sub AddFeature(ByVal param As Object)
-      If IsNothing(ProjectManagerVM.CurrProj) Then Return
       If IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) Then Return
       ' apro finestra di definizione nuova feature
       Dim AddFeatureWndVM As New AddFeatureWndVM()
       Dim NewFeat As BTLFeatureM = Nothing
       Dim nNewFeatureId As Integer = 0
       Dim bMacroFlag As Boolean = False
-      Dim AddNewFeatureWnd As New NewAddFeatureWndV(Application.Current.MainWindow, AddFeatureWndVM)
+      Dim AddNewFeatureWnd As New AddFeatureWndV(Application.Current.MainWindow, AddFeatureWndVM)
       If AddNewFeatureWnd.ShowDialog() Then
          ' verifico se una Macro è selezionata
          If AddFeatureWndVM.nSelMacroDefault >= 0 Then
@@ -306,9 +245,6 @@ Public Class FeatureListManagerVM
 
 #Region "RemoveFeature"
 
-   ''' <summary>
-   ''' Returns a command that do Exec.
-   ''' </summary>
    Public ReadOnly Property RemoveFeature_Command As ICommand
       Get
          If m_cmdRemoveFeature Is Nothing Then
@@ -318,11 +254,7 @@ Public Class FeatureListManagerVM
       End Get
    End Property
 
-   ''' <summary>
-   ''' Execute the Exec.  This method is invoked by the ExecCommand.
-   ''' </summary>
    Public Sub RemoveFeature()
-      If IsNothing(ProjectManagerVM.CurrProj) Then Return
       If IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) Then Return
       If IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM) Then Return
       If EgtBeamEraseProcess(Map.refProjectVM.BTLStructureVM.SelBTLPart.SelBTLFeatureVM.nFeatureId) Then

EgtBEAMWALL.Optimizer/FeatureListManager/OnlyProdFeatureListManagerV.xaml

@@ -1,32 +0,0 @@
-<StackPanel x:Class="OnlyProdFeatureListManagerV"
-            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-            DataContext="{StaticResource FeatureListManagerVM}"
-            Style="{StaticResource OnlyProdFeatureListManager_StackPanel}">
-   
-   <Button Command="{Binding CopyFeature_Command}"
-           ToolTip="{Binding CopyFeature_ToolTip}"
-           IsEnabled="{Binding CopyFeature_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/CopyFeature.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding MacroFeature_Command}"
-           ToolTip="{Binding MacroFeature_ToolTip}"
-           IsEnabled="{Binding MacroFeature_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/MacroFeature.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding AddFeature_Command}"
-           ToolTip="{Binding AddFeature_ToolTip}"
-           IsEnabled="{Binding AddFeature_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/AddFeature.png" Stretch="Uniform"/>
-   </Button>
-   <Button Command="{Binding RemoveFeature_Command}"
-           ToolTip="{Binding RemoveFeature_ToolTip}"
-           IsEnabled="{Binding RemoveFeature_IsEnabled}"
-           Style="{StaticResource OnlyProdLeftPanel_Button}">
-      <Image Source="/Resources/LeftPanel/RemoveFeature.png" Stretch="Uniform"/>
-   </Button>
-
-</StackPanel>

EgtBEAMWALL.Optimizer/FeatureListManager/OnlyProdFeatureListManagerV.xaml.vb

@@ -1,3 +0,0 @@
-Public Class OnlyProdFeatureListManagerV
-
-End Class

EgtBEAMWALL.Optimizer/FeatureManager/FeatureManagerV.xaml

@@ -1,55 +1,85 @@
-<StackPanel x:Class="FeatureManagerV"
-            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:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Optimizer"
-            Orientation="Horizontal"
-            Height="32">
+<Grid x:Class="FeatureManagerV"
+      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:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer"
+      Margin="30,4,0,2">
    
-   <TextBlock Text="{Binding Face_Msg}"
-              IsEnabled="{Binding FeatureManager_IsEnabled}"
-              Style="{StaticResource OptionTextBlock}"/>
-   <ComboBox ItemsSource="{Binding Tag.SIDEList, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}}}"
-             SelectedItem="{Binding Tag.nSelSIDE, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}}}"
+   <Grid.ColumnDefinitions>
+      <ColumnDefinition Width="Auto"/>
+      <ColumnDefinition Width="Auto"/>
+      <ColumnDefinition Width="Auto"/>
+      <ColumnDefinition Width="Auto"/>
+      <ColumnDefinition Width="Auto"/>
+      <ColumnDefinition Width="Auto"/>
+      <ColumnDefinition Width="Auto"/>
+      <ColumnDefinition Width="Auto"/>
+      <ColumnDefinition Width="Auto"/>
+      <ColumnDefinition Width="1*"/>
+   </Grid.ColumnDefinitions>
+
+   <Expander Header="{Binding Face_Msg}"
              IsEnabled="{Binding FeatureManager_IsEnabled}"
-             Style="{StaticResource FeatureComboBox}"/>
-   <TextBlock Text="{Binding Group_Msg}"
-              IsEnabled="{Binding FeatureManager_IsEnabled}"
-              Style="{StaticResource OptionTextBlock}"/>
-   <ComboBox ItemsSource="{Binding Tag.GRPList, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}}}"
-             SelectedItem="{Binding Tag.nSelGRP, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}}}"
+             Width="80">
+      <ListBox ItemsSource="{Binding Tag.SIDEList, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}}}"
+               SelectedItem="{Binding Tag.nSelSIDE, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}}}"
+               IsEnabled="{Binding FeatureManager_IsEnabled}"
+               Style="{StaticResource FeatureManager_ListBox}"
+               ItemContainerStyle="{StaticResource AlternationIndex_ListBoxItem}"/>
+   </Expander>
+   <Expander Grid.Column="1"
+             Header="{Binding Group_Msg}"
              IsEnabled="{Binding FeatureManager_IsEnabled}"
-             Style="{StaticResource FeatureComboBox}"/>
-   <TextBlock Text="{Binding Priority_Msg}"
+             Width="80">
+      <ListBox ItemsSource="{Binding Tag.GRPList, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}}}"
+               SelectedItem="{Binding Tag.nSelGRP, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}}}"
+               IsEnabled="{Binding FeatureManager_IsEnabled}"
+               Style="{StaticResource FeatureManager_ListBox}"
+               ItemContainerStyle="{StaticResource AlternationIndex_ListBoxItem}"/>
+   </Expander>
+   <TextBlock Grid.Column="2"
+              Text="{Binding Priority_Msg}"
               IsEnabled="{Binding FeatureManager_IsEnabled}"
               Visibility="{Binding Priority_Visibility}"
               Style="{StaticResource OptionTextBlock}"/>
-   <EgtWPFLib5:EgtTextBox Text="{Binding Tag.sPriority, 
-                                         RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}},
+   <EgtWPFLib5:EgtTextBox Grid.Column="3"
+                          Text="{Binding Tag.sPriority, 
+                                         RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}},
                                          UpdateSourceTrigger=Explicit}"
                           IsEnabled="{Binding FeatureManager_IsEnabled}"
                           Visibility="{Binding Priority_Visibility}"
-                          Width="45"/>
-   <TextBlock Text="{Binding Tag.sName, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}}}"
-              Style="{StaticResource OptionTextBlock}"/>
-   <ComboBox ItemsSource="{Binding Tag.VARIANTList, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}}}"
-             SelectedItem="{Binding Tag.nSelVARIANT, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}}}"
+                          Style="{StaticResource Dimension_TextBox}"/>
+   <TextBlock Grid.Column="4"
+              Text="{Binding Tag.sName, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}}}"
+              Style="{StaticResource OnlyProdFeatureManager_OnlyProd}"/>
+   <ComboBox Grid.Column="5"
+             ItemsSource="{Binding Tag.VARIANTList, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}}}"
+             SelectedItem="{Binding Tag.nSelVARIANT, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}}}"
              IsEnabled="{Binding FeatureManager_IsEnabled}"
              Visibility="{Binding Variant_Visibility}"
              Style="{StaticResource FeatureComboBox}"/>
-
-   <Button Content="{Binding Edit_Msg}"
-           Command="{Binding Tag.Edit_Command, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}}}"
-           Visibility="{Binding Tag.Edit_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}}}"
+   <Button Grid.Column="6"
+           Content="{Binding Edit_Msg}"
+           Command="{Binding Tag.Edit_Command, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}}}"
+           Visibility="{Binding Tag.Edit_Visibility, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}}}"
            IsEnabled="{Binding Edit_IsEnabled}"
-           Style="{StaticResource EgtWPFLib5_InputButton}"/>
-   <Button Content="{Binding Save_Msg}"
-           Command="{Binding Tag.Save_Command, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}}}"
-           Visibility="{Binding Tag.SaveCancel_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}}}"
-           Style="{StaticResource EgtWPFLib5_InputButton}"/>
-   <Button Content="{Binding Cancel_Msg}"
-           Command="{Binding Tag.Cancel_Command, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}}}"
-           Visibility="{Binding Tag.SaveCancel_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:FeatureManagerV}}}"
-           Style="{StaticResource EgtWPFLib5_InputButton}"/>
-   
-</StackPanel>
+           Style="{StaticResource GeneralConfigurationToolBar_TextButton}"/>
+   <Button Grid.Column="7"
+           Content="{Binding Save_Msg}"
+           Command="{Binding Tag.Save_Command, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}}}"
+           Visibility="{Binding Tag.SaveCancel_Visibility, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}}}"
+           Style="{StaticResource GeneralConfigurationToolBar_TextButton}"/>
+   <Button Grid.Column="8"
+           Content="{Binding Cancel_Msg}"
+           Command="{Binding Tag.Cancel_Command, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}}}"
+           Visibility="{Binding Tag.SaveCancel_Visibility, RelativeSource={RelativeSource AncestorType={x:Type OPTIMIZER:FeatureManagerV}}}"
+           Style="{StaticResource GeneralConfigurationToolBar_TextButton}"/>
+   <Button Grid.Column="9" HorizontalAlignment="Right"
+           Command="{Binding MacroFeature_Command}"
+           ToolTip="{Binding MacroFeature_ToolTip}"
+           IsEnabled="{Binding MacroFeature_IsEnabled}"
+           Style="{StaticResource OnlyProdFeatureMan_Button}">
+      <Image Source="/Resources/LeftPanel/MacroFeature.png" Stretch="Uniform"/>
+   </Button>
+
+</Grid>

EgtBEAMWALL.Optimizer/FeatureManager/FeatureManagerVM.vb

@@ -1,5 +1,4 @@
-Imports EgtBEAMWALL.Core
-Imports EgtUILib
+Imports EgtUILib
 Imports EgtWPFLib5
 
 Public Class FeatureManagerVM
@@ -84,8 +83,17 @@ Public Class FeatureManagerVM
       End Get
    End Property
 
+   Public ReadOnly Property MacroFeature_ToolTip As String
+      Get
+         Return EgtMsg(61909)
+      End Get
+   End Property
+
 #End Region    ' Messages
 
+   ' Definisco i comandi
+   Private m_cmdMacroFeature As ICommand
+
 #End Region    ' FIELDS & PROPERTIES
 
 #Region "CONSTRUCTORS"
@@ -112,4 +120,31 @@ Public Class FeatureManagerVM
 
 #End Region    ' METHODS
 
+#Region "COMMANDS"
+
+#Region "MacroFeature"
+
+   Public ReadOnly Property MacroFeature_Command As ICommand
+      Get
+         If m_cmdMacroFeature Is Nothing Then
+            m_cmdMacroFeature = New Command(AddressOf MacroFeature)
+         End If
+         Return m_cmdMacroFeature
+      End Get
+   End Property
+
+   Public Sub MacroFeature()
+      If IsNothing(ProjectManagerVM.CurrProd) Then Return
+      If IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLPart) Then Return
+      ' apro finestra di creazione macro
+      Dim MacroFeatureWndVM As New MacroFeatureWndVM()
+      Dim MacroFeatureWnd As New MacroFeatureWnd(Application.Current.MainWindow, MacroFeatureWndVM)
+      If MacroFeatureWnd.ShowDialog() Then
+      End If
+   End Sub
+
+#End Region    ' MacroFeature
+
+#End Region    ' Commands
+
 End Class

EgtBEAMWALL.Optimizer/FeatureManager/OnlyProdFeatureManagerV.xaml

@@ -1,70 +0,0 @@
-<Grid x:Class="OnlyProdFeatureManagerV"
-      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:EgtBEAMWALL="clr-namespace:EgtBEAMWALL.Optimizer"
-      Margin="30,4,0,2">
-   
-   <Grid.ColumnDefinitions>
-      <ColumnDefinition Width="Auto"/>
-      <ColumnDefinition Width="Auto"/>
-      <ColumnDefinition Width="Auto"/>
-      <ColumnDefinition Width="Auto"/>
-      <ColumnDefinition Width="Auto"/>
-      <ColumnDefinition Width="Auto"/>
-      <ColumnDefinition Width="Auto"/>
-      <ColumnDefinition Width="Auto"/>
-   </Grid.ColumnDefinitions>
-
-   <Expander Header="{Binding Face_Msg}"
-             IsEnabled="{Binding FeatureManager_IsEnabled}"
-             Width="80">
-      <ListBox ItemsSource="{Binding Tag.SIDEList, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdFeatureManagerV}}}"
-               SelectedItem="{Binding Tag.nSelSIDE, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdFeatureManagerV}}}"
-               IsEnabled="{Binding FeatureManager_IsEnabled}"
-               Style="{StaticResource FeatureManager_ListBox}"
-               ItemContainerStyle="{StaticResource AlternationIndex_ListBoxItem}"/>
-   </Expander>
-   <Expander Grid.Column="1"
-             Header="{Binding Group_Msg}"
-             IsEnabled="{Binding FeatureManager_IsEnabled}"
-             Width="80">
-      <ListBox ItemsSource="{Binding Tag.GRPList, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdFeatureManagerV}}}"
-               SelectedItem="{Binding Tag.nSelGRP, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdFeatureManagerV}}}"
-               IsEnabled="{Binding FeatureManager_IsEnabled}"
-               Style="{StaticResource FeatureManager_ListBox}"
-               ItemContainerStyle="{StaticResource AlternationIndex_ListBoxItem}"/>
-   </Expander>
-   <TextBlock Grid.Column="2"
-              Text="{Binding Priority_Msg}"
-              IsEnabled="{Binding FeatureManager_IsEnabled}"
-              Visibility="{Binding Priority_Visibility}"
-              Style="{StaticResource OptionTextBlock}"/>
-   <EgtWPFLib5:EgtTextBox Grid.Column="3"
-                          Text="{Binding Tag.sPriority, 
-                                         RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdFeatureManagerV}},
-                                         UpdateSourceTrigger=Explicit}"
-                          IsEnabled="{Binding FeatureManager_IsEnabled}"
-                          Visibility="{Binding Priority_Visibility}"
-                          Style="{StaticResource Dimension_TextBox}"/>
-   <TextBlock Grid.Column="4"
-              Text="{Binding Tag.sName, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdFeatureManagerV}}}"
-              Style="{StaticResource OnlyProdFeatureManager_OnlyProd}"/>
-   <Button Grid.Column="5"
-           Content="{Binding Edit_Msg}"
-           Command="{Binding Tag.Edit_Command, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdFeatureManagerV}}}"
-           Visibility="{Binding Tag.Edit_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdFeatureManagerV}}}"
-           IsEnabled="{Binding Edit_IsEnabled}"
-           Style="{StaticResource GeneralConfigurationToolBar_TextButton}"/>
-   <Button Grid.Column="6"
-           Content="{Binding Save_Msg}"
-           Command="{Binding Tag.Save_Command, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdFeatureManagerV}}}"
-           Visibility="{Binding Tag.SaveCancel_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdFeatureManagerV}}}"
-           Style="{StaticResource GeneralConfigurationToolBar_TextButton}"/>
-   <Button Grid.Column="7"
-           Content="{Binding Cancel_Msg}"
-           Command="{Binding Tag.Cancel_Command, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdFeatureManagerV}}}"
-           Visibility="{Binding Tag.SaveCancel_Visibility, RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:OnlyProdFeatureManagerV}}}"
-           Style="{StaticResource GeneralConfigurationToolBar_TextButton}"/>
-
-</Grid>

EgtBEAMWALL.Optimizer/FeatureManager/OnlyProdFeatureManagerV.xaml.vb

@@ -1,3 +0,0 @@
-Public Class OnlyProdFeatureManagerV
-
-End Class

EgtBEAMWALL.Optimizer/ForcedStrategyBTL/ForcedStrategyBTLV.xaml

@@ -0,0 +1,55 @@
+<UserControl x:Class="ForcedStrategyBTLV"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:Optimizer="clr-namespace:EgtBEAMWALL.Optimizer">
+   
+   <Grid>
+      <Grid.ColumnDefinitions>
+         <ColumnDefinition Width="Auto"/>
+         <ColumnDefinition Width="1*"/>
+      </Grid.ColumnDefinitions>
+      <Border Margin="2,0,2,0" 
+              Grid.RowSpan="2"
+              Style="{StaticResource OnlyProdPage_Border}">
+         <ListBox ItemsSource="{Binding StrategyList}"
+                  SelectedItem="{Binding SelStrategy}"
+                  IsSynchronizedWithCurrentItem="True"
+                  HorizontalAlignment="Left"
+                  Style="{StaticResource NewAddFeature_ListBox}">
+            <ListBox.Resources>
+               <DataTemplate DataType="{x:Type Optimizer:Strategy}">
+                  <StackPanel Orientation="Horizontal">
+                     <RadioButton IsChecked="{Binding IsSelected, RelativeSource={RelativeSource AncestorType={x:Type ListBoxItem}}}"
+                                  GroupName="ForcedStrategy"/>
+                     <Image Source="{Binding sStrategyImagePath}"
+                            Stretch="Uniform"
+                            Width="100"
+                            Height="100"/>
+                     <TextBlock Text="{Binding sStrategyName}"
+                                Style="{StaticResource DialogWindow_TextBlock}"/>
+                  </StackPanel>
+               </DataTemplate>
+            </ListBox.Resources>
+            <ListBox.ItemContainerStyle>
+               <Style TargetType="ListBoxItem">
+                  <!--<EventSetter Event="PreviewMouseDown" Handler="AvailableStrategyList_PreviewMouseDown"/>-->
+               </Style>
+            </ListBox.ItemContainerStyle>
+         </ListBox>
+      </Border>
+      
+      <GroupBox Grid.Column="1" 
+                Foreground="Black"
+                BorderThickness="2"
+                Margin="0,-5,0,0"
+                BorderBrush="{StaticResource BeamWall_Glacier}">
+         <GroupBox.Header>
+            <TextBlock Text="{Binding SelStrategy.sStrategyName}" 
+                       FontWeight="Bold"
+                       Style="{StaticResource DialogWindow_TextBlock}"/>
+         </GroupBox.Header>
+         <Optimizer:ParameterStrategyV Tag="{Binding SelStrategy}"/>
+      </GroupBox>
+   </Grid>
+   
+</UserControl>

EgtBEAMWALL.Optimizer/ForcedStrategyBTL/ForcedStrategyBTLV.xaml.vb

@@ -0,0 +1,3 @@
+Public Class ForcedStrategyBTL
+
+End Class

EgtBEAMWALL.Optimizer/ForcedStrategyPanel/ForcedStrategyPanelV.xaml

@@ -0,0 +1,74 @@
+<UserControl x:Class="ForcedStrategyPanelV"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:OPTIMIZER="clr-namespace:EgtBEAMWALL.Optimizer">
+   <Grid>
+      <Grid.RowDefinitions>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
+      <Grid.ColumnDefinitions>
+         <ColumnDefinition Width="Auto"/>
+         <ColumnDefinition Width="1*"/>
+      </Grid.ColumnDefinitions>
+      <Border Grid.RowSpan="2"
+              Margin="2,0,2,0" 
+              Style="{StaticResource OnlyProdPage_Border}">
+         <ListBox ItemsSource="{Binding StrategyList}"
+                  SelectedItem="{Binding SelStrategy}"
+                  Height="Auto"
+                  IsSynchronizedWithCurrentItem="True"
+                  Style="{StaticResource NewAddFeature_ListBox}">
+            <ListBox.Resources>
+               <DataTemplate DataType="{x:Type OPTIMIZER:Strategy}">
+                  <StackPanel Orientation="Horizontal">
+                     <RadioButton IsChecked="{Binding IsSelected, RelativeSource={RelativeSource AncestorType={x:Type ListBoxItem}}}"
+                                  GroupName="ForcedStrategy"/>
+                     <Image Source="{Binding sStrategyImagePath}"
+                         Stretch="Uniform"
+                         Width="100"
+                         Height="100"/>
+                     <TextBlock Text="{Binding sStrategyName}"
+                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  </StackPanel>
+               </DataTemplate>
+            </ListBox.Resources>
+            <ListBox.ItemContainerStyle>
+               <Style TargetType="ListBoxItem">
+                  <!--<EventSetter Event="PreviewMouseDown" Handler="AvailableStrategyList_PreviewMouseDown"/>-->
+               </Style>
+            </ListBox.ItemContainerStyle>
+         </ListBox>
+      </Border>
+      
+      <GroupBox Grid.Column="1" 
+                Foreground="Black"
+                BorderThickness="2"
+                Margin="0,-5,0,0"
+                BorderBrush="{StaticResource BeamWall_Glacier}">
+         <GroupBox.Header>
+            <TextBlock Text="{Binding SelStrategy.sStrategyName}" 
+                       FontWeight="Bold"
+                       Style="{StaticResource DialogWindow_TextBlock}"/>
+         </GroupBox.Header>
+         <OPTIMIZER:ParameterStrategyV Tag="{Binding SelStrategy}"/>
+      </GroupBox>
+
+      <StackPanel Grid.Row="2"
+                  Grid.ColumnSpan="2"
+                  HorizontalAlignment="Right"
+                  Style="{StaticResource OnlyProdPartManager_StackPanel}">
+         <Button Command="{Binding Ok_Command}"
+                 ToolTip="{Binding Ok_Msg}"
+                 Style="{StaticResource ToolBarViewPanel_Button}">
+            <Image Source="/Resources/NewPage/Ok.png" Stretch="Uniform"/>
+         </Button>
+         <Button Command="{Binding Cancel_Command}"
+                 ToolTip="{Binding Cancel_Msg}"
+                 Style="{StaticResource ToolBarViewPanel_Button}">
+            <Image Source="/Resources/PDFEditor/Delete.png" Stretch="Uniform"/>
+         </Button>
+      </StackPanel>
+
+   </Grid>
+</UserControl>

EgtBEAMWALL.Optimizer/ForcedStrategyPanel/ForcedStrategyPanelV.xaml.vb

@@ -0,0 +1,3 @@
+Public Class ForcedStrategyPanelV
+
+End Class

EgtBEAMWALL.Optimizer/ForcedStrategyPanel/ForcedStrategyPanelVM.vb

@@ -0,0 +1,400 @@
+Imports System.Collections.ObjectModel
+Imports System.IO
+Imports EgtBEAMWALL.Core
+Imports EgtUILib
+Imports EgtWPFLib5
+Imports Newtonsoft.Json
+
+Public Class ForcedStrategyPanelVM
+   Inherits VMBase
+
+#Region "FIELDS & PROPERTIES"
+
+   Public Const AUTOMATICSTRATEGYID As String = "AUTOMATIC"
+
+   Private m_StrategyList As New ObservableCollection(Of Strategy)
+   Public Property StrategyList As ObservableCollection(Of Strategy)
+      Get
+         Return m_StrategyList
+      End Get
+      Set(value As ObservableCollection(Of Strategy))
+         m_StrategyList = value
+      End Set
+   End Property
+
+   Private m_SelStrategy As Strategy
+   Public Property SelStrategy As Strategy
+      Get
+         Return m_SelStrategy
+      End Get
+      Set(value As Strategy)
+         m_SelStrategy = value
+         NotifyPropertyChanged(NameOf(SelStrategy))
+      End Set
+   End Property
+
+   Private m_CurrentFeature As BTLFeatureM
+
+   ' Definizione Comandi
+   Private m_cmdOk As ICommand
+   Private m_cmdCancel As ICommand
+
+#Region "Messages"
+
+   Public ReadOnly Property UserMsg As String
+      Get
+         Return EgtMsg(61748)
+      End Get
+   End Property
+
+   Public ReadOnly Property AdvanceMsg As String
+      Get
+         Return EgtMsg(61749)
+      End Get
+   End Property
+
+#End Region    ' Messages
+
+#End Region    ' Fields & Properties
+
+#Region "CONSTRUCTOR"
+
+   Sub New()
+      Map.SetRefForcedStrategyPanelVM(Me)
+   End Sub
+
+#End Region    ' Constructor
+
+#Region "METHODS"
+
+   Friend Sub Init(Feature As BTLFeatureM)
+      m_CurrentFeature = Feature
+      Dim nTmpGRP As Integer = CalcBeamPrivateProfileGRP(Feature.nSelGRP)
+      LoadStrategyListFromTopology(Feature.nFeatureId, Feature.nPRC, nTmpGRP)
+      ' leggo eventuali parametri forzati
+      Dim sStrategyID As String = ""
+      EgtGetInfo(m_CurrentFeature.nFeatureId, "STRATEGY", sStrategyID)
+      If String.IsNullOrWhiteSpace(sStrategyID) Then Return
+      Dim ForcedStrategy As Strategy = m_StrategyList.FirstOrDefault(Function(x) x.sStrategyId = sStrategyID)
+      If IsNothing(ForcedStrategy) Then
+
+      Else
+         SelStrategy = ForcedStrategy
+         For Each Param In SelStrategy.ParameterList
+            Select Case Param.GetType()
+               Case GetType(BooleanStrategyParameter)
+                  Dim bValue As Boolean = False
+                  EgtGetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, bValue)
+                  DirectCast(Param, BooleanStrategyParameter).SetValue(bValue)
+               Case GetType(DoubleStrategyParameter)
+                  Dim dValue As Double = 0
+                  EgtGetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, dValue)
+                  DirectCast(Param, DoubleStrategyParameter).SetValue(dValue)
+               Case GetType(ComboStrategyParameter)
+                  Dim sValue As String = String.Empty
+                  EgtGetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, sValue)
+                  Dim ComboStrategyParameter As ComboStrategyParameter = DirectCast(Param, ComboStrategyParameter)
+                  Dim SelCombo = ComboStrategyParameter.ComboList.FirstOrDefault(Function(x) x.sValue = sValue)
+                  ComboStrategyParameter.SelValue = SelCombo
+               Case GetType(StringStrategyParameter)
+                  Dim sValue As String = String.Empty
+                  EgtGetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, sValue)
+                  DirectCast(Param, StringStrategyParameter).SetValue(sValue)
+               Case GetType(ListStrategyParameter)
+                  Dim sValue As String = String.Empty
+                  EgtGetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, sValue)
+                  Dim ListStrategyParameter As ListStrategyParameter = DirectCast(Param, ListStrategyParameter)
+                  Dim SelValue As ToolParameter = Nothing
+                  Dim sTrimValue As String = sValue.TrimEnd(";"c)
+                  Dim sTmpValue As String() = sTrimValue.Split(";"c)
+                  Dim sSplitValue As String() = Nothing
+                  For Each ItemValue As String In sTmpValue
+                     sSplitValue = ItemValue.Split(","c)
+                     For Each ItemTool As ToolParameter In ListStrategyParameter.ListValue
+                        If sSplitValue(0) = ItemTool.sUUID AndAlso sSplitValue(1) = ItemTool.sName Then
+                           ItemTool.bIsActive = True
+                           SelValue = ListStrategyParameter.ListValue.FirstOrDefault(Function(x) x.sName = ItemTool.sName AndAlso x.sUUID = ItemTool.sUUID)
+                        End If
+                     Next
+                  Next
+                  ListStrategyParameter.SelValue = SelValue
+            End Select
+         Next
+      End If
+   End Sub
+
+   Friend Function LoadStrategyListFromTopology(nFeatureId As Integer, nPRC As Integer, nGRP As Integer) As Boolean
+      m_StrategyList.Clear()
+      Dim sTopologyName As String = "Feature"
+      Dim sStrategiesDirPath As String = Map.refMainWindowVM.MainWindowM.GetStrategiesDirPath(ProjectManagerVM.CurrProd.nType)
+      Dim sAvailableStrategiesFilePath As String = sStrategiesDirPath & "\" & AVAILABLESTRATEGYLIST_FILE & ".json"
+      Dim sReadedFile As String = String.Empty
+      ' carico default
+      If File.Exists(sAvailableStrategiesFilePath) Then
+         sReadedFile = File.ReadAllText(sAvailableStrategiesFilePath)
+         Dim JsonStrategyFeatureList As List(Of JsonAvailableStrategyFeature) = JsonConvert.DeserializeObject(Of List(Of JsonAvailableStrategyFeature))(sReadedFile)
+         'nGRP = CalcBeamPrivateProfileGRP(nGRP)
+         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
+      If File.Exists(sAvailableStrategiesFilePath) Then
+         sReadedFile = File.ReadAllText(sAvailableStrategiesFilePath)
+         Dim JsonStrategyFeatureList As List(Of JsonAvailableStrategyFeature) = JsonConvert.DeserializeObject(Of List(Of JsonAvailableStrategyFeature))(sReadedFile)
+         'nGRP = CalcBeamPrivateProfileGRP(nGRP)
+         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
+      If Not EgtGetInfo(nPartId, PROJ, nPartProjId) OrElse nPartProjId <= 0 Then Return False
+      Dim nBTLInfoLayerId As Integer = GetCurrProjBtlInfoLayerId(nPartProjId)
+      Dim sStrategySetupName As String = ""
+      EgtGetInfo(nBTLInfoLayerId, "AISETUP", sStrategySetupName)
+      If Not String.IsNullOrWhiteSpace(sStrategySetupName) Then
+         ' carico custom
+         Dim sAISetupDirPath As String = Map.refMainWindowVM.MainWindowM.GetAISetupDirPath(ProjectManagerVM.CurrProd.nType, True)
+         Dim sStrategyConfigurationFilePath As String = sAISetupDirPath & "\" & sStrategySetupName & ".json"
+         If File.Exists(sStrategyConfigurationFilePath) Then
+            sReadedFile = File.ReadAllText(sStrategyConfigurationFilePath)
+
+            Dim JsonRoot As CustomJsonRoot = Nothing
+            Try
+               JsonRoot = JsonConvert.DeserializeObject(Of CustomJsonRoot)(sReadedFile)
+            Catch ex As Exception
+               JsonRoot = Nothing
+            End Try
+            Dim JsonFeatureList As ObservableCollection(Of JsonStrategyFeature) = Nothing
+            If Not IsNothing(JsonRoot) Then
+               JsonFeatureList = JsonRoot.FEATURE
+            Else
+               If IsNothing(JsonRoot) Then
+                  EgtOutLog("JSON ERRATO: Il file Json importato non è nel formato corretto")
+                  If File.Exists(sAvailableStrategiesFilePath) Then
+                     sReadedFile = File.ReadAllText(sAvailableStrategiesFilePath)
+                     Dim JsonStrategyFeatureList As List(Of JsonAvailableStrategyFeature) = JsonConvert.DeserializeObject(Of List(Of JsonAvailableStrategyFeature))(sReadedFile)
+                     'nGRP = CalcBeamPrivateProfileGRP(nGRP)
+                     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
+
+                  Return True
+               Else
+                  JsonFeatureList = JsonConvert.DeserializeObject(Of ObservableCollection(Of JsonStrategyFeature))(sReadedFile)
+               End If
+            End If
+
+            'Dim JsonStrategyFeatureList As List(Of JsonStrategyFeature) = JsonConvert.DeserializeObject(Of List(Of JsonStrategyFeature))(sReadedFile)
+            Dim JsonStrategyFeature As JsonStrategyFeature = JsonFeatureList.FirstOrDefault(Function(x) x.nGrp = nGRP AndAlso x.nPrc = nPRC)
+            If IsNothing(JsonStrategyFeature) Then Return False
+            Dim JsonTopology As JsonTopology = JsonStrategyFeature.TopologyList.FirstOrDefault(Function(x) x.sName = sTopologyName)
+            If IsNothing(JsonTopology) Then Return False
+            For Each Strategy In JsonTopology.StrategyList
+               Dim DefaultStrategy As Strategy = m_StrategyList.FirstOrDefault(Function(x) x.sStrategyId = Strategy.sStrategyId)
+               If IsNothing(DefaultStrategy) Then
+                  ' DefaultTopology.StrategyList.Add(New Strategy(DefaultTopology, Strategy))
+                  ' verifico indici!!
+               Else
+                  DefaultStrategy.ReadConfiguration(Strategy)
+               End If
+            Next
+         End If
+
+      End If
+      ' aggiungo strategia automatica
+      m_StrategyList.Insert(0, New Strategy() With {.sStrategyId = AUTOMATICSTRATEGYID, .sStrategyName = AUTOMATICSTRATEGYID})
+      If Map.refMainMenuVM.UnlockAllIsChecked Then
+         Map.refMainMenuVM.UnlockAll(m_StrategyList)
+      ElseIf Map.refMainMenuVM.UserAdmin_IsChecked Then
+         Map.refMainMenuVM.ShowParam(m_StrategyList)
+      End If
+      NotifyPropertyChanged(NameOf(StrategyList))
+      Return True
+   End Function
+
+   Friend Sub GetDefaultJsonStrategy(sStrategiesDirPath As String, sAvailableStrategiesFilePath As String, sTopologyName As String, nFeatureId As Integer, nPRC As Integer, nGRP As Integer)
+      If File.Exists(sAvailableStrategiesFilePath) Then
+         Dim sReadedFile As String = File.ReadAllText(sAvailableStrategiesFilePath)
+         Dim JsonStrategyFeatureList As List(Of JsonAvailableStrategyFeature) = JsonConvert.DeserializeObject(Of List(Of JsonAvailableStrategyFeature))(sReadedFile)
+         'nGRP = CalcBeamPrivateProfileGRP(nGRP)
+         Dim JsonAvailableStrategyFeature As JsonAvailableStrategyFeature = JsonStrategyFeatureList.FirstOrDefault(Function(x) x.nGrp = nGRP AndAlso x.nPrc = nPRC)
+         If IsNothing(JsonAvailableStrategyFeature) Then Return
+         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
+         m_StrategyList = New ObservableCollection(Of Strategy)((From JsonAvailableStrategy In JsonAvailableTopology.StrategyList
+                                                                 Select JsonAvailableStrategy.Deserialize(ProjectManagerVM.CurrProd.nType, -1)).ToList())
+      End If
+   End Sub
+
+   Friend Function GetCurrProjBtlInfoLayerId(nProjId As Integer) As Integer
+      ' cerco tra i layer BTLInfo
+      Dim nBTLInfoLayerId As Integer = EgtGetFirstNameInGroup(GDB_ID.ROOT, BTLINFO)
+      While nBTLInfoLayerId <> GDB_ID.NULL
+         ' verifico se il layer appartiene al ProjId
+         Dim nBTLInfoLayerProjId As Integer
+         EgtGetInfo(nBTLInfoLayerId, BTL_PRT_PROJ, nBTLInfoLayerProjId)
+         If nBTLInfoLayerProjId = nProjId Then
+            Return nBTLInfoLayerId
+         End If
+         nBTLInfoLayerId = EgtGetNextName(nBTLInfoLayerId, BTLINFO)
+      End While
+      Return -1
+   End Function
+
+   Friend Sub ForcedStrategy()
+      ' cancello precedenti valori
+      Dim sPrecStrategyID As String = ""
+      EgtGetInfo(m_CurrentFeature.nFeatureId, "STRATEGY", sPrecStrategyID)
+      If Not String.IsNullOrWhiteSpace(sPrecStrategyID) Then
+         Dim PrecInfo As String() = {}
+         EgtGetAllInfo(m_CurrentFeature.nFeatureId, PrecInfo)
+         Dim PrecStrategyInfo As String() = PrecInfo.Where(Function(x) x.StartsWith(sPrecStrategyID)).ToArray()
+         For Each Info In PrecStrategyInfo
+            EgtRemoveInfo(m_CurrentFeature.nFeatureId, Info.Split("="c)(0))
+         Next
+      End If
+      If Not IsNothing(m_SelStrategy) Then
+         If m_SelStrategy.sStrategyId = AUTOMATICSTRATEGYID Then
+            EgtRemoveInfo(m_CurrentFeature.nFeatureId, "STRATEGY")
+         Else
+            EgtSetInfo(m_CurrentFeature.nFeatureId, "STRATEGY", SelStrategy.sStrategyId)
+            Dim sInfo As String = String.Empty
+            For Each Param In SelStrategy.ParameterList
+               Select Case Param.GetType()
+                  Case GetType(BooleanStrategyParameter)
+                     EgtSetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, DirectCast(Param, BooleanStrategyParameter).bValue)
+                  Case GetType(DoubleStrategyParameter)
+                     EgtSetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, DirectCast(Param, DoubleStrategyParameter).sValue)
+                  Case GetType(ComboStrategyParameter)
+                     EgtSetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, DirectCast(Param, ComboStrategyParameter).SelValue.sValue)
+                  Case GetType(StringStrategyParameter)
+                     EgtSetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, DirectCast(Param, StringStrategyParameter).sValue)
+                  Case GetType(ListStrategyParameter)
+                     For Each Item As ToolParameter In DirectCast(Param, ListStrategyParameter).ListValue
+                        If Item.bIsActive Then
+                           sInfo &= Item.sUUID & "," & Item.sName & ";"
+                           EgtSetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, sInfo)
+                        End If
+                     Next
+               End Select
+            Next
+         End If
+      End If
+   End Sub
+
+#End Region    ' Methods
+
+#Region "COMMANDS"
+
+#Region "Ok_Command"
+
+   Public ReadOnly Property Ok_Command As ICommand
+      Get
+         If m_cmdOk Is Nothing Then
+            m_cmdOk = New Command(AddressOf Ok)
+         End If
+         Return m_cmdOk
+      End Get
+   End Property
+
+   Public Sub Ok()
+      '' cancello precedenti valori
+      'Dim sPrecStrategyID As String = ""
+      'EgtGetInfo(m_CurrentFeature.nFeatureId, "STRATEGY", sPrecStrategyID)
+      'If Not String.IsNullOrWhiteSpace(sPrecStrategyID) Then
+      '   Dim PrecInfo As String() = {}
+      '   EgtGetAllInfo(m_CurrentFeature.nFeatureId, PrecInfo)
+      '   Dim PrecStrategyInfo As String() = PrecInfo.Where(Function(x) x.StartsWith(sPrecStrategyID)).ToArray()
+      '   For Each Info In PrecStrategyInfo
+      '      EgtRemoveInfo(m_CurrentFeature.nFeatureId, Info.Split("="c)(0))
+      '   Next
+      'End If
+      'If m_SelStrategy.sStrategyId = AUTOMATICSTRATEGYID Then
+      '   EgtRemoveInfo(m_CurrentFeature.nFeatureId, "STRATEGY")
+      'Else
+      '   EgtSetInfo(m_CurrentFeature.nFeatureId, "STRATEGY", SelStrategy.sStrategyId)
+      '   Dim sInfo As String = String.Empty
+      '   For Each Param In SelStrategy.ParameterList
+      '      Select Case Param.GetType()
+      '         Case GetType(BooleanStrategyParameter)
+      '            EgtSetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, DirectCast(Param, BooleanStrategyParameter).bValue)
+      '         Case GetType(DoubleStrategyParameter)
+      '            EgtSetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, DirectCast(Param, DoubleStrategyParameter).sValue)
+      '         Case GetType(ComboStrategyParameter)
+      '            EgtSetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, DirectCast(Param, ComboStrategyParameter).SelValue.sValue)
+      '         Case GetType(StringStrategyParameter)
+      '            EgtSetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, DirectCast(Param, StringStrategyParameter).sValue)
+      '         Case GetType(ListStrategyParameter)
+      '            For Each Item As ToolParameter In DirectCast(Param, ListStrategyParameter).ListValue
+      '               If Item.bIsActive Then
+      '                  sInfo &= Item.sUUID & "," & Item.sName & ";"
+      '                  EgtSetInfo(m_CurrentFeature.nFeatureId, m_SelStrategy.sStrategyId & "_" & Param.sNameNge, sInfo)
+      '               End If
+      '            Next
+      '      End Select
+      '   Next
+      'End If
+      ForcedStrategy()
+      Map.refProjectVM.SetSelManagerTab(ProjectVM.StrategyManagerTab.RAWPARTMANAGER)
+      ' Abilito LeftPanel
+      Map.refProjectVM.SetOnlyProdLeftPanel_IsEnabled(True)
+      Map.refProjectVM.SetOnlyProdLeftPanel_Opacity(1)
+   End Sub
+
+#End Region ' Ok_Command
+
+#Region "Cancel_Command"
+
+   Public ReadOnly Property Cancel_Command As ICommand
+      Get
+         If m_cmdCancel Is Nothing Then
+            m_cmdCancel = New Command(AddressOf Cancel)
+         End If
+         Return m_cmdCancel
+      End Get
+   End Property
+
+   Public Sub Cancel()
+      Map.refProjectVM.SetSelManagerTab(ProjectVM.StrategyManagerTab.RAWPARTMANAGER)
+      ' Abilito LeftPanel
+      Map.refProjectVM.SetOnlyProdLeftPanel_IsEnabled(True)
+      Map.refProjectVM.SetOnlyProdLeftPanel_Opacity(1)
+   End Sub
+
+#End Region ' Cancel_Command
+
+#End Region    ' Commands
+
+End Class

EgtBEAMWALL.Optimizer/FreeContourInput/FreeContourInputV.xaml

@@ -1,12 +1,12 @@
 <UserControl x:Class="FreeContourInputV"
              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"
              Height="32">
-
-   <StackPanel Orientation="Horizontal">
+   
+   <StackPanel>
       <StackPanel.Style>
          <Style TargetType="{x:Type StackPanel}">
+            <Setter Property="Orientation" Value="Horizontal"/>
             <Style.Triggers>
                <DataTrigger Binding="{Binding FocusTextBox}" Value="True">
                   <Setter Property="FocusManager.FocusedElement" Value="{Binding ElementName=PropertySearch}"/>
@@ -14,33 +14,40 @@
             </Style.Triggers>
          </Style>
       </StackPanel.Style>
+      
       <TextBlock Text="{Binding Message}"
                  Visibility="{Binding Message_Visibility}"
                  Style="{StaticResource OptionTextBlock}"/>
       <TextBox Text="{Binding Text, UpdateSourceTrigger=PropertyChanged}"
-               Width="200"
-               Visibility="{Binding Text_Visibility}" Margin="5,0,5,0"
+               Visibility="{Binding Text_Visibility}" 
                Style="{StaticResource FreeContour_TextBox}">
          <TextBox.InputBindings>
             <KeyBinding Key="Enter" Command="{Binding Done_Command, UpdateSourceTrigger=PropertyChanged}"/>
             <KeyBinding Key="S" Modifiers="Control" Command="{Binding Show_Command}"/>
          </TextBox.InputBindings>
       </TextBox>
-      <CheckBox Content="{Binding CheckBoxText}" IsChecked="{Binding IsChecked}"
-                Visibility="{Binding Check_Visibility}" Margin="5,0,5,0"
-                VerticalAlignment="Center"/>
-      <ComboBox ItemsSource="{Binding ComboItemsList}" SelectedIndex="{Binding ComboSelectedIndex}"
-                   Visibility="{Binding Combo_Visibility}" Margin="5,0,5,0" Style="{x:Null}"/>
+      <CheckBox Content="{Binding CheckBoxText}" 
+                IsChecked="{Binding IsChecked}"
+                Visibility="{Binding Check_Visibility}" 
+                Style="{StaticResource FreeContourInput_CheckBox}"/>
+      <ComboBox ItemsSource="{Binding ComboItemsList}" 
+                SelectedIndex="{Binding ComboSelectedIndex}"
+                Visibility="{Binding Combo_Visibility}" 
+                Margin="5,0,5,0"/>
       <Grid Margin="5,0,5,0">
          <Grid.ColumnDefinitions>
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
          </Grid.ColumnDefinitions>
-         <Button Command="{Binding Show_Command}" Visibility="{Binding ShowBtn_Visibility}"
-                 Content="{Binding ShowMsg}" Style="{StaticResource EgtWPFLib5_InputButton}"/>
-         <Button Command="{Binding Done_Command}" Visibility="{Binding DoneBtn_Visibility}"
-                 Grid.Column="1"
-                 Content="{Binding OkMsg}" Style="{StaticResource EgtWPFLib5_InputButton}"/>
+         <Button Command="{Binding Show_Command}" 
+                 Visibility="{Binding ShowBtn_Visibility}"
+                 Content="{Binding ShowMsg}" 
+                 Style="{StaticResource GeneralConfigurationToolBar_TextButton}"/>
+         <Button Grid.Column="1"
+                 Command="{Binding Done_Command}" 
+                 Visibility="{Binding DoneBtn_Visibility}"
+                 Content="{Binding OkMsg}" 
+                 Style="{StaticResource GeneralConfigurationToolBar_TextButton}"/>
       </Grid>
    </StackPanel>
 </UserControl>

EgtBEAMWALL.Optimizer/FreeContourInput/OnlyProdFreeContourInputV.xaml

@@ -1,53 +0,0 @@
-<UserControl x:Class="OnlyProdFreeContourInputV"
-             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             Height="32">
-   
-   <StackPanel>
-      <StackPanel.Style>
-         <Style TargetType="{x:Type StackPanel}">
-            <Setter Property="Orientation" Value="Horizontal"/>
-            <Style.Triggers>
-               <DataTrigger Binding="{Binding FocusTextBox}" Value="True">
-                  <Setter Property="FocusManager.FocusedElement" Value="{Binding ElementName=PropertySearch}"/>
-               </DataTrigger>
-            </Style.Triggers>
-         </Style>
-      </StackPanel.Style>
-      
-      <TextBlock Text="{Binding Message}"
-                 Visibility="{Binding Message_Visibility}"
-                 Style="{StaticResource OptionTextBlock}"/>
-      <TextBox Text="{Binding Text, UpdateSourceTrigger=PropertyChanged}"
-               Visibility="{Binding Text_Visibility}" 
-               Style="{StaticResource FreeContour_TextBox}">
-         <TextBox.InputBindings>
-            <KeyBinding Key="Enter" Command="{Binding Done_Command, UpdateSourceTrigger=PropertyChanged}"/>
-            <KeyBinding Key="S" Modifiers="Control" Command="{Binding Show_Command}"/>
-         </TextBox.InputBindings>
-      </TextBox>
-      <CheckBox Content="{Binding CheckBoxText}" 
-                IsChecked="{Binding IsChecked}"
-                Visibility="{Binding Check_Visibility}" 
-                Style="{StaticResource FreeContourInput_CheckBox}"/>
-      <ComboBox ItemsSource="{Binding ComboItemsList}" 
-                SelectedIndex="{Binding ComboSelectedIndex}"
-                Visibility="{Binding Combo_Visibility}" 
-                Margin="5,0,5,0"/>
-      <Grid Margin="5,0,5,0">
-         <Grid.ColumnDefinitions>
-            <ColumnDefinition Width="1*"/>
-            <ColumnDefinition Width="1*"/>
-         </Grid.ColumnDefinitions>
-         <Button Command="{Binding Show_Command}" 
-                 Visibility="{Binding ShowBtn_Visibility}"
-                 Content="{Binding ShowMsg}" 
-                 Style="{StaticResource GeneralConfigurationToolBar_TextButton}"/>
-         <Button Grid.Column="1"
-                 Command="{Binding Done_Command}" 
-                 Visibility="{Binding DoneBtn_Visibility}"
-                 Content="{Binding OkMsg}" 
-                 Style="{StaticResource GeneralConfigurationToolBar_TextButton}"/>
-      </Grid>
-   </StackPanel>
-</UserControl>

EgtBEAMWALL.Optimizer/FreeContourInput/OnlyProdFreeContourInputV.xaml.vb

@@ -1,3 +0,0 @@
-Public Class OnlyProdFreeContourInputV
-
-End Class