diff --git a/LuaLibs/BeamExec.lua b/LuaLibs/BeamExec.lua
index ee38c51..f514d09 100644
--- a/LuaLibs/BeamExec.lua
+++ b/LuaLibs/BeamExec.lua
@@ -1,4 +1,4 @@
--- BeamExec.lua by Egaltech s.r.l. 2022/05/04
+-- BeamExec.lua by Egaltech s.r.l. 2022/06/25
 -- Libreria esecuzione lavorazioni per Travi
 -- 2019/07/11 Aggiunta gestione stato rotazione di feature per TS3.
 -- 2019/09/04 Corretto controllo feature di testa e coda con sovramateriale di testa elevato.
@@ -27,7 +27,8 @@
 -- 2021/12/20 Ulteriore correzione a CompareFeature (caso con entrambe senza geometria).
 -- 2022/05/04 Nell'ordinamento quando si confrontano i box delle feature aggiunta verifica preliminare della loro validità.
 -- 2022/05/31 Aggiunta gestione sovramateriale per sezioni alte e larghe e informazione di eventuale creazione nuova fase dalla AddFeatureMachining.
--- 2022/06/10 Per sezioni alte e larghe modificata la gestione del sovramateriale per considerare la presenza di feature preesistenti e eventuale parametro Q05, che determinano la presenza o meno della finitura.
+-- 2022/06/10 Per sezioni alte e larghe modificata la gestione del sovramateriale per considerare la presenza di feature preesistenti ed
+--            eventuale parametro Q05, che determinano la presenza o meno della finitura.
 --            Create le funzioni AnalyzeHeadFeatures e AnalyzeTailFeatures. Spostate più in alto le funzioni CollectFeatures, isHeadFeature e isTailFeature.
 
 -- Tabella per definizione modulo
@@ -122,195 +123,12 @@ local FreeContour = require( 'ProcessFreeContour')
 local Decor = require( 'ProcessDecor')
 
 EgtOutLog( ' BeamExec started', 1)
+
 EgtMdbSetGeneralParam( MCH_GP.MAXDEPTHSAFE, BD.COLL_SIC)
 EgtMdbSave()
 
 -------------------------------------------------------------------------------------------------------------
