From 44815f86fa6a16936607799d7640e9f9e96dc048 Mon Sep 17 00:00:00 2001
From: Emmanuele Sassi <emmanuele.sassi@egaltech.com>
Date: Thu, 23 Jan 2025 17:29:46 +0100
Subject: [PATCH] - aggiunta gestione ddt con parametri e swing - aggiunto
 timer per csv output - implementata gestione calcolo porte uguali una sola
 volta - gestita barra caricamento calcolo porta prima di mandarlo a macchina
 - gestita barra di caricamento durante verifica porte

---
 .../Constants/ConstIni.vb                     |   3 +
 .../DoorListPage/DoorListPageV.xaml           |  67 +-
 .../DoorListPage/DoorListPageVM.vb            | 635 ++++++++++--
 .../DoorListPage/DoorListPageVM.vb.bak        | 977 ------------------
 .../MachinePage/MachinePageV.xaml             |  15 +-
 .../MachinePage/MachinePageVM.vb              |  31 +-
 .../Utility/Dictionary.xaml                   |   7 +
 .../Utility/JsonUtility.vb                    |  11 +-
 8 files changed, 684 insertions(+), 1062 deletions(-)
 delete mode 100644 Effector.Plugin.FiveLakes/DoorListPage/DoorListPageVM.vb.bak

diff --git a/Effector.Plugin.FiveLakes/Constants/ConstIni.vb b/Effector.Plugin.FiveLakes/Constants/ConstIni.vb
index 70bcd17..12153b0 100644
--- a/Effector.Plugin.FiveLakes/Constants/ConstIni.vb
+++ b/Effector.Plugin.FiveLakes/Constants/ConstIni.vb
@@ -16,9 +16,11 @@ Module ConstIni
 
    Public Const S_GENERAL As String = "General"
    Public Const K_CAMEXEPATH As String = "CAMExePath"
+   Public Const K_DOORCREATOREXEPATH As String = "DoorCreatorExePath"
    Public Const K_BACKUPDIR As String = "BackupDir"
    Public Const K_RESOURCESDIR As String = "ResourcesDir"
    Public Const K_DDFDIR As String = "DDFDir"
+   Public Const K_DDTDIR As String = "DDTDir"
    Public Const K_GENDDFDIR As String = "GenDDFDir"
    Public Const K_CSVOUTPUT As String = "CSVOutput"
 
@@ -28,6 +30,7 @@ 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_STATE As String = "State"
    Public Const K_PROGRAMSENT As String = "ProgramSent"
    Public Const K_PROGRAMSTART As String = "ProgramStart"
diff --git a/Effector.Plugin.FiveLakes/DoorListPage/DoorListPageV.xaml b/Effector.Plugin.FiveLakes/DoorListPage/DoorListPageV.xaml
index 3034b84..74783cd 100644
--- a/Effector.Plugin.FiveLakes/DoorListPage/DoorListPageV.xaml
+++ b/Effector.Plugin.FiveLakes/DoorListPage/DoorListPageV.xaml
@@ -4,6 +4,7 @@
       xmlns:local="clr-namespace:Effector.Plugin.FiveLakes">
    <Grid.Resources>
       <local:StateToSelColorConverter x:Key="StateToSelColorConverter"/>
+      <local:DDTListToBooleanConverter x:Key="DDTListToBooleanConverter"/>
    </Grid.Resources>
    <Grid.RowDefinitions>
       <RowDefinition Height="Auto"/>
@@ -25,6 +26,7 @@
          </Button>
          <Button ToolTip="Delete CSV file"
                  Command="{Binding DeleteAll_Command}"
+                 IsEnabled="{Binding bExecButton_IsEnabled}"   
                  Style="{StaticResource DoorList_Button}">
             <Image Source="../Resources/DoorListPage/DeleteCsv.png"
                    Style="{StaticResource Button_Image}"/>
@@ -37,6 +39,7 @@
          </Button>
          <Button ToolTip="Send all to production"
                  Command="{Binding ProduceAll_Command}"
+                 IsEnabled="{Binding bExecButton_IsEnabled}"   
                  Style="{StaticResource DoorList_Button}">
             <Image Source="../Resources/DoorListPage/ProduceAll.png"
                    Style="{StaticResource Button_Image}"/>
@@ -67,30 +70,35 @@
          </Button>-->
          <Button ToolTip="Mark the selected door as not to be produced"
                  Command="{Binding NotProduceDoor_Command}"
+                 IsEnabled="{Binding bExecButton_IsEnabled}"   
                  Style="{StaticResource DoorList_Button}">
             <Image Source="../Resources/DoorListPage/NotProduce.png"
                    Style="{StaticResource Button_Image}"/>
          </Button>
          <Button ToolTip="Add a new door to the list"
                  Command="{Binding AddDoor_Command}"
+                 IsEnabled="{Binding bExecButton_IsEnabled}"   
                  Style="{StaticResource DoorList_Button}">
             <Image Source="../Resources/DoorListPage/Add.png"
                    Style="{StaticResource Button_Image}"/>
          </Button>
          <Button ToolTip="Copy the selected door"
                  Command="{Binding CopyDoor_Command}"
+                 IsEnabled="{Binding bExecButton_IsEnabled}"   
                  Style="{StaticResource DoorList_Button}">
             <Image Source="../Resources/DoorListPage/Copy.png"
                    Style="{StaticResource Button_Image}"/>
          </Button>
          <Button ToolTip="Multiple copy the selected door"
                  Command="{Binding MultipleCopyDoor_Command}"
+                 IsEnabled="{Binding bExecButton_IsEnabled}"   
                  Style="{StaticResource DoorList_Button}">
             <Image Source="../Resources/DoorListPage/MultipleCopy.png"
                    Style="{StaticResource Button_Image}"/>
          </Button>
          <Button ToolTip="Delete door"
                  Command="{Binding Delete_Command}"
+                 IsEnabled="{Binding bExecButton_IsEnabled}"   
                  Style="{StaticResource DoorList_Button}">
             <Image Source="../Resources/DoorListPage/Delete.png"
                    Style="{StaticResource Button_Image}"/>
@@ -115,6 +123,7 @@
                       Visibility="{Binding ExecPercentage_Visibility}"/>
       </StackPanel>
    </Border>
+   <FrameworkElement x:Name="dummyElement" Visibility="Collapsed"/>
    <DataGrid Grid.Row="2"
              ItemsSource="{Binding DoorList}"
              SelectedItem="{Binding SelDoor}"
@@ -135,6 +144,30 @@
              FontWeight="Regular"
              RowHeight="32"
              BorderThickness="0">
+      <DataGrid.Resources>
+         <DataTemplate x:Key="DDTTemplate">
+            <ComboBox IsEditable="True" 
+                      Text="{Binding DataContext.sDDFName, RelativeSource={RelativeSource AncestorType={x:Type ContentControl}}, UpdateSourceTrigger=LostFocus}" 
+                      ItemsSource="{Binding DataContext.DDTList, RelativeSource={RelativeSource AncestorType={x:Type local:DoorListPageV}}}"
+                      Style="{StaticResource DataGridTemplateColumn_ComboBox}"/>
+         </DataTemplate>
+         <DataTemplate x:Key="NoDDTTemplate">
+            <TextBox Text="{Binding DataContext.sDDFName, RelativeSource={RelativeSource AncestorType={x:Type ContentControl}}}" 
+                     Style="{StaticResource DataGridTextColumn_TextBox}"/>
+         </DataTemplate>
+         <Style x:Key="DDTContentControl" TargetType="{x:Type ContentControl}">
+            <Style.Triggers>
+               <DataTrigger Binding="{Binding Path=DataContext.DDTList, Source={x:Reference dummyElement}, Converter={StaticResource DDTListToBooleanConverter}}"
+                            Value="True">
+                  <Setter Property="ContentTemplate" Value="{StaticResource NoDDTTemplate}" />
+               </DataTrigger>
+               <DataTrigger Binding="{Binding Path=DataContext.DDTList, Source={x:Reference dummyElement}, Converter={StaticResource DDTListToBooleanConverter}}"
+                            Value="False">
+                  <Setter Property="ContentTemplate" Value="{StaticResource DDTTemplate}" />
+               </DataTrigger>
+            </Style.Triggers>
+         </Style>
+      </DataGrid.Resources>
       <DataGrid.ColumnHeaderStyle>
          <Style TargetType="{x:Type DataGridColumnHeader}">
             <Setter Property="Background" Value="{StaticResource Effector_DarkBlue}"/>
@@ -151,23 +184,39 @@
                              IsReadOnly="True"
                              ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
                              EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
-         <DataGridTextColumn Header="DDF File Name"
+         <!--<DataGridTextColumn Header="DDF File Name"
                              Binding="{Binding sDDFName}"
                              Width="1*"
                              MinWidth="100"
                              IsReadOnly="True"
                              ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
-                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>-->
+         <DataGridTemplateColumn Header="DDF/DDT File Name"
+                                 Width="2*">
+            <DataGridTemplateColumn.CellTemplate>
+               <DataTemplate>
+                  <TextBlock Text="{Binding sDDFName}"
+                             Style="{StaticResource DataGridTextColumn_TextBlock}"/>
+               </DataTemplate>
+            </DataGridTemplateColumn.CellTemplate>
+            <DataGridTemplateColumn.CellEditingTemplate>
+               <DataTemplate>
+                  <!--<TextBox Text="{Binding sDDFName}" 
+                           Style="{StaticResource DataGridTextColumn_TextBlock}"/>-->
+                  <ContentControl Style="{StaticResource DDTContentControl}"/>
+               </DataTemplate>
+            </DataGridTemplateColumn.CellEditingTemplate>
+         </DataGridTemplateColumn>
          <DataGridTextColumn Header="Width"
                              Binding="{Binding dWidth}"
                              Width="Auto"
-                             IsReadOnly="True"
+                             IsReadOnly="{Binding Path=DataContext.DDTList, Source={x:Reference dummyElement}, Converter={StaticResource DDTListToBooleanConverter}}"
                              ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
                              EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
          <DataGridTextColumn Header="Height"
                              Binding="{Binding dHeight}"
                              Width="Auto"
-                             IsReadOnly="True"
+                             IsReadOnly="{Binding Path=DataContext.DDTList, Source={x:Reference dummyElement}, Converter={StaticResource DDTListToBooleanConverter}}"
                              ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
                              EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
          <DataGridTextColumn Header="Thickness"
@@ -179,7 +228,7 @@
          <DataGridTextColumn Header="State"
                              Binding="{Binding nState}"
                              Width="Auto"
