From a7234787fdb2aa8a5f01539a183436d4fe693610 Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Sat, 1 Feb 2020 12:29:39 +0000
Subject: [PATCH] DataBeam : - migliorie in BatchProcess.

---
 BatchProcess.lua | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/BatchProcess.lua b/BatchProcess.lua
index dd79c81..767fb0a 100644
--- a/BatchProcess.lua
+++ b/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