From e490597a7bbefd6d2a2773de9499a6332d3e5a54 Mon Sep 17 00:00:00 2001
From: Emmanuele Sassi <emmanuele.sassi@egaltech.com>
Date: Mon, 21 Oct 2024 12:12:11 +0200
Subject: [PATCH] - Eliminato nome FiveLakes - agginta gestione ddt - aggiunta
 gestione csvout - possibilita' di aggiungere porte manualmente - cambiati
 testi in italiano - gestito blocco edit su lista porte quando in produzione -
 aggiunta eliminazione porte prodotte - aggiunta funzione che resetta stati su
 reset macchina

---
 .../Constants/ConstIni.vb                     |   4 +
 .../DoorListPage/DoorListPageV.xaml           |  78 +++++--
 .../DoorListPage/DoorListPageV.xaml.vb        |  10 +
 .../DoorListPage/DoorListPageVM.vb            | 193 +++++++++++++++---
 .../Effector.Plugin.DoorArreda.vbproj         |   4 +-
 Effector.Plugin.DoorArreda/FiveLakesUI.xaml   |   2 +-
 Effector.Plugin.DoorArreda/FiveLakesUIVM.vb   |   1 +
 Effector.Plugin.DoorArreda/LUA/Lua_General.vb |  16 +-
 .../MainMenu/MainMenuV.xaml                   |   6 +-
 .../My Project/AssemblyInfo.vb                |   4 +-
 .../My Project/Settings.Designer.vb           |   4 +-
 .../RestartWnd/RestartWndV.xaml               |   2 +-
 .../StatisticsPage/StatisticsPageV.xaml       |   2 +-
 .../Utility/Dictionary.xaml                   |   2 +-
 .../Utility/ExecProcessManager.vb             |   2 +-
 .../Utility/JsonUtility.vb                    |   2 +-
 16 files changed, 267 insertions(+), 65 deletions(-)

diff --git a/Effector.Plugin.DoorArreda/Constants/ConstIni.vb b/Effector.Plugin.DoorArreda/Constants/ConstIni.vb
index 8c95c49..1a61f13 100644
--- a/Effector.Plugin.DoorArreda/Constants/ConstIni.vb
+++ b/Effector.Plugin.DoorArreda/Constants/ConstIni.vb
@@ -17,6 +17,9 @@ Module ConstIni
    Public Const S_GENERAL As String = "General"
    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_CSVOUTPUT As String = "CSVOutput"
 
    Public Const S_CSV As String = "CSV"
    Public Const K_DDFNAME As String = "DDFName"
@@ -24,6 +27,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_MANUALADDEDDOORNAME As String = "ManualAddedDoorName"
 
    Public Const S_DEBUG As String = "Debug"
    Public Const K_VARIABLELIST As String = "VariableList"
diff --git a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml
index fa2beeb..2cba8f1 100644
--- a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml
+++ b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml
@@ -1,49 +1,64 @@
 <Grid x:Class="DoorListPageV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+      xmlns:local="clr-namespace:Effector.Plugin.DoorArreda">
    <Grid.RowDefinitions>
       <RowDefinition Height="Auto"/>
       <RowDefinition Height="1*"/>
    </Grid.RowDefinitions>
-   <StackPanel Orientation="Horizontal">
+   <StackPanel Orientation="Horizontal"
+               IsEnabled="{Binding bExecButton_IsEnabled}">
       <Button Content="CSV"
-              ToolTip="Open CSV file"
+              ToolTip="Apri file CSV"
               Command="{Binding OpenCSV_Command}"
               IsEnabled="{Binding bExecButton_IsEnabled}"/>
-      <Button Content="Skip Door"
-              ToolTip="Skip Door"
+      <Button Content="Salta Porta"
+              ToolTip="Blocca Porta selezionata, chenon verrà mandata in produzione"
               Command="{Binding SkipDoor_Command}"/>
       <Button Content="↑"
-              ToolTip="Move Up"
+              ToolTip="Sposta su"
               Command="{Binding MoveUp_Command}"/>
       <Button Content="↓"
-              ToolTip="Move Down"
+              ToolTip="Sposta giù"
               Command="{Binding MoveDown_Command}"/>
-      <Button Content="Delete"
-              ToolTip="Delete"
+      <Button Content="Cancella"
+              ToolTip="Cancella porta selezionata"
               Command="{Binding Delete_Command}"/>
-      <Button Content="Delete All"
-              ToolTip="Delete All"
+      <Button Content="Cancella tutto"
+              ToolTip="Cancella tutte le porte non in produzione"
               Command="{Binding DeleteAll_Command}"/>