-local function IsHeadFeature( Proc, b3Raw, dCurrOvmH)
-   -- feature sempre di testa o coda per il gruppo
-   if Proc.Grp == 1 or Proc.Grp == 2 then
-      return ( Proc.Box:getCenter():getX() > b3Raw:getCenter():getX() - 0.5 * dCurrOvmH)
-   end
-   -- feature sempre di testa o coda nonostante il gruppo
-   if ( Proc.Grp == 3 or Proc.Grp == 4) and
-      ( Proc.Prc == 38 or Proc.Prc == 51 or Proc.Prc == 56 or Proc.Prc == 100 or Proc.Prc == 101 or Proc.Prc == 102 or Proc.Prc == 103 or Proc.Prc == 106) then
-      return ( Proc.Box:getCenter():getX() > b3Raw:getCenter():getX() - 0.5 * dCurrOvmH)
-   end
-   -- gestioni speciali
-   if LapJoint.Identify( Proc) then
-      return LapJoint.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
-   end
-   if Drill.Identify( Proc) then
-      return Drill.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
-   end
-   if RoundArch.Identify( Proc) then
-      return RoundArch.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
-   end
-   if Dovetail.Identify( Proc) then
-      return Dovetail.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
-   end
-   if FreeContour.Identify( Proc) then
-      return FreeContour.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
-   end
-   -- non è di testa
-   return false
-end
-
--------------------------------------------------------------------------------------------------------------
-local function IsTailFeature( Proc, b3Raw, dCurrOvmH, dCurrOvmT)
-   -- lunghezza di riferimento per spostare le feature di coda appena prima
-   local dAdvTailLen = BD.LEN_VERY_SHORT_PART or BD.LEN_SHORT_PART
-   -- feature sempre di testa o coda per il gruppo (se non troppo lunga)
-   if Proc.Grp == 1 or Proc.Grp == 2 then
-      -- se abilitato avanzamento lavorazione feature di coda e pezzo corto (quindi a caduta) e feature in coda
-      if BD.ADVANCE_TAIL_CUT and b3Raw:getDimX() < dAdvTailLen and Proc.Box:getCenter():getX() < b3Raw:getCenter():getX() - 0.5 * dCurrOvmH then
-         -- se taglio, lo avanzo
-         if Proc.Prc == 10 then
-            return false, true
-         end
-      end
-      -- standard
-      return ( Proc.Box:getCenter():getX() < b3Raw:getCenter():getX() - 0.5 * dCurrOvmH and Proc.Box:getDimX() < BD.MAX_LEN_HTFEA)
-   end
-   -- feature sempre di testa o coda nonostante il gruppo
-   if ( Proc.Grp == 3 or Proc.Grp == 4) and
-      ( Proc.Prc == 38 or Proc.Prc == 51 or Proc.Prc == 56 or Proc.Prc == 100 or Proc.Prc == 101 or Proc.Prc == 102 or Proc.Prc == 103 or Proc.Prc == 106) then
-      -- se abilitato avanzamento lavorazione feature di coda e pezzo corto (quindi a caduta) e feature in coda
-      if BD.ADVANCE_TAIL_CUT and b3Raw:getDimX() < dAdvTailLen and Proc.Box:getCenter():getX() < b3Raw:getCenter():getX() - 0.5 * dCurrOvmH then
-         -- se profilo front solo con smusso, lo avanzo
-         if Proc.Prc == 100 and ProfFront.OnlyChamfer( Proc) then
-            return false, true
-         end
-         -- se profilo concavo solo con smusso, lo avanzo
-         if Proc.Prc == 101 and ProfConcave.OnlyChamfer( Proc) then
-            return false, true
-         end
-         -- se profilo convesso solo con smusso, lo avanzo
-         if Proc.Prc == 102 and ProfConvex.OnlyChamfer( Proc) then
-            return false, true
-         end
-         -- se profilo caudato solo con smusso, lo avanzo
-         if Proc.Prc == 103 and ProfCamb.OnlyChamfer( Proc) then
-            return false, true
-         end
-         -- se profilo head solo con smusso, lo avanzo
-         if Proc.Prc == 106 and ProfHead.OnlyChamfer( Proc) then
-            return false, true
-         end
-      end
-      -- standard
-      return ( Proc.Box:getCenter():getX() < b3Raw:getCenter():getX() - 0.5 * dCurrOvmH)
-   end
-   -- gestioni speciali
-   if LapJoint.Identify( Proc) then
-      return LapJoint.IsTailFeature( Proc, b3Raw)
-   end
-   if Drill.Identify( Proc) then
-      return Drill.IsTailFeature( Proc, b3Raw, dCurrOvmT)
-   end
-   if DtMortise.Identify( Proc) then
-      return DtMortise.IsTailFeature( Proc, b3Raw)
-   end
-   if RoundArch.Identify( Proc) then
-      return RoundArch.IsTailFeature( Proc, b3Raw)
-   end
-   if Dovetail.Identify( Proc) then
-      return Dovetail.IsTailFeature( Proc, b3Raw)
-   end
-   if FreeContour.Identify( Proc) then
-      return FreeContour.IsTailFeature( Proc, b3Raw)
-   end
-   -- non è di coda
-   return false
-end
-
--------------------------------------------------------------------------------------------------------------
-local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
-   -- recupero le feature
-   local vProc = {}
-   local LayerId = {}
-   LayerId[1] = BL.GetAddGroup( PartId)
-   LayerId[2] = EgtGetFirstNameInGroup( PartId or GDB_ID.NULL, 'Processings')
-   for nInd = 1, 2 do
-      local ProcId = EgtGetFirstInGroup( LayerId[nInd] or GDB_ID.NULL)
-      while ProcId do
-         local nEntType = EgtGetType( ProcId)
-         if nEntType == GDB_TY.SRF_MESH or nEntType == GDB_TY.EXT_TEXT or
-            nEntType == GDB_TY.CRV_LINE or nEntType == GDB_TY.CRV_ARC or nEntType == GDB_TY.CRV_BEZ or nEntType == GDB_TY.CRV_COMPO then
-            local nGrp = EgtGetInfo( ProcId, 'GRP', 'i')
-            local nPrc = EgtGetInfo( ProcId, 'PRC', 'i')
-            local nDo = EgtGetInfo( ProcId, 'DO', 'i') or 1
-            local nCutId = EgtGetInfo( EgtGetParent( EgtGetParent( ProcId)), 'CUTID', 'i') or 0
-            local nTaskId = EgtGetInfo( ProcId, 'TASKID', 'i') or 0
-            if nGrp and nPrc and nDo == 1 then
-               local Proc = {}
-               Proc.Id = ProcId
-               Proc.Grp = nGrp
-               Proc.Prc = nPrc
-               Proc.Flg = 1
-               Proc.Fct = EgtSurfTmFacetCount( ProcId) or 0
-               Proc.Diam = 0
-               Proc.Fcs = 0
-               Proc.Fce = 0
-               Proc.CutId = nCutId
-               Proc.TaskId = nTaskId
-               Proc.Box = EgtGetBBoxGlob( ProcId, GDB_BB.STANDARD)
-               if Proc.Box and not Proc.Box:isEmpty() then 
-                  Proc.Head = IsHeadFeature( Proc, b3Raw, dCurrOvmH)
-                  Proc.Tail, Proc.AdvTail = IsTailFeature( Proc, b3Raw, dCurrOvmH, dCurrOvmT)
-                  table.insert( vProc, Proc)
-                  -- se foro
-                  if Drill.Identify( Proc) then
-                     -- assegno diametro e facce di ingresso e uscita (dati tabelle sempre per riferimento)
-                     Proc.Diam, Proc.Fcs, Proc.Fce = Drill.GetData( Proc, b3Raw)
-                     -- verifico se necessaria seconda lavorazione da parte opposta per foro più lungo della punta
-                     if Drill.Split( Proc, b3Raw) then
-                        -- aggiorno flags prima parte foro (dati tabelle sempre per riferimento)
-                        Proc.Flg = 2
-                        Proc.Head = Drill.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
-                        Proc.Tail = Drill.IsTailFeature( Proc, b3Raw, dCurrOvmH, dCurrOvmT)
-                        -- definisco dati seconda parte
-                        local Proc2 = {}
-                        Proc2.Id = ProcId
-                        Proc2.Grp = nGrp
-                        Proc2.Prc = nPrc
-                        Proc2.Flg = -2
-                        Proc2.Box = BBox3d( Proc.Box)
-                        Proc2.Fct = Proc.Fct
-                        Proc2.Diam = Proc.Diam
-                        Proc2.Head = Drill.IsHeadFeature( Proc2, b3Raw, dCurrOvmH)
-                        Proc2.Tail = Drill.IsTailFeature( Proc2, b3Raw, dCurrOvmH)
-                        Proc2.Fcs = Proc.Fce
-                        Proc2.Fce = Proc.Fcs
-                        Proc2.CutId = Proc.CutId
-                        Proc2.TaskId = Proc.TaskId
-                        table.insert( vProc, Proc2)
-                     end
-                  -- se BlockHaus HalfLap
-                  elseif Proc.Prc == 37 then
-                     local nFacInd = BL.GetFaceWithMostAdj( Proc.Id, PartId)
-                     if nFacInd then
-                        local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
-                        if vtN then
-                           Proc.vtN = Vector3d( vtN)
-                        end
-                     end
-                  end
-               else
-                  Proc.Head = false
-                  Proc.Tail = false
-                  Proc.Flg = 0
-                  table.insert( vProc, Proc)
-                  EgtOutLog( ' Feature ' .. tostring( Proc.Id) .. ' is empty (no geometry)')
-               end
-            end
-         end
-         ProcId = EgtGetNext( ProcId)
-      end
-   end
-   return vProc
-end
-
+--    *** Inserimento delle travi nel grezzo ***
 -------------------------------------------------------------------------------------------------------------
 local function AnalyzeHeadFeatures( b3Solid, vProc, dRawW, dRawH)
    local nReplacedFeatureId = nil
@@ -328,7 +146,8 @@ local function AnalyzeHeadFeatures( b3Solid, vProc, dRawW, dRawH)
       end
       if Proc.Head and Proc.Id ~= nReplacedFeatureId and Proc.Prc ~= 340 then
          -- controllo se la feature taglia l'intera sezione; in caso positivo la finitura non è necessaria
-         bHeadFinishingNeeded = not ((abs(Proc.Box:getDimY() - dRawW) < 10 * GEO.EPS_SMALL or Proc.Box:getDimY() > dRawW) and (abs(Proc.Box:getDimZ() - dRawH) < 10 * GEO.EPS_SMALL or Proc.Box:getDimZ() > dRawH))
+         bHeadFinishingNeeded = not (( abs( Proc.Box:getDimY() - dRawW) < 10 * GEO.EPS_SMALL or Proc.Box:getDimY() > dRawW) and
+                                     ( abs( Proc.Box:getDimZ() - dRawH) < 10 * GEO.EPS_SMALL or Proc.Box:getDimZ() > dRawH))
       end
    end
    return bHeadFinishingNeeded, nReplacedFeatureId