-                             IsReadOnly="True"
+                             IsReadOnly="{Binding Path=DataContext.DDTList, Source={x:Reference dummyElement}, Converter={StaticResource DDTListToBooleanConverter}}"
                              ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
                              EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
          <DataGridTextColumn Header="CSV"
@@ -187,7 +236,13 @@
                              Width="Auto"
                              IsReadOnly="True"
                              ElementStyle="{StaticResource DataGridTextColumn_TextBlock}"
-                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}"/>
+                             EditingElementStyle="{StaticResource DataGridTextColumn_TextBox}">
+            <DataGridTextColumn.CellStyle>
+               <Style TargetType="DataGridCell">
+                  <Setter Property="ToolTip" Value="{Binding sCSVName}"/>
+               </Style>
+            </DataGridTextColumn.CellStyle>
+         </DataGridTextColumn>
          <DataGridTextColumn Header="CSV Line"
                              Binding="{Binding nCSVLine}"
                              Width="Auto"
diff --git a/Effector.Plugin.FiveLakes/DoorListPage/DoorListPageVM.vb b/Effector.Plugin.FiveLakes/DoorListPage/DoorListPageVM.vb
index 2a710a6..3623252 100644
--- a/Effector.Plugin.FiveLakes/DoorListPage/DoorListPageVM.vb
+++ b/Effector.Plugin.FiveLakes/DoorListPage/DoorListPageVM.vb
@@ -11,6 +11,7 @@ Public Class DoorListPageVM
    Inherits VMBase
 
    Private m_BackupTimer As New DispatcherTimer
+   Private m_WriteCSVTimer As New DispatcherTimer
    Private m_RefreshGraphicsTimer As New DispatcherTimer
    Private m_ExecProcessManager As ExecProcessManager
 
@@ -30,6 +31,20 @@ Public Class DoorListPageVM
       End Set
    End Property
 
+   Private m_DDTList As New ObservableCollection(Of String)
+   Public ReadOnly Property DDTList As ObservableCollection(Of String)
+      Get
+         Return m_DDTList
+      End Get
+   End Property
+
+   Private m_ManualAddedDoorName As String = "Manual"
+   Public ReadOnly Property ManualAddedDoorName As String
+      Get
+         Return m_ManualAddedDoorName
+      End Get
+   End Property
+
    Private m_bExecButton_IsEnabled As Boolean = True
    Public ReadOnly Property bExecButton_IsEnabled As Boolean
       Get
@@ -50,8 +65,9 @@ Public Class DoorListPageVM
    Private m_nExecutedArgsCount As Integer = 0
    Public ReadOnly Property dExecPercentage As Double
       Get
-         Dim dExecIncrement As Double = If(IsNothing(m_ExecProcessManager) OrElse m_ExecProcessManager.nArgsInQueue = 0, 0, Math.Min(28, m_nExecIncrement) / 34)
-         Return If(IsNothing(m_ExecProcessManager), 0, (m_ExecProcessManager.nExecutedArgsCounter + dExecIncrement) / (m_ExecProcessManager.nExecutedArgsCounter + m_ExecProcessManager.nArgsInQueue)) * 100
+         If IsNothing(m_ExecProcessManager) Then Return 0
+         Dim dExecIncrement As Double = If(m_ExecProcessManager.nArgsInQueue = 0, 0, Math.Min(28, m_nExecIncrement) / 34)
+         Return (m_ExecProcessManager.nExecutedArgsCounter + dExecIncrement) / (m_ExecProcessManager.nExecutedArgsCounter + m_ExecProcessManager.nArgsInQueue) * 100
       End Get
    End Property
 
@@ -63,7 +79,6 @@ Public Class DoorListPageVM
 
    Public ReadOnly Property ExecPercentage_Visibility As Visibility
       Get
-         Dim x = If(Not IsNothing(m_ExecProcessManager) AndAlso m_ExecProcessManager.ExecutionThreadStatus = ExecProcessManager.ExecutionThreadStatuses.RUNNING, Visibility.Visible, Visibility.Collapsed)
          Return If(Not IsNothing(m_ExecProcessManager) AndAlso m_ExecProcessManager.ExecutionThreadStatus = ExecProcessManager.ExecutionThreadStatuses.RUNNING, Visibility.Visible, Visibility.Collapsed)
       End Get
    End Property
@@ -90,6 +105,21 @@ Public Class DoorListPageVM
    Sub New()
       ' imposto riferimento in Map
       Map.SetRefDoorListPageVM(Me)
+      ' leggo nome porta manuale
+      m_ManualAddedDoorName = ""
+      GetPluginPrivateProfileString(S_CSV, K_MANUALADDEDDOORNAME, "ManualAddedDoor", m_ManualAddedDoorName)
+      ' leggo lista ddt
+      Dim sDdtDirPath As String = ""
+      GetPluginPrivateProfileString(S_GENERAL, K_DDTDIR, "", sDdtDirPath)
+      If Not String.IsNullOrWhiteSpace(sDdtDirPath) AndAlso Directory.Exists(sDdtDirPath) Then
+         Dim FileList As String() = Directory.GetFiles(sDdtDirPath)
+         Dim DdtFileList As List(Of String) = (From sFile In FileList
+                                               Where Path.GetExtension(sFile).ToLower() = ".ddt"
+                                               Select Path.GetFileName(sFile)).ToList()
+         For Each DdtFile In DdtFileList
+            m_DDTList.Add(DdtFile)
+         Next
+      End If
       ' leggo backup
       Dim sBackupDirPath As String = ""
       GetPluginPrivateProfileString(S_GENERAL, "BackupDir", "", sBackupDirPath)
@@ -97,6 +127,8 @@ 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()
@@ -110,6 +142,9 @@ Public Class DoorListPageVM
          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
@@ -149,7 +184,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.READY_FOR_PRODUCTION Then
+         If CurrDoor.nState = Door.DoorStates.READY_FOR_PRODUCTION Then
             CurrDoor.SetState(Door.DoorStates.VERIFIED, False)
          End If
       Next
@@ -202,6 +237,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
@@ -214,7 +253,7 @@ Public Class DoorListPageVM
             ' elimino file generati
             Dim sGenDDFDirPath As String = ""
             GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGenDDFDirPath)
-            Dim sDoorFileName As String = CurrRequestDoor.sDDFName & "_" & CurrRequestDoor.nId
+            Dim sDoorFileName As String = Path.GetFileNameWithoutExtension(CurrRequestDoor.sDDFName) & "_" & CurrRequestDoor.nId
             Try
                File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".tok")
                File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_2.tok")
@@ -225,22 +264,44 @@ Public Class DoorListPageVM
                File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_2_a.cnc")
                File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".html")
                File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_2.html")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".log")
-               File.Delete(sGenDDFDirPath & "\" & CurrRequestDoor.sDDFName & ".nge")
+               If ArgumentsResult.nResult = 0 Then
+                  File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".log")
+               End If
+               'File.Delete(sGenDDFDirPath & "\" & CurrRequestDoor.sDDFName & ".nge")
                File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".nge")
                File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".sest")
                File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_2.sest")
-               File.Delete(sGenDDFDirPath & "\" & CurrRequestDoor.sDDFName & ".txt")
+               Dim SestFiles() As String = System.IO.Directory.GetFiles(sGenDDFDirPath & "\", sDoorFileName & "*.sest")
+               For Each FilePath In SestFiles
+                  File.Delete(FilePath)
+               Next
+               'File.Delete(sGenDDFDirPath & "\" & CurrRequestDoor.sDDFName & ".txt")
                File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".txt")
                File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_2.txt")
             Catch ex As Exception
 
             End Try
          End If
+         ' verifico se ci sono altre porte dello stesso tipo da aggiornare
+         If m_AssociationList.ContainsKey(CurrRequestDoor.nId) Then
+            Dim SameDoorList As List(Of Integer) = m_AssociationList(CurrRequestDoor.nId)
+            For Each CurrDoorId In SameDoorList
+               Dim CurrDoor As Door = m_DoorList.FirstOrDefault(Function(x) x.nId = CurrDoorId)
+               If Not IsNothing(CurrDoor) Then
+                  CurrDoor.SetState(If(ArgumentsResult.nResult = 0, Door.DoorStates.VERIFIED, Door.DoorStates.VERIFICATION_FAILED))
+               End If
+            Next
+         End If
          WriteBackup()
          ArgumentsResult = m_ExecProcessManager.ArgumentsResultDequeue
       End While
       ' aggiorno grafica
+      If m_nExecutedArgsCount <> m_ExecProcessManager.nExecutedArgsCounter Then
+         m_nExecutedArgsCount = m_ExecProcessManager.nExecutedArgsCounter
+         m_nExecIncrement = 0
+      ElseIf m_ExecProcessManager.nCalculatingProcesses > 0 Then
+         m_nExecIncrement += 1
+      End If
       If Not bExecButton_IsEnabled AndAlso m_ExecProcessManager.ExecutionThreadStatus = ExecProcessManager.ExecutionThreadStatuses.RUNNING Then
          NotifyPropertyChanged(NameOf(dExecPercentage))
          NotifyPropertyChanged(NameOf(sExecPercentage))
@@ -248,11 +309,6 @@ Public Class DoorListPageVM
       If Not bExecButton_IsEnabled AndAlso m_ExecProcessManager.ExecutionThreadStatus = ExecProcessManager.ExecutionThreadStatuses.STOPPED Then
          SetExecButtonIsEnabled(True)
       End If
-      If m_nExecutedArgsCount <> m_ExecProcessManager.nExecutedArgsCounter Then
-         m_nExecutedArgsCount = m_ExecProcessManager.nExecutedArgsCounter
-         m_nExecIncrement = 0
-      End If
-      m_nExecIncrement += 1
       NotifyPropertyChanged(NameOf(ExecPercentage_Visibility))
    End Sub
 
@@ -313,16 +369,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)
@@ -365,10 +424,20 @@ Public Class DoorListPageVM
                         dThickness = 0
                      End If
                   End If
+                  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
+                  Else
+                     nSwing = SWINGTYPE.UNDEFINED
+                  End If
                   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 NewDoor As New Door(nId, nLineIndex, Values(nDDFNameIndex) & ".ddf", Path.GetFileName(sCSVPath),
+                                          1, dWidth, dHeight, dThickness, nSwing, Headers, Values)
                      m_DoorList.Add(NewDoor)
                   Next
                   nLineIndex += 1
