From ee48408bd9a72bd93663fb4c0db0a1ac3b320a8d Mon Sep 17 00:00:00 2001
From: Emmanuele Sassi <emmanuele.sassi@egaltech.com>
Date: Mon, 16 Dec 2024 12:31:21 +0100
Subject: [PATCH] - aggiunta pagina copia multipla - gestito file csv output -
 migliorata grafica - aggiunto stato porta da non produrre - creazione file
 ddf al momento della verifica - modificata cancellazione con cancella csv o
 cancella singole porte create manualmente - aggiunta gestione tipo di
 apertura - aggiunta fase per gestionale

---
 .../Constants/ConstIni.vb                     |   6 +
 .../DoorListPage/DoorListPageV.xaml           | 261 ++++--
 .../DoorListPage/DoorListPageVM.vb            | 796 +++++++++++++-----
 .../Effector.Plugin.DoorArreda.vbproj         |  10 +
 Effector.Plugin.DoorArreda/FiveLakesUI.xaml   |   3 +-
 Effector.Plugin.DoorArreda/LUA/Lua_General.vb |  13 +-
 .../MainMenu/MainMenuV.xaml                   |   8 +-
 .../MultipleCopyWnd/MultipleCopyWndV.xaml     |  25 +
 .../MultipleCopyWnd/MultipleCopyWndV.xaml.vb  |  19 +
 .../MultipleCopyWnd/MultipleCopyWndVM.vb      |  48 ++
 .../Utility/Dictionary.xaml                   | 230 ++++-
 .../Utility/Dictionary.xaml.vb                | 133 ++-
 .../Utility/JsonUtility.vb                    |  11 +-
 13 files changed, 1255 insertions(+), 308 deletions(-)
 create mode 100644 Effector.Plugin.DoorArreda/MultipleCopyWnd/MultipleCopyWndV.xaml
 create mode 100644 Effector.Plugin.DoorArreda/MultipleCopyWnd/MultipleCopyWndV.xaml.vb
 create mode 100644 Effector.Plugin.DoorArreda/MultipleCopyWnd/MultipleCopyWndVM.vb

diff --git a/Effector.Plugin.DoorArreda/Constants/ConstIni.vb b/Effector.Plugin.DoorArreda/Constants/ConstIni.vb
index a1d91ac..ead5c8f 100644
--- a/Effector.Plugin.DoorArreda/Constants/ConstIni.vb
+++ b/Effector.Plugin.DoorArreda/Constants/ConstIni.vb
@@ -31,6 +31,12 @@ Module ConstIni
    Public Const K_HEIGHT As String = "Height"
    Public Const K_WIDTH As String = "Width"
    Public Const K_THICKNESS As String = "Thickness"
+   Public Const K_SWING As String = "Swing"
+   Public Const K_PHASE As String = "Phase"
+   Public Const K_STATE As String = "State"
+   Public Const K_PROGRAMSENT As String = "ProgramSent"
+   Public Const K_PROGRAMSTART As String = "ProgramStart"
+   Public Const K_PROGRAMEND As String = "ProgramEnd"
    Public Const K_MANUALADDEDDOORNAME As String = "ManualAddedDoorName"
    Public Const K_DELIMITER As String = "Delimiter"
 
diff --git a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml
index ebb0cc5..bd7fe33 100644
--- a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml
+++ b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml
@@ -2,6 +2,9 @@
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
       xmlns:local="clr-namespace:Effector.Plugin.DoorArreda">
+   <Grid.Resources>
+      <local:StateToSelColorConverter x:Key="StateToSelColorConverter"/>
+   </Grid.Resources>
    <Grid.RowDefinitions>
       <RowDefinition Height="Auto"/>
       <RowDefinition Height="1*"/>
@@ -11,41 +14,65 @@
       <Button Content="CSV"
               ToolTip="Apri file CSV"
               Command="{Binding OpenCSV_Command}"
-              IsEnabled="{Binding bExecButton_IsEnabled}"/>
+              IsEnabled="{Binding bExecButton_IsEnabled}"
+              Style="{StaticResource DoorList_Button}"/>
       <Button Content="Salta Porta"
-              ToolTip="Blocca Porta selezionata, chenon verrà mandata in produzione"
-              Command="{Binding SkipDoor_Command}"/>
+              ToolTip="Blocca Porta selezionata, che non verrà mandata in produzione"
+              Command="{Binding SkipDoor_Command}"
+              Style="{StaticResource DoorList_Button}"/>
+      <Button Content="Porta da non produrre"
+              ToolTip="Segna la Porta selezionatacome da non produrre"
+              Command="{Binding NotProduceDoor_Command}"
+              Style="{StaticResource DoorList_Button}"/>
       <Button Content="↑"
               ToolTip="Sposta su"
-              Command="{Binding MoveUp_Command}"/>
+              Command="{Binding MoveUp_Command}"
+              Style="{StaticResource DoorList_Button}"/>
       <Button Content="↓"
               ToolTip="Sposta giù"
-              Command="{Binding MoveDown_Command}"/>
-      <Button Content="Cancella"
-              ToolTip="Cancella porta selezionata"
-              Command="{Binding Delete_Command}"/>
-      <Button Content="Cancella tutto"
-              ToolTip="Cancella tutte le porte non in produzione"
-              Command="{Binding DeleteAll_Command}"/>
+              Command="{Binding MoveDown_Command}"
+              Style="{StaticResource DoorList_Button}"/>
+      <Button Content="Cancella porta"
+              ToolTip="Cancella porta selezionata (se non appartenente ad un csv)"
+              Command="{Binding Delete_Command}"
+              Style="{StaticResource DoorList_Button}"/>
+      <Button Content="Cancella csv"
+              ToolTip="Cancella tutte le porte del csv della porta selezionata"
+              Command="{Binding DeleteAll_Command}"
+              Style="{StaticResource DoorList_Button}"/>
       <Button Content="Produci"
               ToolTip="Mette in coda di produzione la porta selezionata"
-              Command="{Binding Produce_Command}"/>
+              Command="{Binding Produce_Command}"
+              Style="{StaticResource DoorList_Button}"/>
       <Button Content="Produci Tutte"
               ToolTip="Mette in coda di produzione tutte le porte"
-              Command="{Binding ProduceAll_Command}"/>
+              Command="{Binding ProduceAll_Command}"
+              Style="{StaticResource DoorList_Button}"/>
       <Button Content="Reset Coda di Produzione"
               ToolTip="Riporta tutte le porte pronte per essere lavorate allo stato Verificate state"
-              Command="{Binding ResetProductionQueue_Command}"/>
+              Command="{Binding ResetProductionQueue_Command}"
+              Style="{StaticResource DoorList_Button}"/>
       <Button Content="Verifica"
               ToolTip="Verifica tutte le porte in stato Non Verificata"
               Command="{Binding Verify_Command}"
-              IsEnabled="{Binding bExecButton_IsEnabled}"/>
+              IsEnabled="{Binding bExecButton_IsEnabled}"
+              Style="{StaticResource DoorList_Button}"/>
       <Button Content="Aggiungi"
               ToolTip="Aggiunge una porta alla lista"
-              Command="{Binding AddDoor_Command}"/>
+              Command="{Binding AddDoor_Command}"
+              Style="{StaticResource DoorList_Button}"/>
+      <Button Content="Copia"
+              ToolTip="Copia la porta selezionata"
+              Command="{Binding CopyDoor_Command}"
+              Style="{StaticResource DoorList_Button}"/>
+      <Button Content="Copia Multipla"
+              ToolTip="Copia Multipla della porta selezionata"
+              Command="{Binding MultipleCopyDoor_Command}"
+              Style="{StaticResource DoorList_Button}"/>
       <Button Content="Salva CSV"
               ToolTip="Salva un csv di produzione"
-              Command="{Binding SaveCSV_Command}"/>
+              Command="{Binding SaveCSV_Command}"
+              Style="{StaticResource DoorList_Button}"/>
    </StackPanel>
    <DataGrid Grid.Row="1"
              ItemsSource="{Binding DoorList}"
@@ -54,95 +81,209 @@
              CanUserDeleteRows="False"
              CanUserResizeRows="False"
              SelectionMode="Single"
+             SelectionUnit="FullRow"
              CanUserSortColumns="False"
              ScrollViewer.VerticalScrollBarVisibility="Auto"
              ScrollViewer.HorizontalScrollBarVisibility="Disabled"
              BeginningEdit="DoorList_BeginningEdit"
->
+             HorizontalGridLinesBrush="Transparent"
+             VerticalGridLinesBrush="Transparent"
+             ColumnHeaderHeight="32"
+             HeadersVisibility="Column"
+             FontSize="12"
+             FontFamily="/Resources/Fonts/#Roboto"
+             FontWeight="Regular"
+             RowHeight="32">
+      <DataGrid.ColumnHeaderStyle>
+         <Style TargetType="{x:Type DataGridColumnHeader}">
+            <Setter Property="Background" Value="{StaticResource Effector_DarkBlue}"/>
+            <Setter Property="Foreground" Value="White"/>
+            <Setter Property="HorizontalContentAlignment" Value="Center"/>
+            <Setter Property="FontSize" Value="15"/>
+            <Setter Property="Padding" Value="10,0,10,0"/>
+         </Style>
+      </DataGrid.ColumnHeaderStyle>
       <DataGrid.Columns>
-         <DataGridTextColumn Header=""
+         <DataGridTextColumn Header="ID"
                              Binding="{Binding nId}"
                              Width="Auto"
-                             IsReadOnly="True"/>
-         <DataGridTemplateColumn Header="DDF"
+                             IsReadOnly="True"
+                             ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
+         <DataGridTemplateColumn Header="DDF/DDT File Name"
                                  Width="Auto">
             <DataGridTemplateColumn.CellTemplate>
                <DataTemplate>
-                  <TextBlock Text="{Binding sDDFName}"/>
+                  <TextBlock Text="{Binding sDDFName}"
+                             Style="{StaticResource DataGridTextColumn_TextBlock}"/>
                </DataTemplate>
             </DataGridTemplateColumn.CellTemplate>
             <DataGridTemplateColumn.CellEditingTemplate>
                <DataTemplate>
                   <ComboBox IsEditable="True" 
                             Text="{Binding sDDFName}" 
-                            ItemsSource="{Binding DataContext.DDTList, RelativeSource={RelativeSource AncestorType={x:Type local:DoorListPageV}}}"/>
+                            ItemsSource="{Binding DataContext.DDTList, RelativeSource={RelativeSource AncestorType={x:Type local:DoorListPageV}}}"
+                            Style="{StaticResource DataGridTemplateColumn_ComboBox}"/>
                </DataTemplate>
             </DataGridTemplateColumn.CellEditingTemplate>
          </DataGridTemplateColumn>
-         <!--<DataGridTextColumn Header="DDF"
-                             Binding="{Binding sDDFName}"
-                             Width="Auto"/>-->
-         <!--<DataGridTextColumn Header="Quantity"
-                             Binding="{Binding nQuantity}"
-                             Width="Auto"
-                             IsReadOnly="True"/>-->
-         <DataGridTextColumn Header="Width"
+         <DataGridTextColumn Header="Larghezza"
                              Binding="{Binding dWidth}"
-                             Width="Auto"/>
-         <DataGridTextColumn Header="Height"
+                             Width="Auto"
+                             ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
+         <DataGridTextColumn Header="Altezza"
                              Binding="{Binding dHeight}"
-                             Width="Auto"/>
-         <DataGridTextColumn Header="Thickness"
+                             Width="Auto"
+                             ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
+         <DataGridTextColumn Header="Spessore"
                              Binding="{Binding dThickness}"
-                             Width="Auto"/>
-         <DataGridTextColumn Header="State"
+                             Width="Auto"
+                             ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
+         <DataGridTemplateColumn Header="Apertura"
+                                 Width="Auto">
+            <DataGridTemplateColumn.CellTemplate>
+               <DataTemplate>
+                  <TextBlock Text="{Binding SelSwing.Name}"
+                             Style="{StaticResource DataGridTextColumn_TextBlock}"/>
+               </DataTemplate>
+            </DataGridTemplateColumn.CellTemplate>
+            <DataGridTemplateColumn.CellEditingTemplate>
+               <DataTemplate>
+                  <ComboBox ItemsSource="{Binding SwingList}"
+                            SelectedItem="{Binding SelSwing}"
+                            SelectedValuePath="Name"
+                            Style="{StaticResource DataGridTemplateColumn_ComboBox}"/>
+               </DataTemplate>
+            </DataGridTemplateColumn.CellEditingTemplate>
+         </DataGridTemplateColumn>
+         <DataGridTextColumn Header="Stato"
                              Binding="{Binding nState}"
                              Width="Auto"
-                             IsReadOnly="True"/>
-         <DataGridTextColumn Header="Csv"
+                             IsReadOnly="True"
+                             ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
+         <DataGridTextColumn Header="CSV"
                              Binding="{Binding sCSVName}"
                              Width="Auto"
-                             IsReadOnly="True"/>
-         <DataGridTextColumn Header="Line"
+                             IsReadOnly="True"
+                             ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
+         <DataGridTextColumn Header="Linea del CSV"
                              Binding="{Binding nCSVLine}"
                              Width="Auto"
-                             IsReadOnly="True"/>
-         <DataGridTextColumn Header="Production State"
+                             IsReadOnly="True"
+                             ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
+         <DataGridTextColumn Header="Stato di produzione"
                              Binding="{Binding nProdState}"
                              Width="Auto"
-                             IsReadOnly="True"/>
-         <DataGridTextColumn Header="Load Time"
+                             IsReadOnly="True"
+                             ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
+         <DataGridTextColumn Header="Carico"
                              Binding="{Binding sLoadTime}"
                              Width="Auto"
-                             IsReadOnly="True"/>
-         <DataGridTextColumn Header="Machining 1 Start"
+                             IsReadOnly="True"
+                             ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
+         <DataGridTextColumn Header="Inizio lavorazione"
                              Binding="{Binding sMachining1Start}"
                              Width="Auto"
-                             IsReadOnly="True"/>
-         <DataGridTextColumn Header="Machining 1 End"
+                             IsReadOnly="True"
+                             ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
+         <DataGridTextColumn Header="Fine lavorazione"
                              Binding="{Binding sMachining1End}"
                              Width="Auto"
-                             IsReadOnly="True"/>
-         <!--<DataGridTextColumn Header="Machining 2 Start"
-                             Binding="{Binding sMachining2Start}"
-                             Width="Auto"/>
-         <DataGridTextColumn Header="Machining 2 End"
-                             Binding="{Binding sMachining2End}"
-                             Width="Auto"/>-->
-         <DataGridTextColumn Header="Unload Time"
+                             IsReadOnly="True"
+                             ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
+         <DataGridTextColumn Header="Scarico"
                              Binding="{Binding sUnloadTime}"
                              Width="Auto"
