From 6da345d8c52d9596384ab7d79fe37a08c15a7a4b Mon Sep 17 00:00:00 2001
From: Emmanuele Sassi <emmanuele.sassi@egaltech.com>
Date: Thu, 3 Oct 2024 10:55:43 +0200
Subject: [PATCH] - aggiunto log porta mandata in produzione

---
 Supervisor.Plugin.FiveLakes/DoorListPage/DoorListPageVM.vb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Supervisor.Plugin.FiveLakes/DoorListPage/DoorListPageVM.vb b/Supervisor.Plugin.FiveLakes/DoorListPage/DoorListPageVM.vb
index 830aac0..99c3ceb 100644
--- a/Supervisor.Plugin.FiveLakes/DoorListPage/DoorListPageVM.vb
+++ b/Supervisor.Plugin.FiveLakes/DoorListPage/DoorListPageVM.vb
@@ -173,6 +173,7 @@ Public Class DoorListPageVM
    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