DataBeam :

- in BatchProcess se non modificato il btl si carica l'ultimo gruppo di lavoro.
This commit is contained in:
Dario Sassi
2020-01-14 12:00:52 +00:00
parent f210dd7085
commit 880a181306
+5 -2
View File
@@ -1,4 +1,4 @@
-- BatchProcess.lua by Egaltech s.r.l. 2020/01/08
-- BatchProcess.lua by Egaltech s.r.l. 2020/01/14
-- 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.
@@ -12,6 +12,7 @@
-- 2019/12/20 Gestione LOAD90 tramite file ausiliario (btm).
-- 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.
-- Intestazioni
require( 'EgtBase')
@@ -409,7 +410,7 @@ else
EgtSaveFile( sNgeFile)
end
-- Passo in modalità lavora
EgtSetCurrMachGroup()
EgtSetCurrMachGroup( EgtGetLastMachGroup())
end
-- *** Eseguo simulazione in cieco *** ( se richiesta verifica)
@@ -450,6 +451,7 @@ end
if BEAM.FLAG == 0 or BEAM.FLAG == 4 then
if not EgtGenerate( '', 'EgtCAM5 - ' .. sNgeFile) then
BEAM.ERR = 20
local _, sName, _ = EgtSplitPath( BEAM.FILE)
BEAM.MSG = 'Error generating NC part program : ' .. sName
WriteErrToLogFile( BEAM.ERR, BEAM.MSG)
PostErrView( BEAM.ERR, BEAM.MSG)
@@ -460,6 +462,7 @@ end
-- *** Eseguo stima tempi ***
if not EgtEstimate( '', 'EgtCAM5 - ' .. sNgeFile) then
BEAM.ERR = 21
local _, sName, _ = EgtSplitPath( BEAM.FILE)
BEAM.MSG = 'Error estimating production time : ' .. sName
WriteErrToLogFile( BEAM.ERR, BEAM.MSG)
PostErrView( BEAM.ERR, BEAM.MSG)