From 48699ea7402d8890eadc7a7ef53514115a167702 Mon Sep 17 00:00:00 2001
From: Emmanuele Sassi <emmanuele.sassi@egaltech.com>
Date: Mon, 13 Oct 2025 19:38:11 +0200
Subject: [PATCH] - aggiunta cancellazione completa di tutte le porte in lista

---
 .../DoorListPage/DoorListPageV.xaml           |   9 ++-
 .../DoorListPage/DoorListPageVM.vb            |  62 ++++++++++++++++--
 .../Effector.Plugin.DoorArreda.vbproj         |   3 +
 .../Resources/DoorListPage/DeleteAll.png      | Bin 0 -> 2182 bytes
 4 files changed, 67 insertions(+), 7 deletions(-)
 create mode 100644 Effector.Plugin.DoorArreda/Resources/DoorListPage/DeleteAll.png

diff --git a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml
index 0e607c9..74e5055 100644
--- a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml
+++ b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageV.xaml
@@ -25,12 +25,19 @@
                    Style="{StaticResource Button.Image.DoorList}"/>
          </Button>
          <Button ToolTip="Cancella tutte le porte del csv della porta selezionata"
-                 Command="{Binding DeleteAll_Command}"
+                 Command="{Binding DeleteCSV_Command}"
                  IsEnabled="{Binding bExecButton_IsEnabled}"   
                  Style="{StaticResource Button.DoorList}">
             <Image Source="../Resources/DoorListPage/DeleteCsv.png"
                    Style="{StaticResource Button.Image.DoorList}"/>
          </Button>
+         <Button ToolTip="Cancella tutte le porte presenti in lista"
+                 Command="{Binding DeleteAll_Command}"
+                 IsEnabled="{Binding bExecButton_IsEnabled}"   
+                 Style="{StaticResource Button.DoorList}">
+            <Image Source="../Resources/DoorListPage/DeleteAll.png"
+                   Style="{StaticResource Button.Image.DoorList}"/>
+         </Button>
          <Button ToolTip="Mette in coda di produzione la porta selezionata"
                  Command="{Binding Produce_Command}"
                  Style="{StaticResource Button.DoorList}">
diff --git a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageVM.vb b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageVM.vb
index 4d4a6d3..68852e6 100644
--- a/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageVM.vb
+++ b/Effector.Plugin.DoorArreda/DoorListPage/DoorListPageVM.vb
@@ -104,6 +104,7 @@ Public Class DoorListPageVM
    Private m_cmdMoveUp As ICommand
    Private m_cmdMoveDown As ICommand
    Private m_cmdDelete As ICommand
+   Private m_cmdDeleteCSV As ICommand
    Private m_cmdDeleteAll As ICommand
    Private m_cmdProduce As ICommand
    Private m_cmdProduceAll As ICommand
@@ -998,18 +999,18 @@ Public Class DoorListPageVM
 
 #End Region ' Delete
 
-#Region "DeleteAll"
+#Region "DeleteCSV"
 
-   Public ReadOnly Property DeleteAll_Command As ICommand
+   Public ReadOnly Property DeleteCSV_Command As ICommand
       Get
-         If m_cmdDeleteAll Is Nothing Then
-            m_cmdDeleteAll = New Command(AddressOf DeleteAll)
+         If m_cmdDeleteCSV Is Nothing Then
+            m_cmdDeleteCSV = New Command(AddressOf DeleteCSV)
          End If
-         Return m_cmdDeleteAll
+         Return m_cmdDeleteCSV
       End Get
    End Property
 
-   Public Sub DeleteAll()
+   Public Sub DeleteCSV()
       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
@@ -1040,6 +1041,55 @@ Public Class DoorListPageVM
       End If
    End Sub
 
