DataBeam :

- modifiche per gestione dati ausiliari in file btm (LOAD90).

BatchProcess.lua

@@ -1,4 +1,4 @@
--- BatchProcess.lua by Egaltech s.r.l. 2019/12/10
+-- BatchProcess.lua by Egaltech s.r.l. 2019/12/20
 -- Gestione calcolo batch disposizione e lavorazioni per Travi
 -- 2019/07/11 Aggiunta gestione stato rotazione di feature per TS3.
 -- 2019/07/16 Aggiunta gestione modalità oltre 10 per impostazione macchina e uscita.
@@ -9,6 +9,7 @@
 -- 2019/10/07 Aggiunta gestione Flag 4 = Check+Generate.
 -- 2019/10/09 In ImportBtl aggiunto flag per usare UserAttr.
 -- 2019/12/09 Gestione conservazione modifiche su barre.
+-- 2019/12/20 Gestione LOAD90 tramite file ausiliario (btm).
 
 -- Intestazioni
 require( 'EgtBase')
@@ -84,6 +85,19 @@ local function PostWarnView( nWarn, sMsg)
    end
 end
 
+-- Funzione per aggiornare dati ausiliari
+local function UpdateAuxData( sAuxFile)
+   local bModif = false
+   -- 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
+   return bModif
+end
+
 -- Imposto direttorio libreria specializzata per Travi
 local sBaseDir = EgtGetSourceDir()
 EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
@@ -134,6 +148,7 @@ local BD = require( 'BeamData')
 local sDir, sTitle, sExt = EgtSplitPath( BEAM.FILE)
 local bBtl = ( string.upper( sExt or '') ~= '.NGE')
 local sNgeFile = sDir..sTitle..'.nge'
+local sBtmFile = sDir..sTitle..'.btm'
 
 -- In generale va completamente riprocessato
 local bToProcess = true
@@ -179,7 +194,10 @@ if bToProcess then
       -- faccio copia del file originale
       EgtCopyFile( BEAM.FILE, sDir..sTitle..'.ori'..sExt)
    end
-   
+
+   -- Aggiorno eventuali dati ausiliari
+   UpdateAuxData( sBtmFile)
+
    -- Recupero l'elenco ordinato delle travi
    local vBeam = {}
    local nPartId = EgtGetFirstPart()
@@ -383,6 +401,10 @@ else
       end
       nPartId = EgtGetNextPart( nPartId)
    end
+   -- Aggiorno eventuali dati ausiliari
+   if UpdateAuxData( sBtmFile) then
+      EgtSaveFile( sNgeFile)
+   end
    -- Passo in modalità lavora
    EgtSetCurrMachGroup()
 end