@@ -382,41 +451,104 @@ 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, K_DDFDIR, "", sDDFDirPath)
-         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 sDDFFilePath As String = sDDFDirPath & "\" & Door.sDDFName & ".ddf"
-               Dim sGenDDFFilePath As String = sGenDDFDirPath & "\" & Door.sDDFName & "_" & Door.nId & ".ddf"
-               Try
-                  File.Copy(sDDFFilePath, sGenDDFFilePath, True)
-               Catch ex As Exception
-                  Map.refSupervisorFunction.PlgOutLog("Error: Copy file from " & sDDFFilePath & " to " & sGenDDFFilePath & " failed!")
-               End Try
-               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, K_DDFDIR, "", sDDFDirPath)
+         '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 sDDFFilePath As String = sDDFDirPath & "\" & Door.sDDFName & ".ddf"
+         '      Dim sGenDDFFilePath As String = sGenDDFDirPath & "\" & Door.sDDFName & "_" & Door.nId & ".ddf"
+         '      Try
+         '         File.Copy(sDDFFilePath, sGenDDFFilePath, True)
+         '      Catch ex As Exception
+         '         Map.refSupervisorFunction.PlgOutLog("Error: Copy file from " & sDDFFilePath & " to " & sGenDDFFilePath & " failed!")
+         '      End Try
+         '      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, nSwing As Integer, ByRef sErrMessage As String) As Boolean
+      ' verifico che ci sia il file ddf
+      Dim sDDTDirPath As String = ""
+      GetPluginPrivateProfileString(S_GENERAL, K_DDTDIR, "", sDDTDirPath)
+      Dim sDDFDirPath As String = ""
+      GetPluginPrivateProfileString(S_GENERAL, K_DDFDIR, "", sDDFDirPath)
+      Dim sGenDDFDirPath As String = ""
+      GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGenDDFDirPath)
+      Dim sExtension As String = Path.GetExtension(sDDFName)
+      If sExtension.ToLower() = ".ddf" Then
+         Dim sDDFFilePath As String = sDDFDirPath & "\" & sDDFName
+         If Not File.Exists(sDDFFilePath) Then
+            Dim sErr As String = "Il nome inserito (" & sDDFFilePath & ") non corrisponde a nessun file nella cartella dei Ddf (" & sDDFDirPath & ")"
+            Map.refSupervisorFunction.PlgOutLog(sErr)
+            sErrMessage &= "- " & sErr & Environment.NewLine
+            Dim ErrDoor As Door = m_DoorList.FirstOrDefault(Function(x) x.nId = nId)
+            If Not IsNothing(ErrDoor) Then
+               ErrDoor.SetState(DoorStates.VERIFICATION_FAILED)
+            End If
+            NotifyPropertyChanged(NameOf(sDDFName))
+            Return False
+         End If
+         ' copio il ddf nella cartella dei ddf
+         Dim sGenDDFFilePath As String = sGenDDFDirPath & "\" & If(Not String.IsNullOrWhiteSpace(Path.GetDirectoryName(sDDFName)), Path.GetDirectoryName(sDDFName) & "_", "") & Path.GetFileNameWithoutExtension(sDDFName) & "_" & nId & ".ddf"
+         Dim bCopy As Boolean = False
+         Try
+            File.Copy(sDDFFilePath, sGenDDFFilePath, True)
+            bCopy = True
+         Catch ex As Exception
+            Dim sErr As String = "Error: Copy file from " & sDDFFilePath & " to " & sGenDDFFilePath & " failed!"
+            Map.refSupervisorFunction.PlgOutLog(sErr)
+            sErrMessage &= "- " & sErr & Environment.NewLine
+            Dim ErrDoor As Door = m_DoorList.FirstOrDefault(Function(x) x.nId = nId)
+            If Not IsNothing(ErrDoor) Then
+               ErrDoor.SetState(DoorStates.VERIFICATION_FAILED)
+            End If
+         End Try
+         If Not bCopy Then
+            Return False
+         End If
+      ElseIf sExtension.ToLower() = ".ddt" Then
+         ' se file generato
+         If Not Door.CreateDdfFromDdt(nId, sDDFName, dWidth, dHeight, dThickness, nSwing, sErrMessage) Then
+            Dim ErrDoor As Door = m_DoorList.FirstOrDefault(Function(x) x.nId = nId)
+            If Not IsNothing(ErrDoor) Then
+               ErrDoor.SetState(DoorStates.VERIFICATION_FAILED)
+            End If
+            Return False
+         End If
+      Else
+         Dim sErr As String = "Estensione del file non riconosciuta!"
+         Map.refSupervisorFunction.PlgOutLog(sErr)
+         sErrMessage &= "- " & sErr & Environment.NewLine
+         Dim ErrDoor As Door = m_DoorList.FirstOrDefault(Function(x) x.nId = nId)
+         If Not IsNothing(ErrDoor) Then
+            ErrDoor.SetState(DoorStates.VERIFICATION_FAILED)
+         End If
+         Return False
+      End If
+      Return True
+   End Function
+
    Public Sub ExecProcessManager_AllArgsProcessed()
       m_ExecProcessManager.StopExecutionThread()
    End Sub
@@ -466,6 +598,7 @@ Public Class DoorListPageVM
       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 = ""
@@ -475,15 +608,14 @@ Public Class DoorListPageVM
       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()
-      Dim sCSVName As String = ""
-      GetPluginPrivateProfileString(S_CSV, K_MANUALADDEDDOORNAME, "Manual", sCSVName)
-      CSVFileList.Remove(sCSVName)
+      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()
@@ -517,6 +649,11 @@ Public Class DoorListPageVM
             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'
@@ -669,9 +806,7 @@ Public Class DoorListPageVM
 
    Public Sub AddDoor()
       Dim nId As Integer = NewDoorId()
-      Dim sCSVName As String = ""
-      GetPluginPrivateProfileString(S_CSV, K_MANUALADDEDDOORNAME, "Manual", sCSVName)
-      m_DoorList.Add(New Door(nId, 0, "", sCSVName, 1, 0, 0, 0, {}, {}))
+      m_DoorList.Add(New Door(nId, 0, "", m_ManualAddedDoorName, 1, 0, 0, 0, SWINGTYPE.RIGHT, {}, {}))
    End Sub
 
 #End Region ' AddDoor
@@ -785,12 +920,10 @@ Public Class DoorListPageVM
    End Property
 
    Public Sub Delete()
-      Dim sCSVName As String = ""
-      GetPluginPrivateProfileString(S_CSV, K_MANUALADDEDDOORNAME, "Manual", sCSVName)
-      If m_DoorList.Count = 0 OrElse IsNothing(SelDoor) OrElse String.Compare(SelDoor.sCSVName, sCSVName, True) <> 0 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
+         If (SelDoor.nState >= Door.DoorStates.READY_FOR_PRODUCTION AndAlso SelDoor.nState < Door.DoorStates.MACHINE_2_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
          m_DoorList.Remove(SelDoor)
@@ -812,15 +945,17 @@ Public Class DoorListPageVM
    End Property
 
    Public Sub DeleteAll()
-      Dim sCSVName As String = ""
-      GetPluginPrivateProfileString(S_CSV, K_MANUALADDEDDOORNAME, "Manual", sCSVName)
-      If m_DoorList.Count = 0 OrElse IsNothing(SelDoor) OrElse String.Compare(SelDoor.sCSVName, sCSVName, True) = 0 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_2_END) Then Return
+      End If
       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_2_END AndAlso CsvDoor.nState <> DoorStates.PRODUCED AndAlso CsvDoor.nState <> DoorStates.NOTPRODUCE Then
+            If CsvDoor.nState <> DoorStates.MACHINE_2_END AndAlso CsvDoor.nState <> DoorStates.PRODUCED AndAlso CsvDoor.nState <> DoorStates.NOTPRODUCE AndAlso CsvDoor.nState <> DoorStates.VERIFICATION_FAILED Then
                bAllProduced = False
             End If
          End If
@@ -931,6 +1066,9 @@ Public Class DoorListPageVM
       End Get
    End Property
 
+   Private m_DifferentDoorList As New List(Of Door)
+   Private m_AssociationList As New Dictionary(Of Integer, List(Of Integer))
+
    Public Sub Verify()
       Dim sCamExePath As String = ""
       GetPluginPrivateProfileString(S_GENERAL, "CAMExePath", "", sCamExePath)
@@ -944,18 +1082,40 @@ Public Class DoorListPageVM
          AddHandler m_ExecProcessManager.m_AllArgsProcessed, AddressOf ExecProcessManager_AllArgsProcessed
          m_ExecProcessManager.SetMaxCamInstances(3)
       End If
-      Dim sDDFDirPath As String = ""
-      GetPluginPrivateProfileString(S_GENERAL, "DDFDir", "", sDDFDirPath)
+      Dim sGenDDFDirPath As String = ""
+      GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGenDDFDirPath)
+      Dim sErrMessage As String = ""
+      m_DifferentDoorList.Clear()
+      m_AssociationList.Clear()
       For Each Door In m_DoorList
          If Door.nState = Door.DoorStates.LOADED_FROM_CSV Or Door.nState = Door.DoorStates.VERIFICATION_FAILED Then
-            Dim sDDFFilePath As String = sDDFDirPath & "\" & Door.sDDFName & ".ddf"
-            m_ExecProcessManager.ArgumentsEnqueue(New ProcessArgs(Door.nId, sDDFFilePath))
+            ' creo file ddf
+            If CreateGenDdfFile(Door.nId, Door.sDDFName, Door.dWidth, Door.dHeight, Door.dThickness, Door.nSwing, sErrMessage) Then
+               ' verifico se ho gia' lanciato una porta con le stesse caratteristiche
+               Dim DifferentDoor As Door = Nothing
+               If Path.GetExtension(Door.sDDFName).ToLower() = ".ddf" Then
+                  DifferentDoor = m_DifferentDoorList.FirstOrDefault(Function(x) Door.sDDFName = x.sDDFName)
+               ElseIf Path.GetExtension(Door.sDDFName).ToLower() = ".ddt" Then
+                  DifferentDoor = m_DifferentDoorList.FirstOrDefault(Function(x) Door.sDDFName = x.sDDFName AndAlso Door.dWidth = x.dWidth AndAlso Door.dHeight = x.dHeight AndAlso Door.dThickness = x.dThickness AndAlso Door.nSwing = x.nSwing)
+               End If
+               If Not IsNothing(DifferentDoor) Then
+                  m_AssociationList(DifferentDoor.nId).Add(Door.nId)
+               Else
+                  m_DifferentDoorList.Add(Door)
+                  m_AssociationList.Add(Door.nId, New List(Of Integer))
+                  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
          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:" & Environment.NewLine & sErrMessage, "Error", MessageBoxButton.OK, MessageBoxImage.Error)
