diff --git a/BatchProcess.lua b/BatchProcess.lua index 468de84..99fdf3b 100644 --- a/BatchProcess.lua +++ b/BatchProcess.lua @@ -59,9 +59,23 @@ end local sLog = 'BatchProcess : ' .. BEAM.FILE .. ', ' .. BEAM.MACHINE .. ', ' .. sFlag EgtOutLog( sLog) --- Cancello file di log specifico local sLogFile = EgtChangePathExtension( BEAM.FILE, '.txt') -EgtEraseFile( sLogFile) +-- in caso sia richiesta generazione senza check, verifico prima che il file log specifico non contenga errori: se sì, forzo il check +if BEAM.FLAG == 0 then + local hLogFile = io.open( sLogFile, 'r') + if hLogFile then + for line in hLogFile:lines() do + if EgtStartsWith( line, 'ERR') and tonumber( EgtSplitString( line, '=')[2] or 0) > 0 then + BEAM.FLAG = 4 + break + end + end + hLogFile:close() + end +end + +-- Cancello file di log specifico +EgtEraseFile( sLogFile) -- Funzioni per scrittura su file di log specifico local function WriteErrToLogFile( nErr, sMsg, nRot, nCutId, nTaskId)