@@ -351,24 +170,19 @@ local function AnalyzeTailFeatures( b3Solid, vProc, dRawW, dRawH)
       end
       if Proc.Tail and Proc.Id ~= nReplacedFeatureId and Proc.Prc ~= 350 then
          -- controllo se la feature taglia l'intera sezione; in caso positivo la finitura non è necessaria
-         bTailFinishingNeeded = not ((abs(Proc.Box:getDimY() - dRawW) < 10 * GEO.EPS_SMALL or Proc.Box:getDimY() > dRawW) and (abs(Proc.Box:getDimZ() - dRawH) < 10 * GEO.EPS_SMALL or Proc.Box:getDimZ() > dRawH))
+         bTailFinishingNeeded = not (( abs( Proc.Box:getDimY() - dRawW) < 10 * GEO.EPS_SMALL or Proc.Box:getDimY() > dRawW) and
+                                     ( abs( Proc.Box:getDimZ() - dRawH) < 10 * GEO.EPS_SMALL or Proc.Box:getDimZ() > dRawH))
       end
    end
    return bTailFinishingNeeded, nReplacedFeatureId
 end
 
--------------------------------------------------------------------------------------------------------------
---    *** Inserimento delle travi nel grezzo ***
 -------------------------------------------------------------------------------------------------------------
 function BeamExec.ProcessBeams( dRawW, dRawH, dRawL, dOvmHead, vBeam, bMachGroupOk)
-   
-   if not BD.OVM_BLADE_HBEAM then
-      BD.OVM_BLADE_HBEAM = 11
-   end
-   
-   if not BD.OVM_CHAIN_HBEAM then
-      BD.OVM_CHAIN_HBEAM = 8
-   end
+
+   -- default per nuove costanti qualora non definite
+   BD.OVM_BLADE_HBEAM = ( BD.OVM_BLADE_HBEAM or 11)
+   BD.OVM_CHAIN_HBEAM = ( BD.OVM_CHAIN_HBEAM or 8)
    
    -- Determinazione minimo grezzo scaricabile
    BeamExec.CalcMinUnloadableRaw( dRawW, dRawH)
@@ -562,6 +376,105 @@ local function Verify90DegRotation( nRawId)
           ( dRawH < BD.MAX_WIDTH2 + 10 * GEO.EPS_SMALL and dRawW < BD.MAX_HEIGHT2 + 10 * GEO.EPS_SMALL)
 end
 
+-------------------------------------------------------------------------------------------------------------
+local function IsHeadFeature( Proc, b3Raw, dCurrOvmH)
+   -- feature sempre di testa o coda per il gruppo
+   if Proc.Grp == 1 or Proc.Grp == 2 then
+      return ( Proc.Box:getCenter():getX() > b3Raw:getCenter():getX() - 0.5 * dCurrOvmH)
+   end
+   -- feature sempre di testa o coda nonostante il gruppo
+   if ( Proc.Grp == 3 or Proc.Grp == 4) and
+      ( Proc.Prc == 38 or Proc.Prc == 51 or Proc.Prc == 56 or Proc.Prc == 100 or Proc.Prc == 101 or Proc.Prc == 102 or Proc.Prc == 103 or Proc.Prc == 106) then
+      return ( Proc.Box:getCenter():getX() > b3Raw:getCenter():getX() - 0.5 * dCurrOvmH)
+   end
+   -- gestioni speciali
+   if LapJoint.Identify( Proc) then
+      return LapJoint.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
+   end
+   if Drill.Identify( Proc) then
+      return Drill.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
+   end
+   if RoundArch.Identify( Proc) then
+      return RoundArch.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
+   end
+   if Dovetail.Identify( Proc) then
+      return Dovetail.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
+   end
+   if FreeContour.Identify( Proc) then
+      return FreeContour.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
+   end
+   -- non è di testa
+   return false
+end
+
+-------------------------------------------------------------------------------------------------------------
+local function IsTailFeature( Proc, b3Raw, dCurrOvmH, dCurrOvmT)
+   -- lunghezza di riferimento per spostare le feature di coda appena prima
+   local dAdvTailLen = BD.LEN_VERY_SHORT_PART or BD.LEN_SHORT_PART
+   -- feature sempre di testa o coda per il gruppo (se non troppo lunga)
+   if Proc.Grp == 1 or Proc.Grp == 2 then
+      -- se abilitato avanzamento lavorazione feature di coda e pezzo corto (quindi a caduta) e feature in coda
+      if BD.ADVANCE_TAIL_CUT and b3Raw:getDimX() < dAdvTailLen and Proc.Box:getCenter():getX() < b3Raw:getCenter():getX() - 0.5 * dCurrOvmH then
+         -- se taglio, lo avanzo
+         if Proc.Prc == 10 then
+            return false, true
+         end
+      end
+      -- standard
+      return ( Proc.Box:getCenter():getX() < b3Raw:getCenter():getX() - 0.5 * dCurrOvmH and Proc.Box:getDimX() < BD.MAX_LEN_HTFEA)
+   end
+   -- feature sempre di testa o coda nonostante il gruppo
+   if ( Proc.Grp == 3 or Proc.Grp == 4) and
+      ( Proc.Prc == 38 or Proc.Prc == 51 or Proc.Prc == 56 or Proc.Prc == 100 or Proc.Prc == 101 or Proc.Prc == 102 or Proc.Prc == 103 or Proc.Prc == 106) then
+      -- se abilitato avanzamento lavorazione feature di coda e pezzo corto (quindi a caduta) e feature in coda
+      if BD.ADVANCE_TAIL_CUT and b3Raw:getDimX() < dAdvTailLen and Proc.Box:getCenter():getX() < b3Raw:getCenter():getX() - 0.5 * dCurrOvmH then
+         -- se profilo front solo con smusso, lo avanzo
+         if Proc.Prc == 100 and ProfFront.OnlyChamfer( Proc) then
+            return false, true
+         end
+         -- se profilo concavo solo con smusso, lo avanzo
+         if Proc.Prc == 101 and ProfConcave.OnlyChamfer( Proc) then
+            return false, true
+         end
+         -- se profilo convesso solo con smusso, lo avanzo
+         if Proc.Prc == 102 and ProfConvex.OnlyChamfer( Proc) then
+            return false, true
+         end
+         -- se profilo caudato solo con smusso, lo avanzo
+         if Proc.Prc == 103 and ProfCamb.OnlyChamfer( Proc) then
+            return false, true
+         end
+         -- se profilo head solo con smusso, lo avanzo
+         if Proc.Prc == 106 and ProfHead.OnlyChamfer( Proc) then
+            return false, true
+         end
+      end
+      -- standard
+      return ( Proc.Box:getCenter():getX() < b3Raw:getCenter():getX() - 0.5 * dCurrOvmH)
+   end
+   -- gestioni speciali
+   if LapJoint.Identify( Proc) then
+      return LapJoint.IsTailFeature( Proc, b3Raw)
+   end
+   if Drill.Identify( Proc) then
+      return Drill.IsTailFeature( Proc, b3Raw, dCurrOvmT)
+   end
+   if DtMortise.Identify( Proc) then
+      return DtMortise.IsTailFeature( Proc, b3Raw)
+   end
+   if RoundArch.Identify( Proc) then
+      return RoundArch.IsTailFeature( Proc, b3Raw)
+   end
+   if Dovetail.Identify( Proc) then
+      return Dovetail.IsTailFeature( Proc, b3Raw)
+   end
+   if FreeContour.Identify( Proc) then
+      return FreeContour.IsTailFeature( Proc, b3Raw)
+   end
+   -- non è di coda
+   return false
+end
+
 -------------------------------------------------------------------------------------------------------------
 local function PrintFeatures( vProc, b3Raw)
    EgtOutLog( ' RawBox=' .. tostring( b3Raw))