+      End If
       WriteBackup()
    End Sub
 
@@ -968,6 +1128,14 @@ End Class
 Public Class Door
    Inherits VMBase
 
+   Public Enum SWINGTYPE As Integer
+      UNDEFINED = 0
+      RIGHT = 1
+      LEFT = 2
+   End Enum
+
+   Private Shared m_refWriteBackup As Action
+
    Public Enum DoorStates As Integer
       NULL = 0
       LOADED_FROM_CSV = 1
@@ -1012,10 +1180,82 @@ Public Class Door
    End Property
 
    Private m_sDDFName As String
-   Public ReadOnly Property sDDFName As String
+   Public Property sDDFName As String
       Get
          Return m_sDDFName
       End Get
+      Set(value As String)
+         ' verifico che ci sia il file ddf
+         Dim sDDTDirPath As String = ""
+         GetPluginPrivateProfileString(S_GENERAL, K_DDTDIR, "", sDDTDirPath)
+         Dim sDDFDirPath As String = ""
+         GetPluginPrivateProfileString(S_GENERAL, K_DDFDIR, "", sDDFDirPath)
+         Dim sGenDDFDirPath As String = ""
+         GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGenDDFDirPath)
+         Dim sExtension As String = Path.GetExtension(value)
+         If sExtension.ToLower() = ".ddf" Then
+            Dim sDDFFilePath As String = sDDFDirPath & "\" & value
+            If Not File.Exists(sDDFFilePath) Then
+               MessageBox.Show("Il nome inserito non corrisponde a nessun file nella cartella dei Ddf (" & sDDFDirPath & ") ", "File non trovato!", MessageBoxButton.OK, MessageBoxImage.Error)
+               NotifyPropertyChanged(NameOf(sDDFName))
+               Return
+            End If
+            Me.m_sDDFName = value
+            ' 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
+            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))
+            Return
+         End If
+      End Set
    End Property
 
    Private m_nQuantity As Integer
@@ -1026,24 +1266,201 @@ Public Class Door
    End Property
 
    Private m_dWidth As Double
-   Public ReadOnly Property dWidth As Double
+   Public Property dWidth As String
       Get
-         Return m_dWidth
+         Return DoubleToString(m_dWidth, 2)
       End Get
+      Set(value As String)
+         Dim dValue As Double = 0
+         If Not StringToDouble(value, dValue) Then
+            MessageBox.Show("Dimensione non valida!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+            NotifyPropertyChanged(NameOf(dWidth))
+            Return
+         End If
+         ' verifico se file ddf o ddt
+         Dim sExtension As String = Path.GetExtension(m_sDDFName)
+         If String.IsNullOrWhiteSpace(sExtension) Then
+            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)
+            Me.m_dWidth = dValue
+            Return
+         ElseIf sExtension.ToLower() = ".ddt" Then
+            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
 
    Private m_dHeight As Double
-   Public ReadOnly Property dHeight As Double
+   Public Property dHeight As String
       Get
-         Return m_dHeight
+         Return DoubleToString(m_dHeight, 2)
       End Get
+      Set(value As String)
+         Dim dValue As Double = 0
+         If Not StringToDouble(value, dValue) Then
+            MessageBox.Show("Dimensione non valida!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+            NotifyPropertyChanged(NameOf(dHeight))
+            Return
+         End If
+         ' verifico se file ddf o ddt
+         Dim sExtension As String = Path.GetExtension(m_sDDFName)
+         If String.IsNullOrWhiteSpace(sExtension) Then
+            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
+            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
+            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
 
    Private m_dThickness As Double
-   Public ReadOnly Property dThickness As Double
+   Public Property dThickness As String
       Get
-         Return m_dThickness
+         Return DoubleToString(m_dThickness, 2)
       End Get
+      Set(value As String)
+         Dim dValue As Double = 0
+         If Not StringToDouble(value, dValue) Then
+            MessageBox.Show("Dimensione non valida!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+            NotifyPropertyChanged(NameOf(dThickness))
+            Return
+         End If
+         ' verifico se file ddf o ddt
+         Dim sExtension As String = Path.GetExtension(m_sDDFName)
+         If String.IsNullOrWhiteSpace(sExtension) Then
+            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
+            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
+            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
 
    Private m_sCSVName As String
@@ -1229,7 +1646,9 @@ Public Class Door
       End Get
    End Property
 
-   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())
+#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, nSwing As Integer, HeaderList As String(), ValueList As String())
       m_nId = nId
       m_nCSVLine = nCSVLine
       m_sDDFName = sDDFName
@@ -1238,6 +1657,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), "")))
@@ -1245,7 +1665,7 @@ 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, CustomerParameters As List(Of CustomerParameter))
+   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
@@ -1254,6 +1674,7 @@ Public Class Door
       m_dHeight = dHeight
       m_dWidth = dWidth
       m_dThickness = dThickness
+      m_nSwing = nSwing
       m_CustomerParameters = CustomerParameters
    End Sub
 
@@ -1266,6 +1687,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
@@ -1277,12 +1699,59 @@ Public Class Door
       m_dtUnloadTime = JsonDoor.dtUnloadTime
    End Sub
 
+#End Region    ' CONSTRUCTOR
+
 #Region "METHODS"
 
    Friend Function Copy(nId As Integer) As Door
