From 2c4d43387d0620db609e6dca1a6a19c71786ad20 Mon Sep 17 00:00:00 2001
From: Emmanuele Sassi <emmanuele.sassi@egaltech.com>
Date: Tue, 19 Nov 2024 16:14:39 +0100
Subject: [PATCH] - aggiunto log su fallimento lettura variabili da macchina

---
 Effector.Main/LUA/Lua_General.vb               | 3 +++
 Effector.Main/MEFPlugin/SupervisorFunctions.vb | 3 +++
 2 files changed, 6 insertions(+)

diff --git a/Effector.Main/LUA/Lua_General.vb b/Effector.Main/LUA/Lua_General.vb
index 85ae484..78be10c 100644
--- a/Effector.Main/LUA/Lua_General.vb
+++ b/Effector.Main/LUA/Lua_General.vb
@@ -370,6 +370,7 @@ Public Module Lua_General
          state.PushInteger(nResult)
          Return 1
       Else
+         EgtOutLog("Error reading variable " & nVarAddr & " on machine " & nMachine & ": " & Machine.ErrMsg)
          Return 0
       End If
    End Function
@@ -389,6 +390,7 @@ Public Module Lua_General
          state.PushBoolean(bResult)
          Return 1
       Else
+         EgtOutLog("Error reading variable " & nVarAddr & " on machine " & nMachine & ": " & Machine.ErrMsg)
          Return 0
       End If
    End Function
@@ -406,6 +408,7 @@ Public Module Lua_General
          state.PushNumber(dResult)
          Return 1
       Else
+         EgtOutLog("Error reading variable " & nVarAddr & " on machine " & nMachine & ": " & Machine.ErrMsg)
          Return 0
       End If
    End Function
diff --git a/Effector.Main/MEFPlugin/SupervisorFunctions.vb b/Effector.Main/MEFPlugin/SupervisorFunctions.vb
index 11f40e5..41deac0 100644
--- a/Effector.Main/MEFPlugin/SupervisorFunctions.vb
+++ b/Effector.Main/MEFPlugin/SupervisorFunctions.vb
@@ -46,6 +46,7 @@ Public Class SupervisorFunctions
       If Map.refMainWindowVM.MachineManager.MachineList.Count >= nMachine AndAlso Not IsNothing(Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1)) Then
          Return Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1).ReadShortVar(nVarAddr, nResult)
       Else
+         EgtOutLog("Error reading variable " & nVarAddr & " on machine " & nMachine & ": " & Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1).ErrMsg)
          Return False
       End If
    End Function
@@ -54,6 +55,7 @@ Public Class SupervisorFunctions
       If Map.refMainWindowVM.MachineManager.MachineList.Count >= nMachine AndAlso Not IsNothing(Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1)) Then
          Return Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1).ReadBitVar(nVarAddr, nBit, bResult)
       Else
+         EgtOutLog("Error reading variable " & nVarAddr & " on machine " & nMachine & ": " & Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1).ErrMsg)
          Return False
       End If
    End Function
@@ -62,6 +64,7 @@ Public Class SupervisorFunctions
       If Map.refMainWindowVM.MachineManager.MachineList.Count >= nMachine AndAlso Not IsNothing(Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1)) Then
          Return Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1).ReadDoubleVar(nVarAddr, dResult)
       Else
+         EgtOutLog("Error reading variable " & nVarAddr & " on machine " & nMachine & ": " & Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1).ErrMsg)
          Return False
       End If
    End Function