-      <Button Content="Produce"
-              ToolTip="Send to production"
+      <Button Content="Produci"
+              ToolTip="Mette in coda di produzione la porta selezionata"
               Command="{Binding Produce_Command}"/>
-      <Button Content="Produce All"
-              ToolTip="Send all to production"
+      <Button Content="Produci Tutte"
+              ToolTip="Mette in coda di produzione tutte le porte"
               Command="{Binding ProduceAll_Command}"/>
-      <Button Content="Reset Production Queue"
-              ToolTip="Take all the door ready for production back to Verify state"
+      <Button Content="Reset Coda di Produzione"
+              ToolTip="Riporta tutte le porte pronte per essere lavorate allo stato Verificate state"
               Command="{Binding ResetProductionQueue_Command}"/>
-      <Button Content="Verify"
-              ToolTip="Verify all the doors that are in state Not Verified"
+      <Button Content="Verifica"
+              ToolTip="Verifica tutte le porte in stato Non Verificata"
               Command="{Binding Verify_Command}"
               IsEnabled="{Binding bExecButton_IsEnabled}"/>
+      <Button Content="Aggiungi"
+              ToolTip="Aggiunge una porta alla lista"
+              Command="{Binding AddDoor_Command}"/>
+      <Button Content="Salva CSV"
+              ToolTip="Salva un csv di produzione"
+              Command="{Binding SaveCSV_Command}"/>
    </StackPanel>
    <DataGrid Grid.Row="1"
              ItemsSource="{Binding DoorList}"
              SelectedItem="{Binding SelDoor}"
              AutoGenerateColumns="False"
-             CanUserSortColumns="False">
+             CanUserDeleteRows="False"
+             CanUserResizeRows="False"
+             SelectionMode="Single"
+             CanUserSortColumns="False"
+             ScrollViewer.VerticalScrollBarVisibility="Auto"
+             ScrollViewer.HorizontalScrollBarVisibility="Disabled"
+             BeginningEdit="DoorList_BeginningEdit"
+>
       <DataGrid.Columns>
          <DataGridTextColumn Header=""
                              Binding="{Binding nId}"
@@ -53,9 +68,24 @@
                              Binding="{Binding nCSVLine}"
                              Width="Auto"
                              IsReadOnly="True"/>
-         <DataGridTextColumn Header="DDF"
+         <DataGridTemplateColumn Header="DDF"
+                                 Width="Auto">
+            <DataGridTemplateColumn.CellTemplate>
+               <DataTemplate>
+                  <TextBlock Text="{Binding sDDFName}"/>
+               </DataTemplate>
+            </DataGridTemplateColumn.CellTemplate>
+            <DataGridTemplateColumn.CellEditingTemplate>
+               <DataTemplate>
+                  <ComboBox IsEditable="True" 
+                            Text="{Binding sDDFName}" 
+                            ItemsSource="{Binding DataContext.DDTList, RelativeSource={RelativeSource AncestorType={x:Type local:DoorListPageV}}}"/>
+               </DataTemplate>
+            </DataGridTemplateColumn.CellEditingTemplate>
+         </DataGridTemplateColumn>
+         <!--<DataGridTextColumn Header="DDF"
                              Binding="{Binding sDDFName}"
-                             Width="Auto"/>
+                             Width="Auto"/>-->
          <DataGridTextColumn Header="Quantity"
                              Binding="{Binding nQuantity}"
                              Width="Auto"
@@ -104,5 +134,9 @@
                              Width="Auto"
                              IsReadOnly="True"/>
       </DataGrid.Columns>
+      <!--<DataGrid.InputBindings>
+         <KeyBinding Key="Delete" Command="{Binding Tag.SelectedMachGroup.DeleteMachGroup_Command,
+                                                    RelativeSource={RelativeSource AncestorType={x:Type EgtBEAMWALL:RawPartListV}}}"/>
+      </DataGrid.InputBindings>-->
    </DataGrid>
 </Grid>
diff --git a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml.vb b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml.vb
index 57f3c4e..a2ef659 100644
--- a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml.vb
+++ b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml.vb
@@ -1,3 +1,13 @@
 Public Class DoorListPageV
 