-      Dim sCSVName As String = ""
-      GetPluginPrivateProfileString(S_CSV, K_MANUALADDEDDOORNAME, "Manual", sCSVName)
-      Return New Door(nId, m_nCSVLine, m_sDDFName, sCSVName, m_nQuantity, m_dWidth, m_dHeight, m_dThickness, m_CustomerParameters)
+      Return New Door(nId, m_nCSVLine, m_sDDFName, Map.refDoorListPageVM.ManualAddedDoorName, 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, ByRef sErrMessage As String) As Boolean
+      Dim sDoorCreatorExePath As String = ""
+      GetPluginPrivateProfileString(S_GENERAL, K_DOORCREATOREXEPATH, "", sDoorCreatorExePath)
+      Dim sDDTDirPath As String = ""
+      GetPluginPrivateProfileString(S_GENERAL, K_DDTDIR, "", sDDTDirPath)
+      Dim sGenDDFDirPath As String = ""
+      GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGenDDFDirPath)
+      Dim sDDTFilePath As String = sDDTDirPath & "\" & sDDFName
+      If String.IsNullOrWhiteSpace(sDoorCreatorExePath) OrElse Not File.Exists(sDoorCreatorExePath) Then
+         MessageBox.Show("Path del programma di calcolo del ddf mancante o errata!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+         Return False
+      ElseIf Not File.Exists(sDDTFilePath) Then
+         Dim sErr As String = "File non trovato! Il nome inserito non corrisponde a nessun file nella cartella dei Ddt (" & sDDTDirPath & ")"
+         Map.refSupervisorFunction.PlgOutLog(sErr)
+         sErrMessage &= "- " & sErr & Environment.NewLine
+         Return False
+      End If
+      ' creo il ddf
+      Dim sGenDDFFilePath As String = sGenDDFDirPath & "\" & If(Not String.IsNullOrWhiteSpace(Path.GetDirectoryName(sDDFName)), Path.GetDirectoryName(sDDFName) & "_", "") & Path.GetFileNameWithoutExtension(sDDFName) & "_" & nId & ".ddf"
+      Dim Proc As New Process()
+      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 & ";" & If(nSwing = SWINGTYPE.LEFT, "L", "R") & """"
+      Proc.StartInfo.UseShellExecute = False
+      Proc.StartInfo.CreateNoWindow = True
+      Dim ExecCounter = 0
+      If Proc.Start Then
+         While Not Proc.HasExited
+            If ExecCounter >= 30 Then
+               Proc.Kill()
+               Exit While
+            End If
+            Threading.Thread.Sleep(100)
+            ExecCounter += 1
+         End While
+      End If
+      ' se file generato
+      If Not File.Exists(sGenDDFFilePath) Then
+         Dim sErr As String = "Errore! Generazione file ddf fallita! (" & sDDTDirPath & ")"
+         Map.refSupervisorFunction.PlgOutLog(sErr)
+         sErrMessage &= "- " & sErr & Environment.NewLine
+         Return False
+      End If
+      Return True
    End Function
 
 #End Region    ' METHODS
@@ -1348,4 +1817,18 @@ Public Class StateToSelColorConverter
       Throw New NotImplementedException()
    End Function
 
+End Class
+
+Public Class DDTListToBooleanConverter
+   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 ObservableCollection(Of String) Then Return False
+      Return DirectCast(value, ObservableCollection(Of String)).Count = 0
+   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.FiveLakes/DoorListPage/DoorListPageVM.vb.bak b/Effector.Plugin.FiveLakes/DoorListPage/DoorListPageVM.vb.bak
deleted file mode 100644
index 2e27f60..0000000
--- a/Effector.Plugin.FiveLakes/DoorListPage/DoorListPageVM.vb.bak
+++ /dev/null
@@ -1,977 +0,0 @@
-Imports System.Collections.ObjectModel
-Imports System.IO
-Imports Newtonsoft.Json
-Imports System.Windows.Threading
-Imports System.Text.RegularExpressions
-Imports Effector.Plugin.FiveLakes.Door
-Imports System.Globalization
-
-Public Class DoorListPageVM
-   Inherits VMBase
-
-   Private m_BackupTimer As New DispatcherTimer
-   Private m_RefreshGraphicsTimer As New DispatcherTimer
-   Private m_ExecProcessManager As ExecProcessManager
-
-   Private m_DoorList As New ObservableCollection(Of Door)
-   Public ReadOnly Property DoorList As ObservableCollection(Of Door)
-      Get
-         Return m_DoorList
-      End Get
-   End Property
-   Private m_SelDoor As Door
-   Public Property SelDoor As Door
-      Get
-         Return m_SelDoor
-      End Get
-      Set(value As Door)
-         m_SelDoor = value
-      End Set
-   End Property
-
-   Private m_bExecButton_IsEnabled As Boolean = True
-   Public ReadOnly Property bExecButton_IsEnabled As Boolean
-      Get
-         Return m_bExecButton_IsEnabled
-      End Get
-   End Property
-   Private Sub SetExecButtonIsEnabled(bValue As Boolean)
-      m_bExecButton_IsEnabled = bValue
-      NotifyPropertyChanged(NameOf(bExecButton_IsEnabled))
-   End Sub
-   Private m_nModifyIndex As Integer = 0
-   Private m_nBackupindex As Integer = 0
-   Private m_bWritingBackup As Boolean = False
-
-   ' Definizione comandi
-   Private m_cmdOpenCSV As ICommand
-   Private m_cmdSkipDoor As ICommand
-   Private m_cmdMoveUp As ICommand
-   Private m_cmdMoveDown As ICommand
-   Private m_cmdDelete As ICommand
-   Private m_cmdDeleteAll As ICommand
-   Private m_cmdProduce As ICommand
-   Private m_cmdProduceAll As ICommand
-   Private m_cmdResetProductionQueue As ICommand
-   Private m_cmdVerify As ICommand
-
-#Region "CONSTRUCTOR"
-
-   Sub New()
-      ' imposto riferimento in Map
-      Map.SetRefDoorListPageVM(Me)
-      Dim sBackupDirPath As String = ""
-      GetPluginPrivateProfileString(S_GENERAL, "BackupDir", "", sBackupDirPath)
-      Dim sBackupFilePath As String = sBackupDirPath & "\Backup.json"
-      Read(sBackupFilePath)
-      m_BackupTimer.Interval = New TimeSpan(0, 0, 1)
-      AddHandler m_BackupTimer.Tick, AddressOf BackupTimer_Tick
-      m_RefreshGraphicsTimer.Interval = New TimeSpan(0, 0, 1)
-      AddHandler m_RefreshGraphicsTimer.Tick, AddressOf RefreshGraphicsTimer_Tick
-      m_BackupTimer.Start()
-      m_RefreshGraphicsTimer.Start()
-   End Sub
-#End Region    ' CONSTRUCTOR
-
-#Region "METHODS"
-
-   Friend Function ExecCAMProcess(sDDFName As String) As Boolean
-      ' lancio esecuzione programma
-      Dim sCamExePath As String = ""
-      GetPluginPrivateProfileString(S_GENERAL, "CAMExePath", "", sCamExePath)
-      Dim sMainLuaPath As String = ""
-      GetPluginPrivateProfileString(S_GENERAL, "MainLUA", "", sMainLuaPath)
-      Dim sGenDDFDirPath As String = ""
-      GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGenDDFDirPath)
-      Dim sDDFFilePath As String = sGenDDFDirPath & "\" & sDDFName
-      Return Map.refSupervisorFunction.PlgExecProcess(sCamExePath, sMainLuaPath, sDDFFilePath)
-   End Function
-
-   Friend Function ExecCAMProcessAsync(sDDFName As String) As Boolean
-      ' lancio esecuzione programma
-      Dim sCamExePath As String = ""
-      GetPluginPrivateProfileString(S_GENERAL, "CAMExePath", "", sCamExePath)
-      Dim sMainLuaPath As String = ""
-      GetPluginPrivateProfileString(S_GENERAL, "MainLUA", "", sMainLuaPath)
-      Dim sGenDDFDirPath As String = ""
-      GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGenDDFDirPath)
-      Dim sDDFFilePath As String = sGenDDFDirPath & "\" & sDDFName
-      Return Map.refSupervisorFunction.PlgExecProcessAsync(sCamExePath, sMainLuaPath, sDDFFilePath)
-   End Function
-
-   Public Sub Read(FilePath As String)
-      If Not File.Exists(FilePath) Then Return
-      Dim sReadedFile As String = File.ReadAllText(FilePath)
-      Dim JsonDoorList As List(Of JsonDoor) = JsonConvert.DeserializeObject(Of List(Of JsonDoor))(sReadedFile)
-      JsonDoorList = JsonDoorList.OrderBy(Of Integer)(Function(x) x.nListIndex).ToList()
-
-      m_DoorList = New ObservableCollection(Of Door)((From JsonDoor In JsonDoorList
-                                                      Select New Door(JsonDoor)).ToList())
-   End Sub
-
-   Public Sub Write(FilePath As String)
-      Dim JsonDoorList As New List(Of JsonDoor)
-      For nDoorIndex As Integer = 0 To m_DoorList.Count - 1
-         JsonDoorList.Add(New JsonDoor(nDoorIndex + 1, m_DoorList(nDoorIndex)))
-      Next
-      Dim JsonFromWindow As String = JsonConvert.SerializeObject(JsonDoorList, Formatting.Indented)
-      If File.Exists(FilePath) Then
-         Dim sBackupFilePath As String = Path.ChangeExtension(FilePath, ".bck")
-         If File.Exists(sBackupFilePath) Then
-            Try
-               File.Delete(sBackupFilePath)
-            Catch ex As Exception
-               Map.refSupervisorFunction.PlgOutLog("Error! Impossible deleting backup file!")
-            End Try
-         End If
-         Try
-            File.Move(FilePath, sBackupFilePath)
-         Catch ex As Exception
-            Map.refSupervisorFunction.PlgOutLog("Error! Impossible renaming backup file!")
-         End Try
-      End If
-      File.WriteAllText(FilePath, JsonFromWindow)
-   End Sub
-
-   Private Sub WriteBackupCmd()
-      If m_bWritingBackup Then Return
-      m_bWritingBackup = True
-      m_nBackupindex = m_nModifyIndex
-      Dim sBackupDirPath As String = ""
-      GetPluginPrivateProfileString(S_GENERAL, K_BACKUPDIR, "", sBackupDirPath)
-      Dim sBackupFilePath As String = sBackupDirPath & "\Backup.json"
-      Write(sBackupFilePath)
-      m_bWritingBackup = False
-   End Sub
-
-   Friend Sub WriteBackup()
-      m_nModifyIndex += 1
-   End Sub
-
-   Private Sub BackupTimer_Tick(sender As Object, e As EventArgs)
-      If m_nBackupindex < m_nModifyIndex Then
-         WriteBackupCmd()
-      End If
-   End Sub
-
-   Private Sub RefreshGraphicsTimer_Tick(sender As Object, e As EventArgs)
-      If IsNothing(m_ExecProcessManager) Then Return
-      ' ciclo su coda risultati
-      Dim ArgumentsResult As ProcessArgsResult = m_ExecProcessManager.ArgumentsResultDequeue
-      While Not IsNothing(ArgumentsResult)
-         ' aggiorno risultato sulla porta
-         Dim CurrRequestDoor As Door = m_DoorList.FirstOrDefault(Function(x) x.nId = ArgumentsResult.ProcessArgs.nId)
-         If Not IsNothing(CurrRequestDoor) Then
-            CurrRequestDoor.SetState(If(ArgumentsResult.nResult = 0, Door.DoorStates.VERIFIED, Door.DoorStates.VERIFICATION_FAILED))
-            ' elimino file generati
-            Dim sGenDDFDirPath As String = ""
-            GetPluginPrivateProfileString(S_GENERAL, K_GENDDFDIR, "", sGenDDFDirPath)
-            Dim sDoorFileName As String = CurrRequestDoor.sDDFName & "_" & CurrRequestDoor.nId
-            Try
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".tok")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_2.tok")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".cnc")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_a.cnc")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_b.cnc")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_2.cnc")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_2_a.cnc")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".html")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_2.html")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".log")
-               File.Delete(sGenDDFDirPath & "\" & CurrRequestDoor.sDDFName & ".nge")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".nge")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".sest")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_2.sest")
-               File.Delete(sGenDDFDirPath & "\" & CurrRequestDoor.sDDFName & ".txt")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & ".txt")
-               File.Delete(sGenDDFDirPath & "\" & sDoorFileName & "_2.txt")
-            Catch ex As Exception
-
-            End Try
-         End If
-         WriteBackup()
-         ArgumentsResult = m_ExecProcessManager.ArgumentsResultDequeue
-      End While
-      If Not bExecButton_IsEnabled AndAlso m_ExecProcessManager.ExecutionThreadStatus = ExecProcessManager.ExecutionThreadStatuses.STOPPED Then
-         SetExecButtonIsEnabled(True)
-      End If
-   End Sub
-
-   Friend Function GetNextDoor() As Door
-      Dim NextDoor As Door = m_DoorList.FirstOrDefault(Function(x) x.nState = Door.DoorStates.READY_FOR_PRODUCTION)
-      If Not IsNothing(NextDoor) Then
-         Map.refSupervisorFunction.PlgOutLog("GetNextDoor: door " & NextDoor.nId & " set at ON_LOAD_STATION")
-         NextDoor.SetState(Door.DoorStates.ON_LOAD_STATION)
-         WriteBackup()
-      End If
-      Return NextDoor
-   End Function
-
-   Public Sub ResetProductionQueue()
-      For Each Door In m_DoorList
-         If Door.nState = Door.DoorStates.READY_FOR_PRODUCTION Then
-            Door.SetState(Door.DoorStates.VERIFIED, False)
-         End If
-      Next
-   End Sub
-
-#End Region    ' METHODS
-
-#Region "COMMANDS"
-
-#Region "OpenCSV"
-
-   Public ReadOnly Property OpenCSV_Command As ICommand
-      Get
-         If m_cmdOpenCSV Is Nothing Then
-            m_cmdOpenCSV = New Command(AddressOf OpenCSV)
-         End If
-         Return m_cmdOpenCSV
-      End Get
-   End Property
-
-   Public Sub OpenCSV()
-      Dim sDir As String = String.Empty
-      'GetMainPrivateProfileString(S_GENERAL, K_LASTIMPDIR, "", sDir)
-      Dim OpenFileDialog As New Microsoft.Win32.OpenFileDialog() With {
-         .DefaultExt = ".csv",
-         .Filter = "CSV (*.csv)|*.csv",
-         .InitialDirectory = If(Directory.Exists(sDir), sDir, ""),
-         .CheckFileExists = True,
-         .ValidateNames = True}
-      If OpenFileDialog.ShowDialog() Then
-         Dim sCSVPath As String = OpenFileDialog.FileName
-         Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(sCSVPath)
-            MyReader.TextFieldType = FileIO.FieldType.Delimited
-            Dim sDelimiter As String = ""
-            GetPluginPrivateProfileString(S_CSV, K_DELIMITER, ";", sDelimiter)
-            MyReader.SetDelimiters(sDelimiter)
-            ' leggo intestazione
-            Dim Headers As String() = MyReader.ReadFields()
-            Dim sDDFName As String = ""
-            Dim sQuantityName As String = ""
-            Dim sHeightName As String = ""
-            Dim sWidthName As String = ""
-            Dim sThicknessName 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)
-            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)
-            If nDDFNameIndex = -1 Then
-               Dim sMessage As String = "Error! DDFName column not found! Csv file will not be read!"
-               ' egtoutlog(sMessage)
-               MessageBox.Show(sMessage, "Error", MessageBoxButton.OK, MessageBoxImage.Error)
-               Return
-            End If
-            Dim Values As String()
-            Dim nLineIndex As Integer = 1
-            Dim sLineErrorList As String = ""
-            While Not MyReader.EndOfData
-               Try
-                  Values = MyReader.ReadFields()
-                  Dim nQuantity As Integer = 1
-                  If nQuantityNameIndex >= 0 AndAlso nQuantityNameIndex < Values.Count Then
-                     If Not Integer.TryParse(Values(nQuantityNameIndex), nQuantity) OrElse nQuantity < 1 Then
-                        nQuantity = 1
-                        Dim sLine As String = ""
-                        For nValueIndex = 0 To Values.Count - 1
-                           sLine &= Values(nValueIndex) & If(nValueIndex < Values.Count, ";", "")
-                        Next
-                        sLineErrorList &= "Quantity not readable in line " & sLine & ". This line will be skipped"
-                        Continue While
-                     End If
-                  End If
-                  Dim dWidth As Double = 0
-                  If nWidthNameIndex >= 0 AndAlso nWidthNameIndex < Values.Count Then
-                     If Not StringToDouble(Values(nWidthNameIndex), dWidth) OrElse dWidth < 0 Then
-                        dWidth = 0
-                     End If
-                  End If
-                  Dim dHeight As Double = 0
-                  If nHeightNameIndex >= 0 AndAlso nHeightNameIndex < Values.Count Then
-                     If Not StringToDouble(Values(nHeightNameIndex), dHeight) OrElse dHeight < 0 Then
-                        dHeight = 0
-                     End If
-                  End If
-                  Dim dThickness As Double = 0
-                  If nThicknessNameIndex >= 0 AndAlso nThicknessNameIndex < Values.Count Then
-                     If Not StringToDouble(Values(nThicknessNameIndex), dThickness) OrElse dThickness < 0 Then
-                        dThickness = 0
-                     End If
-                  End If
-                  For nQuantityIndex = 1 To nQuantity
-                     Dim nId As Integer = 1
-                     If m_DoorList.Count > 0 Then
-                        Dim nMaxId As Integer = m_DoorList.Max(Of Integer)(Function(x) x.nId)
-                        'If nMaxId < 100 Then
-                        nId = nMaxId + 1
-                        'End If
-                     End If
-                     Dim NewDoor As New Door(nId, nLineIndex, Values(nDDFNameIndex), Path.GetFileName(sCSVPath),
-                                          1, dWidth, dHeight, dThickness, Headers, Values)
-                     m_DoorList.Add(NewDoor)
-                  Next
-                  nLineIndex += 1
-               Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
-                  Dim sMessage As String = "Line " & ex.Message & "is not valid and will be skipped."
-                  ' egtoutlog(sMessage)
-                  sLineErrorList &= Environment.NewLine & ex.Message
-               End Try
-            End While
-            If Not String.IsNullOrWhiteSpace(sLineErrorList) Then
-               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, K_DDFDIR, "", sDDFDirPath)
-         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 sDDFFilePath As String = sDDFDirPath & "\" & Door.sDDFName & ".ddf"
-               Dim sGenDDFFilePath As String = sGenDDFDirPath & "\" & Door.sDDFName & "_" & Door.nId & ".ddf"
-               Try
-                  File.Copy(sDDFFilePath, sGenDDFFilePath, True)
-               Catch ex As Exception
-                  Map.refSupervisorFunction.PlgOutLog("Error: Copy file from " & sDDFFilePath & " to " & sGenDDFFilePath & " failed!")
-               End Try
-               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
-
-   Public Sub ExecProcessManager_AllArgsProcessed()
-      m_ExecProcessManager.StopExecutionThread()
-   End Sub
-
-   Public Sub ExecProcessManager_PostProcess(ProcessArgsResult As ProcessArgsResult)
-      ' verifico file di risultati
-      Dim sDDFDirPath As String = ""
-      GetPluginPrivateProfileString(S_GENERAL, "DDFDir", "", sDDFDirPath)
-      Dim sDDFFilePath As String = sDDFDirPath & "\" & ProcessArgsResult.ProcessArgs.sArgs
-      Dim sTxtFilePath As String = Path.ChangeExtension(sDDFDirPath, ".txt")
-      If Not File.Exists(sTxtFilePath) Then
-         ProcessArgsResult.SetResult(-1)
-         Return
-      End If
-      Dim TxtFileLines As String() = File.ReadAllLines(sTxtFilePath)
-      For nLineIndex As Integer = 0 To TxtFileLines.Count - 1
-         Dim Match As Match = Regex.Match(TxtFileLines(nLineIndex), "\s*Err\s*=\s*(\d*)\s*")
-         If Not IsNothing(Match) AndAlso Not IsNothing(Match.Groups(1)) Then
-            Dim sResult As String = Match.Groups(1).Value
-            Dim nResult As Integer = -2
-            If Integer.TryParse(sResult, nResult) Then
-               ProcessArgsResult.SetResult(nResult)
-            Else
-               ProcessArgsResult.SetResult(-2)
-            End If
-         End If
-      Next
-   End Sub
-
-#End Region ' OpenCSV
-
-#Region "SkipDoor"
-
-   Public ReadOnly Property SkipDoor_Command As ICommand
-      Get
-         If m_cmdSkipDoor Is Nothing Then
-            m_cmdSkipDoor = New Command(AddressOf SkipDoor)
-         End If
-         Return m_cmdSkipDoor
-      End Get
-   End Property
-
-   Public Sub SkipDoor()
-      If IsNothing(SelDoor) OrElse (SelDoor.nState <> Door.DoorStates.VERIFIED AndAlso SelDoor.nState <> Door.DoorStates.SKIPPED) Then Return
-      SelDoor.SetState(If(SelDoor.nState = Door.DoorStates.VERIFIED, Door.DoorStates.SKIPPED, Door.DoorStates.VERIFIED))
-      WriteBackup()
-   End Sub
-
-#End Region ' SkipDoor
-
-#Region "MoveUp"
-
-   Public ReadOnly Property MoveUp_Command As ICommand
-      Get
-         If m_cmdMoveUp Is Nothing Then
-            m_cmdMoveUp = New Command(AddressOf MoveUp)
-         End If
-         Return m_cmdMoveUp
-      End Get
-   End Property
-
-   Public Sub MoveUp()
-      If IsNothing(SelDoor) Then Return
-      Dim nOldIndex As Integer = m_DoorList.IndexOf(SelDoor)
-      If nOldIndex = 0 Then Return
-      If m_DoorList(nOldIndex - 1).nState >= Door.DoorStates.READY_FOR_PRODUCTION Then Return
-      m_DoorList.Move(nOldIndex, nOldIndex - 1)
-      WriteBackup()
-   End Sub
-
-#End Region ' MoveUp
-
-#Region "MoveDown"
-
-   Public ReadOnly Property MoveDown_Command As ICommand
-      Get
-         If m_cmdMoveDown Is Nothing Then
-            m_cmdMoveDown = New Command(AddressOf MoveDown)
-         End If
-         Return m_cmdMoveDown
-      End Get
-   End Property
-
-   Public Sub MoveDown()
-      If IsNothing(SelDoor) OrElse SelDoor.nState >= Door.DoorStates.READY_FOR_PRODUCTION Then Return
-      Dim nOldIndex As Integer = m_DoorList.IndexOf(SelDoor)
-      If nOldIndex = m_DoorList.Count - 1 Then Return
-      m_DoorList.Move(nOldIndex, nOldIndex + 1)
-      WriteBackup()
-   End Sub
-
-#End Region ' MoveDown
-
-#Region "Delete"
-
-   Public ReadOnly Property Delete_Command As ICommand
-      Get
-         If m_cmdDelete Is Nothing Then
-            m_cmdDelete = New Command(AddressOf Delete)
-         End If
-         Return m_cmdDelete
-      End Get
-   End Property
-
-   Public Sub Delete()
-      If IsNothing(SelDoor) OrElse SelDoor.nState >= Door.DoorStates.READY_FOR_PRODUCTION Then Return
-      If MessageBox.Show("Are you sure you want to delete the selected door?", "Info", MessageBoxButton.YesNo, MessageBoxImage.Information) = MessageBoxResult.Yes Then
-         m_DoorList.Remove(SelDoor)
-         WriteBackup()
-      End If
-   End Sub
-
-#End Region ' Delete
-
-#Region "DeleteAll"
-
-   Public ReadOnly Property DeleteAll_Command As ICommand
-      Get
-         If m_cmdDeleteAll Is Nothing Then
-            m_cmdDeleteAll = New Command(AddressOf DeleteAll)
-         End If
-         Return m_cmdDeleteAll
-      End Get
-   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 Then Continue For
-            m_DoorList.Remove(Door)
-         Next
-         WriteBackup()
-      End If
-   End Sub
-
-#End Region ' DeleteAll
-
-#Region "Produce"
-
-   Public ReadOnly Property Produce_Command As ICommand
-      Get
-         If m_cmdProduce Is Nothing Then
-            m_cmdProduce = New Command(AddressOf Produce)
-         End If
-         Return m_cmdProduce
-      End Get
-   End Property
-
-   Public Sub Produce()
-      ProduceDoor(m_SelDoor)
-      WriteBackup()
-   End Sub
-
-   Public Sub ProduceDoor(DoorToProduce As Door, Optional bWriteBackup As Boolean = True)
-      If IsNothing(DoorToProduce) OrElse DoorToProduce.nState = Door.DoorStates.SKIPPED OrElse
-                                         DoorToProduce.nState = Door.DoorStates.VERIFICATION_FAILED OrElse
-                                         DoorToProduce.nState >= Door.DoorStates.READY_FOR_PRODUCTION Then Return
-      ' la sposto dopo l'ultima da produrre
-      Dim nNewIndex As Integer = m_DoorList.IndexOf(m_DoorList.FirstOrDefault(Function(x) x.nState < Door.DoorStates.READY_FOR_PRODUCTION))
-      Dim nOldIndex As Integer = m_DoorList.IndexOf(DoorToProduce)
-      m_DoorList.Move(nOldIndex, nNewIndex)
-      DoorToProduce.SetState(Door.DoorStates.READY_FOR_PRODUCTION, bWriteBackup)
-   End Sub
-
-#End Region ' Produce
-
-#Region "ProduceAll"
-
-   Public ReadOnly Property ProduceAll_Command As ICommand
-      Get
-         If m_cmdProduceAll Is Nothing Then
-            m_cmdProduceAll = New Command(AddressOf ProduceAll)
-         End If
-         Return m_cmdProduceAll
-      End Get
-   End Property
-
-   Public Sub ProduceAll()
-      If m_DoorList.Count = 0 Then Return
-      For nDoorIndex = 0 To m_DoorList.Count - 1
-         Dim CurrDoor As Door = m_DoorList(nDoorIndex)
-         ProduceDoor(CurrDoor, False)
-      Next
-      WriteBackup()
-   End Sub
-
-#End Region ' ProduceAll
-
-#Region "ResetProductionQueue"
-
-   Public ReadOnly Property ResetProductionQueue_Command As ICommand
-      Get
-         If m_cmdResetProductionQueue Is Nothing Then
-            m_cmdResetProductionQueue = New Command(AddressOf ResetProductionQueueCmd)
-         End If
-         Return m_cmdResetProductionQueue
-      End Get
-   End Property
-
-   Public Sub ResetProductionQueueCmd()
-      ResetProductionQueue()
-      WriteBackup()
-   End Sub
-
-#End Region ' ResetProductionQueue
-
-#Region "Verify"
-
-   Public ReadOnly Property Verify_Command As ICommand
-      Get
-         If m_cmdVerify Is Nothing Then
-            m_cmdVerify = New Command(AddressOf Verify)
-         End If
-         Return m_cmdVerify
-      End Get
-   End Property
-
-   Public Sub 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 & """")
-         'm_ExecProcessManager.SetPostProcess(AddressOf ExecProcessManager_PostProcess)
-         AddHandler m_ExecProcessManager.m_AllArgsProcessed, AddressOf ExecProcessManager_AllArgsProcessed
-         m_ExecProcessManager.SetMaxCamInstances(3)
-      End If
-      Dim sDDFDirPath As String = ""
-      GetPluginPrivateProfileString(S_GENERAL, "DDFDir", "", sDDFDirPath)
-      For Each Door In m_DoorList
-         If Door.nState = Door.DoorStates.LOADED_FROM_CSV Or Door.nState = Door.DoorStates.VERIFICATION_FAILED Then
-            Dim sDDFFilePath As String = sDDFDirPath & "\" & Door.sDDFName & ".ddf"
-            m_ExecProcessManager.ArgumentsEnqueue(New ProcessArgs(Door.nId, sDDFFilePath))
-         End If
-      Next
-      If bStartExecProcessManager OrElse m_ExecProcessManager.ExecutionThreadStatus = ExecProcessManager.ExecutionThreadStatuses.STOPPED Then
-         m_ExecProcessManager.StartExecutionThread()
-         SetExecButtonIsEnabled(False)
-      End If
-      WriteBackup()
-   End Sub
-
-#End Region ' Verify
-
-#End Region    ' COMMANDS
-
-End Class
-
-Public Class Door
-   Inherits VMBase
-
-   Public Enum DoorStates As Integer
-      NULL = 0
-      LOADED_FROM_CSV = 1
-      VERIFIED = 10
-      VERIFICATION_FAILED = 11
-      SKIPPED = 20
-      NOTPRODUCE = 21
-      READY_FOR_PRODUCTION = 30
-      ON_LOAD_STATION = 31
-      MACHINE_1_START = 33
-      MACHINE_1_END = 34
-      MACHINE_2_START = 35
-      MACHINE_2_END = 36
-      PRODUCED = 37
-      SCRAP = 40
-   End Enum
-
-   Public Enum DoorProdStates As Integer
-      NOT_INIT = 0
-      IMPORTED = 1
-      SENT_1 = 2
-      START_MACHINING_1 = 3
-      MACHINED_1 = 4
-      SENT_2 = 5
-      START_MACHINING_2 = 6
-      MACHINED_2 = 7
-      UNLOADED = 8
-   End Enum
-
-   Private m_nId As Integer
-   Public ReadOnly Property nId As Integer
-      Get
-         Return m_nId
-      End Get
-   End Property
-
-   Private m_nCSVLine As Integer
-   Public ReadOnly Property nCSVLine As Integer
-      Get
-         Return m_nCSVLine
-      End Get
-   End Property
-
-   Private m_sDDFName As String
-   Public ReadOnly Property sDDFName As String
-      Get
-         Return m_sDDFName
-      End Get
-   End Property
-
-   Private m_nQuantity As Integer
-   Public ReadOnly Property nQuantity As Integer
-      Get
-         Return m_nQuantity
-      End Get
-   End Property
-
-   Private m_dWidth As Double
-   Public ReadOnly Property dWidth As Double
-      Get
-         Return m_dWidth
-      End Get
-   End Property
-
-   Private m_dHeight As Double
-   Public ReadOnly Property dHeight As Double
-      Get
-         Return m_dHeight
-      End Get
-   End Property
-
-   Private m_dThickness As Double
-   Public ReadOnly Property dThickness As Double
-      Get
-         Return m_dThickness
-      End Get
-   End Property
-
-   Private m_sCSVName As String
-   Public ReadOnly Property sCSVName As String
-      Get
-         Return m_sCSVName
-      End Get
-   End Property
-
-   Private m_CustomerParameters As New List(Of CustomerParameter)
-   Public ReadOnly Property CustomerParameters As List(Of CustomerParameter)
-      Get
-         Return m_CustomerParameters
-      End Get
-   End Property
-
-   Private m_nState As DoorStates = DoorStates.LOADED_FROM_CSV
-   Public ReadOnly Property nState As DoorStates
-      Get
-         Return m_nState
-      End Get
-   End Property
-   Friend Sub SetState(value As DoorStates, Optional bWriteBackup As Boolean = True, Optional bUpdate As Boolean = True)
-      m_nState = value
-      If bWriteBackup Then Map.refDoorListPageVM.WriteBackup()
-      If bUpdate Then
-         NotifyPropertyChanged(NameOf(nState))
-         NotifyPropertyChanged(NameOf(Background))
-      End If
-   End Sub
-
-#Region "Statistics"
-
-   Private m_nProdState As DoorProdStates = DoorProdStates.NOT_INIT
-   Public ReadOnly Property nProdState As DoorProdStates
-      Get
-         Return m_nProdState
-      End Get
-   End Property
-   Friend Sub SetProdState(value As DoorProdStates)
-      m_nProdState = value
-      Select Case value
-         Case DoorProdStates.SENT_1
-            SetState(DoorStates.ON_LOAD_STATION)
-         Case DoorProdStates.START_MACHINING_1
-            SetState(DoorStates.MACHINE_1_START)
-         Case DoorProdStates.MACHINED_1
-            SetState(DoorStates.MACHINE_1_END)
-         Case DoorProdStates.START_MACHINING_2
-            SetState(DoorStates.MACHINE_2_START)
-         Case DoorProdStates.MACHINED_2
-            SetState(DoorStates.MACHINE_2_END)
-         Case DoorProdStates.UNLOADED
-            SetState(DoorStates.PRODUCED)
-      End Select
-      NotifyPropertyChanged(NameOf(nProdState))
-   End Sub
-
-   Private m_dtLoadTime As DateTime = DateTime.MinValue
-   Friend ReadOnly Property dtLoadTime As DateTime
-      Get
-         Return m_dtLoadTime
-      End Get
-   End Property
-   Public ReadOnly Property sLoadTime As String
-      Get
-         Return If(m_dtLoadTime <> DateTime.MinValue, m_dtLoadTime.ToString("yy/MM/dd hh:mm:ss"), "")
-      End Get
-   End Property
-   Friend Sub SetLoadTime(LoadTime As Long)
-      m_dtLoadTime = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc).AddSeconds(LoadTime).ToLocalTime()
-      NotifyPropertyChanged(NameOf(sLoadTime))
-   End Sub
-
-   Private m_dtMachining1Start As DateTime = DateTime.MinValue
-   Friend ReadOnly Property dtMachining1Start As DateTime
-      Get
-         Return m_dtMachining1Start
-      End Get
-   End Property
-   Public ReadOnly Property sMachining1Start As String
-      Get
-         Return If(m_dtMachining1Start <> DateTime.MinValue, m_dtMachining1Start.ToString("yy/MM/dd hh:mm:ss"), "")
-      End Get
-   End Property
-   Friend Sub SetMachining1Start(Machining1Start As Long)
-      m_dtMachining1Start = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc).AddSeconds(Machining1Start).ToLocalTime()
-      NotifyPropertyChanged(NameOf(sMachining1Start))
-   End Sub
-
-   Private m_dtMachining1End As DateTime = DateTime.MinValue
-   Friend ReadOnly Property dtMachining1End As DateTime
-      Get
-         Return m_dtMachining1End
-      End Get
-   End Property
-   Public ReadOnly Property sMachining1End As String
-      Get
-         Return If(m_dtMachining1End <> DateTime.MinValue, m_dtMachining1End.ToString("yy/MM/dd hh:mm:ss"), "")
-      End Get
-   End Property
-   Friend Sub SetMachining1End(Machining1End As Long)
-      m_dtMachining1End = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc).AddSeconds(Machining1End).ToLocalTime()
-      NotifyPropertyChanged(NameOf(sMachining1End))
-   End Sub
-
-   Private m_dtMachining2Start As DateTime = DateTime.MinValue
-   Friend ReadOnly Property dtMachining2Start As DateTime
-      Get
-         Return m_dtMachining2Start
-      End Get
-   End Property
-   Public ReadOnly Property sMachining2Start As String
-      Get
-         Return If(m_dtMachining2Start <> DateTime.MinValue, m_dtMachining2Start.ToString("yy/MM/dd hh:mm:ss"), "")
-      End Get
-   End Property
-   Friend Sub SetMachining2Start(Machining2Start As Long)
-      m_dtMachining2Start = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc).AddSeconds(Machining2Start).ToLocalTime()
-      NotifyPropertyChanged(NameOf(sMachining2Start))
-   End Sub
-
-   Private m_dtMachining2End As DateTime = DateTime.MinValue
-   Friend ReadOnly Property dtMachining2End As DateTime
-      Get
-         Return m_dtMachining2End
-      End Get
-   End Property
-   Public ReadOnly Property sMachining2End As String
-      Get
-         Return If(m_dtMachining2End <> DateTime.MinValue, m_dtMachining2End.ToString("yy/MM/dd hh:mm:ss"), "")
-      End Get
-   End Property
-   Friend Sub SetMachining2End(Machining2End As Long)
-      m_dtMachining2End = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc).AddSeconds(Machining2End).ToLocalTime()
-      NotifyPropertyChanged(NameOf(sMachining2End))
-   End Sub
-
-   Private m_dtUnloadTime As DateTime = DateTime.MinValue
-   Friend ReadOnly Property dtUnloadTime As DateTime
-      Get
-         Return m_dtUnloadTime
-      End Get
-   End Property
-   Public ReadOnly Property sUnloadTime As String
-      Get
-         Return If(m_dtUnloadTime <> DateTime.MinValue, m_dtUnloadTime.ToString("yy/MM/dd hh:mm:ss"), "")
-      End Get
-   End Property
-   Friend Sub SetUnloadTime(UnloadTime As Long)
-      m_dtUnloadTime = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc).AddSeconds(UnloadTime).ToLocalTime()
-      NotifyPropertyChanged(NameOf(sUnloadTime))
-   End Sub
-
-#End Region    ' Statistics
-
-   Public ReadOnly Property Background As SolidColorBrush
-      Get
-         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 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 Dictionary.Effector_Blue_Status
-            Case DoorStates.MACHINE_1_END
-               Return Brushes.Yellow
-            Case DoorStates.MACHINE_2_START
-               Return Dictionary.Effector_Blue_Status
-            Case DoorStates.MACHINE_2_END, DoorStates.PRODUCED
-               Return Dictionary.Effector_Gray_Status
-            Case DoorStates.SCRAP
-               Return Brushes.MediumPurple
-            Case Else
-               Return Brushes.White
-         End Select
-      End Get
-   End Property
-
-   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())
-      m_nId = nId
-      m_nCSVLine = nCSVLine
-      m_sDDFName = sDDFName
-      m_sCSVName = sCSVName
-      m_nQuantity = nQuantity
-      m_dHeight = dHeight
-      m_dWidth = dWidth
-      m_dThickness = dThickness
-      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), "")))
-         Next
-      End If
-   End Sub
-
-   Sub New(JsonDoor As JsonDoor)
-      m_nId = JsonDoor.nId
-      m_nCSVLine = JsonDoor.nCSVLine
-      m_sDDFName = JsonDoor.sDDFName
-      m_sCSVName = JsonDoor.sCSVName
-      m_nQuantity = JsonDoor.nQuantity
-      m_dHeight = JsonDoor.dHeight
-      m_dWidth = JsonDoor.dWidth
-      m_dThickness = JsonDoor.dThickness
-      m_nState = JsonDoor.nState
-      m_CustomerParameters = JsonDoor.CustomerParameters
-      m_nProdState = JsonDoor.nProdState
-      m_dtLoadTime = JsonDoor.dtLoadTime
-      m_dtMachining1Start = JsonDoor.dtMachining1Start
-      m_dtMachining1End = JsonDoor.dtMachining1End
-      m_dtMachining2Start = JsonDoor.dtMachining2Start
-      m_dtMachining2End = JsonDoor.dtMachining2End
-      m_dtUnloadTime = JsonDoor.dtUnloadTime
-   End Sub
-
-End Class
-
-Public Class CustomerParameter
-
-   Private m_sHeader As String
-   Public ReadOnly Property sHeader As String
-      Get
-         Return m_sHeader
-      End Get
-   End Property
-
-   Private m_sValue As String
-   Public ReadOnly Property sValue As String
-      Get
-         Return m_sValue
-      End Get
-   End Property
-
-   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
-            Return Dictionary.Effector_Yellow_SelStatus
-         Case DoorStates.READY_FOR_PRODUCTION, DoorStates.ON_LOAD_STATION
-            Return Dictionary.Effector_LightBlue_SelStatus
-         Case DoorStates.MACHINE_1_START, DoorStates.MACHINE_2_START
-            Return Dictionary.Effector_Blue_SelStatus
-         Case DoorStates.MACHINE_1_END
-            Return Dictionary.Effector_Blue_SelStatus
-         Case DoorStates.MACHINE_2_END, DoorStates.PRODUCED
-            Return Dictionary.Effector_Gray_SelStatus
-         Case DoorStates.SCRAP
-            Return Dictionary.Effector_White_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.FiveLakes/MachinePage/MachinePageV.xaml b/Effector.Plugin.FiveLakes/MachinePage/MachinePageV.xaml
index 293a78d..f4a1486 100644
--- a/Effector.Plugin.FiveLakes/MachinePage/MachinePageV.xaml
+++ b/Effector.Plugin.FiveLakes/MachinePage/MachinePageV.xaml
@@ -10,6 +10,7 @@
       <local:StringToVisibilityConverter x:Key="StringToVisibilityConverter"/>
       <local:StringToMachineStateConverter x:Key="StringToMachineStateConverter"/>
       <local:StringToDDFCalcStateConverter x:Key="StringToDDFCalcStateConverter"/>