@@ -581,6 +494,93 @@ local function PrintFeatures( vProc, b3Raw)
    end
 end
 
+-------------------------------------------------------------------------------------------------------------
+local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
+   -- recupero le feature
+   local vProc = {}
+   local LayerId = {}
+   LayerId[1] = BL.GetAddGroup( PartId)
+   LayerId[2] = EgtGetFirstNameInGroup( PartId or GDB_ID.NULL, 'Processings')
+   for nInd = 1, 2 do
+      local ProcId = EgtGetFirstInGroup( LayerId[nInd] or GDB_ID.NULL)
+      while ProcId do
+         local nEntType = EgtGetType( ProcId)
+         if nEntType == GDB_TY.SRF_MESH or nEntType == GDB_TY.EXT_TEXT or
+            nEntType == GDB_TY.CRV_LINE or nEntType == GDB_TY.CRV_ARC or nEntType == GDB_TY.CRV_BEZ or nEntType == GDB_TY.CRV_COMPO then
+            local nGrp = EgtGetInfo( ProcId, 'GRP', 'i')
+            local nPrc = EgtGetInfo( ProcId, 'PRC', 'i')
+            local nDo = EgtGetInfo( ProcId, 'DO', 'i') or 1
+            local nCutId = EgtGetInfo( EgtGetParent( EgtGetParent( ProcId)), 'CUTID', 'i') or 0
+            local nTaskId = EgtGetInfo( ProcId, 'TASKID', 'i') or 0
+            if nGrp and nPrc and nDo == 1 then
+               local Proc = {}
+               Proc.Id = ProcId
+               Proc.Grp = nGrp
+               Proc.Prc = nPrc
+               Proc.Flg = 1
+               Proc.Fct = EgtSurfTmFacetCount( ProcId) or 0
+               Proc.Diam = 0
+               Proc.Fcs = 0
+               Proc.Fce = 0
+               Proc.CutId = nCutId
+               Proc.TaskId = nTaskId
+               Proc.Box = EgtGetBBoxGlob( ProcId, GDB_BB.STANDARD)
+               if Proc.Box and not Proc.Box:isEmpty() then 
+                  Proc.Head = IsHeadFeature( Proc, b3Raw, dCurrOvmH)
+                  Proc.Tail, Proc.AdvTail = IsTailFeature( Proc, b3Raw, dCurrOvmH, dCurrOvmT)
+                  table.insert( vProc, Proc)
+                  -- se foro
+                  if Drill.Identify( Proc) then
+                     -- assegno diametro e facce di ingresso e uscita (dati tabelle sempre per riferimento)
+                     Proc.Diam, Proc.Fcs, Proc.Fce = Drill.GetData( Proc, b3Raw)
+                     -- verifico se necessaria seconda lavorazione da parte opposta per foro più lungo della punta
+                     if Drill.Split( Proc, b3Raw) then
+                        -- aggiorno flags prima parte foro (dati tabelle sempre per riferimento)
+                        Proc.Flg = 2
+                        Proc.Head = Drill.IsHeadFeature( Proc, b3Raw, dCurrOvmH)
+                        Proc.Tail = Drill.IsTailFeature( Proc, b3Raw, dCurrOvmH, dCurrOvmT)
+                        -- definisco dati seconda parte
+                        local Proc2 = {}
+                        Proc2.Id = ProcId
+                        Proc2.Grp = nGrp
+                        Proc2.Prc = nPrc
+                        Proc2.Flg = -2
+                        Proc2.Box = BBox3d( Proc.Box)
+                        Proc2.Fct = Proc.Fct
+                        Proc2.Diam = Proc.Diam
+                        Proc2.Head = Drill.IsHeadFeature( Proc2, b3Raw, dCurrOvmH)
+                        Proc2.Tail = Drill.IsTailFeature( Proc2, b3Raw, dCurrOvmH)
+                        Proc2.Fcs = Proc.Fce
+                        Proc2.Fce = Proc.Fcs
+                        Proc2.CutId = Proc.CutId
+                        Proc2.TaskId = Proc.TaskId
+                        table.insert( vProc, Proc2)
+                     end
+                  -- se BlockHaus HalfLap
+                  elseif Proc.Prc == 37 then
+                     local nFacInd = BL.GetFaceWithMostAdj( Proc.Id, PartId)
+                     if nFacInd then
+                        local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
+                        if vtN then
+                           Proc.vtN = Vector3d( vtN)
+                        end
+                     end
+                  end
+               else
+                  Proc.Head = false
+                  Proc.Tail = false
+                  Proc.Flg = 0
+                  table.insert( vProc, Proc)
+                  EgtOutLog( ' Feature ' .. tostring( Proc.Id) .. ' is empty (no geometry)')
+               end
+            end
+         end
+         ProcId = EgtGetNext( ProcId)
+      end
+   end
+   return vProc
+end
+
 -------------------------------------------------------------------------------------------------------------
 local function OrderFeatures( vProc, b3Raw)
 
@@ -1332,10 +1332,10 @@ function BeamExec.ProcessFeatures()
       -- eventuale spostamento fori sui tenoni
       MoveDrillsOnTenon( vProc)
       -- identifico la condizione di lavorazione, in base a bSomeDown e bSomeSide