+   ' funzione che impedisce di editare le righe che sono gia' in produzione
+   Private Sub DoorList_BeginningEdit(sender As Object, e As DataGridBeginningEditEventArgs)
+      If IsNothing(e.Row) Then Return
+      Dim RowVM As Door = DirectCast(e.Row.DataContext, Door)
+      ' se in produzione impedisco modifica dei parametri
+      If RowVM.nState >= Door.DoorStates.READY_FOR_PRODUCTION Then
+         e.Cancel = True
+      End If
+   End Sub
+
 End Class
diff --git a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageVM.vb b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageVM.vb
index 1d9eccd..1cb9962 100644
--- a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageVM.vb
+++ b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageVM.vb
@@ -3,10 +3,13 @@ Imports System.IO
 Imports Newtonsoft.Json
 Imports System.Windows.Threading
 Imports System.Text.RegularExpressions
+Imports System.Security.Cryptography
 
 Public Class DoorListPageVM
    Inherits VMBase
 
+   Private m_ManualAddedDoorName As String = "ManualAddedDoor"
+
    Private m_BackupTimer As New DispatcherTimer
    Private m_RefreshGraphicsTimer As New DispatcherTimer
    Private m_ExecProcessManager As ExecProcessManager
@@ -27,6 +30,13 @@ 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_bExecButton_IsEnabled As Boolean = True
    Public ReadOnly Property bExecButton_IsEnabled As Boolean
       Get
@@ -43,7 +53,9 @@ Public Class DoorListPageVM
 
    ' Definizione comandi
    Private m_cmdOpenCSV As ICommand
+   Private m_cmdSaveCSV As ICommand
    Private m_cmdSkipDoor As ICommand
+   Private m_cmdAddDoor As ICommand
    Private m_cmdMoveUp As ICommand
    Private m_cmdMoveDown As ICommand
    Private m_cmdDelete As ICommand
@@ -58,6 +70,22 @@ 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)
       Dim sBackupFilePath As String = sBackupDirPath & "\Backup.json"
@@ -180,6 +208,22 @@ Public Class DoorListPageVM
       Return NextDoor
    End Function
 
+   Friend Function NewDoorId() As Integer
+      Dim nId As Integer = 1
+      If m_DoorList.Count > 0 Then
+         Dim nMaxId As Integer = m_DoorList.Max(Of Integer)(Function(x) x.nId)
+         nId = nMaxId + 1
+      End If
+      Return nId
+   End Function
+
+   Friend Sub ResetStateAfterReset()
+      For Each Door In m_DoorList
+         If Door.nState > Door.DoorStates.VERIFIED AndAlso Door.nState < Door.DoorStates.PRODUCED Then
+            Door.SetState(Door.DoorStates.VERIFIED)
+         End If
+      Next
+   End Sub
 #End Region    ' METHODS
 
 #Region "COMMANDS"
@@ -269,13 +313,7 @@ Public Class DoorListPageVM
                      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 nId As Integer = NewDoorId()
                      Dim NewDoor As New Door(nId, nLineIndex, Values(nDDFNameIndex), Path.GetFileName(sCSVPath),
                                           1, dWidth, dHeight, dThickness, Headers, Values)
                      m_DoorList.Add(NewDoor)
@@ -305,10 +343,18 @@ Public Class DoorListPageVM
          End If
          Dim sDDFDirPath As String = ""
          GetPluginPrivateProfileString(S_GENERAL, "DDFDir", "", sDDFDirPath)
+         Dim sDDTDirPath As String = ""
+         GetPluginPrivateProfileString(S_GENERAL, "DDTDir", "", sDDTDirPath)
          For Each Door In m_DoorList
             If Door.nState = Door.DoorStates.LOADED_FROM_CSV Then
-               Dim sDDFFilePath As String = sDDFDirPath & "\" & Door.sDDFName
-               m_ExecProcessManager.ArgumentsEnqueue(New ProcessArgs(Door.nId, sDDFFilePath))
+               Dim sDDTFilePath As String = sDDTDirPath & "\" & Door.sDDFName
+               Dim sDDFFilePath As String = sDDFDirPath & "\" & Path.GetDirectoryName(Door.sDDFName) &
+                                            Path.GetFileNameWithoutExtension(Door.sDDFName) & "_" & Door.nId & ".ddf"
+               Dim sWidth As String = DoubleToString(Door.dWidth, 2)
+               Dim sHeight As String = DoubleToString(Door.dHeight, 2)
+               Dim sThickness As String = DoubleToString(Door.dThickness, 2)
+               Dim sArgs As String = sDDTFilePath & ";" & sWidth & ";" & sHeight & ";" & sThickness & ";" & sDDFFilePath
+               m_ExecProcessManager.ArgumentsEnqueue(New ProcessArgs(Door.nId, sArgs))
             End If
          Next
          If bStartExecProcessManager OrElse m_ExecProcessManager.ExecutionThreadStatus = ExecProcessManager.ExecutionThreadStatuses.STOPPED Then