+#End Region ' DeleteCSV
+
+#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
+      Dim bReset As Boolean = True
+      If Not LuaGetGlobVar("bReset", bReset) OrElse Not bReset Then
+         MessageBox.Show("Impossibile cancellare tutte le porte!" & Environment.NewLine & "La macchina deve essere in stato Reset per poter cancellare tutte le porte!", "Warning", MessageBoxButton.OK, MessageBoxImage.Warning)
+         Return
+      End If
+      ' verifico che tutte le porte siano in stato prodotto o da non produrre
+      Dim bAllProduced As Boolean = True
+      For Each CsvDoor In m_DoorList
+         If CsvDoor.nState <> DoorStates.MACHINE_1_END AndAlso CsvDoor.nState <> DoorStates.PRODUCED AndAlso CsvDoor.nState <> DoorStates.NOTPRODUCE AndAlso CsvDoor.nState <> DoorStates.VERIFICATION_FAILED AndAlso CsvDoor.nState <> DoorStates.VERIFIED Then
+            bAllProduced = False
+         End If
+      Next
+      If Not bAllProduced Then
+         MessageBox.Show("Impossibile cancellare tutte le porte!" & Environment.NewLine & "Per cancellare tutte le porte, devono essere tutte non in lavorazione!", "Warning", MessageBoxButton.OK, MessageBoxImage.Warning)
+         Return
+      End If
+      If MessageBox.Show("Sei sicuro di voler cancellare tutte le porte?", "Info", MessageBoxButton.YesNo, MessageBoxImage.Information) = MessageBoxResult.Yes Then
+         For CsvDoorIndex = m_DoorList.Count - 1 To 0 Step -1
+            Dim CsvDoor As Door = m_DoorList(CsvDoorIndex)
+            m_DoorList.Remove(CsvDoor)
+         Next
+         WriteBackup()
+         ' cancello backup lua per ripartire pulito
+         Try
+            Dim sBackupDirPath As String = ""
+            GetPluginPrivateProfileString(S_GENERAL, K_BACKUPDIR, "", sBackupDirPath)
+            Dim sLuaBackupFilePath As String = sBackupDirPath & "\LuaBackup.json"
+            File.Delete(sLuaBackupFilePath)
+         Catch ex As Exception
+            Map.refSupervisorFunction.PlgOutLog("Fallita cancellazione del file LuaBackup!")
+         End Try
+      End If
+   End Sub
+
 #End Region ' DeleteAll
 
 #Region "Produce"
diff --git a/Effector.Plugin.DoorArreda/Effector.Plugin.DoorArreda.vbproj b/Effector.Plugin.DoorArreda/Effector.Plugin.DoorArreda.vbproj
index de67933..20c786b 100644
--- a/Effector.Plugin.DoorArreda/Effector.Plugin.DoorArreda.vbproj
+++ b/Effector.Plugin.DoorArreda/Effector.Plugin.DoorArreda.vbproj
@@ -207,6 +207,9 @@
     <Resource Include="Resources\DoorListPage\SkipDoor.png" />
     <Resource Include="Resources\DoorListPage\Verify.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DoorListPage\DeleteAll.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PreBuildEvent>powershell.exe -ExecutionPolicy Unrestricted -NoProfile -NonInteractive -File $(ProjectDir)\pre-build.ps1 -ProjectDir $(ProjectDir) -ProjectPath $(ProjectPath)</PreBuildEvent>