-      local sDownOrSideOrStd = 'standard'
+      local sDownOrSideOrStd = 'STD'
       -- se richiesto ribaltamento (oppure rotazione)
       if ( bSomeDown or bSomeSide) and not BD.DOWN_HEAD and not BD.TURN then
-         sDownOrSideOrStd = 'down'
+         sDownOrSideOrStd = 'DOWN'
          -- ribalto le travi della fase corrente
          local nRId = nRawId
          while nRId do
@@ -1398,7 +1398,7 @@ function BeamExec.ProcessFeatures()
       end
       -- se richiesta rotazione
       if bSomeSide and not BD.DOWN_HEAD and not BD.TURN then
-         sDownOrSideOrStd = 'side'
+         sDownOrSideOrStd = 'SIDE'
          -- vettore movimento grezzi per rotazione di 90deg
          local dDeltaYZ = EgtGetRawPartBBox( nRawId):getDimY() - EgtGetRawPartBBox( nRawId):getDimZ()
          local vtMove = Vector3d( 0, dDeltaYZ / 2, dDeltaYZ / 2)
@@ -1470,7 +1470,7 @@ function BeamExec.ProcessFeatures()
          EgtSetInfo( nDispId, 'TYPE', EgtIf( not bSplitRot, 'MID', 'END2'))
          EgtSetInfo( nDispId, 'ORD', nOrd)
       end
-      sDownOrSideOrStd = 'standard'
+      sDownOrSideOrStd = 'STD'
       -- inserisco le lavorazioni non ribaltate della trave
       for i = 1, #vProc do
          -- creo la lavorazione
diff --git a/LuaLibs/BeamLib.lua b/LuaLibs/BeamLib.lua
index ed759c6..f557fc8 100644
--- a/LuaLibs/BeamLib.lua
+++ b/LuaLibs/BeamLib.lua
@@ -1,4 +1,4 @@
--- BeamLib.lua by Egaltech s.r.l. 2022/05/25
+-- BeamLib.lua by Egaltech s.r.l. 2022/06/25
 -- Libreria globale per Travi
 -- 2020/07/28 Corretto calcolo attacchi e uscite di lame per non uscire dalla faccia sotto.
 -- 2020/08/18 Aggiunto a GetNearestParalOpposite e GetNearestOrthoOpposite parametro opzionale vtNorm.
@@ -12,6 +12,7 @@
 -- 2022/04/05 Modifiche a GetNzLimDownUp per FAST.
 -- 2022/05/03 Ulteriore limitazione a GetNzLimDownUp per FAST.
 -- 2022/05/18 Correzioni e migliorie a PutStartNearestToEdge.
+-- 2022/06/25 Rese globali le funzioni GetChainSawBlockedAxis e GetChainSawInitAngs prima in ProcessLapJpoint.
 
 -- Tabella per definizione modulo
 local BeamLib = {}
@@ -735,5 +736,35 @@ function BeamLib.GetPhaseType( nPhase)
    return ( EgtGetInfo( EgtGetPhaseDisposition( nPhase) or GDB_ID.NULL, 'TYPE') or '')
 end
 
+---------------------------------------------------------------------
+function BeamLib.GetChainSawBlockedAxis( nInd)
+   if BD.GetChainSawBlockedAxis then
+      return BD.GetChainSawBlockedAxis( nInd)
+   else
+      if nInd == 1 then
+         return EgtIf( BD.C_SIMM, 'A=90', 'A=90')
+      else
+         return EgtIf( BD.C_SIMM, 'A=0', 'A=0')
+      end
+   end
+end
+
+---------------------------------------------------------------------
+function BeamLib.GetChainSawInitAngs( vtN, vtO, nInd)
+   if BD.GetChainSawInitAngs then
+      return BD.GetChainSawInitAngs( vtN, vtO, nInd)
+   else
+      if BD.C_SIMM then
+         return EgtIf( vtN:getY() > 0, 'C=180', 'C=-180')
+      else
+         if nInd == 1 then
+            return ''
+         else
+            return EgtIf( vtN:getY() > 0, 'C=180', 'C=-180')
+         end
+      end
+   end
+end
+
 -------------------------------------------------------------------------------------------------------------
 return BeamLib
diff --git a/LuaLibs/ProcessCut.lua b/LuaLibs/ProcessCut.lua
index 863e335..e1b29d3 100644
--- a/LuaLibs/ProcessCut.lua
+++ b/LuaLibs/ProcessCut.lua
@@ -10,6 +10,7 @@
 -- 2022/02/06 Correzioni per tagli di coda spostati prima.
 -- 2022/05/31 Alcune modifiche per utilizzare la ProcessCut.Make in ProcessSplit e ProcessHeadCut, per le sezioni alte e larghe.
 -- 2022/06/10 Aggiunto il parametro dOvmTail per gestire sovramateriali in coda diversi da OVM_MID (sezioni alte e larghe)
+
 -- Tabella per definizione modulo
 local ProcessCut = {}
 
@@ -223,10 +224,8 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione con testa da sopra
 local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut, bForced, b3Raw, sNotes)
-   if not b3Raw then
-      -- ingombro del grezzo
-      b3Raw = EgtGetRawPartBBox( nRawId)
-   end
+   -- ingombro del grezzo
+   b3Raw = b3Raw or EgtGetRawPartBBox( nRawId)
    -- ingombro del pezzo
    local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
    -- dati geometrici del taglio
@@ -332,11 +331,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
          vtExtra = X_AX()
          bAutoCalcSurf = false
       end
-      if bForced then 
-         vCuts = DC.GetDice( nAddGrpId, b3Raw, ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA)
-      else
-         vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA)
-      end
+      vCuts = DC.GetDice( nAddGrpId, EgtIf( bForced, b3Raw, b3Solid), ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA)
       -- se taglio sborda in coda e non è stato inserito nessun taglio a cubetti, lo rilancio con le dimensioni customizzate
       if ( bFillTail or bCustDiceCut) and #vCuts == 0 then
          vCuts = DC.GetDice( nAddGrpId, b3Solid, ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA, Proc.Box:getDimY())
@@ -672,13 +667,11 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut, bForced, b3Raw, sNotes, dOvmTail, bUpdateIng)
-   if not dOvmTail then
-      dOvmTail = BD.OVM_MID
-   end
-   if not b3Raw then
-      -- ingombro del grezzo
-      b3Raw = EgtGetRawPartBBox( nRawId)
-   end
+   -- sovramateriale di coda
+   dOvmTail = dOvmTail or BD.OVM_MID
+   -- ingombro del grezzo
+   b3Raw = b3Raw or EgtGetRawPartBBox( nRawId)
+   -- ingombro del pezzo
    local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
    if not b3Solid then
       local sErr = 'Error : part box not found'