@@ -350,6 +396,62 @@ Public Class DoorListPageVM
 
 #End Region ' OpenCSV
 
+#Region "SaveCSV"
+
+   Public ReadOnly Property SaveCSV_Command As ICommand
+      Get
+         If m_cmdSaveCSV Is Nothing Then
+            m_cmdSaveCSV = New Command(AddressOf SaveCSV)
+         End If
+         Return m_cmdSaveCSV
+      End Get
+   End Property
+
+   Public Sub SaveCSV()
+      If IsNothing(m_SelDoor) Then
+         MessageBox.Show("Nessun file selezionato! Impossibile creare file CSV!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+         Return
+      End If
+      If m_SelDoor.sCSVName = m_ManualAddedDoorName Then
+         MessageBox.Show("Selezionata porta creata a mano! Impossibile creare file CSV!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+         Return
+      End If
+      Dim sCSVOutPath As String = ""
+      If GetPluginPrivateProfileString(S_GENERAL, K_CSVOUTPUT, "", sCSVOutPath) = 0 Then
+         MessageBox.Show("Path di salvataggio CSV non impostata! Impossibile creare file CSV!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+         Return
+      End If
+      If Not Directory.Exists(sCSVOutPath) Then
+         MessageBox.Show("Path di salvataggio CSV impostata non esiste! Impossibile creare file CSV!", "Errore!", MessageBoxButton.OK, MessageBoxImage.Error)
+         Return
+      End If
+      Dim CSVDoorList As List(Of Door) = (From Door In m_DoorList
+                                          Where Door.sCSVName = m_SelDoor.sCSVName).ToList()
+      sCSVOutPath &= "\" & m_SelDoor.sCSVName
+      Dim sCSVFileList As New List(Of String)
+      Dim sHeaderRow As String = ""
+      For Each Parameter In m_SelDoor.CustomerParameters
+         sHeaderRow &= Parameter.sHeader & ";"
+      Next
+      sHeaderRow.TrimEnd(";"c)
+      sCSVFileList.Add(sHeaderRow)
+      For Each Door In CSVDoorList
+         Dim sDoorRow As String = ""
+         For Each Parameter In Door.CustomerParameters
+            sDoorRow &= Parameter.sValue & ";"
+         Next
+         sCSVFileList.Add(sDoorRow)
+      Next
+      Try
+         File.WriteAllLines(sCSVOutPath, sCSVFileList)
+         MessageBox.Show("Csv salvato in " & sCSVOutPath, "Info", MessageBoxButton.OK, MessageBoxImage.Information)
+      Catch ex As Exception
+         MessageBox.Show("Creazione file csv fallita!", "Errore", MessageBoxButton.OK, MessageBoxImage.Error)
+      End Try
+   End Sub
+
+#End Region ' SkipDoor
+
 #Region "SkipDoor"
 
    Public ReadOnly Property SkipDoor_Command As ICommand
@@ -369,6 +471,24 @@ Public Class DoorListPageVM
 
 #End Region ' SkipDoor
 
+#Region "AddDoor"
+
+   Public ReadOnly Property AddDoor_Command As ICommand
+      Get
+         If m_cmdAddDoor Is Nothing Then
+            m_cmdAddDoor = New Command(AddressOf AddDoor)
+         End If
+         Return m_cmdAddDoor
+      End Get
+   End Property
+
+   Public Sub AddDoor()
+      Dim nId As Integer = NewDoorId()
+      m_DoorList.Add(New Door(nId, 0, "", m_ManualAddedDoorName, 1, 0, 0, 0, {}, {}))
+   End Sub
+
+#End Region ' SkipDoor
+
 #Region "MoveUp"
 
    Public ReadOnly Property MoveUp_Command As ICommand
@@ -424,7 +544,7 @@ Public Class DoorListPageVM
    End Property
 
    Public Sub Delete()
-      If IsNothing(SelDoor) OrElse SelDoor.nState >= Door.DoorStates.READY_FOR_PRODUCTION Then Return
+      If IsNothing(SelDoor) OrElse (SelDoor.nState >= Door.DoorStates.READY_FOR_PRODUCTION AndAlso SelDoor.nState < Door.DoorStates.PRODUCED) 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()
@@ -449,7 +569,7 @@ Public Class DoorListPageVM
       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
+            If Door.nState >= Door.DoorStates.READY_FOR_PRODUCTION AndAlso Door.nState < Door.DoorStates.PRODUCED Then Continue For
             m_DoorList.Remove(Door)
          Next
          WriteBackup()
@@ -470,16 +590,19 @@ Public Class DoorListPageVM
    End Property
 
    Public Sub Produce()
-      If IsNothing(SelDoor) OrElse SelDoor.nState = Door.DoorStates.SKIPPED OrElse
-                                   SelDoor.nState = Door.DoorStates.VERIFICATION_FAILED OrElse
-                                   SelDoor.nState >= Door.DoorStates.READY_FOR_PRODUCTION Then Return
+      ProduceDoor(m_SelDoor)
+      WriteBackup()
+   End Sub
+
+   Public Sub ProduceDoor(DoorToProduce As Door)
+      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(SelDoor)
-      Dim SelectedDoor As Door = m_SelDoor
+      Dim nOldIndex As Integer = m_DoorList.IndexOf(DoorToProduce)
       m_DoorList.Move(nOldIndex, nNewIndex)
-      SelectedDoor.SetState(Door.DoorStates.READY_FOR_PRODUCTION)
-      WriteBackup()
+      DoorToProduce.SetState(Door.DoorStates.READY_FOR_PRODUCTION)
    End Sub
 
 #End Region ' Produce
@@ -496,7 +619,11 @@ Public Class DoorListPageVM
    End Property
 
    Public Sub ProduceAll()
-      If IsNothing(SelDoor) Then Return
+      If m_DoorList.Count = 0 Then Return
+      For nDoorIndex = 0 To m_DoorList.Count - 1
+         Dim CurrDoor As Door = m_DoorList(nDoorIndex)
+         ProduceDoor(CurrDoor)
+      Next
       WriteBackup()
    End Sub
 
@@ -507,19 +634,23 @@ Public Class DoorListPageVM
    Public ReadOnly Property ResetProductionQueue_Command As ICommand
       Get
          If m_cmdResetProductionQueue Is Nothing Then
-            m_cmdResetProductionQueue = New Command(AddressOf ResetProductionQueue)
+            m_cmdResetProductionQueue = New Command(AddressOf ResetProductionQueueCmd)
          End If
          Return m_cmdResetProductionQueue
       End Get
    End Property
 
+   Public Sub ResetProductionQueueCmd()
+      ResetProductionQueue()
+      WriteBackup()
+   End Sub
+
    Public Sub ResetProductionQueue()
       For Each Door In m_DoorList
          If Door.nState = Door.DoorStates.READY_FOR_PRODUCTION Then
             Door.SetState(Door.DoorStates.VERIFIED)
          End If
       Next
-      WriteBackup()
    End Sub
 
 #End Region ' ResetProductionQueue
@@ -550,10 +681,18 @@ Public Class DoorListPageVM
       End If
       Dim sDDFDirPath As String = ""
       GetPluginPrivateProfileString(S_GENERAL, "DDFDir", "", sDDFDirPath)
+      Dim sDDTDirPath As String = ""
+      GetPluginPrivateProfileString(S_GENERAL, "DDTDir", "", sDDTDirPath)
       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
-            m_ExecProcessManager.ArgumentsEnqueue(New ProcessArgs(Door.nId, sDDFFilePath))
+            Dim sDDTFilePath As String = sDDTDirPath & "\" & Door.sDDFName
+            Dim sDDFFilePath As String = sDDFDirPath & "\" & Path.GetDirectoryName(Door.sDDFName) &
+                                            Path.GetFileNameWithoutExtension(Door.sDDFName) & "_" & Door.nId & ".ddf"
+            Dim sWidth As String = DoubleToString(Door.dWidth, 2)
+            Dim sHeight As String = DoubleToString(Door.dHeight, 2)
+            Dim sThickness As String = DoubleToString(Door.dThickness, 2)
+            Dim sArgs As String = sDDTFilePath & ";" & sWidth & ";" & sHeight & ";" & sThickness & ";" & sDDFFilePath
+            m_ExecProcessManager.ArgumentsEnqueue(New ProcessArgs(Door.nId, sArgs))
          End If
       Next
       If bStartExecProcessManager OrElse m_ExecProcessManager.ExecutionThreadStatus = ExecProcessManager.ExecutionThreadStatuses.STOPPED Then
@@ -621,10 +760,10 @@ Public Class Door
       End Get
       Set(value As String)
          ' verifico che ci sia il file ddf
-         Dim sDDFDirPath As String = ""
-         GetPluginPrivateProfileString(S_GENERAL, "DDFDir", "", sDDFDirPath)
-         If Not File.Exists(sDDFDirPath & "\" & value) Then
-            MessageBox.Show("Il nome inserito non corrisponde a nessun file nella cartella dei Ddf (" & sDDFDirPath & ") ", "File non trovato!", MessageBoxButton.OK, MessageBoxImage.Error)
+         Dim sDDTDirPath As String = ""
+         GetPluginPrivateProfileString(S_GENERAL, "DDTDir", "", sDDTDirPath)
+         If Not File.Exists(sDDTDirPath & "\" & value) 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))
          Else
             m_sDDFName = value
diff --git a/Effector.Plugin.DoorArreda/Effector.Plugin.DoorArreda.vbproj b/Effector.Plugin.DoorArreda/Effector.Plugin.DoorArreda.vbproj
index 69689d2..0c8a753 100644
--- a/Effector.Plugin.DoorArreda/Effector.Plugin.DoorArreda.vbproj
+++ b/Effector.Plugin.DoorArreda/Effector.Plugin.DoorArreda.vbproj
@@ -4,8 +4,8 @@
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
     <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
     <ProjectTypeGuids>{60dc8134-eba5-43b8-bcc9-bb4bc16c2548};{F184B08F-C81C-45F6-A57F-5ABD9991F28F}</ProjectTypeGuids>
-    <RootNamespace>Effector.Plugin.FiveLakes</RootNamespace>
-    <AssemblyName>Effector.Plugin.FiveLakes</AssemblyName>
+    <RootNamespace>Effector.Plugin.DoorArreda</RootNamespace>
+    <AssemblyName>Effector.Plugin.DoorArreda</AssemblyName>
     <OutputType>Library</OutputType>
     <TargetFrameworkVersion>v4.7.2</TargetFrameworkVersion>
     <MyType>Custom</MyType>
diff --git a/Effector.Plugin.DoorArreda/FiveLakesUI.xaml b/Effector.Plugin.DoorArreda/FiveLakesUI.xaml
index 8367c04..279c60d 100644
--- a/Effector.Plugin.DoorArreda/FiveLakesUI.xaml
+++ b/Effector.Plugin.DoorArreda/FiveLakesUI.xaml
@@ -1,7 +1,7 @@
 <Grid x:Class="FiveLakesUI"
       xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
       xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-      xmlns:local="clr-namespace:Effector.Plugin.FiveLakes"
+      xmlns:local="clr-namespace:Effector.Plugin.DoorArreda"
       DataContext="{StaticResource FiveLakesUIVM}">
    <TabControl SelectedIndex="{Binding SelPage}">
       <TabControl.ItemContainerStyle>
diff --git a/Effector.Plugin.DoorArreda/FiveLakesUIVM.vb b/Effector.Plugin.DoorArreda/FiveLakesUIVM.vb
index ac87028..c21dc1b 100644
--- a/Effector.Plugin.DoorArreda/FiveLakesUIVM.vb
+++ b/Effector.Plugin.DoorArreda/FiveLakesUIVM.vb
@@ -55,6 +55,7 @@ Public Class FiveLakesUIVM
       IniFile.SetIniFile(m_sConfigDir & "\" & INI_FILE_NAME)
       ' Impostazione path resources dir
       m_sResourcesRoot = m_sDataRoot & "\" & RES_DIR
+
    End Sub
 
 End Class
diff --git a/Effector.Plugin.DoorArreda/LUA/Lua_General.vb b/Effector.Plugin.DoorArreda/LUA/Lua_General.vb
index e7f3a3c..584647e 100644
--- a/Effector.Plugin.DoorArreda/LUA/Lua_General.vb
+++ b/Effector.Plugin.DoorArreda/LUA/Lua_General.vb
@@ -1,3 +1,4 @@
+Imports System.IO
 Imports KeraLua
 
 Public Module Lua_General
@@ -10,6 +11,7 @@ Public Module Lua_General
    Friend func_PlgCheckExecProcessAsync As LuaFunction = AddressOf Lua_PlgCheckExecProcessAsync
    Friend func_PlgGetNextDoor As LuaFunction = AddressOf Lua_PlgGetNextDoor
    Friend func_PlgOpenRestartWnd As LuaFunction = AddressOf Lua_PlgOpenRestartWnd
+   Friend func_PlgMachineReset As LuaFunction = AddressOf Lua_PlgMachineReset
 
    Private Function Lua_PlgGetNumberFromIni(ByVal p As IntPtr) As Integer
       Dim state = Lua.FromIntPtr(p)
@@ -107,7 +109,7 @@ Public Module Lua_General
       If Not IsNothing(NextDoor) Then
          ' restituisco il risultato
          LuaSetParam(state, NextDoor.nId)
-         LuaSetParam(state, NextDoor.sDDFName)
+         LuaSetParam(state, Path.GetFileNameWithoutExtension(NextDoor.sDDFName) & "_" & NextDoor.nId & ".ddf")
          Return 2
       End If
       Return 0
@@ -121,6 +123,17 @@ Public Module Lua_General
       Return 0
    End Function
 
+   Private Function Lua_PlgMachineReset(ByVal p As IntPtr) As Integer
+      Dim state = Lua.FromIntPtr(p)
+      Dim nMachineIndex As Integer = 1
+      LuaGetParam(state, 1, nMachineIndex)
+      LuaClearStack(state)
+      Map.refDoorListPageVM.ResetProductionQueue()
+      Map.refDoorListPageVM.ResetStateAfterReset()
+      Map.refDoorListPageVM.WriteBackup()
+      Return 0
+   End Function
+
    Friend Function LuaInstallGeneral(state As Lua) As Boolean
       If IsNothing(state) Then Return False
       state.Register("PlgGetNumberFromIni", func_PlgGetNumberFromIni)
@@ -131,6 +144,7 @@ Public Module Lua_General
       state.Register("PlgCheckExecProcessAsync", func_PlgCheckExecProcessAsync)
       state.Register("PlgGetNextDoor", func_PlgGetNextDoor)
       state.Register("PlgOpenRestartWnd", func_PlgOpenRestartWnd)
+      state.Register("PlgMachineReset", func_PlgMachineReset)
       Return True
    End Function
 
diff --git a/Effector.Plugin.DoorArreda/MainMenu/MainMenuV.xaml b/Effector.Plugin.DoorArreda/MainMenu/MainMenuV.xaml
index 142cf0f..e05fcab 100644
--- a/Effector.Plugin.DoorArreda/MainMenu/MainMenuV.xaml
+++ b/Effector.Plugin.DoorArreda/MainMenu/MainMenuV.xaml
@@ -14,7 +14,7 @@
       <ColumnDefinition Width="1*"/>
       <ColumnDefinition Width="1*"/>
    </Grid.ColumnDefinitions>
-   <RadioButton Content="Door List"
+   <RadioButton Content="Lista Porte"
                 Command="{Binding Page_Command}"
                 CommandParameter="{StaticResource Door_List}"
                 IsChecked="True"
@@ -24,9 +24,9 @@
                 Command="{Binding Page_Command}"
                 CommandParameter="{StaticResource Machine_State}"
                 Style="{StaticResource {x:Type ToggleButton}}"/>
-   <RadioButton Grid.Column="2"
+   <!--<RadioButton Grid.Column="2"
                 Content="Statistics"
                 Command="{Binding Page_Command}"
                 CommandParameter="{StaticResource Statistics}"
-                Style="{StaticResource {x:Type ToggleButton}}"/>
+                Style="{StaticResource {x:Type ToggleButton}}"/>-->
 </Grid>
diff --git a/Effector.Plugin.DoorArreda/My Project/AssemblyInfo.vb b/Effector.Plugin.DoorArreda/My Project/AssemblyInfo.vb
index 67a798b..66d3cb1 100644
--- a/Effector.Plugin.DoorArreda/My Project/AssemblyInfo.vb	
+++ b/Effector.Plugin.DoorArreda/My Project/AssemblyInfo.vb	
@@ -11,10 +11,10 @@ Imports System.Windows
 
 ' Review the values of the assembly attributes
 
-<Assembly: AssemblyTitle("Effector.Plugin.FiveLakes")>
+<Assembly: AssemblyTitle("Effector.Plugin.DoorArreda")>
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("Windows User")>
-<Assembly: AssemblyProduct("Effector.Plugin.FiveLakes")>
+<Assembly: AssemblyProduct("Effector.Plugin.DoorArreda")>
 <Assembly: AssemblyCopyright("Copyright @ Windows User 2024")>
 <Assembly: AssemblyTrademark("")> 
 <Assembly: ComVisible(false)>
diff --git a/Effector.Plugin.DoorArreda/My Project/Settings.Designer.vb b/Effector.Plugin.DoorArreda/My Project/Settings.Designer.vb
index 8a58064..7108b68 100644
--- a/Effector.Plugin.DoorArreda/My Project/Settings.Designer.vb	
+++ b/Effector.Plugin.DoorArreda/My Project/Settings.Designer.vb	
@@ -64,9 +64,9 @@ Namespace My
     Friend Module MySettingsProperty
 
         <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
-        Friend ReadOnly Property Settings() As Global.Effector.Plugin.FiveLakes.My.MySettings
+        Friend ReadOnly Property Settings() As Global.Effector.Plugin.DoorArreda.My.MySettings
             Get
-                Return Global.Effector.Plugin.FiveLakes.My.MySettings.Default
+                Return Global.Effector.Plugin.DoorArreda.My.MySettings.Default
             End Get
         End Property
     End Module
diff --git a/Effector.Plugin.DoorArreda/RestartWnd/RestartWndV.xaml b/Effector.Plugin.DoorArreda/RestartWnd/RestartWndV.xaml
index 8740055..3a311f7 100644
--- a/Effector.Plugin.DoorArreda/RestartWnd/RestartWndV.xaml
+++ b/Effector.Plugin.DoorArreda/RestartWnd/RestartWndV.xaml
@@ -3,7 +3,7 @@
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
              xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
              xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-             xmlns:local="clr-namespace:Effector.Plugin.FiveLakes"
+             xmlns:local="clr-namespace:Effector.Plugin.DoorArreda"
              mc:Ignorable="d" 
              d:DesignHeight="450" d:DesignWidth="800">
    <Window.Resources>
diff --git a/Effector.Plugin.DoorArreda/StatisticsPage/StatisticsPageV.xaml b/Effector.Plugin.DoorArreda/StatisticsPage/StatisticsPageV.xaml
index 1130f54..62bbfcb 100644
--- a/Effector.Plugin.DoorArreda/StatisticsPage/StatisticsPageV.xaml
+++ b/Effector.Plugin.DoorArreda/StatisticsPage/StatisticsPageV.xaml
@@ -3,7 +3,7 @@
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
              xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
              xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
-             xmlns:local="clr-namespace:Effector.Plugin.FiveLakes"
+             xmlns:local="clr-namespace:Effector.Plugin.DoorArreda"
              mc:Ignorable="d" 
              d:DesignHeight="450" d:DesignWidth="800">
     <Grid>
diff --git a/Effector.Plugin.DoorArreda/Utility/Dictionary.xaml b/Effector.Plugin.DoorArreda/Utility/Dictionary.xaml
index 399e2ff..1157d89 100644
--- a/Effector.Plugin.DoorArreda/Utility/Dictionary.xaml
+++ b/Effector.Plugin.DoorArreda/Utility/Dictionary.xaml
@@ -1,7 +1,7 @@
 <ResourceDictionary x:Class="Dictionary"
                     xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
                     xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-                    xmlns:local="clr-namespace:Effector.Plugin.FiveLakes"
+                    xmlns:local="clr-namespace:Effector.Plugin.DoorArreda"
                     xmlns:sys="clr-namespace:System;assembly=mscorlib"
 >
 
diff --git a/Effector.Plugin.DoorArreda/Utility/ExecProcessManager.vb b/Effector.Plugin.DoorArreda/Utility/ExecProcessManager.vb
index 23919df..1dad93e 100644
--- a/Effector.Plugin.DoorArreda/Utility/ExecProcessManager.vb
+++ b/Effector.Plugin.DoorArreda/Utility/ExecProcessManager.vb
@@ -1,7 +1,7 @@
 Imports System.IO
 Imports System.Threading
 Imports MS.Internal
-Imports Effector.Plugin.FiveLakes.ThreadData
+Imports Effector.Plugin.DoorArreda.ThreadData
 Imports System.Windows.Threading
 
 Public Class ExecProcessManager
diff --git a/Effector.Plugin.DoorArreda/Utility/JsonUtility.vb b/Effector.Plugin.DoorArreda/Utility/JsonUtility.vb
index 71965e4..515cfa9 100644
--- a/Effector.Plugin.DoorArreda/Utility/JsonUtility.vb
+++ b/Effector.Plugin.DoorArreda/Utility/JsonUtility.vb
@@ -1,7 +1,7 @@
 Imports System.Globalization
 Imports Newtonsoft.Json
 Imports Newtonsoft.Json.Converters
-Imports Effector.Plugin.FiveLakes.Door
+Imports Effector.Plugin.DoorArreda.Door
 
 Public Class JsonDoor