DataBeam :

- modifiche per gestione pezzi da ricalcolare con nuova interfaccia.

BatchProcessNew.lua

@@ -1,4 +1,4 @@
--- BatchProcess.lua by Egaltech s.r.l. 2021/02/25
+-- BatchProcess.lua by Egaltech s.r.l. 2021/02/30
 -- Gestione calcolo batch disposizione e lavorazioni per Travi
 -- 2021/01/07 Per nuova interfaccia Egt.
 -- 2021/01/15 CREATE_BAR ora FLAG = 6 (prima 5).
@@ -111,9 +111,9 @@ local sBaseDir = EgtGetSourceDir()
 EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
 
 -- Se necessario, impostazione della macchina corrente
+local sMachine = BEAM.MACHINE
 if BEAM.FLAG ~= 6 then
    EgtResetCurrMachGroup()
-   local sMachine = BEAM.MACHINE
    if not EgtSetCurrMachine( sMachine) then
       BEAM.ERR = 11
       BEAM.MSG = 'Error selecting machine : ' .. sMachine
@@ -147,7 +147,7 @@ local BD = require( 'BeamData')
 
 -- Dati del file
 local sDir, sTitle, sExt = EgtSplitPath( BEAM.FILE)
-local bBtl = ( string.upper( sExt or '') ~= '.BWE')
+local sOriFile = sDir..sTitle..'.ori.bwe'
 local sNgeFile = sDir..sTitle..'.bwe'
 local sBtmFile = sDir..sTitle..'.btm'
 
@@ -155,20 +155,14 @@ local sBtmFile = sDir..sTitle..'.btm'
 local bToProcess = true
 local bToRecalc = false
 -- se BTL, barra ed esiste già il corrispondente progetto Nge
-if bBtl and string.find( sTitle, 'Bar_', 1, true) and EgtExistsFile( sNgeFile) then
-   local sOriFile = sDir..sTitle..'.ori'..sExt
-   local sDiffFile = sDir..sTitle..'.diff.txt'
-   EgtEraseFile( sDiffFile)
-   local _, nDiff = EgtTextFileCompare( BEAM.FILE, sOriFile, ';', sDiffFile)
-   -- se BTL corrente coincide con originale, salto il riprocessamento
-   if nDiff == 0 then
-      bToProcess = false
-      -- se cambiata configurazione macchina da ultima elaborazione, devo aggiornare
-      if EgtCompareFilesLastWriteTime( sOriFile, sMachDir .. '\\Beam\\TS3Data.lua') == -1  or
-         EgtCompareFilesLastWriteTime( sOriFile, sMachDir .. '\\Tools\\Tools.data') == -1  or
-         EgtCompareFilesLastWriteTime( sOriFile, sMachDir .. '\\' .. sMachine ..'.mlde') == -1  then
-         bToRecalc = true
-      end
+if EgtExistsFile( sOriFile) then
+   bToProcess = false
+   EgtCopyFile( sOriFile, sNgeFile) 
+   -- se cambiata configurazione macchina da ultima elaborazione, devo aggiornare
+   if EgtCompareFilesLastWriteTime( sOriFile, sMachDir .. '\\Beam\\TS3Data.lua') == -1  or
+      EgtCompareFilesLastWriteTime( sOriFile, sMachDir .. '\\Tools\\Tools.data') == -1  or
+      EgtCompareFilesLastWriteTime( sOriFile, sMachDir .. '\\' .. sMachine ..'.mlde') == -1  then
+      bToRecalc = true
    end
 end
 
@@ -483,6 +477,8 @@ if bToProcess then
 
    -- Salvo il progetto
    EgtSaveFile( sNgeFile)
+   -- copio come originale (per dichiarare progetto ricalcolato)
+   EgtCopyFile( sNgeFile, sOriFile)
 
    -- Visualizzazione avvisi o errori
    if #sOutput > 0 then EgtOutLog( sOutput) end
@@ -528,11 +524,14 @@ else
       EgtOutLog( ' +++ Recalculating all dispositions and machinings >>>')
       EgtImportSetup()
       EgtApplyAllMachinings()
-      -- copia del file btl originale (per dichiarare progetto ricalcolato)
-      EgtCopyFile( BEAM.FILE, sDir..sTitle..'.ori'..sExt)
+      -- Salvo il progetto
+      EgtSaveFile( sNgeFile)
+      -- copio come originale (per dichiarare progetto ricalcolato)
+      EgtCopyFile( sNgeFile, sOriFile)
+   else
+      -- Salvo il progetto
+      EgtSaveFile( sNgeFile)
    end
-   -- Salvo il progetto
-   EgtSaveFile( sNgeFile)
 end
 
 -- *** Eseguo simulazione con verifica collisione in cieco ***