-                             IsReadOnly="True"/>
+                             IsReadOnly="True"
+                             ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
       </DataGrid.Columns>
       <!--<DataGrid.InputBindings>
          <KeyBinding Key="Delete" Command="{Binding Tag.SelectedMachGroup.DeleteMachGroup_Command,
                                                     RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:RawPartListV}}}"/>
       </DataGrid.InputBindings>-->
       <DataGrid.RowStyle>
-         <Style TargetType="DataGridRow">
+         <Style TargetType="DataGridRow" BasedOn="{StaticResource RowDataGrid_CustomHighLight}">
             <Setter Property="Background" Value="{Binding Background}"/>
+            <Setter Property="BorderBrush" Value="{Binding nState, Converter={StaticResource StateToSelColorConverter}}" />
          </Style>
       </DataGrid.RowStyle>
-
+      <DataGrid.CellStyle>
+         <Style TargetType="{x:Type DataGridCell}">
+            <!--<Setter Property="VerticalAlignment" Value="Stretch"/>
+            --><!--<Setter Property="VerticalContentAlignment" Value="Center"/>-->
+            <!--<Setter Property="TextBlock.TextAlignment" Value="Center"/>
+            <Setter Property="TextBox.VerticalAlignment" Value="Stretch"/>--><!--
+            <Setter Property="TextBox.VerticalContentAlignment" Value="Center"/>-->
+            <!--<Setter Property="Template">
+               <Setter.Value>
+                  <ControlTemplate TargetType="{x:Type DataGridCell}">
+                     <Grid>
+                        <TextBox Text="{Binding RelativeSource={RelativeSource TemplatedParent}, Path=Content.Text}"
+                                 VerticalAlignment="Stretch" 
+                                 HorizontalAlignment="Stretch"
+                                 HorizontalContentAlignment="Center"
+                                 BorderThickness="0"  
+                                 Background="{Binding RelativeSource={RelativeSource TemplatedParent},Path=Background}"
+                                 VerticalContentAlignment="Center">
+                           <TextBox.Style>
+                              <Style TargetType="{x:Type TextBox}">
+                              </Style>
+                           </TextBox.Style>
+                        </TextBox>
+                     </Grid>
+                  </ControlTemplate>
+               </Setter.Value>
+            </Setter>-->
+            <!--<Setter Property="TextBlock.TextAlignment" Value="Center"/>
+            <Setter Property="Template">
+               <Setter.Value>
+                  <ControlTemplate TargetType="{x:Type DataGridCell}">
+                     <Grid Background="{TemplateBinding Background}">
+                        <ContentPresenter>
+                           <ContentPresenter.Style>
+                              <Style TargetType="ContentPresenter">
+                                 <Setter Property="TextBox.VerticalAlignment" Value="Stretch"/>
+                                 <Setter Property="TextBox.VerticalContentAlignment" Value="Center"/>
+                              </Style>
+                           </ContentPresenter.Style>
+                        </ContentPresenter>
+                     </Grid>
+                  </ControlTemplate>
+               </Setter.Value>
+            </Setter>-->
+            <!--<Setter Property="VerticalContentAlignment" Value="Center" />
+            <Setter Property="Template">
+               <Setter.Value>
+                  <ControlTemplate TargetType="{x:Type DataGridCell}">
+                     <Border VerticalAlignment="Stretch"
+                             HorizontalAlignment="Stretch">
+                        <ContentPresenter VerticalAlignment="{TemplateBinding VerticalContentAlignment}"/>
+                     </Border>
+                  </ControlTemplate>
+               </Setter.Value>
+            </Setter>-->
+            <!--<Style.Resources>
+               <Style TargetType="ContentPresenter">
+                  <Setter Property="VerticalAlignment" Value="Stretch" />
+                  <Setter Property="TextBox.VerticalAlignment" Value="Center" />
+               </Style>
+            </Style.Resources>
+            <Style.Triggers>
+               <Trigger Property="IsSelected" Value="True">
+               </Trigger>
+            </Style.Triggers>-->
+         </Style>
+      </DataGrid.CellStyle>
    </DataGrid>
 </Grid>
diff --git a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageVM.vb b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageVM.vb
index a19a4b7..dc2d50e 100644
--- a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageVM.vb
+++ b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageVM.vb
@@ -6,6 +6,7 @@ Imports System.Text.RegularExpressions
 Imports System.Security.Cryptography
 Imports Newtonsoft.Json.Linq
 Imports Effector.Plugin.DoorArreda.Door
+Imports System.Globalization
 
 Public Class DoorListPageVM
    Inherits VMBase
@@ -13,6 +14,7 @@ Public Class DoorListPageVM
    Private m_ManualAddedDoorName As String = "ManualAddedDoor"
 
    Private m_BackupTimer As New DispatcherTimer
+   Private m_WriteCSVTimer As New DispatcherTimer
    Private m_RefreshGraphicsTimer As New DispatcherTimer
    Private m_ExecProcessManager As ExecProcessManager
 
@@ -53,11 +55,16 @@ Public Class DoorListPageVM
    Private m_nBackupindex As Integer = 0
    Private m_bWritingBackup As Boolean = False
 
+   Private m_sCSVOutDirPath As String = ""
+
    ' Definizione comandi
    Private m_cmdOpenCSV As ICommand
    Private m_cmdSaveCSV As ICommand
    Private m_cmdSkipDoor As ICommand
+   Private m_cmdNotProduceDoor As ICommand
    Private m_cmdAddDoor As ICommand
+   Private m_cmdCopyDoor As ICommand
+   Private m_cmdMultipleCopyDoor As ICommand
    Private m_cmdMoveUp As ICommand
    Private m_cmdMoveDown As ICommand
    Private m_cmdDelete As ICommand
@@ -94,9 +101,24 @@ Public Class DoorListPageVM
       Read(sBackupFilePath)
       m_BackupTimer.Interval = New TimeSpan(0, 0, 1)
       AddHandler m_BackupTimer.Tick, AddressOf BackupTimer_Tick
+      m_WriteCSVTimer.Interval = New TimeSpan(0, 1, 0)
+      AddHandler m_WriteCSVTimer.Tick, AddressOf WriteCSVTimer_Tick
       m_RefreshGraphicsTimer.Interval = New TimeSpan(0, 0, 1)
       AddHandler m_RefreshGraphicsTimer.Tick, AddressOf RefreshGraphicsTimer_Tick
       m_BackupTimer.Start()
+      ' verifico path salvataggio CSV
+      Dim bStartWriteCSV As Boolean = True
+      If GetPluginPrivateProfileString(S_GENERAL, K_CSVOUTPUT, "", m_sCSVOutDirPath) = 0 Then
+         bStartWriteCSV = False
+         MessageBox.Show("Path di salvataggio CSV non impostata! Impossibile creare file CSV!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+      End If
+      If bStartWriteCSV AndAlso Not Directory.Exists(m_sCSVOutDirPath) Then
+         bStartWriteCSV = False
+         MessageBox.Show("Path di salvataggio CSV impostata non esiste! Impossibile creare file CSV!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+      End If
+      If bStartWriteCSV Then
+         m_WriteCSVTimer.Start()
+      End If
       m_RefreshGraphicsTimer.Start()
    End Sub
 #End Region    ' CONSTRUCTOR
@@ -136,7 +158,7 @@ Public Class DoorListPageVM
       Dim TempDoorList As ObservableCollection(Of Door) = New ObservableCollection(Of Door)((From JsonDoor In JsonDoorList
                                                                                              Select New Door(JsonDoor)).ToList())
       For Each CurrDoor In TempDoorList
-         If CurrDoor.nState > Door.DoorStates.VERIFIED AndAlso CurrDoor.nState < Door.DoorStates.MACHINE_1_END Then
+         If CurrDoor.nState >= Door.DoorStates.READY_FOR_PRODUCTION AndAlso CurrDoor.nState < Door.DoorStates.MACHINE_1_END Then
             CurrDoor.SetState(Door.DoorStates.VERIFIED, False)
          End If
       Next
@@ -189,6 +211,10 @@ Public Class DoorListPageVM
       End If
    End Sub
 
+   Private Sub WriteCSVTimer_Tick(sender As Object, e As EventArgs)
+      SaveCSV()
+   End Sub
+
    Private Sub RefreshGraphicsTimer_Tick(sender As Object, e As EventArgs)
       If IsNothing(m_ExecProcessManager) Then Return
       ' ciclo su coda risultati
@@ -272,16 +298,19 @@ Public Class DoorListPageVM
             Dim sHeightName As String = ""
             Dim sWidthName As String = ""
             Dim sThicknessName As String = ""
+            Dim sSwingName As String = ""
             GetPluginPrivateProfileString(S_CSV, K_DDFNAME, K_DDFNAME, sDDFName)
             GetPluginPrivateProfileString(S_CSV, K_QUANTITY, "", sQuantityName)
             GetPluginPrivateProfileString(S_CSV, K_HEIGHT, "", sHeightName)
             GetPluginPrivateProfileString(S_CSV, K_WIDTH, "", sWidthName)
             GetPluginPrivateProfileString(S_CSV, K_THICKNESS, "", sThicknessName)
+            GetPluginPrivateProfileString(S_CSV, K_SWING, "", sSwingName)
             Dim nDDFNameIndex As Integer = Array.IndexOf(Headers, sDDFName)
             Dim nQuantityNameIndex As Integer = Array.IndexOf(Headers, sQuantityName)
             Dim nHeightNameIndex As Integer = Array.IndexOf(Headers, sHeightName)
             Dim nWidthNameIndex As Integer = Array.IndexOf(Headers, sWidthName)
             Dim nThicknessNameIndex As Integer = Array.IndexOf(Headers, sThicknessName)
+            Dim nSwingNameIndex As Integer = Array.IndexOf(Headers, sSwingName)
             If nDDFNameIndex = -1 Then
                Dim sMessage As String = "Error! DDFName column not found! Csv file will not be read!"
                ' egtoutlog(sMessage)
@@ -324,36 +353,44 @@ Public Class DoorListPageVM
                         dThickness = 0
                      End If
                   End If
-                  Dim sErrMessage As String = ""
-                  Dim sGDDFDirPath As String = ""
-                  GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGDDFDirPath)
-                  Dim sGenDDFFilePath As String = ""
-                  Dim sCopyDDFFilePath As String = ""
+                  Dim nSwing As Integer = 0
+                  If nSwingNameIndex >= 0 AndAlso nSwingNameIndex < Values.Count Then
+                     If Values(nSwingNameIndex).ToUpper = "S" Then
+                        nSwing = SWINGTYPE.LEFT
+                     Else
+                        nSwing = SWINGTYPE.RIGHT
+                     End If
+                  End If
+                  'Dim sErrMessage As String = ""
+                  'Dim sGDDFDirPath As String = ""
+                  'GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGDDFDirPath)
+                  'Dim sGenDDFFilePath As String = ""
+                  'Dim sCopyDDFFilePath As String = ""
                   For nQuantityIndex = 1 To nQuantity
                      Dim nId As Integer = NewDoorId()
                      Dim NewDoor As New Door(nId, nLineIndex, Values(nDDFNameIndex), Path.GetFileName(sCSVPath),
-                                          1, dWidth, dHeight, dThickness, Headers, Values)
-                     Dim bOk As Boolean = False
-                     If nQuantityIndex = 1 Then
-                        ' creo file ddf
-                        bOk = CreateGenDdfFile(nId, Values(nDDFNameIndex), dWidth, dHeight, dThickness, sErrMessage)
-                        If bOk Then
-                           sGenDDFFilePath = sGDDFDirPath & "\" & If(Not String.IsNullOrWhiteSpace(Path.GetDirectoryName(Values(nDDFNameIndex))), Path.GetDirectoryName(Values(nDDFNameIndex)) & "_", "") & Path.GetFileNameWithoutExtension(Values(nDDFNameIndex)) & "_" & nId & ".ddf"
-                           sCopyDDFFilePath = sGDDFDirPath & "\" & If(Not String.IsNullOrWhiteSpace(Path.GetDirectoryName(Values(nDDFNameIndex))), Path.GetDirectoryName(Values(nDDFNameIndex)) & "_", "") & Path.GetFileNameWithoutExtension(Values(nDDFNameIndex))
-                        End If
-                     Else
-                        Try
-                           File.Copy(sGenDDFFilePath, sCopyDDFFilePath & "_" & nId & ".ddf", True)
-                           bOk = True
-                        Catch ex As Exception
+                                          1, dWidth, dHeight, dThickness, nSwing, Headers, Values)
+                     'Dim bOk As Boolean = False
+                     'If nQuantityIndex = 1 Then
+                     '   ' creo file ddf
+                     '   bOk = CreateGenDdfFile(nId, Values(nDDFNameIndex), dWidth, dHeight, dThickness, sErrMessage)
+                     '   If bOk Then
+                     '      sGenDDFFilePath = sGDDFDirPath & "\" & If(Not String.IsNullOrWhiteSpace(Path.GetDirectoryName(Values(nDDFNameIndex))), Path.GetDirectoryName(Values(nDDFNameIndex)) & "_", "") & Path.GetFileNameWithoutExtension(Values(nDDFNameIndex)) & "_" & nId & ".ddf"
+                     '      sCopyDDFFilePath = sGDDFDirPath & "\" & If(Not String.IsNullOrWhiteSpace(Path.GetDirectoryName(Values(nDDFNameIndex))), Path.GetDirectoryName(Values(nDDFNameIndex)) & "_", "") & Path.GetFileNameWithoutExtension(Values(nDDFNameIndex))
+                     '   End If
+                     'Else
+                     '   Try
+                     '      File.Copy(sGenDDFFilePath, sCopyDDFFilePath & "_" & nId & ".ddf", True)
+                     '      bOk = True
+                     '   Catch ex As Exception
 
-                        End Try
-                     End If
-                     If bOk Then
-                        m_DoorList.Add(NewDoor)
-                     End If
+                     '   End Try
+                     'End If
+                     'If bOk Then
+                     m_DoorList.Add(NewDoor)
+                     'End If
                   Next
-                  sLineErrorList &= sErrMessage
+                  'sLineErrorList &= sErrMessage
                   nLineIndex += 1
                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                   Dim sMessage As String = "Line " & ex.Message & "is not valid and will be skipped."
@@ -365,45 +402,47 @@ Public Class DoorListPageVM
                MessageBox.Show("The following lines are not valid and have been skipped:" & sLineErrorList, "Error", MessageBoxButton.OK, MessageBoxImage.Error)
             End If
          End Using
