From 8934973545e8cb0976250b9ab651729ca903ef74 Mon Sep 17 00:00:00 2001
From: "andrea.villa" <andrea.villa@egalware.com>
Date: Fri, 15 Dec 2023 09:03:40 +0100
Subject: [PATCH] 2.5l2 : Migliorato calcolo stima tempi di lavorazione

---
 Essetre-FAST.mlde | 3 ++-
 Essetre-FAST.mlpe | 7 ++++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/Essetre-FAST.mlde b/Essetre-FAST.mlde
index 9184bf5..7d37efa 100644
--- a/Essetre-FAST.mlde
+++ b/Essetre-FAST.mlde
@@ -30,11 +30,12 @@
 -- 2023/11/04 DS ver 2.5k1 Eliminata testa H4. Aggiunta visualizzazione rinvio su TC.Aggiunta gestione MIN_MACH_VER per simulazione e generazione.
 -- 2023/12/13 AV ver.2.5l1 Piccola correzione per errore digitazione variabile in calcolo riposizionamento carrelli (SpecAdjustCarrB3)
 --                         Corretto segno di una variabile in calcolo posizionamento carrelli
+-- 2023/12/15 AV ver.2.5l2 Migliorato calcolo stima tempi di lavorazione
 
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.5l1'
+PP_VER = '2.5l2'
 MIN_MACH_VER = '2.5k1'
 
 -- Parametri macchina
diff --git a/Essetre-FAST.mlpe b/Essetre-FAST.mlpe
index 55a37aa..3c50a6c 100644
--- a/Essetre-FAST.mlpe
+++ b/Essetre-FAST.mlpe
@@ -1233,6 +1233,7 @@ end
 function OnEstimPathStart()
    EMT.AUXTYPE = nil
    EMT.MCHMOVEFIRST = true
+   EMT.CHARMOVE = nil
 end
 
 ---------------------------------------------------------------------
@@ -1260,7 +1261,11 @@ function OnEstimPathStartAux()
       end
    -- altrimenti, spostamento carrelli
    else
-      if EMT.AUXTOT > 2 and EMT.AUXIND == EMT.AUXTOT then
+      local Cmd = EgtSplitString( EMT.AUX)
+      if ( Cmd[1] == '1' and Cmd[2] ~= 'Z') or Cmd[1] == '2' or Cmd[1] == '3' then
+         EMT.CHARMOVE = true
+      end
+      if EMT.AUXIND == EMT.AUXTOT and EMT.CHARMOVE then
          local dTime = ( EMT.AUXTOT - 2) * CHAR_ONE_MOVE_T
          EMT.TOTEXTTIME = EMT.TOTEXTTIME + dTime
          EmtTleAddMachining( 'Charriots move', EmtSecToHMS( dTime), '  -  ', '  -  ')