diff --git a/LuaLibs/ProcessDovetail.lua b/LuaLibs/ProcessDovetail.lua
index 0089713..ce72834 100644
--- a/LuaLibs/ProcessDovetail.lua
+++ b/LuaLibs/ProcessDovetail.lua
@@ -1712,9 +1712,8 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessDovetail.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, dOvmTail)
-   if not dOvmTail then
-      dOvmTail = BD.OVM_MID
-   end
+   -- sovramateriale di coda
+   dOvmTail = dOvmTail or BD.OVM_MID
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
    -- in base al tipo di feature attribuisco il significato dei parametri Q
diff --git a/LuaLibs/ProcessDrill.lua b/LuaLibs/ProcessDrill.lua
index 1427943..e3921dc 100644
--- a/LuaLibs/ProcessDrill.lua
+++ b/LuaLibs/ProcessDrill.lua
@@ -57,9 +57,8 @@ end
 ---------------------------------------------------------------------
 -- Verifica se feature di coda
 function ProcessDrill.IsTailFeature( Proc, b3Raw, dOvmTail)
-   if not dOvmTail then
-      dOvmTail = BD.OVM_MID
-   end
+   -- sovramateriale di coda
+   dOvmTail = dOvmTail or BD.OVM_MID
    -- verifico se è in coda
    if Proc.Box:getMin():getX() > b3Raw:getMin():getX() + dOvmTail + BD.MAX_DIST_HTFEA then
       return false
diff --git a/LuaLibs/ProcessFrenchRidgeLap.lua b/LuaLibs/ProcessFrenchRidgeLap.lua
index 160ca5a..f388c26 100644
--- a/LuaLibs/ProcessFrenchRidgeLap.lua
+++ b/LuaLibs/ProcessFrenchRidgeLap.lua
@@ -40,9 +40,8 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessFrenchRidgeLap.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, dOvmTail)
-   if not dOvmTail then
-      dOvmTail = BD.OVM_MID
-   end
+   -- sovramateriale di coda
+   dOvmTail = dOvmTail or BD.OVM_MID
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
    -- ingombro del pezzo
diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index 035bf74..332f902 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -1,4 +1,4 @@
--- ProcessLapJoint.lua by Egaltech s.r.l. 2022/06/15
+-- ProcessLapJoint.lua by Egaltech s.r.l. 2022/06/25
 -- Gestione calcolo mezzo-legno per Travi
 -- 2019/10/08 Agg. gestione OpenPocket.
 -- 2021/01/24 Con sega a catena ora sempre impostato asse A.
@@ -42,7 +42,6 @@
 -- 2022/04/28 Lavorazione BH forzata sempre OneWay.
 -- 2022/05/04 Corretta classificazione due facce sotto. Modificati criteri assegnazione due facce alla coda.
 -- 2022/05/24 Miglioramenti vari per BH, compreso controlli per lavorazione da sotto.
--- 2022/05/31 Rese globali le funzioni GetChainSawBlockedAxis e GetChainSawInitAngs per essere richiamate dalla ProcessSplit per taglio sega a catena in sezioni alte e larghe.
 -- 2022/06/13 Modifiche per feature lunga con due facce non equivalenti a taglio long. doppio o singolo con faccia terminale.
 -- 2022/06/15 Correzione calcolo normale alla faccia per sega catena di fianco.
 -- 2022/06/16 Implemento lavorazioni con fresatura di lato per L30 (al momento solo passanti) se parametro Q03=2. Modificate funzioni Make, MakeMoreFaces, Classify.
@@ -259,36 +258,6 @@ local function TestElleShape4( Proc)
    end 
 end
 
----------------------------------------------------------------------
-function ProcessLapJoint.GetChainSawBlockedAxis( nInd)
-   if BD.GetChainSawBlockedAxis then
-      return BD.GetChainSawBlockedAxis( nInd)
-   else
-      if nInd == 1 then
-         return EgtIf( BD.C_SIMM, 'A=90', 'A=90')
-      else
-         return EgtIf( BD.C_SIMM, 'A=0', 'A=0')
-      end
-   end
-end
-
----------------------------------------------------------------------
-function ProcessLapJoint.GetChainSawInitAngs( vtN, vtO, nInd)
-   if BD.GetChainSawInitAngs then
-      return BD.GetChainSawInitAngs( vtN, vtO, nInd)
-   else
-      if BD.C_SIMM then
-         return EgtIf( vtN:getY() > 0, 'C=180', 'C=-180')
-      else
-         if nInd == 1 then
-            return ''
-         else
-            return EgtIf( vtN:getY() > 0, 'C=180', 'C=-180')
-         end
-      end
-   end
-end
-
 ---------------------------------------------------------------------
 local function VerifyChainSaw( Proc, dMinDim, dMaxDim)
    local bUseChainSaw = false
@@ -3062,8 +3031,8 @@ local function MakeByChainOrSaw( Proc, nPhase, nRawId, nPartId, nFacInd,
                EgtSetMachiningParam( MCH_MP.ENDADDLEN, EgtIf( bOpenEnd, 0, - dSawWidth / 2))
             end
             -- imposto angolo 3° asse rot e eventuale angolo suggerito per inizio
-            EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, ProcessLapJoint.GetChainSawBlockedAxis( 1))
-            EgtSetMachiningParam( MCH_MP.INITANGS, ProcessLapJoint.GetChainSawInitAngs( vtN, rfFac:getVersZ(), 1))
+            EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetChainSawBlockedAxis( 1))
+            EgtSetMachiningParam( MCH_MP.INITANGS, BL.GetChainSawInitAngs( vtN, rfFac:getVersZ(), 1))
             -- imposto offset radiale
             local dOffs = ( i - 1) * dStep
             EgtSetMachiningParam( MCH_MP.OFFSR, dOffs)
@@ -3085,8 +3054,8 @@ local function MakeByChainOrSaw( Proc, nPhase, nRawId, nPartId, nFacInd,
                   return false, sErr
                end
                -- impostazione alternativa angolo 3° asse rot
-               EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, ProcessLapJoint.GetChainSawBlockedAxis( 2))
-               EgtSetMachiningParam( MCH_MP.INITANGS, ProcessLapJoint.GetChainSawInitAngs( vtN, rfFac:getVersZ(), 2))
+               EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetChainSawBlockedAxis( 2))
+               EgtSetMachiningParam( MCH_MP.INITANGS, BL.GetChainSawInitAngs( vtN, rfFac:getVersZ(), 2))
                if not ML.ApplyMachining( true, false) then
                   local _, sErr = EgtGetLastMachMgrError()
                   EgtSetOperationMode( nMchFId, false)
