diff --git a/LuaLibs/ProcessDrill.lua b/LuaLibs/ProcessDrill.lua
index cf36306..cb1d84c 100644
--- a/LuaLibs/ProcessDrill.lua
+++ b/LuaLibs/ProcessDrill.lua
@@ -1,4 +1,4 @@
--- ProcessDrill.lua by Egaltech s.r.l. 2021/02/18
+-- ProcessDrill.lua by Egaltech s.r.l. 2021/03/19
 -- Gestione calcolo forature per Travi
 
 -- Tabella per definizione modulo
@@ -163,6 +163,13 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
+   -- 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'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
    -- recupero e verifico l'entità foro
    local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i') or 0
    if AuxId then AuxId = AuxId + Proc.Id end
@@ -382,7 +389,9 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       if AreSameVectorApprox( vtExtr, Z_AX()) then
          nSCC = MCH_SCC.ADIR_YM
       elseif abs( vtExtr:getX()) < 0.1 then
-         nSCC = EgtIf( BL.IsPartFinalPhase( nPhase), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
+         local bNearTail = ( Proc.Box:getCenter():getX() < b3Solid:getCenter():getX())
+         local bVeryShortPart = ( BD.LEN_VERY_SHORT_PART and b3Solid:getDimX() < BD.LEN_VERY_SHORT_PART)
+         nSCC = EgtIf( BL.IsPartFinalPhase( nPhase) or ( bNearTail and not bVeryShortPart), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
       elseif vtExtr:getY() > 0.1 then
          nSCC = MCH_SCC.ADIR_YP
       end
diff --git a/LuaLibs/ProcessDtTenon.lua b/LuaLibs/ProcessDtTenon.lua
index babecbf..6979650 100644
--- a/LuaLibs/ProcessDtTenon.lua
+++ b/LuaLibs/ProcessDtTenon.lua
@@ -118,7 +118,7 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- ingombro del pezzo
    local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
    if not b3Solid then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' part box not found'
+      local sErr = 'Error : part box not found'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -126,7 +126,7 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
    if AuxId then AuxId = AuxId + Proc.Id end
    if not AuxId  or  ( EgtGetType( AuxId) & GDB_FY.GEO_CURVE) == 0 then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing profile geometry'
+      local sErr = 'Error : missing profile geometry'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -136,7 +136,7 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local ptBC = EgtGP( AuxId, GDB_RT.GLOB)
    -- verifico che il tenone non sia orientato verso il basso
    if not VerifyOrientation( Proc, vtExtr, b3Raw) then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' DtTenon from bottom impossible'
+      local sErr = 'Error : DtTenon from bottom impossible'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -157,7 +157,7 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       -- recupero gruppo per geometria addizionale
       local nAddGrpId = BL.GetAddGroup( nPartId)
       if not nAddGrpId then
-         local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
+         local sErr = 'Error : missing AddGroup'
          EgtOutLog( sErr)
          return false, sErr
       end
@@ -227,7 +227,7 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       sMilling = ML.FindMilling( sMillType)
    end
    if not sMilling then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' milling not found in library'
+      local sErr = 'Error : milling not found in library'
       EgtOutLog( sErr)
       return false, sErr
    end
diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index 33d0122..3304d65 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -1,4 +1,4 @@
--- ProcessLapJoint.lua by Egaltech s.r.l. 2021/03/16
+-- ProcessLapJoint.lua by Egaltech s.r.l. 2021/03/19
 -- Gestione calcolo mezzo-legno per Travi
 -- 2019/10/08 Agg. gestione OpenPocket.
 -- 2021/01/24 Con sega a catena ora sempre impostato asse A.
@@ -3471,9 +3471,10 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                --ottengo un diametro utensile opportuno
                dDiam, sMchFind, nUseRoughTool, dDiamMax = CheckToolDiamByFaces( Proc, nFacInd, dH, dV, bIsU, bIsL, ( dFacElev + dCollSic), nUseRoughTool)
                if not dDiam then
-                  if nUseRoughTool == 0 then
-                     sMchFind = 'OpenPocket'
-                  end
+                  sMchFind = sMchFindBackUp
+                  --if nUseRoughTool == 0 then
+                  --   sMchFind = 'OpenPocket'
+                  --end
                   dDiam = min( dH, dV)
                end
             end
diff --git a/LuaLibs/ProcessTenon.lua b/LuaLibs/ProcessTenon.lua
index 9555a2b..156d32b 100644
--- a/LuaLibs/ProcessTenon.lua
+++ b/LuaLibs/ProcessTenon.lua
@@ -115,7 +115,7 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- ingombro del pezzo
    local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
    if not b3Solid then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' part box not found'
+      local sErr = 'Error : part box not found'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -124,7 +124,7 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
    if AuxId then AuxId = AuxId + Proc.Id end
    if not AuxId  or  ( EgtGetType( AuxId) & GDB_FY.GEO_CURVE) == 0 then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing profile geometry'
+      local sErr = 'Error : missing profile geometry'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -134,7 +134,7 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local bClosed = EgtCurveIsClosed( AuxId)
    -- verifico che il tenone non sia orientato troppo verso il basso
    if not VerifyOrientation( Proc, vtExtr, b3Raw)  then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' Tenon from bottom impossible'
+      local sErr = 'Error : Tenon from bottom impossible'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -164,7 +164,7 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       -- recupero gruppo per geometria addizionale
       local nAddGrpId = BL.GetAddGroup( nPartId)
       if not nAddGrpId then
-         local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
+         local sErr = 'Error : missing AddGroup'
          EgtOutLog( sErr)
          return false, sErr
       end
@@ -234,7 +234,7 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       sMilling = ML.FindMilling( sMillType, dTenH) or ML.FindMilling( sMillType)
    end
    if not sMilling then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' milling not found in library'
+      local sErr = 'Error : milling not found in library'
       EgtOutLog( sErr)
       return false, sErr
    end