From a5cc30adfc729c21577f38c917b020395bbc2abe Mon Sep 17 00:00:00 2001
From: DarioS <dario.sassi@egaltech.com>
Date: Thu, 4 May 2023 12:21:34 +0200
Subject: [PATCH] DataWall 2.5e1 : - modifiche per gestione traduzione messaggi
 (possibile solo con interfaccia utente B&W).

---
 BatchProcessNew.lua | 35 +++++++++++++++++++----------------
 Version.lua         |  4 ++--
 2 files changed, 21 insertions(+), 18 deletions(-)

diff --git a/BatchProcessNew.lua b/BatchProcessNew.lua
index 598318c..1e69484 100644
--- a/BatchProcessNew.lua
+++ b/BatchProcessNew.lua
@@ -1,4 +1,4 @@
--- BatchProcess.lua by Egaltech s.r.l. 2022/05/09
+-- BatchProcess.lua by Egaltech s.r.l. 2023/05/04
 -- Gestione calcolo batch disposizione e lavorazioni per Pareti
 -- 2021/01/15 Per nuova interfaccia Egt.
 -- 2021/11/10 Aggiunta modifica per gestione modifiche manuali come in Beam.
@@ -7,6 +7,7 @@
 -- 2022/01/20 Si aggiorna il setup anche quando si creano le lavorazioni (MachGroup vecchio...).
 -- 2022/04/28 In info generazione aggiunta indicazione se 64bit.
 -- 2022/05/02 Consentito allargamento area disponibile per grezzi su tavola da WallData.
+-- 2023/05/04 Traduzione messaggi ora fatta direttamente (eliminata codifica $$nn).
 
 -- Intestazioni
 require( 'EgtBase')
@@ -45,6 +46,18 @@ EgtOutLog( sLog)
 local sLogFile = EgtChangePathExtension( WALL.FILE, '.txt')
 EgtEraseFile( sLogFile) 
 
+-- Funzione per traduzione messaggi
+local function BWMessageId( nMsgId, sMsg, params)
+   local sFmt
+   if WALL.BW and nMsgId and nMsgId > 0 then
+      sFmt = EgtMsg( 65000 + nMsgId)
+   end
+   if not sFmt or #sFmt == 0 then
+      sFmt = sMsg
+   end
+   return string.format( sFmt, table.unpack( params))
+end
+
 -- Funzioni per scrittura su file di log specifico
 local function WriteErrToLogFile( nErr, sMsg, nRot, nCutId, nTaskId)
    local hFile = io.open( sLogFile, 'a')
@@ -55,17 +68,6 @@ local function WriteErrToLogFile( nErr, sMsg, nRot, nCutId, nTaskId)
    hFile:write( 'TASKID=' .. tostring( nTaskId or 0) .. '\n')
    hFile:close()
 end
-local function BWMessageId( nMsgId, sMsg, params)
-   if WALL.BW and nMsgId and nMsgId > 0 then
-      local sFinalMsg = '$$' .. nMsgId
-      for Index = 1, #params do
-         sFinalMsg = sFinalMsg .. ',' .. params[Index]
-      end
-      return sFinalMsg
-   else
-      return string.format( sMsg, table.unpack( params))
-   end
-end
 
 local function WriteTimeToLogFile( dTime)
    local hFile = io.open( sLogFile, 'a')
@@ -383,8 +385,8 @@ if bToProcess then
       if dRawL > WD.MAX_LENGTH + 10 * GEO.EPS_SMALL or dRawW > WD.MAX_WIDTH + 10 * GEO.EPS_SMALL or dRawH > WD.MAX_HEIGHT + 10 * GEO.EPS_SMALL then
          ResetMachGroup( vWall)
          local sOut = BWMessageId( 1, 'Grezzo (%s x %s x %s) oltre il limite della macchina (%s x %s x %s)',
-                                  {EgtNumToString( dRawL, 2), EgtNumToString( dRawW, 2), EgtNumToString( dRawH, 2),
-                                   EgtNumToString( WD.MAX_LENGTH, 2), EgtNumToString( WD.MAX_WIDTH, 2), EgtNumToString( WD.MAX_HEIGHT, 2)})
+                                   {EgtNumToString( dRawL, 2), EgtNumToString( dRawW, 2), EgtNumToString( dRawH, 2),
+                                    EgtNumToString( WD.MAX_LENGTH, 2), EgtNumToString( WD.MAX_WIDTH, 2), EgtNumToString( WD.MAX_HEIGHT, 2)})
          WALL.ERR = 17
          WALL.MSG = sOut
          WriteErrToLogFile( WALL.ERR, WALL.MSG)
@@ -395,8 +397,9 @@ if bToProcess then
       -- Verifico dimensioni minime del grezzo
       if dRawL < WD.MIN_LENGTH - 10 * GEO.EPS_SMALL or dRawW < WD.MIN_WIDTH - 10 * GEO.EPS_SMALL or dRawH < WD.MIN_HEIGHT - 10 * GEO.EPS_SMALL then
          ResetMachGroup( vWall)
-         local sOut = 'Grezzo (' .. EgtNumToString( dRawL, 2) .. ' x ' .. EgtNumToString( dRawW, 2) .. ' x ' .. EgtNumToString( dRawH, 2) .. ') ' ..
-                        'sotto il limite della macchina ('..EgtNumToString( WD.MIN_LENGTH, 2)..' x '..EgtNumToString( WD.MIN_WIDTH, 2)..' x '..EgtNumToString( WD.MIN_HEIGHT, 2)..')'
+         local sOut = BWMessageId( 2, 'Grezzo (%s x %s x %s) sotto il limite della macchina (%s x %s x %s)',
+                                   {EgtNumToString( dRawL, 2), EgtNumToString( dRawW, 2), EgtNumToString( dRawH, 2),
+                                    EgtNumToString( WD.MIN_LENGTH, 2), EgtNumToString( WD.MIN_WIDTH, 2), EgtNumToString( WD.MIN_HEIGHT, 2)})
          WALL.ERR = 17
          WALL.MSG = sOut
          WriteErrToLogFile( WALL.ERR, WALL.MSG)
diff --git a/Version.lua b/Version.lua
index 9d28bff..c8d92f7 100644
--- a/Version.lua
+++ b/Version.lua
@@ -1,6 +1,6 @@
--- Version.lua by Egalware s.r.l. 2023/04/14
+-- Version.lua by Egalware s.r.l. 2023/05/04
 -- Gestione della versione di Wall
 
 NAME = 'Wall'
-VERSION = '2.5d2'
+VERSION = '2.5e1'
 MIN_EXE = '2.5b3'