@@ -3130,8 +3099,8 @@ local function MakeByChainOrSaw( Proc, nPhase, nRawId, nPartId, nFacInd,
                -- imposto uso del lato faccia
                EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
                -- imposto angolo 3° asse rot
-               EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, ProcessLapJoint.GetChainSawBlockedAxis( 1))
-               EgtSetMachiningParam( MCH_MP.INITANGS, ProcessLapJoint.GetChainSawInitAngs( vtNL, vtOrtho, 1))
+               EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetChainSawBlockedAxis( 1))
+               EgtSetMachiningParam( MCH_MP.INITANGS, BL.GetChainSawInitAngs( vtNL, vtOrtho, 1))
                -- imposto offset radiale
                local dOffs = ( i - 1) * dStep
                EgtSetMachiningParam( MCH_MP.OFFSR, dOffs)
@@ -3161,8 +3130,8 @@ local function MakeByChainOrSaw( Proc, nPhase, nRawId, nPartId, nFacInd,
                      return false, sErr
                   end
                   -- impostazione alternativa angolo 3° asse rot
-                  EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, ProcessLapJoint.GetChainSawBlockedAxis( 2))
-                  EgtSetMachiningParam( MCH_MP.INITANGS, ProcessLapJoint.GetChainSawInitAngs( vtNL, vtOrtho, 2))
+                  EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetChainSawBlockedAxis( 2))
+                  EgtSetMachiningParam( MCH_MP.INITANGS, BL.GetChainSawInitAngs( vtNL, vtOrtho, 2))
                   if not ML.ApplyMachining( true, false) then
                      local _, sErr = EgtGetLastMachMgrError()
                      EgtSetOperationMode( nMchFId, false)
@@ -4358,37 +4327,20 @@ local function ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw,
 end
 
 ---------------------------------------------------------------------
--- Trova il numero (0 based) della faccia meglio orientata come l'asse 'sAxis'. Restituisce anche vtN e ptC della faccia stessa.
--- sAxis: 'X' o 'Y' o 'Z'
-local function FindFaceBestOrientedAsAxis( Proc, sAxis)
-   local ptC = {}
-   local vtN = {}
-   local nFaceMaximumNormalComponentOnAxis = 0
-   local dFaceMaximumNormalComponentOnAxisValue = 0
+-- Trova l'Ind (0 based) della faccia meglio orientata come l'asse vtAx. Restituisce anche vtN e ptC della faccia stessa.
+local function FindFaceBestOrientedAsAxis( Proc, vtAx)
+   local nFaceIndMax = 0
+   local dMaxComp = 0 ;
    for i = 1, Proc.Fct do
-      ptC[i], vtN[i] = EgtSurfTmFacetCenter( Proc.Id, i - 1, GDB_ID.ROOT)
-      if sAxis == 'X' then
-         if abs(vtN[i]:getX()) > dFaceMaximumNormalComponentOnAxisValue then
-            nFaceMaximumNormalComponentOnAxis = i - 1
-            dFaceMaximumNormalComponentOnAxisValue = abs(vtN[i]:getX())
-         end         
-      elseif sAxis == 'Y' then
-         if abs(vtN[i]:getY()) > dFaceMaximumNormalComponentOnAxisValue then
-            nFaceMaximumNormalComponentOnAxis = i - 1
-            dFaceMaximumNormalComponentOnAxisValue = abs(vtN[i]:getY())
-         end
-      elseif sAxis == 'Z' then
-         if abs(vtN[i]:getZ()) > dFaceMaximumNormalComponentOnAxisValue then
-            nFaceMaximumNormalComponentOnAxis = i - 1
-            dFaceMaximumNormalComponentOnAxisValue = abs(vtN[i]:getZ())
-         end
-      else
-         local sErr = 'Error : FindFaceBestOrientedAsAxis - unknown axis name'
-         EgtOutLog( sErr)
-         return false, sErr
+      local vtN = EgtSurfTmFacetNormVersor( Proc.Id, i - 1, GDB_ID.ROOT)
+      local dComp = abs( vtN * vtAx)
+      if dComp > dMaxComp then
+         nFaceIndMax = i -1
+         dMaxComp = dComp
       end
    end
-   return nFaceMaximumNormalComponentOnAxis, vtN[ nFaceMaximumNormalComponentOnAxis + 1], ptC[ nFaceMaximumNormalComponentOnAxis + 1]
+   local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFaceIndMax, GDB_ID.ROOT)
+   return nFaceIndMax, ptC, vtN
 end
 
 ---------------------------------------------------------------------
@@ -4521,8 +4473,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                end
                local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nLundIdFace, GDB_ID.ROOT)
                -- imposto angolo 3° asse rot
-               EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, ProcessLapJoint.GetChainSawBlockedAxis( 1))
-               EgtSetMachiningParam( MCH_MP.INITANGS, ProcessLapJoint.GetChainSawInitAngs( vtN, vtOrtho, 1))
+               EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetChainSawBlockedAxis( 1))
+               EgtSetMachiningParam( MCH_MP.INITANGS, BL.GetChainSawInitAngs( vtN, vtOrtho, 1))
                -- imposto offset radiale
                local dOffs = ( i - 1) * dStep
                EgtSetMachiningParam( MCH_MP.OFFSR, dOffs)
@@ -4542,8 +4494,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                      EgtSetOperationMode( nMchFId, false)
                      return false, sErr
                   end
-                  EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, ProcessLapJoint.GetChainSawBlockedAxis( 2))
-                  EgtSetMachiningParam( MCH_MP.INITANGS, ProcessLapJoint.GetChainSawInitAngs( vtN, vtOrtho, 2))
+                  EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetChainSawBlockedAxis( 2))
+                  EgtSetMachiningParam( MCH_MP.INITANGS, BL.GetChainSawInitAngs( vtN, vtOrtho, 2))
                   if not ML.ApplyMachining( true, false) then
                      local _, sErr = EgtGetLastMachMgrError()
                      EgtSetOperationMode( nMchFId, false)
@@ -4588,8 +4540,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
       local bIsU = ( Proc.Fct == 3 and not TestElleShape3( Proc))
       -- verifico se due facce o L con una o due facce di terminazione
       local bIsL = ( Proc.Fct == 2 or TestElleShape3( Proc) or TestElleShape4( Proc) == 2)
