DataBeam :

- migliorie in BatchProcess.

BatchProcess.lua

@@ -1,4 +1,4 @@
--- BatchProcess.lua by Egaltech s.r.l. 2020/01/24
+-- BatchProcess.lua by Egaltech s.r.l. 2020/01/30
 -- 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.
@@ -13,6 +13,7 @@
 -- 2019/12/28 Tolta uscita in caso di errore su features.
 -- 2020/01/08 Aggiunta seconda sezione limite (BD.MAX_WIDTH2 x BD.MAX_HEIGHT2).
 -- 2020/01/14 Si carica ultimo gruppo di lavoro. Corretto problema con nome non definito in segnalazione errore in generazione o stima.
+-- 2020/01/30 File Diff con nome del btl.
 
 -- Intestazioni
 require( 'EgtBase')
@@ -79,7 +80,7 @@ local function PostErrView( nErr, sMsg)
    end
 end
 
--- Funzione per gestire visualizzazione dopo errore
+-- Funzione per gestire visualizzazione dopo warning
 local function PostWarnView( nWarn, sMsg)
    if nWarn ~= 0 and ( BEAM.FLAG == 1 or BEAM.FLAG == 2) then
       EgtSetView( SCE_VD.ISO_SW, false)
@@ -155,10 +156,10 @@ local sBtmFile = sDir..sTitle..'.btm'
 
 -- In generale va completamente riprocessato
 local bToProcess = true
--- se BTL, barra, esiste già il corrispondente progetto Nge
+-- 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..'Diff.txt'
+   local sDiffFile = sDir..sTitle..'.diff.txt'
    EgtEraseFile( sDiffFile)
    local _, nDiff = EgtTextFileCompare( BEAM.FILE, sOriFile, ';', sDiffFile)
    -- se BTL corrente coincide con originale, salto il riprocessamento
@@ -175,6 +176,9 @@ local nWarnCnt = 0
 if bToProcess then
    -- Se Btl, lo importo
    if bBtl then
+      -- cancello eventuale vecchio progetto omonimo
+      EgtEraseFile( sNgeFile)
+      -- eseguo import
       EgtNewFile()
       if not EgtImportBtl( BEAM.FILE, EIB_FL.TS3_POS + EIB_FL.USEUATTR) then
          BEAM.ERR = 13
@@ -183,7 +187,7 @@ if bToProcess then
          PostErrView( BEAM.ERR, BEAM.MSG)
          return
       end
-      -- faccio copia del file originale
+      -- faccio copia del file btl originale
       EgtCopyFile( BEAM.FILE, sDir..sTitle..'.ori'..sExt)
    -- altrimenti Nge, lo apro
    else