DataBeam :- correzioni e migliorie varie.

BatchProcess.lua

@@ -1,10 +1,11 @@
--- BatchProcess.lua by Egaltech s.r.l. 2019/08/29
+-- BatchProcess.lua by Egaltech s.r.l. 2019/10/04
 -- 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.
 -- 2019/07/19 Aggiunta gestione collisioni.
 -- 2019/07/24 Aggiunta gestione extra-corse.
 -- 2019/08/29 Aggiunta possibilità di processare file NGE.
+-- 2019/10/04 Migliorato log dei parametri ricevuti.
 
 -- Intestazioni
 require( 'EgtBase')
@@ -21,7 +22,19 @@ EgtEnableDebug( false)
 local bVerifyCollision = true
 
 -- Log dati di generazione
-local sLog = 'BatchProcess : ' .. BEAM.FILE .. ', ' .. BEAM.MACHINE .. ', ' .. tostring( BEAM.FLAG)
+local sFlag = ''
+if BEAM.FLAG == 0 then
+   sFlag = 'GENERATE'
+elseif BEAM.FLAG == 1 then
+   sFlag = 'MODIFY'
+elseif BEAM.FLAG == 2 then
+    sFlag = 'SIMULATE'
+elseif BEAM.FLAG == 3 then
+   sFlag = 'CHECK'
+else
+   sFlag = 'FLAG='..tostring( BEAM.FLAG)
+end
+local sLog = 'BatchProcess : ' .. BEAM.FILE .. ', ' .. BEAM.MACHINE .. ', ' .. sFlag
 EgtOutLog( sLog)
 
 -- Cancello file di log specifico
@@ -222,7 +235,7 @@ if #vBeamErr > 0 then
    return
 end
 
--- Verifico sezione barra
+-- Verifico sezione barra non troppo grande
 if dRawW > BD.MAX_WIDTH + 10 * GEO.EPS_SMALL or dRawH > BD.MAX_HEIGHT + 10 * GEO.EPS_SMALL then
    local sOut = 'Sezione ('  .. EgtNumToString( dRawW, 2) .. ' x ' .. EgtNumToString( dRawH, 2) .. ') ' ..
                 'oltre i limiti della macchina (' .. EgtNumToString( BD.MAX_WIDTH, 2) .. ' x ' .. EgtNumToString( BD.MAX_HEIGHT, 2) .. ')'
@@ -233,6 +246,16 @@ if dRawW > BD.MAX_WIDTH + 10 * GEO.EPS_SMALL or dRawH > BD.MAX_HEIGHT + 10 * GEO
    return
 end
 
+   -- Verifico sezione barra non troppo piccola
+   if dRawW < BD.MIN_WIDTH - 10 * GEO.EPS_SMALL or dRawH < BD.MIN_HEIGHT - 10 * GEO.EPS_SMALL then
+      local sOut = 'Sezione ('  .. EgtNumToString( dRawW, 2) .. ' x ' .. EgtNumToString( dRawH, 2) .. ') ' ..
+                   'sotto i limiti della macchina (' .. EgtNumToString( BD.MIN_WIDTH, 2) .. ' x ' .. EgtNumToString( BD.MIN_HEIGHT, 2) .. ')'
+      BEAM.ERR = 17
+      BEAM.MSG = sOut
+      WriteErrToLogFile( BEAM.ERR, BEAM.MSG)
+      PostErrView( BEAM.ERR, BEAM.MSG)
+   end
+
 -- Lunghezza della barra
 local dRawL = EgtGetInfo( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL, 'BARLEN', 'd') or 12000
 -- Sovramateriale di testa