-         Dim sCamExePath As String = ""
-         GetPluginPrivateProfileString(S_GENERAL, "CAMExePath", "", sCamExePath)
-         Dim sMainLuaPath As String = ""
-         GetPluginPrivateProfileString(S_GENERAL, "MainPipeLUA", "", sMainLuaPath)
-         Dim bStartExecProcessManager As Boolean = False
-         If IsNothing(m_ExecProcessManager) Then
-            bStartExecProcessManager = True
-            m_ExecProcessManager = New ExecProcessManager(sCamExePath, """" & sMainLuaPath & """")
-            AddHandler m_ExecProcessManager.m_AllArgsProcessed, AddressOf ExecProcessManager_AllArgsProcessed
-            m_ExecProcessManager.SetMaxCamInstances(3)
-         End If
-         'Dim sDDFDirPath As String = ""
-         'GetPluginPrivateProfileString(S_GENERAL, "DDFDir", "", sDDFDirPath)
-         'Dim sDDTDirPath As String = ""
-         'GetPluginPrivateProfileString(S_GENERAL, "DDTDir", "", sDDTDirPath)
-         Dim sGenDDFDirPath As String = ""
-         GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGenDDFDirPath)
-         For Each Door In m_DoorList
-            If Door.nState = Door.DoorStates.LOADED_FROM_CSV Then
-               Dim sGenDDFFilePath As String = sGenDDFDirPath & "\" & If(Not String.IsNullOrWhiteSpace(Path.GetDirectoryName(Door.sDDFName)), Path.GetDirectoryName(Door.sDDFName) & "_", "") & Path.GetFileNameWithoutExtension(Door.sDDFName) & "_" & Door.nId & ".ddf"
-               'Dim sDDTFilePath As String = sDDTDirPath & "\" & Door.sDDFName
-               'Dim sDDFFilePath As String = sDDFDirPath & "\" & Path.GetDirectoryName(Door.sDDFName) &
-               '                             Path.GetFileNameWithoutExtension(Door.sDDFName) & "_" & Door.nId & ".ddf"
-               'Dim sWidth As String = DoubleToString(Door.dWidth, 2)
-               'Dim sHeight As String = DoubleToString(Door.dHeight, 2)
-               'Dim sThickness As String = DoubleToString(Door.dThickness, 2)
-               'Dim sArgs As String = sDDTFilePath & ";" & sWidth & ";" & sHeight & ";" & sThickness & ";" & sDDFFilePath
-               m_ExecProcessManager.ArgumentsEnqueue(New ProcessArgs(Door.nId, sGenDDFFilePath))
-            End If
-         Next
-         If bStartExecProcessManager OrElse m_ExecProcessManager.ExecutionThreadStatus = ExecProcessManager.ExecutionThreadStatuses.STOPPED Then
-            m_ExecProcessManager.StartExecutionThread()
-            SetExecButtonIsEnabled(False)
-         End If
+         Verify()
+
+         'Dim sCamExePath As String = ""
+         'GetPluginPrivateProfileString(S_GENERAL, "CAMExePath", "", sCamExePath)
+         'Dim sMainLuaPath As String = ""
+         'GetPluginPrivateProfileString(S_GENERAL, "MainPipeLUA", "", sMainLuaPath)
+         'Dim bStartExecProcessManager As Boolean = False
+         'If IsNothing(m_ExecProcessManager) Then
+         '   bStartExecProcessManager = True
+         '   m_ExecProcessManager = New ExecProcessManager(sCamExePath, """" & sMainLuaPath & """")
+         '   AddHandler m_ExecProcessManager.m_AllArgsProcessed, AddressOf ExecProcessManager_AllArgsProcessed
+         '   m_ExecProcessManager.SetMaxCamInstances(3)
+         'End If
+         ''Dim sDDFDirPath As String = ""
+         ''GetPluginPrivateProfileString(S_GENERAL, "DDFDir", "", sDDFDirPath)
+         ''Dim sDDTDirPath As String = ""
+         ''GetPluginPrivateProfileString(S_GENERAL, "DDTDir", "", sDDTDirPath)
+         'Dim sGenDDFDirPath As String = ""
+         'GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGenDDFDirPath)
+         'For Each Door In m_DoorList
+         '   If Door.nState = Door.DoorStates.LOADED_FROM_CSV Then
+         '      Dim sGenDDFFilePath As String = sGenDDFDirPath & "\" & If(Not String.IsNullOrWhiteSpace(Path.GetDirectoryName(Door.sDDFName)), Path.GetDirectoryName(Door.sDDFName) & "_", "") & Path.GetFileNameWithoutExtension(Door.sDDFName) & "_" & Door.nId & ".ddf"
+         '      'Dim sDDTFilePath As String = sDDTDirPath & "\" & Door.sDDFName
+         '      'Dim sDDFFilePath As String = sDDFDirPath & "\" & Path.GetDirectoryName(Door.sDDFName) &
+         '      '                             Path.GetFileNameWithoutExtension(Door.sDDFName) & "_" & Door.nId & ".ddf"
+         '      'Dim sWidth As String = DoubleToString(Door.dWidth, 2)
+         '      'Dim sHeight As String = DoubleToString(Door.dHeight, 2)
+         '      'Dim sThickness As String = DoubleToString(Door.dThickness, 2)
+         '      'Dim sArgs As String = sDDTFilePath & ";" & sWidth & ";" & sHeight & ";" & sThickness & ";" & sDDFFilePath
+         '      m_ExecProcessManager.ArgumentsEnqueue(New ProcessArgs(Door.nId, sGenDDFFilePath))
+         '   End If
+         'Next
+         'If bStartExecProcessManager OrElse m_ExecProcessManager.ExecutionThreadStatus = ExecProcessManager.ExecutionThreadStatuses.STOPPED Then
+         '   m_ExecProcessManager.StartExecutionThread()
+         '   SetExecButtonIsEnabled(False)
+         'End If
       End If
       WriteBackup()
    End Sub
 
-   Private Function CreateGenDdfFile(nId As Integer, sDDFName As String, dWidth As Double, dHeight As Double, dThickness As Double, sErrMessage As String) As Boolean
+   Private Function CreateGenDdfFile(nId As Integer, sDDFName As String, dWidth As Double, dHeight As Double, dThickness As Double, nSwing As Integer, sErrMessage As String) As Boolean
       ' verifico che ci sia il file ddf
       Dim sDDTDirPath As String = ""
       GetPluginPrivateProfileString(S_GENERAL, K_DDTDIR, "", sDDTDirPath)
@@ -433,7 +472,7 @@ Public Class DoorListPageVM
          End If
       ElseIf sExtension.ToLower() = ".ddt" Then
          ' se file generato
-         If Not Door.CreateDdfFromDdt(nId, sDDFName, dWidth, dHeight, dThickness) Then
+         If Not Door.CreateDdfFromDdt(nId, sDDFName, dWidth, dHeight, dThickness, nSwing) Then
             Return False
          End If
       Else
@@ -486,46 +525,150 @@ Public Class DoorListPageVM
    End Property
 
    Public Sub SaveCSV()