diff --git a/Effector.Plugin.DoorArreda/Resources/DoorListPage/DeleteAll.png b/Effector.Plugin.DoorArreda/Resources/DoorListPage/DeleteAll.png
new file mode 100644
index 0000000000000000000000000000000000000000..0d89b5bc7b426104af6a87b670db74c0bd37aa6e
GIT binary patch
literal 2182
zcmV;12zmF3P)<h;3K|Lk000e1NJLTq003kF003kN1^@s72j!*000009a7bBm0015B
z0015B0lAo7bN~PdI7vi7RCt{2UD0tHIShTu<Yzy2hVH=WU|qo}9mE|-9V8W;Q$cbS
zSRL3`fpitf9atS`XY`>@-v_xeMFAkl-Hk1aZ{{Wzg#`hEiv>We4*26}cl#IjukrqV
zq5hsw7n-`7gk%2rCuUZYBwipYDPBKNGX>utME(?faUz2EdCShm%<@9c#EIAL_AhR!
zx9x7<NIKn-qMQK;i*LKX-M{8!lTw?}9~U<$BSqtXAU9!b8|A^DnwsHrFmMH64Q4SY
z?%YN^j2~@8Q&$szrzR_X#v7AatcF`eV$6i&pF^VH;wx}|B%tjKL(xpA!B9&7Mv2h^
zxH5Isij#!Q0|sAAU2T-KH>R$hG*bEFcYSC_2l+$=UhUxSu+I3csjDlFmK!GxN-YCt
zd<|`i7u7xb3EJp#apNhp1@9d0$+Kq0x3MvA{AgQKTe$Hr_Aa2duwiJA5Kc1pFOF=-
zTaWfdqNTj>48Z-7xcuGTz=jVZt;$tMH<gC=#3tIutQ#i{FHRC%bi=s|_j!%i%^=c-
zn)nwz0pe11vEN)ldkklIE$uI6T<x*X7#HhSeA<uUR<`h#QZ)&;uGGch1RSmCR$!xg
za`M2f%q6#SqJ{f!N{utLvluNk(M%*broCjhQg99k@0bW})9&^UBk;X$cl)J8qYkD3
zJej(>VQ5cWF~B;zknbT0C20L*Rpcw>i;LiM6FzRe8j4B@hk5Y%<bmgSzd)%3AXvm>
zI79G|l%S36I4kDzRVTl(iE|TaZu@vRsW(wjmm&~ZJyj`_#&hKRt>)>c*;-^I0^o}v
zM06Eh0MZa&-GE;-wm_$j)g)$#AsVN^+|<<~m#?HqxOYz`BCb&tp8^4Yo4WcD;d@xr
zQq=k|cqbu>iSaEVN;gpnQ9fXZ5>rSOqNFGi4MB305gxogqRL!Eh{8_PGelVem=fe?
zAEGQwU4@=3r1y7)>YgbmC@3f>7z}OLG8w0T&|KpZu#`@h`*yegmLf}dad(^(owPd>
zq>g_Ax|v6(QF^W6%N_Ck0`NT;W<vueusmugb9CPTgefZ<2r}{BS5sH3ke163LnQ#J
zJNI=m%3_q#)H&LkT4^C@B|$181bplExFMCB>?>tGQ&(RYzW2T|?QVb1@SRiE03!K_
zkWAeI_*<B45#h__ICB7h0hkfriBYm9u}UdUN0spSYBIwP(NI5Hjd$Bj6aW9#D&hEE
zDfvc~0Mc@HX$4i2F?^+)nysaUNI4%73(Y-{wE!WsHK-ZlwXI~UC~I3Ps|;PBQ*VXD
z0^LS%-2me5mz%765>tCSs*G@M*aCP2?S9!BF(BL{f)cH%s~acmg805^iS9CwFMIfD
z>gvjE&!5!SEzybAL3;g)Q{u2HZqfxoCmk<vN=&@J??5{N)9&_UQIN9;6*7~i6_ok+
zgaH%nQX!FhCQ-^fQao6+yZzD&pQBIrAUtQCLy#V5_%<HB*pDJH`6ca3f_^IH3?AJq
zCG=@+Qw<f77Zel>ff1`H*NJ@Jtct=aQ>rMhc-K{wDZzJ%cTh!{Cst9GL=|Pq@Lf?1
za;qpeusKR@6@}wlswmo2SEEc$s;g1v(bUy#ghp3<P?UtSswgfkpkE@kc+w~Vlqw2|
zcV9(GsdkK2MTzniw^pQzLhWs_@Zj-fYXabF0AhkC^@~VVl<pPxd(b{#Y8#ZQDBZi@
z9ACC1^j@ndbBtI;0ks-}GXI4GZ&gL{!{@iGqWFB(J&@$23G~`3%3Z0V6ciK`6ciK`
z6ciL>Ajpl@n&XoM-c4}SLLLGn^7M1F=f3;`-X@S&JjRib^I8{I+W>5Fh-}GJ@@@bu
zAy<OcC344e2EMG=!pbWZY$e_XR$j@t(buVcBpD<j!QKG4)henqgb(uEjo_<o8cs5d
z(hxp=x(=ZzQmXI(@LNfD4SPH%x*B(@uVIUT8e_Duho&o~9RDck46M9SSK~ay7J6gM
zwZ;H4T$U5+4z>YXeF?lBn6blvL|1h*dE)!h)O-<FP2q>BEA0k8px4hoWGcFWy@RyK
zHbjUF*9ZVB&<ErkvRk-;o(AcVX_y!WGen3?!^F_b5FG~nfs}z19Yiq=oV*W6yJJJB
z&q_5I<rix*4HIp79}C{;;&tMsC*50pks4)1;oO%tYVvU%JE$82Zu2}N?=E>BIw>CP
z4jJJ&vVzTJM)^U95uPKxlHv}%4KmUL(#If*cK8GG_R9XVT~=3bg5EuCU^{Flus`an
zZCGev8(Mq0h8{`i#L2u+PSquuS@pM^T2|@~6L(BT!Zmi80}w*)4A-0_Z)z>;JLuNw
z-hw0=W@YN?tAghg))-o(^!Cm$!mp*Jx~v7{R@M%;?)^cvA2oH={pNTq2l=TnhU2+{
z&ehDFYtqnmycbG&7g}TVLf9+T=L~@1KMQ#Gir`xNvR)|fU{N7)hBIh5Tu@L@P*6~C
zDF~vh<(YMzto!l{c$+qO^PzN|@H}UD+pd!&dB^HHd4f$2H%h(+wgg_fPLvEgXb<fh
z*s}s{*NOHO<I;5^2sKN&1ee!!l64gQr@KyCSa&u}xTbWSq++D5ldQfb4KAtc<QuGE
z&Z+C9uVDr~(JWmj$bP1E0mf!XSxVQ*Yu8C?qG)hoT_>ZuuF`dqkD<FxQj^f+DR3rT
zCx<Q$*sc?;z(aSPq$Z)I>m-7lvdoZOCn=2{K<PR;;@KeK|96KE+;uYV(RC6_1{Vok
zCr{A1nja%}oji`-b>jT-!<luRP+c;m>!hHdprD|jpx`3#Kc!NgvBJX%A^-pY07*qo
IM6N<$f|wWn?*IS*

literal 0
HcmV?d00001