From fb6dbebdd45e17c657dfc8f464395a7a2d940b39 Mon Sep 17 00:00:00 2001
From: "luca.mazzoleni" <luca.mazzoleni@egalware.com>
Date: Wed, 2 Nov 2022 11:58:55 +0100
Subject: [PATCH] BugFix/Ticket#871: - in split e headcut corretto
 accorciamento percorso lama per tagli doppi verticali

---
 LuaLibs/MachiningLib.lua   | 2 --
 LuaLibs/ProcessHeadCut.lua | 5 ++++-
 LuaLibs/ProcessSplit.lua   | 5 ++++-
 3 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/LuaLibs/MachiningLib.lua b/LuaLibs/MachiningLib.lua
index 61708ee..3daa60b 100644
--- a/LuaLibs/MachiningLib.lua
+++ b/LuaLibs/MachiningLib.lua
@@ -248,10 +248,8 @@ local function FindMachining( MachiningType, sType, Params, bTopHead, bDownHead)
       ForEnd = 1
       ForStep = -1
    end
-   -- se scelta testa migliorata oppure se non devo usare la testa da sotto parto sempre da testa 1
    if ( BEAM and BEAM.BW) or MachineHeadType == ONE_HEAD or MachineHeadType == TWO_EQUAL_HEADS or ( MachineHeadType == TWO_UP_DOWN_HEADS and not bDownHead) then
       _, sType = EgtEndsWith( sType, '_H2')
-   -- se scelta testa migliorata è disattivata e devo usare la testa sotto forzo testa 2
    elseif ( not BEAM or not BEAM.BW) and MachineHeadType == TWO_UP_DOWN_HEADS and bDownHead then
       if not EgtEndsWith( sType, '_H2') then
          sType = sType .. '_H2'
diff --git a/LuaLibs/ProcessHeadCut.lua b/LuaLibs/ProcessHeadCut.lua
index 11abebf..2abb99a 100644
--- a/LuaLibs/ProcessHeadCut.lua
+++ b/LuaLibs/ProcessHeadCut.lua
@@ -4,6 +4,7 @@
 -- 2022/06/10 Per sezioni alte e larghe aggiunta gestione finitura in base a sovramateriale e a parametro Q05 dell' eventuale lavorazione sostituita.
 -- 2022/08/18 Aggiunta gestione macchine con testa da sotto con lama da sotto disabilitata.
 -- 2022/09/08 Migliorato verso di lavorazione in caso di DoubleCut
+-- 2022/11/02 Corretti accorciamenti per DoubleCut
 
 -- Tabella per definizione modulo
 local ProcessHeadCut = {}
@@ -251,9 +252,11 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
       end
       -- se necessari tagli in doppio, eseguo gli opposti
       if bDoubleCut then
+         -- gli accorciamenti vanno invertiti per il taglio opposto
+         local dAccStartDoubleCut, dAccEndDoubleCut = dAccEnd, dAccStart
          for i = nCuts, 1, -1 do
             local dCutOffset = ( i - 1) * dOffsL
-            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_BACK, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, '', b3Raw, true)
+            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_BACK, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStartDoubleCut, dAccEndDoubleCut, '', b3Raw, true)
             if not bOk then return false, sErr end
          end
       end
diff --git a/LuaLibs/ProcessSplit.lua b/LuaLibs/ProcessSplit.lua
index cdb3873..049ea37 100644
--- a/LuaLibs/ProcessSplit.lua
+++ b/LuaLibs/ProcessSplit.lua
@@ -4,6 +4,7 @@
 -- 2022/06/10 Per sezioni alte e larghe aggiunta gestione finitura in base a sovramateriale e a parametro Q05 dell' eventuale lavorazione sostituita.
 -- 2022/08/18 Aggiunta gestione macchine con testa da sotto con lama da sotto disabilitata.
 -- 2022/09/08 Migliorato verso di lavorazione in caso di DoubleCut
+-- 2022/11/02 Corretti accorciamenti per DoubleCut
 
 -- Tabella per definizione modulo
 local ProcessSplit = {}
@@ -427,10 +428,12 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
       end
       -- se necessari tagli in doppio, eseguo gli opposti
       if bDoubleCut then
+         -- gli accorciamenti vanno invertiti per il taglio opposto
+         local dAccStartDoubleCut, dAccEndDoubleCut = dAccEnd, dAccStart
          for i = nCuts, 1, -1 do
             local dCutOffset = ( i - 1) * dOffsL
             local sNotes = EgtIf( bSplit, 'Presplit;', 'Precut;')
-            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw, true)
+            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStartDoubleCut, dAccEndDoubleCut, sNotes, b3Raw, true)
             if not bOk then return false, sErr end
          end
       end