-      If IsNothing(m_SelDoor) Then
-         MessageBox.Show("Nessun file selezionato! Impossibile creare file CSV!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
-         Return
-      End If
-      If m_SelDoor.sCSVName = m_ManualAddedDoorName Then
-         MessageBox.Show("Selezionata porta creata a mano! Impossibile creare file CSV!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
-         Return
-      End If
-      Dim sCSVOutPath As String = ""
-      If GetPluginPrivateProfileString(S_GENERAL, K_CSVOUTPUT, "", sCSVOutPath) = 0 Then
-         MessageBox.Show("Path di salvataggio CSV non impostata! Impossibile creare file CSV!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
-         Return
-      End If
-      If Not Directory.Exists(sCSVOutPath) Then
-         MessageBox.Show("Path di salvataggio CSV impostata non esiste! Impossibile creare file CSV!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
-         Return
-      End If
-      Dim CSVDoorList As List(Of Door) = (From Door In m_DoorList
-                                          Where Door.sCSVName = m_SelDoor.sCSVName).ToList()
-      sCSVOutPath &= "\" & m_SelDoor.sCSVName
-      Dim sCSVFileList As New List(Of String)
-      Dim sHeaderRow As String = ""
-      For Each Parameter In m_SelDoor.CustomerParameters
-         sHeaderRow &= Parameter.sHeader & ";"
-      Next
-      sHeaderRow.TrimEnd(";"c)
-      sCSVFileList.Add(sHeaderRow)
-      For Each Door In CSVDoorList
-         Dim sDoorRow As String = ""
-         For Each Parameter In Door.CustomerParameters
-            sDoorRow &= Parameter.sValue & ";"
+      ' leggo nomi intestazioni da ini
+      Dim sDDFName As String = ""
+      Dim sQuantityName As String = ""
+      Dim sHeightName As String = ""
+      Dim sWidthName As String = ""
+      Dim sThicknessName As String = ""
+      Dim sSwingName As String = ""
+      Dim sStateName As String = ""
+      Dim sProgramSentName As String = ""
+      Dim sProgramStartName As String = ""
+      Dim sProgramEndName As String = ""
+      GetPluginPrivateProfileString(S_CSV, K_DDFNAME, K_DDFNAME, sDDFName)
+      GetPluginPrivateProfileString(S_CSV, K_QUANTITY, "", sQuantityName)
+      GetPluginPrivateProfileString(S_CSV, K_HEIGHT, "", sHeightName)
+      GetPluginPrivateProfileString(S_CSV, K_WIDTH, "", sWidthName)
+      GetPluginPrivateProfileString(S_CSV, K_THICKNESS, "", sThicknessName)
+      GetPluginPrivateProfileString(S_CSV, K_SWING, "", sSwingName)
+      GetPluginPrivateProfileString(S_CSV, K_STATE, "", sStateName)
+      GetPluginPrivateProfileString(S_CSV, K_PROGRAMSENT, "", sProgramSentName)
+      GetPluginPrivateProfileString(S_CSV, K_PROGRAMSTART, "", sProgramStartName)
+      GetPluginPrivateProfileString(S_CSV, K_PROGRAMEND, "", sProgramEndName)
+      ' recupero nomi csv presenti
+      Dim CSVFileList As List(Of String) = DoorList.Select(Function(x) x.sCSVName).Distinct().ToList()
+      CSVFileList.Remove(m_ManualAddedDoorName)
+      For Each CSVFile In CSVFileList
+         Dim CSVDoorList As List(Of Door) = (From Door In m_DoorList
+                                             Where Door.sCSVName = CSVFile).ToList()
+         Dim sCSVOutPath = m_sCSVOutDirPath & "\Output_" & DateTime.Now().ToString("yy-MM-dd-HH-mm-ss") & ".csv"
+         Dim sCSVFileList As New List(Of String)
+         Dim sHeaderRow As String = ""
+         For Each Parameter In CSVDoorList(0).CustomerParameters
+            ' evito di scrivere la quantita'
+            If Parameter.sHeader <> sQuantityName Then
+               sHeaderRow &= Parameter.sHeader & ";"
+            End If
          Next
-         sCSVFileList.Add(sDoorRow)
+         ' aggiungo titoli per tempi di produzione
+         sHeaderRow &= sStateName & ";" & sProgramSentName & ";" & sProgramStartName & ";" & sProgramEndName
+         sHeaderRow.TrimEnd(";"c)
+         sCSVFileList.Add(sHeaderRow)
+         For Each Door In CSVDoorList
+            Dim DDFNameParameter As CustomerParameter = Door.CustomerParameters.FirstOrDefault(Function(x) x.sHeader = sDDFName)
+            If Not IsNothing(DDFNameParameter) Then
+               DDFNameParameter.SetValue(Door.sDDFName)
+            End If
+            Dim HeightNameParameter As CustomerParameter = Door.CustomerParameters.FirstOrDefault(Function(x) x.sHeader = sHeightName)
+            If Not IsNothing(HeightNameParameter) Then
+               HeightNameParameter.SetValue(DoubleToString(Door.dHeight, 2))
+            End If
+            Dim WidthNameParameter As CustomerParameter = Door.CustomerParameters.FirstOrDefault(Function(x) x.sHeader = sWidthName)
+            If Not IsNothing(WidthNameParameter) Then
+               WidthNameParameter.SetValue(DoubleToString(Door.dWidth, 2))
+            End If
+            Dim ThicknessNameParameter As CustomerParameter = Door.CustomerParameters.FirstOrDefault(Function(x) x.sHeader = sThicknessName)
+            If Not IsNothing(ThicknessNameParameter) Then
+               ThicknessNameParameter.SetValue(DoubleToString(Door.dThickness, 2))
+            End If
+            Dim SwingNameParameter As CustomerParameter = Door.CustomerParameters.FirstOrDefault(Function(x) x.sHeader = sSwingName)
+            If Not IsNothing(SwingNameParameter) Then
+               SwingNameParameter.SetValue(If(Door.nSwing = SWINGTYPE.LEFT, "S", "D"))
+            End If
+
+            Dim sDoorRow As String = ""
+            For Each Parameter In Door.CustomerParameters
+               ' evito di scrivere la quantita'
+               If Parameter.sHeader <> sQuantityName Then
+                  sDoorRow &= Parameter.sValue & ";"
+               End If
+            Next
+            ' aggiungo valori per tempi di produzione
+            Dim sState As String = ""
+            If Door.nState < DoorStates.MACHINE_1_START Then
+               sState = "DaProdurre"
+            ElseIf Door.nState = DoorStates.MACHINE_1_START Then
+               sState = "InProduzione"
+            Else
+               sState = "Prodotto"
+            End If
+            sDoorRow &= sState & ";" & Door.sLoadTime & ";" & Door.sMachining1Start & ";" & Door.sMachining1End
+            sCSVFileList.Add(sDoorRow)
+         Next
+         Try
+            File.WriteAllLines(sCSVOutPath, sCSVFileList)
+            'MessageBox.Show("Csv salvato in " & m_sCSVOutDirPath, "Info", MessageBoxButton.OK, MessageBoxImage.Information)
+         Catch ex As Exception
+            MessageBox.Show("Creazione file csv fallita!" & Environment.NewLine & ex.Message, "Errore", MessageBoxButton.OK, MessageBoxImage.Error)
+         End Try
+
+
       Next
-      Try
-         File.WriteAllLines(sCSVOutPath, sCSVFileList)
-         MessageBox.Show("Csv salvato in " & sCSVOutPath, "Info", MessageBoxButton.OK, MessageBoxImage.Information)
-      Catch ex As Exception
-         MessageBox.Show("Creazione file csv fallita!", "Errore", MessageBoxButton.OK, MessageBoxImage.Error)
-      End Try
+
+
+
+
+      'Dim CSVDoorList As List(Of Door) = (From Door In m_DoorList
+      '                                    Where Door.sCSVName = m_SelDoor.sCSVName).ToList()
+      'sCSVOutPath &= "\" & m_SelDoor.sCSVName
+      'Dim sCSVFileList As New List(Of String)
+      'Dim sHeaderRow As String = ""
+      'For Each Parameter In m_SelDoor.CustomerParameters
+      '   ' evito di scrivere la quantita'
+      '   If Parameter.sHeader <> sQuantityName Then
+      '      sHeaderRow &= Parameter.sHeader & ";"
+      '   End If
+      'Next
+      'sHeaderRow.TrimEnd(";"c)
+      'sCSVFileList.Add(sHeaderRow)
+      'For Each Door In CSVDoorList
+      '   Dim DDFNameParameter As CustomerParameter = Door.CustomerParameters.FirstOrDefault(Function(x) x.sHeader = sDDFName)
+      '   If Not IsNothing(DDFNameParameter) Then
+      '      DDFNameParameter.SetValue(Door.sDDFName)
+      '   End If
+      '   Dim HeightNameParameter As CustomerParameter = Door.CustomerParameters.FirstOrDefault(Function(x) x.sHeader = sHeightName)
+      '   If Not IsNothing(HeightNameParameter) Then
+      '      HeightNameParameter.SetValue(DoubleToString(Door.dHeight, 2))
+      '   End If
+      '   Dim WidthNameParameter As CustomerParameter = Door.CustomerParameters.FirstOrDefault(Function(x) x.sHeader = sWidthName)
+      '   If Not IsNothing(WidthNameParameter) Then
+      '      WidthNameParameter.SetValue(DoubleToString(Door.dWidth, 2))
+      '   End If
+      '   Dim ThicknessNameParameter As CustomerParameter = Door.CustomerParameters.FirstOrDefault(Function(x) x.sHeader = sThicknessName)
+      '   If Not IsNothing(ThicknessNameParameter) Then
+      '      ThicknessNameParameter.SetValue(DoubleToString(Door.dThickness, 2))
+      '   End If
+      '   Dim SwingNameParameter As CustomerParameter = Door.CustomerParameters.FirstOrDefault(Function(x) x.sHeader = sSwingName)
+      '   If Not IsNothing(SwingNameParameter) Then
+      '      SwingNameParameter.SetValue(If(Door.nSwing = SWINGTYPE.LEFT, "S", "D"))
+      '   End If
+
+      '   Dim sDoorRow As String = ""
+      '   For Each Parameter In Door.CustomerParameters
+      '      ' evito di scrivere la quantita'
+      '      If Parameter.sHeader <> sQuantityName Then
+      '         sDoorRow &= Parameter.sValue & ";"
+      '      End If
+      '   Next
+      '   sCSVFileList.Add(sDoorRow)
+      'Next
+      'Try
+      '   File.WriteAllLines(sCSVOutPath, sCSVFileList)
+      '   MessageBox.Show("Csv salvato in " & sCSVOutPath, "Info", MessageBoxButton.OK, MessageBoxImage.Information)
+      'Catch ex As Exception
+      '   MessageBox.Show("Creazione file csv fallita!", "Errore", MessageBoxButton.OK, MessageBoxImage.Error)
+      'End Try
    End Sub
 
 #End Region ' SaveCSV
@@ -549,6 +692,25 @@ Public Class DoorListPageVM
 
 #End Region ' SkipDoor
 
+#Region "NotProduceDoor"
+
+   Public ReadOnly Property NotProduceDoor_Command As ICommand
+      Get
+         If m_cmdNotProduceDoor Is Nothing Then
+            m_cmdNotProduceDoor = New Command(AddressOf NotProduceDoor)
+         End If
+         Return m_cmdNotProduceDoor
+      End Get
+   End Property
+
+   Public Sub NotProduceDoor()
+      If IsNothing(SelDoor) OrElse (SelDoor.nState <> Door.DoorStates.VERIFIED AndAlso SelDoor.nState <> Door.DoorStates.NOTPRODUCE) Then Return
+      SelDoor.SetState(If(SelDoor.nState = Door.DoorStates.VERIFIED, Door.DoorStates.NOTPRODUCE, Door.DoorStates.VERIFIED))
+      WriteBackup()
+   End Sub
+
+#End Region ' SkipDoor
+
 #Region "AddDoor"
 
    Public ReadOnly Property AddDoor_Command As ICommand
@@ -562,11 +724,65 @@ Public Class DoorListPageVM
 
    Public Sub AddDoor()
       Dim nId As Integer = NewDoorId()
-      m_DoorList.Add(New Door(nId, 0, "", m_ManualAddedDoorName, 1, 0, 0, 0, {}, {}))
+      m_DoorList.Add(New Door(nId, 0, "", m_ManualAddedDoorName, 1, 0, 0, 0, SWINGTYPE.RIGHT, {}, {}))
    End Sub
 
 #End Region ' AddDoor
 
+#Region "CopyDoor"
+
+   Public ReadOnly Property CopyDoor_Command As ICommand
+      Get
+         If m_cmdCopyDoor Is Nothing Then
+            m_cmdCopyDoor = New Command(AddressOf CopyDoorCmd)
+         End If
+         Return m_cmdCopyDoor
+      End Get
+   End Property
+
+   Public Sub CopyDoorCmd()
+      If IsNothing(SelDoor) Then
+         MessageBox.Show("Nessuna porta selezionata!" & Environment.NewLine & "Selezionare la porta da copiare", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+         Return
+      End If
+      CopyDoor()
+   End Sub
+
+   Public Sub CopyDoor()
+      Dim nId As Integer = NewDoorId()
+      m_DoorList.Add(SelDoor.Copy(nId))
+   End Sub
+
+#End Region ' CopyDoor
+
+#Region "MultipleCopyDoor"
+
+   Public ReadOnly Property MultipleCopyDoor_Command As ICommand
+      Get
+         If m_cmdMultipleCopyDoor Is Nothing Then
+            m_cmdMultipleCopyDoor = New Command(AddressOf MultipleCopyDoor)
+         End If
+         Return m_cmdMultipleCopyDoor
+      End Get
+   End Property
+
+   Public Sub MultipleCopyDoor()
+      If IsNothing(SelDoor) Then
+         MessageBox.Show("Nessuna porta selezionata!" & Environment.NewLine & "Selezionare la porta da copiare", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+         Return
+      End If
+      ' apro finestra quanitita'
+      Dim MultipleCopyWndVM As New MultipleCopyWndVM
+      Dim MultipleCopyWnd As New MultipleCopyWndV(Application.Current.MainWindow, MultipleCopyWndVM)
+      If MultipleCopyWnd.ShowDialog() Then
+         For Index = 1 To MultipleCopyWndVM.nCopyNumber
+            CopyDoor()
+         Next
+      End If
+   End Sub
+
+#End Region ' MultipleCopyDoor
+
 #Region "MoveUp"
 
    Public ReadOnly Property MoveUp_Command As ICommand
@@ -622,12 +838,12 @@ Public Class DoorListPageVM
    End Property
 
    Public Sub Delete()
-      If IsNothing(SelDoor) Then Return
+      If m_DoorList.Count = 0 OrElse IsNothing(SelDoor) OrElse String.Compare(SelDoor.sCSVName, m_ManualAddedDoorName, True) <> 0 Then Return
       Dim bReset As Boolean = True
       If Not LuaGetGlobVar("bReset", bReset) OrElse Not bReset Then
          If (SelDoor.nState >= Door.DoorStates.READY_FOR_PRODUCTION AndAlso SelDoor.nState < Door.DoorStates.MACHINE_1_END) Then Return
       End If
-      If MessageBox.Show("Are you sure you want to delete the selected door?", "Info", MessageBoxButton.YesNo, MessageBoxImage.Information) = MessageBoxResult.Yes Then
+      If MessageBox.Show("Sei sicuro di voler cancellare la porta selezionata?", "Avviso", MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.Yes Then
          m_DoorList.Remove(SelDoor)
          WriteBackup()
       End If
@@ -647,12 +863,27 @@ Public Class DoorListPageVM
    End Property
 
    Public Sub DeleteAll()
-      If m_DoorList.Count = 0 Then Return
-      If MessageBox.Show("Are you sure you want to delete all the doors?", "Info", MessageBoxButton.YesNo, MessageBoxImage.Information) = MessageBoxResult.Yes Then
-         For nDoorIndex = m_DoorList.Count - 1 To 0 Step -1
-            Dim Door As Door = m_DoorList(nDoorIndex)
-            If Door.nState >= Door.DoorStates.READY_FOR_PRODUCTION AndAlso Door.nState < Door.DoorStates.MACHINE_1_END Then Continue For
-            m_DoorList.Remove(Door)
+      If m_DoorList.Count = 0 OrElse IsNothing(SelDoor) OrElse String.Compare(SelDoor.sCSVName, m_ManualAddedDoorName, True) = 0 Then Return
+      Dim sSelCSVName As String = SelDoor.sCSVName
+      ' verifico che tutte le porte del csv siano in stato prodotto o da non produrre
+      Dim bAllProduced As Boolean = True
+      For Each CsvDoor In m_DoorList
+         If String.Compare(sSelCSVName, CsvDoor.sCSVName, True) = 0 Then
+            If CsvDoor.nState <> DoorStates.MACHINE_1_END AndAlso CsvDoor.nState <> DoorStates.PRODUCED AndAlso CsvDoor.nState <> DoorStates.NOTPRODUCE Then
+               bAllProduced = False
+            End If
+         End If
+      Next
+      If Not bAllProduced Then
+         MessageBox.Show("Impossibile cancellare il CSV selezionato!" & Environment.NewLine & "Per poterlo cancellare tutte le righe devono essere in stato Prodotto o NonProdurre", "Avviso", MessageBoxButton.OK, MessageBoxImage.Warning)
+         Return
+      End If
+      If MessageBox.Show("Sei sicuro di voler cancellare tutte le porte di questo csv?", "Avviso", MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.Yes Then
+         For CsvDoorIndex = m_DoorList.Count - 1 To 0 Step -1
+            Dim CsvDoor As Door = m_DoorList(CsvDoorIndex)
+            If String.Compare(sSelCSVName, CsvDoor.sCSVName, True) = 0 Then
+               m_DoorList.Remove(CsvDoor)
+            End If
          Next
          WriteBackup()
       End If
@@ -749,6 +980,7 @@ Public Class DoorListPageVM
    End Property
 
    Public Sub Verify()
+
       Dim sCamExePath As String = ""
       GetPluginPrivateProfileString(S_GENERAL, "CAMExePath", "", sCamExePath)
       Dim sMainLuaPath As String = ""
@@ -763,16 +995,23 @@ Public Class DoorListPageVM
       End If
       Dim sGenDDFDirPath As String = ""
       GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGenDDFDirPath)
+      Dim sErrMessage As String = ""
       For Each Door In m_DoorList
          If Door.nState = Door.DoorStates.LOADED_FROM_CSV Or Door.nState = Door.DoorStates.VERIFICATION_FAILED Then
-            Dim sGenDDFFilePath As String = sGenDDFDirPath & "\" & If(Not String.IsNullOrWhiteSpace(Path.GetDirectoryName(Door.sDDFName)), Path.GetDirectoryName(Door.sDDFName) & "_", "") & Path.GetFileNameWithoutExtension(Door.sDDFName) & "_" & Door.nId & ".ddf"
-            m_ExecProcessManager.ArgumentsEnqueue(New ProcessArgs(Door.nId, sGenDDFFilePath))
+            ' creo file ddf
+            If CreateGenDdfFile(Door.nId, Door.sDDFName, Door.dWidth, Door.dHeight, Door.dThickness, Door.nSwing, sErrMessage) Then
+               Dim sGenDDFFilePath As String = sGenDDFDirPath & "\" & If(Not String.IsNullOrWhiteSpace(Path.GetDirectoryName(Door.sDDFName)), Path.GetDirectoryName(Door.sDDFName) & "_", "") & Path.GetFileNameWithoutExtension(Door.sDDFName) & "_" & Door.nId & ".ddf"
+               m_ExecProcessManager.ArgumentsEnqueue(New ProcessArgs(Door.nId, sGenDDFFilePath))
+            End If
          End If
       Next
       If bStartExecProcessManager OrElse m_ExecProcessManager.ExecutionThreadStatus = ExecProcessManager.ExecutionThreadStatuses.STOPPED Then
          m_ExecProcessManager.StartExecutionThread()
          SetExecButtonIsEnabled(False)
       End If
+      If Not String.IsNullOrWhiteSpace(sErrMessage) Then
+         MessageBox.Show("Impossible creating Ddf files for this doors:" & sErrMessage, "Error", MessageBoxButton.OK, MessageBoxImage.Error)
+      End If
       WriteBackup()
    End Sub
 
@@ -785,6 +1024,11 @@ End Class
 Public Class Door
    Inherits VMBase
 
+   Public Enum SWINGTYPE As Integer
+      RIGHT = 1
+      LEFT = 2
+   End Enum
+
    Private Shared m_refWriteBackup As Action
 
    Public Enum DoorStates As Integer
@@ -793,6 +1037,7 @@ Public Class Door
       VERIFIED = 10
       VERIFICATION_FAILED = 11
       SKIPPED = 20
+      NOTPRODUCE = 21
       READY_FOR_PRODUCTION = 30
       ON_LOAD_STATION = 31
       MACHINE_1_START = 33
@@ -851,40 +1096,55 @@ Public Class Door
                Return
             End If
             Me.m_sDDFName = value
-            ' copio il ddf nella cartella dei ddf
-            Dim sGenDDFFilePath As String = sGenDDFDirPath & "\" & If(Not String.IsNullOrWhiteSpace(Path.GetDirectoryName(m_sDDFName)), Path.GetDirectoryName(m_sDDFName) & "_", "") & Path.GetFileNameWithoutExtension(m_sDDFName) & "_" & Me.nId & ".ddf"
-            Dim bCopy As Boolean = False
-            Try
-               File.Copy(sDDFFilePath, sGenDDFFilePath, True)
-               bCopy = True
-            Catch ex As Exception
-               Map.refSupervisorFunction.PlgOutLog("Error: Copy file from " & sDDFFilePath & " to " & sGenDDFFilePath & " failed!")
-            End Try
-            If bCopy Then
-               ' riporto indietro stato a da verificare
-               Me.m_nState = DoorStates.LOADED_FROM_CSV
-               NotifyPropertyChanged(NameOf(nState))
-            Else
-               NotifyPropertyChanged(NameOf(sDDFName))
-               Return
-            End If
+            ' riporto indietro stato a da verificare
+            Me.m_nState = DoorStates.LOADED_FROM_CSV
+            NotifyPropertyChanged(NameOf(nState))
+
+            '' copio il ddf nella cartella dei ddf
+            'Dim sGenDDFFilePath As String = sGenDDFDirPath & "\" & If(Not String.IsNullOrWhiteSpace(Path.GetDirectoryName(m_sDDFName)), Path.GetDirectoryName(m_sDDFName) & "_", "") & Path.GetFileNameWithoutExtension(m_sDDFName) & "_" & Me.nId & ".ddf"
+            'Dim bCopy As Boolean = False
+            'Try
+            '   File.Copy(sDDFFilePath, sGenDDFFilePath, True)
+            '   bCopy = True
+            'Catch ex As Exception
+            '   Map.refSupervisorFunction.PlgOutLog("Error: Copy file from " & sDDFFilePath & " to " & sGenDDFFilePath & " failed!")
+            'End Try
+            'If bCopy Then
+            '   ' riporto indietro stato a da verificare
+            '   Me.m_nState = DoorStates.LOADED_FROM_CSV
+            '   NotifyPropertyChanged(NameOf(nState))
+            'Else
+            '   NotifyPropertyChanged(NameOf(sDDFName))
+            '   Return
+            'End If
          ElseIf sExtension.ToLower() = ".ddt" Then
-            If m_dWidth = 0 OrElse m_dHeight = 0 OrElse m_dThickness = 0 Then
-               m_sDDFName = value
-               ' riporto indietro stato a da verificare
-               Me.m_nState = DoorStates.LOADED_FROM_CSV
-               NotifyPropertyChanged(NameOf(nState))
-               Return
-               ' se file generato
-            ElseIf CreateDdfFromDdt(m_nId, value, m_dWidth, m_dHeight, m_dThickness) Then
-               Me.m_sDDFName = value
-               ' riporto indietro stato a da verificare
-               Me.m_nState = DoorStates.LOADED_FROM_CSV
-               NotifyPropertyChanged(NameOf(nState))
-            Else
+            Dim sDDTFilePath As String = sDDTDirPath & "\" & value
+            If Not File.Exists(sDDTFilePath) Then
+               MessageBox.Show("Il nome inserito non corrisponde a nessun file nella cartella dei Ddt (" & sDDTDirPath & ") ", "File non trovato!", MessageBoxButton.OK, MessageBoxImage.Error)
                NotifyPropertyChanged(NameOf(sDDFName))
                Return
             End If
+            m_sDDFName = value
+            ' riporto indietro stato a da verificare
+            Me.m_nState = DoorStates.LOADED_FROM_CSV
+            NotifyPropertyChanged(NameOf(nState))
+            Return
+            'If m_dWidth = 0 OrElse m_dHeight = 0 OrElse m_dThickness = 0 Then
+            '   m_sDDFName = value
+            '   ' riporto indietro stato a da verificare
+            '   Me.m_nState = DoorStates.LOADED_FROM_CSV
+            '   NotifyPropertyChanged(NameOf(nState))
+            '   Return
+            '   ' se file generato
+            'ElseIf CreateDdfFromDdt(m_nId, value, m_dWidth, m_dHeight, m_dThickness) Then
+            '   Me.m_sDDFName = value
+            '   ' riporto indietro stato a da verificare
+            '   Me.m_nState = DoorStates.LOADED_FROM_CSV
+            '   NotifyPropertyChanged(NameOf(nState))
+            'Else
+            '   NotifyPropertyChanged(NameOf(sDDFName))
+            '   Return
+            'End If
          Else
             MessageBox.Show("Estensione del file non riconosciuta!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
             NotifyPropertyChanged(NameOf(sDDFName))
@@ -915,31 +1175,35 @@ Public Class Door
          ' verifico se file ddf o ddt
          Dim sExtension As String = Path.GetExtension(m_sDDFName)
          If String.IsNullOrWhiteSpace(sExtension) Then
-            m_dWidth = dValue
+            Me.m_dWidth = dValue
             ' riporto indietro stato a da verificare
             Me.m_nState = DoorStates.LOADED_FROM_CSV
             NotifyPropertyChanged(NameOf(nState))
             Return
          ElseIf sExtension.ToLower() = ".ddf" Then
             MessageBox.Show("ATTENZIONE! Questa modifica non cambia realmente le dimensioni della porta perchè è selezionato un file ddf!", "Attenzione!", MessageBoxButton.OK, MessageBoxImage.Warning)
-            m_dWidth = dValue
+            Me.m_dWidth = dValue
             Return
          ElseIf sExtension.ToLower() = ".ddt" Then
-            If String.IsNullOrWhiteSpace(m_sDDFName) OrElse m_dHeight = 0 OrElse m_dThickness = 0 Then
-               m_dWidth = dValue
-               ' riporto indietro stato a da verificare
-               Me.m_nState = DoorStates.LOADED_FROM_CSV
-               NotifyPropertyChanged(NameOf(nState))
-               Return
-            ElseIf CreateDdfFromDdt(m_nId, m_sDDFName, dValue, m_dHeight, m_dThickness) Then
-               m_dWidth = dValue
-               ' riporto indietro stato a da verificare
-               Me.m_nState = DoorStates.LOADED_FROM_CSV
-               NotifyPropertyChanged(NameOf(nState))
-            Else
-               NotifyPropertyChanged(NameOf(dWidth))
-               Return
-            End If
+            Me.m_dWidth = dValue
+            ' riporto indietro stato a da verificare
+            Me.m_nState = DoorStates.LOADED_FROM_CSV
+            NotifyPropertyChanged(NameOf(nState))
+            'If String.IsNullOrWhiteSpace(m_sDDFName) OrElse m_dHeight = 0 OrElse m_dThickness = 0 Then
+            '   m_dWidth = dValue
+            '   ' riporto indietro stato a da verificare
+            '   Me.m_nState = DoorStates.LOADED_FROM_CSV
+            '   NotifyPropertyChanged(NameOf(nState))
+            '   Return
+            'ElseIf CreateDdfFromDdt(m_nId, m_sDDFName, dValue, m_dHeight, m_dThickness) Then
+            '   m_dWidth = dValue
+            '   ' riporto indietro stato a da verificare
+            '   Me.m_nState = DoorStates.LOADED_FROM_CSV
+            '   NotifyPropertyChanged(NameOf(nState))
+            'Else
+            '   NotifyPropertyChanged(NameOf(dWidth))
+            '   Return
+            'End If
          End If
       End Set
    End Property
@@ -959,30 +1223,35 @@ Public Class Door
          ' verifico se file ddf o ddt
          Dim sExtension As String = Path.GetExtension(m_sDDFName)
          If String.IsNullOrWhiteSpace(sExtension) Then
-            m_dHeight = dValue
+            Me.m_dHeight = dValue
             ' riporto indietro stato a da verificare
             Me.m_nState = DoorStates.LOADED_FROM_CSV
             NotifyPropertyChanged(NameOf(nState))
             Return
          ElseIf sExtension.ToLower() = ".ddf" Then
-            m_dHeight = dValue
+            MessageBox.Show("ATTENZIONE! Questa modifica non cambia realmente le dimensioni della porta perchè è selezionato un file ddf!", "Attenzione!", MessageBoxButton.OK, MessageBoxImage.Warning)
+            Me.m_dHeight = dValue
             Return
          ElseIf sExtension.ToLower() = ".ddt" Then
-            If String.IsNullOrWhiteSpace(m_sDDFName) OrElse m_dWidth = 0 OrElse m_dThickness = 0 Then
-               m_dHeight = dValue
-               ' riporto indietro stato a da verificare
-               Me.m_nState = DoorStates.LOADED_FROM_CSV
-               NotifyPropertyChanged(NameOf(nState))
-               Return
-            ElseIf CreateDdfFromDdt(m_nId, m_sDDFName, m_dWidth, dValue, m_dThickness) Then
-               m_dHeight = dValue
-               ' riporto indietro stato a da verificare
-               Me.m_nState = DoorStates.LOADED_FROM_CSV
-               NotifyPropertyChanged(NameOf(nState))
-            Else
-               NotifyPropertyChanged(NameOf(dHeight))
-               Return
-            End If
+            Me.m_dHeight = dValue
+            ' riporto indietro stato a da verificare
+            Me.m_nState = DoorStates.LOADED_FROM_CSV
+            NotifyPropertyChanged(NameOf(nState))
+            'If String.IsNullOrWhiteSpace(m_sDDFName) OrElse m_dWidth = 0 OrElse m_dThickness = 0 Then
+            '   m_dHeight = dValue
+            '   ' riporto indietro stato a da verificare
+            '   Me.m_nState = DoorStates.LOADED_FROM_CSV
+            '   NotifyPropertyChanged(NameOf(nState))
+            '   Return
+            'ElseIf CreateDdfFromDdt(m_nId, m_sDDFName, m_dWidth, dValue, m_dThickness) Then
+            '   m_dHeight = dValue
+            '   ' riporto indietro stato a da verificare
+            '   Me.m_nState = DoorStates.LOADED_FROM_CSV
+            '   NotifyPropertyChanged(NameOf(nState))
+            'Else
+            '   NotifyPropertyChanged(NameOf(dHeight))
+            '   Return
+            'End If
          End If
       End Set
    End Property
@@ -1002,30 +1271,89 @@ Public Class Door
          ' verifico se file ddf o ddt
          Dim sExtension As String = Path.GetExtension(m_sDDFName)
          If String.IsNullOrWhiteSpace(sExtension) Then
-            m_dThickness = dValue
+            Me.m_dThickness = dValue
             ' riporto indietro stato a da verificare
             Me.m_nState = DoorStates.LOADED_FROM_CSV
             NotifyPropertyChanged(NameOf(nState))
             Return
          ElseIf sExtension.ToLower() = ".ddf" Then
-            m_dThickness = dValue
+            MessageBox.Show("ATTENZIONE! Questa modifica non cambia realmente le dimensioni della porta perchè è selezionato un file ddf!", "Attenzione!", MessageBoxButton.OK, MessageBoxImage.Warning)
+            Me.m_dThickness = dValue
             Return
          ElseIf sExtension.ToLower() = ".ddt" Then
-            If String.IsNullOrWhiteSpace(m_sDDFName) OrElse m_dWidth = 0 OrElse m_dHeight = 0 Then
-               m_dThickness = dValue
-               ' riporto indietro stato a da verificare
-               Me.m_nState = DoorStates.LOADED_FROM_CSV
-               NotifyPropertyChanged(NameOf(nState))
-               Return
-            ElseIf CreateDdfFromDdt(m_nId, m_sDDFName, m_dWidth, m_dHeight, dValue) Then
-               m_dThickness = dValue
-               ' riporto indietro stato a da verificare
-               Me.m_nState = DoorStates.LOADED_FROM_CSV
-               NotifyPropertyChanged(NameOf(nState))
-            Else
-               NotifyPropertyChanged(NameOf(dThickness))
-               Return
-            End If
+            Me.m_dThickness = dValue
+            ' riporto indietro stato a da verificare
+            Me.m_nState = DoorStates.LOADED_FROM_CSV
+            NotifyPropertyChanged(NameOf(nState))
+            'If String.IsNullOrWhiteSpace(m_sDDFName) OrElse m_dWidth = 0 OrElse m_dHeight = 0 Then
+            '   m_dThickness = dValue
+            '   ' riporto indietro stato a da verificare
+            '   Me.m_nState = DoorStates.LOADED_FROM_CSV
+            '   NotifyPropertyChanged(NameOf(nState))
+            '   Return
+            'ElseIf CreateDdfFromDdt(m_nId, m_sDDFName, m_dWidth, m_dHeight, dValue) Then
+            '   m_dThickness = dValue
+            '   ' riporto indietro stato a da verificare
+            '   Me.m_nState = DoorStates.LOADED_FROM_CSV
+            '   NotifyPropertyChanged(NameOf(nState))
+            'Else
+            '   NotifyPropertyChanged(NameOf(dThickness))
+            '   Return
+            'End If
+         End If
+      End Set
+   End Property
+
+   Private m_SwingList As New List(Of IdNameStruct)({New IdNameStruct(SWINGTYPE.RIGHT, "Destra"), New IdNameStruct(SWINGTYPE.LEFT, "Sinistra")})
+   Public ReadOnly Property SwingList As List(Of IdNameStruct)
+      Get
+         Return m_SwingList
+      End Get
+   End Property
+
+   Private m_nSwing As Integer
+   Public ReadOnly Property nSwing As Integer
+      Get
+         Return m_nSwing
+      End Get
+   End Property
+   Public Property SelSwing As IdNameStruct
+      Get
+         Return m_SwingList.FirstOrDefault(Function(x) x.Id = m_nSwing)
+      End Get
+      Set(value As IdNameStruct)
+         ' verifico se file ddf o ddt
+         Dim sExtension As String = Path.GetExtension(m_sDDFName)
+         If String.IsNullOrWhiteSpace(sExtension) Then
+            Me.m_nSwing = value.Id
+            ' riporto indietro stato a da verificare
+            Me.m_nState = DoorStates.LOADED_FROM_CSV
+            NotifyPropertyChanged(NameOf(nState))
+            Return
+         ElseIf sExtension.ToLower() = ".ddf" Then
+            MessageBox.Show("ATTENZIONE! Questa modifica non cambia realmente lo swing della porta perchè è selezionato un file ddf!", "Attenzione!", MessageBoxButton.OK, MessageBoxImage.Warning)
+            Me.m_nSwing = value.Id
+            Return
+         ElseIf sExtension.ToLower() = ".ddt" Then
+            Me.m_nSwing = value.Id
+            ' riporto indietro stato a da verificare
+            Me.m_nState = DoorStates.LOADED_FROM_CSV
+            NotifyPropertyChanged(NameOf(nState))
+            'If String.IsNullOrWhiteSpace(m_sDDFName) OrElse m_dWidth = 0 OrElse m_dHeight = 0 Then
+            '   m_dThickness = dValue
+            '   ' riporto indietro stato a da verificare
+            '   Me.m_nState = DoorStates.LOADED_FROM_CSV
+            '   NotifyPropertyChanged(NameOf(nState))
+            '   Return
+            'ElseIf CreateDdfFromDdt(m_nId, m_sDDFName, m_dWidth, m_dHeight, dValue) Then
+            '   m_dThickness = dValue
+            '   ' riporto indietro stato a da verificare
+            '   Me.m_nState = DoorStates.LOADED_FROM_CSV
+            '   NotifyPropertyChanged(NameOf(nState))
+            'Else
+            '   NotifyPropertyChanged(NameOf(dThickness))
+            '   Return
+            'End If
          End If
       End Set
    End Property
@@ -1187,24 +1515,27 @@ Public Class Door
          Select Case m_nState
             Case DoorStates.LOADED_FROM_CSV
                Return Brushes.White
+            Case DoorStates.VERIFIED
+               Return Dictionary.Effector_Green_Status
             Case DoorStates.VERIFICATION_FAILED
-               Return Brushes.Red
-            Case DoorStates.SKIPPED
-               Return Brushes.Orange
-            Case DoorStates.READY_FOR_PRODUCTION
-               Return Brushes.LightSkyBlue
+               Return Dictionary.Effector_Red_Status
+            Case DoorStates.SKIPPED, DoorStates.NOTPRODUCE
+               Return Dictionary.Effector_Yellow_Status
+            Case DoorStates.READY_FOR_PRODUCTION, DoorStates.ON_LOAD_STATION
+               Return Dictionary.Effector_LightBlue_Status
             Case DoorStates.MACHINE_1_START
-               Return Brushes.DodgerBlue
+               Return Dictionary.Effector_Blue_Status
             Case DoorStates.MACHINE_1_END, DoorStates.PRODUCED
-               Return Brushes.LightGray
-            Case Else         ' ItemState.Scrapped
+               Return Dictionary.Effector_Gray_Status
+            Case Else
                Return Brushes.White
          End Select
       End Get
    End Property
 
+#Region "CONSTRUCTOR"
 
-   Sub New(nId As Integer, nCSVLine As Integer, sDDFName As String, sCSVName As String, nQuantity As Integer, dWidth As Double, dHeight As Double, dThickness As Double, HeaderList As String(), ValueList As String())
+   Sub New(nId As Integer, nCSVLine As Integer, sDDFName As String, sCSVName As String, nQuantity As Integer, dWidth As Double, dHeight As Double, dThickness As Double, nSwing As Integer, HeaderList As String(), ValueList As String())
       m_nId = nId
       m_nCSVLine = nCSVLine
       m_sDDFName = sDDFName
@@ -1213,6 +1544,7 @@ Public Class Door
       m_dHeight = dHeight
       m_dWidth = dWidth
       m_dThickness = dThickness
+      m_nSwing = nSwing
       If Not IsNothing(HeaderList) AndAlso HeaderList.Count > 0 AndAlso Not IsNothing(ValueList) AndAlso ValueList.Count > 0 Then
          For nParamIndex = 0 To Math.Max(HeaderList.Count, ValueList.Count) - 1
             m_CustomerParameters.Add(New CustomerParameter(If(HeaderList.Count > nParamIndex, HeaderList(nParamIndex), ""), If(ValueList.Count > nParamIndex, ValueList(nParamIndex), "")))
@@ -1220,6 +1552,19 @@ Public Class Door
       End If
    End Sub
 
+   Sub New(nId As Integer, nCSVLine As Integer, sDDFName As String, sCSVName As String, nQuantity As Integer, dWidth As Double, dHeight As Double, dThickness As Double, nSwing As Integer, CustomerParameters As List(Of CustomerParameter))
+      m_nId = nId
+      m_nCSVLine = nCSVLine
+      m_sDDFName = sDDFName
+      m_sCSVName = sCSVName
+      m_nQuantity = nQuantity
+      m_dHeight = dHeight
+      m_dWidth = dWidth
+      m_dThickness = dThickness
+      m_nSwing = nSwing
+      m_CustomerParameters = CustomerParameters
+   End Sub
+
    Sub New(JsonDoor As JsonDoor)
       m_nId = JsonDoor.nId
       m_nCSVLine = JsonDoor.nCSVLine
@@ -1229,6 +1574,7 @@ Public Class Door
       m_dHeight = JsonDoor.dHeight
       m_dWidth = JsonDoor.dWidth
       m_dThickness = JsonDoor.dThickness
+      m_nSwing = JsonDoor.nSwing
       m_nState = JsonDoor.nState
       m_CustomerParameters = JsonDoor.CustomerParameters
       m_nProdState = JsonDoor.nProdState
@@ -1240,7 +1586,15 @@ Public Class Door
       m_dtUnloadTime = JsonDoor.dtUnloadTime
    End Sub
 
-   Friend Shared Function CreateDdfFromDdt(nId As Integer, sDDFName As String, dWidth As Double, dHeight As Double, dThickness As Double) As Boolean
+#End Region    ' CONSTRUCTOR
+
+#Region "METHODS"
+
+   Friend Function Copy(nId As Integer) As Door
+      Return New Door(nId, m_nCSVLine, m_sDDFName, m_sCSVName, m_nQuantity, m_dWidth, m_dHeight, m_dThickness, m_nSwing, m_CustomerParameters)
+   End Function
+
+   Friend Shared Function CreateDdfFromDdt(nId As Integer, sDDFName As String, dWidth As Double, dHeight As Double, dThickness As Double, nSwing As Integer) As Boolean
       Dim sDoorCreatorExePath As String = ""
       GetPluginPrivateProfileString(S_GENERAL, K_DOORCREATOREXEPATH, "", sDoorCreatorExePath)
       Dim sDDTDirPath As String = ""
@@ -1261,7 +1615,7 @@ Public Class Door
       Proc.StartInfo.FileName = """" & sDoorCreatorExePath & """"
       Proc.StartInfo.RedirectStandardInput = False
       Proc.StartInfo.RedirectStandardOutput = False
-      Proc.StartInfo.Arguments = """" & sDDTFilePath & ";" & DoubleToString(dWidth, 2) & ";" & DoubleToString(dHeight, 2) & ";" & DoubleToString(dThickness, 2) & ";" & sGenDDFFilePath & """"
+      Proc.StartInfo.Arguments = """" & sDDTFilePath & ";" & DoubleToString(dWidth, 2) & ";" & DoubleToString(dHeight, 2) & ";" & DoubleToString(dThickness, 2) & ";" & sGenDDFFilePath & ";" & If(nSwing = SWINGTYPE.LEFT, "L", "R") & """"
       Proc.StartInfo.UseShellExecute = False
       Proc.StartInfo.CreateNoWindow = True
       Dim ExecCounter = 0
@@ -1283,6 +1637,8 @@ Public Class Door
       Return True
    End Function
 
+#End Region    ' METHODS
+
 End Class
 
 Public Class CustomerParameter
@@ -1300,10 +1656,44 @@ Public Class CustomerParameter
          Return m_sValue
       End Get
    End Property
+   Friend Sub SetValue(value As String)
+      m_sValue = value
+   End Sub
 
    Sub New(sHeader As String, sValue As String)
       m_sHeader = sHeader
       m_sValue = sValue
    End Sub
 
+End Class
+
+Public Class StateToSelColorConverter
+   Implements IValueConverter
+
+   Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert
+      If Not TypeOf value Is DoorStates Then Return Brushes.Aqua
+      Select Case value
+         Case DoorStates.LOADED_FROM_CSV
+            Return Dictionary.Effector_White_SelStatus
+         Case DoorStates.VERIFIED
+            Return Dictionary.Effector_Green_SelStatus
+         Case DoorStates.VERIFICATION_FAILED
+            Return Dictionary.Effector_Red_SelStatus
+         Case DoorStates.SKIPPED, DoorStates.NOTPRODUCE
+            Return Dictionary.Effector_Yellow_SelStatus
+         Case DoorStates.READY_FOR_PRODUCTION, DoorStates.ON_LOAD_STATION
+            Return Dictionary.Effector_LightBlue_SelStatus
+         Case DoorStates.MACHINE_1_START
+            Return Dictionary.Effector_Blue_SelStatus
+         Case DoorStates.MACHINE_1_END, DoorStates.PRODUCED
+            Return Dictionary.Effector_Gray_SelStatus
+         Case Else
+            Return Dictionary.Effector_White_SelStatus
+      End Select
+   End Function
+
+   Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.ConvertBack
+      Throw New NotImplementedException()
+   End Function
+
 End Class
\ No newline at end of file
diff --git a/Effector.Plugin.DoorArreda/Effector.Plugin.DoorArreda.vbproj b/Effector.Plugin.DoorArreda/Effector.Plugin.DoorArreda.vbproj
index 622283e..7d62810 100644
--- a/Effector.Plugin.DoorArreda/Effector.Plugin.DoorArreda.vbproj
+++ b/Effector.Plugin.DoorArreda/Effector.Plugin.DoorArreda.vbproj
@@ -98,6 +98,10 @@
       <DependentUpon>DoorListPageV.xaml</DependentUpon>
     </Compile>
     <Compile Include="DoorListPage\DoorListPageVM.vb" />
+    <Compile Include="MultipleCopyWnd\MultipleCopyWndV.xaml.vb">
+      <DependentUpon>MultipleCopyWndV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="MultipleCopyWnd\MultipleCopyWndVM.vb" />
     <Compile Include="ProcessManager\ProcessManagerV.xaml.vb">
       <DependentUpon>ProcessManagerV.xaml</DependentUpon>
     </Compile>
@@ -160,12 +164,18 @@
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
     <None Include="packages.config" />
+    <Resource Include="Resources\Fonts\Roboto-Light.ttf" />
+    <Resource Include="Resources\Fonts\Roboto-Regular.ttf" />
   </ItemGroup>
   <ItemGroup>
     <Page Include="DoorListPage\DoorListPageV.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
+    <Page Include="MultipleCopyWnd\MultipleCopyWndV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="ProcessManager\ProcessManagerV.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
diff --git a/Effector.Plugin.DoorArreda/FiveLakesUI.xaml b/Effector.Plugin.DoorArreda/FiveLakesUI.xaml
index 279c60d..8c1c3a6 100644
--- a/Effector.Plugin.DoorArreda/FiveLakesUI.xaml
+++ b/Effector.Plugin.DoorArreda/FiveLakesUI.xaml
@@ -3,7 +3,8 @@
       xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
       xmlns:local="clr-namespace:Effector.Plugin.DoorArreda"
       DataContext="{StaticResource FiveLakesUIVM}">
-   <TabControl SelectedIndex="{Binding SelPage}">
+   <TabControl SelectedIndex="{Binding SelPage}"
+               Style="{StaticResource MainPage_Tabcontrol}">
       <TabControl.ItemContainerStyle>
          <Style TargetType="TabItem">
             <Setter Property="Visibility" Value="Collapsed" />
diff --git a/Effector.Plugin.DoorArreda/LUA/Lua_General.vb b/Effector.Plugin.DoorArreda/LUA/Lua_General.vb
index 6797ce5..c8b62a0 100644
--- a/Effector.Plugin.DoorArreda/LUA/Lua_General.vb
+++ b/Effector.Plugin.DoorArreda/LUA/Lua_General.vb
@@ -110,8 +110,17 @@ Public Module Lua_General
          ' restituisco il risultato
          LuaSetParam(state, NextDoor.nId)
          LuaSetParam(state, If(Not String.IsNullOrWhiteSpace(Path.GetDirectoryName(NextDoor.sDDFName)), Path.GetDirectoryName(NextDoor.sDDFName) & "_", "") & Path.GetFileNameWithoutExtension(NextDoor.sDDFName) & "_" & NextDoor.nId & ".ddf")
-         'LuaSetParam(state, Path.GetFileNameWithoutExtension(NextDoor.sDDFName) & "_" & NextDoor.nId & ".ddf")
-         Return 2
+         Dim sPhaseHeader As String = ""
+         GetPluginPrivateProfileString(S_CSV, K_PHASE, "", sPhaseHeader)
+         Dim PhaseParameter As CustomerParameter = NextDoor.CustomerParameters.FirstOrDefault(Function(x) x.sHeader = sPhaseHeader)
+         Dim nPhase As Integer = 0
+         If Not IsNothing(PhaseParameter) Then
+            If Not Integer.TryParse(PhaseParameter.sValue, nPhase) Then
+               nPhase = 0
+            End If
+         End If
+         LuaSetParam(state, nPhase)
+         Return 3
       End If
       Return 0
    End Function
diff --git a/Effector.Plugin.DoorArreda/MainMenu/MainMenuV.xaml b/Effector.Plugin.DoorArreda/MainMenu/MainMenuV.xaml
index e05fcab..6b33b73 100644
--- a/Effector.Plugin.DoorArreda/MainMenu/MainMenuV.xaml
+++ b/Effector.Plugin.DoorArreda/MainMenu/MainMenuV.xaml
@@ -14,16 +14,16 @@
       <ColumnDefinition Width="1*"/>
       <ColumnDefinition Width="1*"/>
    </Grid.ColumnDefinitions>
-   <RadioButton Content="Lista Porte"
+   <RadioButton Content="LISTA PORTE"
                 Command="{Binding Page_Command}"
                 CommandParameter="{StaticResource Door_List}"
                 IsChecked="True"
-                Style="{StaticResource {x:Type ToggleButton}}"/>
+                Style="{StaticResource MainMenu_ToggleButton}"/>
    <RadioButton Grid.Column="1"
-                Content="Machine Status"
+                Content="STATO MACCHINA"
                 Command="{Binding Page_Command}"
                 CommandParameter="{StaticResource Machine_State}"
-                Style="{StaticResource {x:Type ToggleButton}}"/>
+                Style="{StaticResource MainMenu_ToggleButton}"/>
    <!--<RadioButton Grid.Column="2"
                 Content="Statistics"
                 Command="{Binding Page_Command}"
diff --git a/Effector.Plugin.DoorArreda/MultipleCopyWnd/MultipleCopyWndV.xaml b/Effector.Plugin.DoorArreda/MultipleCopyWnd/MultipleCopyWndV.xaml
new file mode 100644
index 0000000..3d49378
--- /dev/null
+++ b/Effector.Plugin.DoorArreda/MultipleCopyWnd/MultipleCopyWndV.xaml
@@ -0,0 +1,25 @@
+<Window x:Class="MultipleCopyWndV"
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        Height="200"
+        Width="400">
+   <Grid>
+      <Grid.RowDefinitions>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
+      <Grid>
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="Auto"/>
+            <ColumnDefinition Width="1*"/>
+         </Grid.ColumnDefinitions>
+         <TextBlock Text="Numero di copie"/>
+         <TextBox Grid.Column="1"
+                  Text="{Binding sCopyNumber}"/>
+      </Grid>
+      <Button Grid.Row="1"
+              Content="Ok"
+              Command="{Binding Ok_Command}"/>
+   </Grid>
+
+</Window>
diff --git a/Effector.Plugin.DoorArreda/MultipleCopyWnd/MultipleCopyWndV.xaml.vb b/Effector.Plugin.DoorArreda/MultipleCopyWnd/MultipleCopyWndV.xaml.vb
new file mode 100644
index 0000000..4c4923d
--- /dev/null
+++ b/Effector.Plugin.DoorArreda/MultipleCopyWnd/MultipleCopyWndV.xaml.vb
@@ -0,0 +1,19 @@
+Public Class MultipleCopyWndV
+
+   Private WithEvents m_MultipleCopyWndVM As MultipleCopyWndVM
+
+   Sub New(Owner As Window, MultipleCopyWndVM As MultipleCopyWndVM)
+      'MyBase.New(Owner)
+      Me.Owner = Owner
+      ' This call is required by the designer.
+      InitializeComponent()
+      Me.DataContext = MultipleCopyWndVM
+      ' Assegno al riferimento locale al VM il VM preso dal DataContext
+      m_MultipleCopyWndVM = MultipleCopyWndVM
+   End Sub
+
+   Private Sub CloseWindow(bDialogResult As Boolean) Handles m_MultipleCopyWndVM.m_CloseWindow
+      Me.DialogResult = bDialogResult
+   End Sub
+
+End Class
diff --git a/Effector.Plugin.DoorArreda/MultipleCopyWnd/MultipleCopyWndVM.vb b/Effector.Plugin.DoorArreda/MultipleCopyWnd/MultipleCopyWndVM.vb
new file mode 100644
index 0000000..1b0e041
--- /dev/null
+++ b/Effector.Plugin.DoorArreda/MultipleCopyWnd/MultipleCopyWndVM.vb
@@ -0,0 +1,48 @@
+Public Class MultipleCopyWndVM
+   Inherits VMBase
+
+   Friend Event m_CloseWindow(bDialogResult As Boolean)
+
+   Private m_nCopyNumber As Integer
+   Public ReadOnly Property nCopyNumber As Integer
+      Get
+         Return m_nCopyNumber
+      End Get
+   End Property
+   Public Property sCopyNumber As String
+      Get
+         Return m_nCopyNumber.ToString()
+      End Get
+      Set(value As String)
+         If Not Integer.TryParse(value, m_nCopyNumber) Then
+            MessageBox.Show("Valore non impostabile come quantita' di porte!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+            NotifyPropertyChanged(sCopyNumber)
+         End If
+      End Set
+   End Property
+
+   ' Definizione comandi
+   Private m_cmdOk As ICommand
+
+#Region "COMMANDS"
+
+#Region "Ok"
+
+   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()
+      If m_nCopyNumber > 0 Then RaiseEvent m_CloseWindow(True)
+   End Sub
+
+#End Region ' Ok
+
+#End Region    ' COMMANDS
+
+End Class
diff --git a/Effector.Plugin.DoorArreda/Utility/Dictionary.xaml b/Effector.Plugin.DoorArreda/Utility/Dictionary.xaml
index 55e1037..8585859 100644
--- a/Effector.Plugin.DoorArreda/Utility/Dictionary.xaml
+++ b/Effector.Plugin.DoorArreda/Utility/Dictionary.xaml
@@ -2,8 +2,7 @@
                     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
                     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
                     xmlns:local="clr-namespace:Effector.Plugin.DoorArreda"
-                    xmlns:sys="clr-namespace:System;assembly=mscorlib"
->
+                    xmlns:sys="clr-namespace:System;assembly=mscorlib">
 
    <!-- 
    Assign a Key to every Panel ViewModel to use 
@@ -16,35 +15,91 @@
    <local:StatisticsPageVM x:Key="StatisticsPageVM"/>
 
    <!--Colori predefiniti-->
-   
-   <!--#92bde3-->
-   <Color x:Key="Effector_LightBlue_Color" R="146" G="189" B="227" A="255"/>
+
+   <!--#e8eef5-->
+   <Color x:Key="Effector_LightBlue_Color" R="232" G="238" B="245" A="255"/>
    <SolidColorBrush x:Key="Effector_LightBlue" Color="{StaticResource Effector_LightBlue_Color}" />
-   <!--#5682a6-->
-   <Color x:Key="Effector_Blue_Color" R="86" G="130" B="166" A="255"/>
+   <!--#afc5d6-->
+   <Color x:Key="Effector_Blue_Color" R="175" G="197" B="214" A="255"/>
    <SolidColorBrush x:Key="Effector_Blue" Color="{StaticResource Effector_Blue_Color}" />
+   <!--#749fc4-->
+   <Color x:Key="Effector_DarkBlue_Color" R="116" G="159" B="196" A="255"/>
+   <SolidColorBrush x:Key="Effector_DarkBlue" Color="{StaticResource Effector_DarkBlue_Color}" />
+
+
+   <!--#92bde3-->
+   <Color x:Key="Effector_LightBlue_Status_Color" R="146" G="189" B="227" A="255"/>
+   <SolidColorBrush x:Key="Effector_LightBlue_Status" Color="{StaticResource Effector_LightBlue_Status_Color}" />
+   <!--#5682a6-->
+   <Color x:Key="Effector_Blue_Status_Color" R="86" G="130" B="166" A="255"/>
+   <SolidColorBrush x:Key="Effector_Blue_Status" Color="{StaticResource Effector_Blue_Status_Color}" />
    <!--#cd5c5c-->
-   <Color x:Key="Effector_Red_Color" R="205" G="92" B="92" A="255"/>
-   <SolidColorBrush x:Key="Effector_Red" Color="{StaticResource Effector_Red_Color}" />
+   <Color x:Key="Effector_Red_Status_Color" R="205" G="92" B="92" A="255"/>
+   <SolidColorBrush x:Key="Effector_Red_Status" Color="{StaticResource Effector_Red_Status_Color}" />
    <!--#b1cbaa-->
-   <Color x:Key="Effector_Green_Color" R="177" G="203" B="170" A="255"/>
-   <SolidColorBrush x:Key="Effector_Green" Color="{StaticResource Effector_Green_Color}" />
+   <Color x:Key="Effector_Green_Status_Color" R="177" G="203" B="170" A="255"/>
+   <SolidColorBrush x:Key="Effector_Green_Status" Color="{StaticResource Effector_Green_Status_Color}" />
    <!--#9c9c9c-->
-   <Color x:Key="Effector_Gray_Color" R="156" G="156" B="156" A="255"/>
-   <SolidColorBrush x:Key="Effector_Gray" Color="{StaticResource Effector_Gray_Color}" />
+   <Color x:Key="Effector_Gray_Status_Color" R="156" G="156" B="156" A="255"/>
+   <SolidColorBrush x:Key="Effector_Gray_Status" Color="{StaticResource Effector_Gray_Status_Color}" />
    <!--#ffd932-->
-   <Color x:Key="Effector_Yellow_Color" R="255" G="217" B="50" A="255"/>
-   <SolidColorBrush x:Key="Effector_Yellow" Color="{StaticResource Effector_Yellow_Color}" />
+   <Color x:Key="Effector_Yellow_Status_Color" R="255" G="217" B="50" A="255"/>
+   <SolidColorBrush x:Key="Effector_Yellow_Status" Color="{StaticResource Effector_Yellow_Status_Color}" />
+
+   <!--#6398c7-->
+   <Color x:Key="Effector_LightBlue_SelStatus_Color" R="99" G="152" B="199" A="255"/>
+   <SolidColorBrush x:Key="Effector_LightBlue_SelStatus" Color="{StaticResource Effector_LightBlue_SelStatus_Color}" />
+   <!--#4b677e-->
+   <Color x:Key="Effector_Blue_SelStatus_Color" R="75" G="103" B="126" A="255"/>
+   <SolidColorBrush x:Key="Effector_Blue_SelStatus" Color="{StaticResource Effector_Blue_SelStatus_Color}" />
+   <!--#a94444-->
+   <Color x:Key="Effector_Red_SelStatus_Color" R="169" G="68" B="68" A="255"/>
+   <SolidColorBrush x:Key="Effector_Red_SelStatus" Color="{StaticResource Effector_Red_SelStatus_Color}" />
+   <!--#89aa81-->
+   <Color x:Key="Effector_Green_SelStatus_Color" R="137" G="170" B="129" A="255"/>
+   <SolidColorBrush x:Key="Effector_Green_SelStatus" Color="{StaticResource Effector_Green_SelStatus_Color}" />
+   <!--#7d7d7d-->
+   <Color x:Key="Effector_Gray_SelStatus_Color" R="125" G="125" B="125" A="255"/>
+   <SolidColorBrush x:Key="Effector_Gray_SelStatus" Color="{StaticResource Effector_Gray_SelStatus_Color}" />
+   <!--#dcb718-->
+   <Color x:Key="Effector_Yellow_SelStatus_Color" R="220" G="183" B="24" A="255"/>
+   <SolidColorBrush x:Key="Effector_Yellow_SelStatus" Color="{StaticResource Effector_Yellow_SelStatus_Color}" />
+   <!--#e5ebf1-->
+   <Color x:Key="Effector_White_SelStatus_Color" R="229" G="235" B="241" A="255"/>
+   <SolidColorBrush x:Key="Effector_White_SelStatus" Color="{StaticResource Effector_Yellow_SelStatus_Color}" />
+   
    <!--#BC373E--><!--
    <Color x:Key="Effector_Orange_Color" R="188" G="55" B="62" A="255"/>
-   <SolidColorBrush x:Key="Effector_Orange" Color="{StaticResource Effector_Orange_Color}" />
-   --><!--#A74C77--><!--
+   <SolidColorBrush x:Key="Effector_Orange" Color="{StaticResource Effector_Orange_Color}" />-->
+   <!--#A74C77--><!--
    <Color x:Key="Effector_Purple_Color" R="167" G="76" B="119" A="255"/>
    <SolidColorBrush x:Key="Effector_Purple" Color="{StaticResource Effector_Purple_Color}" />-->
 
    <!--Colori per EgtWPFLib5-->
    <SolidColorBrush x:Key="TextBox.Static.Border" Color="#FFABAdB3"/>
 
+   <!--Colori default dei controlli-->
+   <SolidColorBrush x:Key="Button.Static.Background" Color="#FFDDDDDD"/>
+   <SolidColorBrush x:Key="Button.Static.Border" Color="#FF707070"/>
+   <SolidColorBrush x:Key="Button.MouseOver.Background" Color="#FFBEE6FD"/>
+   <SolidColorBrush x:Key="Button.MouseOver.Border" Color="#FF3C7FB1"/>
+   <SolidColorBrush x:Key="Button.Pressed.Background" Color="#FFC4E5F6"/>
+   <SolidColorBrush x:Key="Button.Pressed.Border" Color="#FF2C628B"/>
+   <SolidColorBrush x:Key="Button.Disabled.Background" Color="#FFF4F4F4"/>
+   <SolidColorBrush x:Key="Button.Disabled.Border" Color="#FFADB2B5"/>
+   <SolidColorBrush x:Key="Button.Disabled.Foreground" Color="#FF838383"/>
+
+   <Style x:Key="FocusVisual">
+      <Setter Property="Control.Template">
+         <Setter.Value>
+            <ControlTemplate>
+               <Rectangle Margin="2" StrokeDashArray="1 2" Stroke="{DynamicResource {x:Static SystemColors.ControlTextBrushKey}}" SnapsToDevicePixels="true" StrokeThickness="1"/>
+            </ControlTemplate>
+         </Setter.Value>
+      </Setter>
+   </Style>
+
+
    <!--Risorsa che toglie le animazioni dai menù popup per evitare che i menù mru di scelta dei file rimangano aperti se il file è grosso -->
    <!--o viene eseguito un lua che non aggiorna l'interfaccia-->
    <PopupAnimation x:Key="{x:Static SystemParameters.MenuPopupAnimationKey}">None</PopupAnimation>
@@ -56,10 +111,100 @@
    <Thickness x:Key="WindowBorder_Thickness">2</Thickness>
    <sys:Double x:Key="WindowBorder_Height">2</sys:Double>
 
-   <!--ToggleButton-->
-   <Style x:Key="MainMenu_ToggleButton" TargetType="ToggleButton">
-      <Setter Property="FontFamily" Value="/Resources/Fonts/#Roboto"/>
+   <!--Button-->
+
+   <Style TargetType="{x:Type Button}">
+      <Setter Property="FocusVisualStyle" Value="{StaticResource FocusVisual}"/>
+      <Setter Property="Background" Value="{StaticResource Button.Static.Background}"/>
+      <Setter Property="BorderBrush" Value="{StaticResource Button.Static.Border}"/>
+      <Setter Property="Foreground" Value="{DynamicResource {x:Static SystemColors.ControlTextBrushKey}}"/>
+      <Setter Property="BorderThickness" Value="1"/>
+      <Setter Property="HorizontalContentAlignment" Value="Center"/>
+      <Setter Property="VerticalContentAlignment" Value="Center"/>
+      <Setter Property="Padding" Value="1"/>
+      <Setter Property="Template">
+         <Setter.Value>
+            <ControlTemplate TargetType="{x:Type Button}">
+               <Border x:Name="border" Background="{TemplateBinding Background}" BorderBrush="{TemplateBinding BorderBrush}" BorderThickness="{TemplateBinding BorderThickness}" SnapsToDevicePixels="true">
+                  <ContentPresenter x:Name="contentPresenter" Focusable="False" HorizontalAlignment="{TemplateBinding HorizontalContentAlignment}" Margin="{TemplateBinding Padding}" RecognizesAccessKey="True" SnapsToDevicePixels="{TemplateBinding SnapsToDevicePixels}" VerticalAlignment="{TemplateBinding VerticalContentAlignment}"/>
+               </Border>
+               <ControlTemplate.Triggers>
+                  <Trigger Property="IsDefaulted" Value="true">
+                     <Setter Property="BorderBrush" TargetName="border" Value="{DynamicResource {x:Static SystemColors.HighlightBrushKey}}"/>
+                  </Trigger>
+                  <Trigger Property="IsMouseOver" Value="true">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.MouseOver.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.MouseOver.Border}"/>
+                  </Trigger>
+                  <Trigger Property="IsPressed" Value="true">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.Pressed.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.Pressed.Border}"/>
+                  </Trigger>
+                  <Trigger Property="IsEnabled" Value="false">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.Disabled.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.Disabled.Border}"/>
+                     <Setter Property="TextElement.Foreground" TargetName="contentPresenter" Value="{StaticResource Button.Disabled.Foreground}"/>
+                  </Trigger>
+               </ControlTemplate.Triggers>
+            </ControlTemplate>
+         </Setter.Value>
+      </Setter>
    </Style>
+
+   <Style x:Key="DoorList_Button" TargetType="{x:Type Button}">
+      <Setter Property="Height" Value="30"/>
+      <Setter Property="Padding" Value="10,0,10,0"/>
+   </Style>
+   <!--ToggleButton-->
+
+   <Style TargetType="{x:Type ToggleButton}">
+      <Setter Property="FocusVisualStyle" Value="{StaticResource FocusVisual}"/>
+      <Setter Property="Background" Value="{StaticResource Effector_Blue}"/>
+      <Setter Property="BorderBrush" Value="{StaticResource Button.Static.Border}"/>
+      <Setter Property="Foreground" Value="White"/>
+      <Setter Property="BorderThickness" Value="0"/>
+      <Setter Property="HorizontalContentAlignment" Value="Center"/>
+      <Setter Property="VerticalContentAlignment" Value="Center"/>
+      <Setter Property="Padding" Value="1"/>
+      <Setter Property="FontFamily" Value="/Resources/Fonts/#Roboto"/>
+      <Setter Property="FontWeight" Value="Medium"/>
+      <Setter Property="Template">
+         <Setter.Value>
+            <ControlTemplate TargetType="{x:Type ToggleButton}">
+               <Border x:Name="border" Background="{TemplateBinding Background}" BorderBrush="{TemplateBinding BorderBrush}" BorderThickness="{TemplateBinding BorderThickness}" SnapsToDevicePixels="true">
+                  <ContentPresenter x:Name="contentPresenter" Focusable="False" HorizontalAlignment="{TemplateBinding HorizontalContentAlignment}" Margin="{TemplateBinding Padding}" RecognizesAccessKey="True" SnapsToDevicePixels="{TemplateBinding SnapsToDevicePixels}" VerticalAlignment="{TemplateBinding VerticalContentAlignment}"/>
+               </Border>
+               <ControlTemplate.Triggers>
+                  <Trigger Property="Button.IsDefaulted" Value="true">
+                     <Setter Property="BorderBrush" TargetName="border" Value="{DynamicResource {x:Static SystemColors.HighlightBrushKey}}"/>
+                  </Trigger>
+                  <Trigger Property="IsMouseOver" Value="true">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.MouseOver.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.MouseOver.Border}"/>
+                  </Trigger>
+                  <Trigger Property="IsPressed" Value="true">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.Pressed.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.Pressed.Border}"/>
+                  </Trigger>
+                  <Trigger Property="IsChecked" Value="true">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Effector_DarkBlue}"/>
+                     <Setter Property="TextElement.Foreground" TargetName="contentPresenter" Value="White"/>
+                  </Trigger>
+                  <Trigger Property="IsEnabled" Value="false">
+                     <Setter Property="Background" TargetName="border" Value="{StaticResource Button.Disabled.Background}"/>
+                     <Setter Property="BorderBrush" TargetName="border" Value="{StaticResource Button.Disabled.Border}"/>
+                     <Setter Property="TextElement.Foreground" TargetName="contentPresenter" Value="{StaticResource Button.Disabled.Foreground}"/>
+                  </Trigger>
+               </ControlTemplate.Triggers>
+            </ControlTemplate>
+         </Setter.Value>
+      </Setter>
+   </Style>
+
+   <Style x:Key="MainMenu_ToggleButton" TargetType="{x:Type ToggleButton}" BasedOn="{StaticResource {x:Type ToggleButton}}">
+      <Setter Property="Padding" Value="25,0,25,0"/>
+   </Style>
+   
    <!--Stili per disegno macchina con porte-->
    
    <Style x:Key="Table" TargetType="Border">
@@ -96,5 +241,50 @@
       <Setter Property="BorderBrush" Value="DarkGray"/>
       <Setter Property="HorizontalAlignment" Value="Center"/>
    </Style>
+
+   <!-- Custom SelectedItem colors for DataGrid -->
+
+   <Style x:Key="RowDataGrid_CustomHighLight" TargetType="{x:Type DataGridRow}">
+      <Setter Property="BorderBrush" Value="LightGray" />
+      <Style.Triggers>
+         <Trigger Property="IsSelected" Value="True">
+            <Setter Property="BorderThickness" Value="2,2,2,2" />
+            <!--<Setter Property="BorderBrush" Value="Cyan" />-->
+            <Setter Property="Padding" Value="0,0,0,0" />
+            <Setter Property="Margin" Value="-2,0,-2,0" />
+            <Setter Property="Foreground" Value="Blue" />
+         </Trigger>
+      </Style.Triggers>
+      <Style.Resources>
+         <SolidColorBrush x:Key="{x:Static SystemColors.HighlightBrushKey}" Color="Transparent" />
+         <SolidColorBrush x:Key="{x:Static SystemColors.HighlightTextBrushKey}" Color="Black" />
+         <SolidColorBrush x:Key="{x:Static SystemColors.InactiveSelectionHighlightBrushKey}" Color="Transparent" />
+         <SolidColorBrush x:Key="{x:Static SystemColors.InactiveSelectionHighlightTextBrushKey}" Color="Black" />
+      </Style.Resources>
+   </Style>
    
+   <!--Styles for DataGrid columns-->
+
+   <Style x:Key="DataGridTextColumn_TextBlock" TargetType="{x:Type TextBlock}">
+      <Setter Property="TextAlignment" Value="Center"/>
+      <Setter Property="VerticalAlignment" Value="Center"/>
+   </Style>
+
+   <Style x:Key="DataGridTextColumn_TextBox" TargetType="{x:Type TextBox}">
+      <Setter Property="TextAlignment" Value="Center"/>
+      <Setter Property="VerticalContentAlignment" Value="Center"/>
+   </Style>
+   <Style x:Key="DataGridTemplateColumn_ComboBox" TargetType="{x:Type ComboBox}">
+      <Setter Property="HorizontalContentAlignment" Value="Center"/>
+      <Setter Property="VerticalContentAlignment" Value="Center"/>
+   </Style>
+   
+   <!--Style for page tabcontrol-->
+   
+   <Style x:Key="MainPage_Tabcontrol" TargetType="{x:Type TabControl}">
+      <Setter Property="BorderThickness" Value="0"/>
+      <Setter Property="Margin" Value="0"/>
+      <Setter Property="Padding" Value="0"/>
+   </Style>
+      
 </ResourceDictionary>
diff --git a/Effector.Plugin.DoorArreda/Utility/Dictionary.xaml.vb b/Effector.Plugin.DoorArreda/Utility/Dictionary.xaml.vb
index a33f325..aa148a6 100644
--- a/Effector.Plugin.DoorArreda/Utility/Dictionary.xaml.vb
+++ b/Effector.Plugin.DoorArreda/Utility/Dictionary.xaml.vb
@@ -12,13 +12,6 @@ Public Class Dictionary
 
 #Region "Colors"
 
-   'Private m_Omag_Red As SolidColorBrush = Brushes.Red
-   'Public ReadOnly Property Omag_Red As SolidColorBrush
-   '   Get
-   '      Return m_Omag_Red
-   '   End Get
-   'End Property
-
    'Private Shared m_Button_Static_Background As SolidColorBrush = New BrushConverter().ConvertFrom("#FFDDDDDD")
    'Public Shared ReadOnly Property Button_Static_Background As SolidColorBrush
    '   Get
@@ -34,14 +27,126 @@ Public Class Dictionary
    'End Property
 
 
-   'Private Shared m_Icarus_Gray As SolidColorBrush = Application.Current.FindResource("Icarus_Gray")
-   'Public Shared ReadOnly Property Icarus_Gray As SolidColorBrush
+   Private Shared m_Effector_LightBlue As SolidColorBrush = Application.Current.FindResource("Effector_LightBlue")
+   Public Shared ReadOnly Property Effector_LightBlue As SolidColorBrush
+      Get
+         Return m_Effector_LightBlue
+      End Get
+   End Property
+
+   Private Shared m_Effector_Blue As SolidColorBrush = Application.Current.FindResource("Effector_Blue")
+   Public Shared ReadOnly Property Effector_Blue As SolidColorBrush
+      Get
+         Return m_Effector_Blue
+      End Get
+   End Property
+
+   Private Shared m_Effector_DarkBlue As SolidColorBrush = Application.Current.FindResource("Effector_DarkBlue")
+   Public Shared ReadOnly Property Effector_DarkBlue As SolidColorBrush
+      Get
+         Return m_Effector_DarkBlue
+      End Get
+   End Property
+
+   Private Shared m_Effector_LightBlue_Status As SolidColorBrush = Application.Current.FindResource("Effector_LightBlue_Status")
+   Public Shared ReadOnly Property Effector_LightBlue_Status As SolidColorBrush
+      Get
+         Return m_Effector_LightBlue_Status
+      End Get
+   End Property
+
+   Private Shared m_Effector_Blue_Status As SolidColorBrush = Application.Current.FindResource("Effector_Blue_Status")
+   Public Shared ReadOnly Property Effector_Blue_Status As SolidColorBrush
+      Get
+         Return m_Effector_Blue_Status
+      End Get
+   End Property
+
+   Private Shared m_Effector_Red_Status As SolidColorBrush = Application.Current.FindResource("Effector_Red_Status")
+   Public Shared ReadOnly Property Effector_Red_Status As SolidColorBrush
+      Get
+         Return m_Effector_Red_Status
+      End Get
+   End Property
+
+   Private Shared m_Effector_Green_Status As SolidColorBrush = Application.Current.FindResource("Effector_Green_Status")
+   Public Shared ReadOnly Property Effector_Green_Status As SolidColorBrush
+      Get
+         Return m_Effector_Green_Status
+      End Get
+   End Property
+
+   Private Shared m_Effector_Gray_Status As SolidColorBrush = Application.Current.FindResource("Effector_Gray_Status")
+   Public Shared ReadOnly Property Effector_Gray_Status As SolidColorBrush
+      Get
+         Return m_Effector_Gray_Status
+      End Get
+   End Property
+
+   Private Shared m_Effector_Yellow_Status As SolidColorBrush = Application.Current.FindResource("Effector_Yellow_Status")
+   Public Shared ReadOnly Property Effector_Yellow_Status As SolidColorBrush
+      Get
+         Return m_Effector_Yellow_Status
+      End Get
+   End Property
+
+   Private Shared m_Effector_LightBlue_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_LightBlue_SelStatus")
+   Public Shared ReadOnly Property Effector_LightBlue_SelStatus As SolidColorBrush
+      Get
+         Return m_Effector_LightBlue_SelStatus
+      End Get
+   End Property
+
+   Private Shared m_Effector_Blue_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_Blue_SelStatus")
+   Public Shared ReadOnly Property Effector_Blue_SelStatus As SolidColorBrush
+      Get
+         Return m_Effector_Blue_SelStatus
+      End Get
+   End Property
+
+   Private Shared m_Effector_Red_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_Red_SelStatus")
+   Public Shared ReadOnly Property Effector_Red_SelStatus As SolidColorBrush
+      Get
+         Return m_Effector_Red_SelStatus
+      End Get
+   End Property
+
+   Private Shared m_Effector_Green_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_Green_SelStatus")
+   Public Shared ReadOnly Property Effector_Green_SelStatus As SolidColorBrush
+      Get
+         Return m_Effector_Green_SelStatus
+      End Get
+   End Property
+
+   Private Shared m_Effector_Gray_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_Gray_SelStatus")
+   Public Shared ReadOnly Property Effector_Gray_SelStatus As SolidColorBrush
+      Get
+         Return m_Effector_Gray_SelStatus
+      End Get
+   End Property
+
+   Private Shared m_Effector_Yellow_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_Yellow_SelStatus")
+   Public Shared ReadOnly Property Effector_Yellow_SelStatus As SolidColorBrush
+      Get
+         Return m_Effector_Yellow_SelStatus
+      End Get
+   End Property
+
+   Private Shared m_Effector_White_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_White_SelStatus")
+   Public Shared ReadOnly Property Effector_White_SelStatus As SolidColorBrush
+      Get
+         Return m_Effector_White_SelStatus
+      End Get
+   End Property
+
+   'Private Shared m_Effector_Orange As SolidColorBrush = Application.Current.FindResource("Effector_Orange")
+   'Public Shared ReadOnly Property Effector_Orange As SolidColorBrush
    '   Get
-   '      Return m_Icarus_Gray
+   '      Return m_Effector_Orange
    '   End Get
    'End Property
 
-   'Private Shared m_Icarus_LightBlue As SolidColorBrush = Application.Current.FindResource("Icarus_LightBlue")
+   'Private Shared m_Icarus_LightBlue As SolidColorBrush = Application.Current.FindResource("Effector_LightBlue_Color")
    'Public Shared ReadOnly Property Icarus_LightBlue As SolidColorBrush
    '   Get
    '      Return m_Icarus_LightBlue
@@ -62,12 +167,6 @@ Public Class Dictionary
    '   End Get
    'End Property
 
-   'Private Shared m_Icarus_Orange As SolidColorBrush = Application.Current.FindResource("Icarus_Orange")
-   'Public Shared ReadOnly Property Icarus_Orange As SolidColorBrush
-   '   Get
-   '      Return m_Icarus_Orange
-   '   End Get
-   'End Property
 
    'Private Shared m_Icarus_Purple As SolidColorBrush = Application.Current.FindResource("Icarus_Purple")
    'Public Shared ReadOnly Property Icarus_Purple As SolidColorBrush
diff --git a/Effector.Plugin.DoorArreda/Utility/JsonUtility.vb b/Effector.Plugin.DoorArreda/Utility/JsonUtility.vb
index 515cfa9..8cbc6cf 100644
--- a/Effector.Plugin.DoorArreda/Utility/JsonUtility.vb
+++ b/Effector.Plugin.DoorArreda/Utility/JsonUtility.vb
@@ -61,6 +61,13 @@ Public Class JsonDoor
       End Get
    End Property
 
+   Private m_nSwing As Integer
+   Public ReadOnly Property nSwing As Integer
+      Get
+         Return m_nSwing
+      End Get
+   End Property
+
    Private m_sCSVName As String
    Public ReadOnly Property sCSVName As String
       Get
@@ -140,7 +147,7 @@ Public Class JsonDoor
 #End Region    ' Statistics
 
    <JsonConstructor>
-   Sub New(nListIndex As Integer, nId As Integer, nCSVLine As Integer, sDDFName As String, sCSVName As String, nQuantity As Integer, dWidth As Double, dHeight As Double, dThickness As Double, nState As DoorStates, CustomerParameters As List(Of CustomerParameter),
+   Sub New(nListIndex As Integer, nId As Integer, nCSVLine As Integer, sDDFName As String, sCSVName As String, nQuantity As Integer, dWidth As Double, dHeight As Double, dThickness As Double, nSwing As Integer, nState As DoorStates, CustomerParameters As List(Of CustomerParameter),
            nProdState As DoorProdStates, dtLoadTime As DateTime, dtMachining1Start As DateTime, dtMachining1End As DateTime, dtMachining2Start As DateTime, dtMachining2End As DateTime, dtUnloadTime As DateTime)
       m_nListIndex = nListIndex
       m_nId = nId
@@ -151,6 +158,7 @@ Public Class JsonDoor
       m_dHeight = dHeight
       m_dWidth = dWidth
       m_dThickness = dThickness
+      m_nSwing = nSwing
       m_nState = nState
       m_CustomerParameters = CustomerParameters
       m_nProdState = nProdState
@@ -172,6 +180,7 @@ Public Class JsonDoor
       m_dHeight = Door.dHeight
       m_dWidth = Door.dWidth
       m_dThickness = Door.dThickness
+      m_nSwing = Door.nSwing
       m_nState = Door.nState
       m_CustomerParameters = Door.CustomerParameters
       m_nProdState = Door.nProdState