From 00d5f929bb1f73bb0716d1153040dfe0f8a72161 Mon Sep 17 00:00:00 2001
From: "luca.mazzoleni" <luca.mazzoleni@egalware.com>
Date: Tue, 21 Jan 2025 09:52:29 +0100
Subject: [PATCH] - in BatchProcess (Ts7) aggiunta scrittura id progetto e
 produzione in Btm

---
 BatchProcess.lua | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/BatchProcess.lua b/BatchProcess.lua
index d0bea7d..90ad757 100644
--- a/BatchProcess.lua
+++ b/BatchProcess.lua
@@ -92,13 +92,25 @@ end
 -- Funzione per aggiornare dati ausiliari
 local function UpdateAuxData( sAuxFile)
    local bModif = false
+   local BtlInfoId = EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL
    -- Se definito LOAD90, aggiorno
    local sLoad90 = EgtGetStringFromIni( 'AuxData', 'LOAD90', '', sAuxFile) 
    if sLoad90 ~= '' then
-      local BtlInfoId = EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL
       EgtSetInfo( BtlInfoId, 'LOAD90', sLoad90)
       bModif = true
    end
+   -- Se definito PROJID, aggiorno
+   local sProjId = EgtGetStringFromIni( 'AuxData', 'PROJID', '', sAuxFile)
+   if sProjId ~= '' then
+      EgtSetInfo( BtlInfoId, 'PROJECT', sProjId)
+      bModif = true
+   end
+   -- Se definito PRODID, aggiorno
+   local sProdId = EgtGetStringFromIni( 'AuxData', 'PRODID', '', sAuxFile)
+   if sProdId ~= '' then
+      EgtSetInfo( BtlInfoId, 'PRODID', sProdId)
+      bModif = true
+   end
    return bModif
 end