+      <local:DDFCalcStateToVisibilityConverter x:Key="DDFCalcStateToVisibilityConverter"/>
       <local:StringToNewDoorStateConverter x:Key="StringToNewDoorStateConverter"/>
       <local:StringToBooleanConverter x:Key="StringToBooleanConverter"/>
       <local:StringToBackgroundConverter x:Key="StringToBackgroundConverter"/>
@@ -43,7 +44,8 @@
       </ItemsControl.ItemTemplate>
    </ItemsControl>
    <Grid Grid.Column="1"
-         VerticalAlignment="Center">
+         VerticalAlignment="Center"
+         Visibility="{Binding MachineCommands_Visibility}">
       <Grid.RowDefinitions>
          <RowDefinition Height="Auto"/>
          <RowDefinition Height="Auto"/>
@@ -773,6 +775,17 @@
                <TextBlock Text="{Binding DoorOnMachineArray[0].nId}"
                           Style="{StaticResource MachDrawVar_TextBlock}"/>
             </Border>
+            <Grid Grid.Column="1">
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="1*"/>
+                  <RowDefinition Height="1*"/>
+               </Grid.RowDefinitions>
+               <ProgressBar Grid.Row="1"
+                            Value="{Binding dDdfCalcValue, Mode=OneWay}"
+                            Height="20"
+                            Maximum="100"
+                            Visibility="{Binding nDDfCalcState, Converter={StaticResource DDFCalcStateToVisibilityConverter}}"/>
+            </Grid>
             <Border Grid.Column="3"
                     Grid.Row="1"
                     Visibility="{Binding VariableList[1].sValue, Converter={StaticResource StringToVisibilityConverter}}"