-      -- se L30 e paramtetro Q03=2 forzo la fresatura di lato
-      local bForceSideMill = Proc.Prc == 30 and EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') == 2 and ( Proc.Fct == 4 or Proc.Fct == 3 or Proc.Fct == 2)
+      -- se parametro Q03=2 forzo la fresatura di lato
+      local bForceSideMill = EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') == 2 and ( Proc.Fct == 4 or Proc.Fct == 3 or Proc.Fct == 2)
       -- se fattibile con fresa BH di fianco e spessore utensile inferiore alla larghezza faccia
       local bMakeBySideMill, bHead, bHeadDir, sMilling, dMaxMat, dToolDiam = VerifyBHSideMill( Proc, bIsU, bIsL, bSinglePart, bPrevBhSideMill)
       if bPrevBhSideMill == nil then
@@ -5165,14 +5117,14 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                      -- o passare subito dalla lavorazione con lama/sega catena
                      if ( bTrySidePocketAtFirst and Proc.Fct == 3 and bIsU) or bForceSideMill then
                         -- lavoro con svuotature (singola o doppia contrapposta)
-                        local sMyMchFind = 'Pocket'
+                        local sMyMchFind = EgtIf( bForceSideMill, 'OpenPocket', 'Pocket')
                         local dDiamTool = 100
                         local nPathInt, nSurfInt, bOneShot, nFirstMachId
                         local bIs3Faces = true
                         local bOrthoFacesMaster = nil
                         local bSetOpenBorders = nil
                         -- trovo la faccia con normale più inclinata verso Y
-                        local nFacApproxY, vtNFacApproxY, ptCFacApproxY = FindFaceBestOrientedAsAxis( Proc, 'Y')
+                        local nFacApproxY, ptCFacApproxY, vtNFacApproxY = FindFaceBestOrientedAsAxis( Proc, Y_AX())
                         -- se Q03 = 2 e
                         -- 3 facce a L, oppure
                         -- 3 facce non a L ma con una faccia favorevole a Y, oppure
diff --git a/LuaLibs/ProcessSawCut.lua b/LuaLibs/ProcessSawCut.lua
index 37793e4..0cb81c4 100644
--- a/LuaLibs/ProcessSawCut.lua
+++ b/LuaLibs/ProcessSawCut.lua
@@ -38,9 +38,8 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessSawCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, dOvmTail)
-   if not dOvmTail then
-      dOvmTail = BD.OVM_MID
-   end
+   -- sovramateriale di coda
+   dOvmTail = dOvmTail or BD.OVM_MID
    -- ingombro del grezzo
    local b3Raw = EgtGetRawPartBBox( nRawId)
    -- ingombro del pezzo
diff --git a/LuaLibs/ProcessScarfJoint.lua b/LuaLibs/ProcessScarfJoint.lua
index 22b7a28..cb00fcf 100644
--- a/LuaLibs/ProcessScarfJoint.lua
+++ b/LuaLibs/ProcessScarfJoint.lua
@@ -200,9 +200,8 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessScarfJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, dOvmTail)
-   if not dOvmTail then
-      dOvmTail = BD.OVM_MID
-   end
+   -- sovramateriale di coda
+   dOvmTail = dOvmTail or BD.OVM_MID
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
    -- ingombro del pezzo
diff --git a/LuaLibs/ProcessSimpleScarf.lua b/LuaLibs/ProcessSimpleScarf.lua
index e25baf4..d80cc77 100644
--- a/LuaLibs/ProcessSimpleScarf.lua
+++ b/LuaLibs/ProcessSimpleScarf.lua
@@ -126,9 +126,8 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessSimpleScarf.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, dOvmTail)
-   if not dOvmTail then
-      dOvmTail = BD.OVM_MID
-   end
+   -- sovramateriale di coda
+   dOvmTail = dOvmTail or BD.OVM_MID
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
    -- ingombro del pezzo
diff --git a/LuaLibs/ProcessSplit.lua b/LuaLibs/ProcessSplit.lua
index 8073f84..75cf220 100644
--- a/LuaLibs/ProcessSplit.lua
+++ b/LuaLibs/ProcessSplit.lua
@@ -10,7 +10,6 @@ local ProcessSplit = {}
 require( 'EgtBase')
 local BL = require( 'BeamLib')
 local Fbs = require( 'FacesBySaw')
-local LapJoint = require( 'ProcessLapJoint')
 local Cut = require( 'ProcessCut')
 local Pocket = require( 'FaceByPocket')
 
@@ -183,10 +182,10 @@ local function MakeSplitByChainSaw( nSurfId, nFaceUse, dDepth, sNotes, dOffs)
    -- imposto uso del lato faccia
    EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
    -- imposto angolo 3° asse rot
-   EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, LapJoint.GetChainSawBlockedAxis( 2))
+   EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetChainSawBlockedAxis( 2))
    local _, vtN = EgtSurfTmFacetCenter( nSurfId, 0, GDB_ID.ROOT)
    vtOrthO = BL.GetVersRef( nFaceUse)
-   EgtSetMachiningParam( MCH_MP.INITANGS, LapJoint.GetChainSawInitAngs( vtN, vtOrtho, 2))
+   EgtSetMachiningParam( MCH_MP.INITANGS, BL.GetChainSawInitAngs( vtN, vtOrtho, 2))
    -- imposto offset radiale per mantenere il materiale in coda per la finitura
    EgtSetMachiningParam( MCH_MP.OFFSR, dOffs)
    -- imposto allungamento percorso iniziale e finale a zero
@@ -213,8 +212,8 @@ local function MakeSplitByChainSaw( nSurfId, nFaceUse, dDepth, sNotes, dOffs)
          return false, sErr
       end
       -- impostazione alternativa angolo 3° asse rot
-      EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, LapJoint.GetChainSawBlockedAxis( 1))
-      EgtSetMachiningParam( MCH_MP.INITANGS, LapJoint.GetChainSawInitAngs( vtN, vtOrtho, 1))
+      EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetChainSawBlockedAxis( 1))
+      EgtSetMachiningParam( MCH_MP.INITANGS, BL.GetChainSawInitAngs( vtN, vtOrtho, 1))
       if not ML.ApplyMachining( true, false) then
          local _, sErr = EgtGetLastMachMgrError()
          EgtSetOperationMode( nMchFId, false)
diff --git a/LuaLibs/ProcessTyroleanDovetail.lua b/LuaLibs/ProcessTyroleanDovetail.lua
index 6bd9cc1..ba7b31d 100644
--- a/LuaLibs/ProcessTyroleanDovetail.lua
+++ b/LuaLibs/ProcessTyroleanDovetail.lua
@@ -673,9 +673,8 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessTyroleanDovetail.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, dOvmTail)
-   if not dOvmTail then
-      dOvmTail = BD.OVM_MID
-   end
+   -- sovramateriale di coda
+   dOvmTail = dOvmTail or BD.OVM_MID
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
    -- in base al tipo di feature attribuisco il significato dei parametri Q