- aggiunto nome macchina in messaggi di log alla ripartenza

This commit is contained in:
Emmanuele Sassi
2025-06-16 14:54:50 +02:00
parent 6ab6be0703
commit 070f0afd21
@@ -116,14 +116,14 @@ Public Class RestartWndVM
JsonLuaDoorList = JsonConvert.DeserializeObject(Of List(Of JsonLuaDoor))(sReadedFile)
JsonLuaDoorList = JsonLuaDoorList.OrderBy(Of Integer)(Function(x) x.nCircIndex).ToList()
' riporto lista porte come letta da Json
Map.refSupervisorFunction.PlgOutLog("Doors read from json start")
Map.refSupervisorFunction.PlgOutLog("Machine" & nMachineIndex & ".lua: Doors read from json start")
Map.refSupervisorFunction.PlgOutLog("CircIndex Id State DDFName")
For Each Door In JsonLuaDoorList
Map.refSupervisorFunction.PlgOutLog(Door.nCircIndex & " " & Door.nId & " " & Door.nState & " " & Door.sDDFName)
Next
Map.refSupervisorFunction.PlgOutLog("Doors read from json end")
Map.refSupervisorFunction.PlgOutLog("Machine" & nMachineIndex & ".lua: Doors read from json end")
Else
Map.refSupervisorFunction.PlgOutLog("File json does not exist!")
Map.refSupervisorFunction.PlgOutLog("Machine" & nMachineIndex & ".lua: File json does not exist!")
End If
' creo posti in lista descrizioni
@@ -152,7 +152,7 @@ Public Class RestartWndVM
NotifyPropertyChanged(NameOf(DoorOnMachineArray))
' riporto lista porte dopo verifica presenza
Map.refSupervisorFunction.PlgOutLog("Doors for restart window start")
Map.refSupervisorFunction.PlgOutLog("Machine" & nMachineIndex & ".lua: Doors for restart window start")
Map.refSupervisorFunction.PlgOutLog("Position CircIndex Id State DDFName")
For DoorIndex = 0 To m_DoorOnMachineArray.Count - 1
Dim Door As RestartDoor = m_DoorOnMachineArray(DoorIndex)
@@ -162,7 +162,7 @@ Public Class RestartWndVM
Map.refSupervisorFunction.PlgOutLog(DoorIndex & " " & Door.nCircIndex & " " & Door.nId & " " & Door.nState & " " & Door.sDDFName)
End If
Next
Map.refSupervisorFunction.PlgOutLog("Doors for restart window end")
Map.refSupervisorFunction.PlgOutLog("Machine" & nMachineIndex & ".lua: Doors for restart window end")
' percorro la lista lua
If Not IsNothing(JsonLuaDoorList) Then
@@ -235,14 +235,14 @@ Public Class RestartWndVM
' riporto lista porte che scrivo su json
If IsNothing(JsonLuaDoorList) Then
Map.refSupervisorFunction.PlgOutLog("File json does not exist!")
Map.refSupervisorFunction.PlgOutLog("Machine" & nMachineIndex & ".lua: File json does not exist!")
Else
Map.refSupervisorFunction.PlgOutLog("Doors to be written on json start")
Map.refSupervisorFunction.PlgOutLog("Machine" & nMachineIndex & ".lua: Doors to be written on json start")
Map.refSupervisorFunction.PlgOutLog("CircIndex Id State DDFName")
For Each Door In JsonLuaDoorList
Map.refSupervisorFunction.PlgOutLog(Door.nCircIndex & " " & Door.nId & " " & Door.nState & " " & Door.sDDFName)
Next
Map.refSupervisorFunction.PlgOutLog("Doors to be written on json end")
Map.refSupervisorFunction.PlgOutLog("Machine" & nMachineIndex & ".lua: Doors to be written on json end")
End If
' aggiorno file backup del lua
@@ -321,12 +321,12 @@ Public Class RestartWndVM
Next
' riporto lista porte non gestite
Map.refSupervisorFunction.PlgOutLog("Doors not managed from list start")
Map.refSupervisorFunction.PlgOutLog("Machine" & nMachineIndex & ".lua: Doors not managed from list start")
Map.refSupervisorFunction.PlgOutLog("Id State")
For Each Door In m_DoorToBeFixedList
Map.refSupervisorFunction.PlgOutLog(Door.nId & " " & Door.SelState)
Next
Map.refSupervisorFunction.PlgOutLog("Doors not managed from list end")
Map.refSupervisorFunction.PlgOutLog("Machine" & nMachineIndex & ".lua: Doors not managed from list end")
' riporto lista porte su log
Map.refMachinePageVM.PrintAllDoorInList()