diff --git a/Effector.Plugin.FiveLakes/MachinePage/MachinePageVM.vb b/Effector.Plugin.FiveLakes/MachinePage/MachinePageVM.vb
index 8b8aca7..4089d99 100644
--- a/Effector.Plugin.FiveLakes/MachinePage/MachinePageVM.vb
+++ b/Effector.Plugin.FiveLakes/MachinePage/MachinePageVM.vb
@@ -44,6 +44,13 @@ Public Class MachinePageVM
       NotifyPropertyChanged(NameOf(nDDfCalcState))
    End Sub
 
+   Private m_dDdfCalcValue As Double = 0
+   Public ReadOnly Property dDdfCalcValue As Double
+      Get
+         Return m_dDdfCalcValue
+      End Get
+   End Property
+
    Private m_nNewDoorState As Integer = -1
    Public ReadOnly Property nNewDoorState As Integer
       Get
@@ -159,7 +166,7 @@ Public Class MachinePageVM
       AddHandler m_VarTimer.Tick, AddressOf VarTimer_Tick
       m_VarTimer.Interval = New TimeSpan(100)
       m_VarTimer.Start()
-      m_DoorOnMachineList.Add(New Door(35, 1, "Test.ddf", "Produzione2024", 1, 800, 1800, 40, {""}, {""}))
+      '  m_DoorOnMachineList.Add(New Door(35, 1, "Test.ddf", "Produzione2024", 1, 800, 1800, 40, {""}, {""}))
       Dim sResourcesDirPath As String = ""
       GetPluginPrivateProfileString(S_GENERAL, K_RESOURCESDIR, "", sResourcesDirPath)
       m_sMachineImagePath = sResourcesDirPath & "\FiveLakesMachine.png"
@@ -242,6 +249,14 @@ Public Class MachinePageVM
       Dim nState As Integer = -1
       If LuaGetGlobVar("MACHINE1.DDfCalcState", nState) Then
          SetDDfCalcState(nState)
+         If nState = 1 Then
+            m_dDdfCalcValue += 100 / 250
+            m_dDdfCalcValue = Math.Min(100, m_dDdfCalcValue)
+         ElseIf m_dDdfCalcValue <> 0 Then
+            m_dDdfCalcValue = 0
+         End If
+         NotifyPropertyChanged(NameOf(dDdfCalcValue))
+         NotifyPropertyChanged(NameOf(nDDfCalcState))
       End If
       If LuaGetGlobVar("MACHINE1.NewDoorState", nState) Then
          SetNewDoorState(nState)
@@ -962,6 +977,20 @@ Public Class StringToDDFCalcStateConverter
 
 End Class
 
+Public Class DDFCalcStateToVisibilityConverter
+   Implements IValueConverter
+
+   Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As CultureInfo) As Object Implements IValueConverter.Convert
+      If TypeOf value IsNot Integer Then Return Visibility.Collapsed
+      Return If(value = 0, Visibility.Collapsed, Visibility.Visible)
+   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
+
 Public Class StringToNewDoorStateConverter
    Implements IValueConverter
 
diff --git a/Effector.Plugin.FiveLakes/Utility/Dictionary.xaml b/Effector.Plugin.FiveLakes/Utility/Dictionary.xaml
index 7b46ab1..86534bd 100644
--- a/Effector.Plugin.FiveLakes/Utility/Dictionary.xaml
+++ b/Effector.Plugin.FiveLakes/Utility/Dictionary.xaml
@@ -250,6 +250,13 @@
    <Style x:Key="DataGridTemplateColumn_ComboBox" TargetType="{x:Type ComboBox}">
       <Setter Property="HorizontalContentAlignment" Value="Center"/>
       <Setter Property="VerticalContentAlignment" Value="Center"/>
+      <Setter Property="ItemContainerStyle">
+         <Setter.Value>
+            <Style TargetType="{x:Type ComboBoxItem}">
+               <Setter Property="HorizontalContentAlignment" Value="Left"/>
+            </Style>
+         </Setter.Value>
+      </Setter>
    </Style>
 
    <!--Style for page tabcontrol-->
diff --git a/Effector.Plugin.FiveLakes/Utility/JsonUtility.vb b/Effector.Plugin.FiveLakes/Utility/JsonUtility.vb
index 71965e4..226b531 100644
--- a/Effector.Plugin.FiveLakes/Utility/JsonUtility.vb
+++ b/Effector.Plugin.FiveLakes/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