diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index f9c0835..f554442 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -69,6 +69,7 @@
 -- 2023/16/12 Corretto il recupero dati utensile che, in alcune funzioni, puntava all'utensile errato.
 -- 2023/06/29 Se forzata lavorazione laterale permetto l'uso del truciolatore solo se non è una tasca chiusa.
 -- 2023/07/19 Correzioni e modifiche ad antischeggia con lama (#1351).
+-- 2023/08/01 Aggiunta gestione rinvio angolare solo per tasche 5 lati, da sotto e perfettamente verticali.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -3099,7 +3100,7 @@ local function MakeAntiSplintBySaw( Proc, nFacet, vtN, b3Raw, nFacInd, bReduceDe
 end
 
 ---------------------------------------------------------------------
-local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFind, nUseRoughTool, sMasterPocket, dPrevFaceElev, tDimAndRef, dAng, bOpenOutRaw)
+local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFind, nUseRoughTool, sMasterPocket, dPrevFaceElev, tDimAndRef, dAng, bOpenOutRaw, bLapJointAngTrasm)
 
    -- calcolo l'elevazione dal punto medio
    local dElev
@@ -3163,7 +3164,9 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
    EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.ORTHO_CONT)
    -- imposto posizione braccio porta testa
    local nSCC = MCH_SCC.NONE
-   if not BD.C_SIMM and not BD.TURN then
+   if bLapJointAngTrasm then
+      nSCC = MCH_SCC.ADIR_NEAR
+   elseif not BD.C_SIMM and not BD.TURN then
       nSCC = MCH_SCC.ADIR_YM 
       if AreSameVectorApprox( tvtN[2], Z_AX()) then
          nSCC = MCH_SCC.ADIR_YM
@@ -4896,7 +4899,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             end
             -- verifico non sia orientata verso il basso o ci sia una testa dal basso o la lavorazione sia dal lato.
             local bFaceDown = ( vtN:getZ() < BD.NZ_MINA)
-            if bFaceDown and not BD.DOWN_HEAD and not BD.TURN and not bForceSideMill then
+            if bFaceDown and not BD.DOWN_HEAD and not BD.TURN and not bForceSideMill and not bLapJointAngTrasm then
                local sErr = 'Error : LapJoint from bottom impossible'
                EgtOutLog( sErr)
                return false, sErr
@@ -4945,6 +4948,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             local bMillDown = ( BD.DOWN_HEAD and vtN:getZ() < 0.342)
             -- settaggio voluto da Alessandro/Fabio (per fare angoli con fresa piccola)
             sMchFind = 'Pocket'
+            if bLapJointAngTrasm then sMchFind = 'Pocket_AT' end
             local dDiam = min( dH, dV)
             local bTailOnSide = ( Proc.Box:getMin():getX() - b3Solid:getMin():getX() < 0.1 and not Proc.Tail and not bAllWithEndCap)
             if ( Proc.Fct == 1) or (( Proc.Fct == 2 or Proc.Fct == 3) and bIsL) or ((( Proc.Fct == 3 and bIsU) or ( Proc.Fct == 4 and not bTailOnSide)) and bSinglePart) then
@@ -5427,7 +5431,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                   dMachiningDepth = dFacElev + dCollSic
                end
                local bOk, sWarn2
-               bOk, sWarn2, sTuuidPk, dDiamTool = MakePocket( Proc, nPartId, b3Solid, ptC, tvtNx, nFacInd, sMchFind, nUseRoughTool, sPocketing, dMachiningDepth, nil, nil, bAllWithEndCap)
+               bOk, sWarn2, sTuuidPk, dDiamTool = MakePocket( Proc, nPartId, b3Solid, ptC, tvtNx, nFacInd, sMchFind, nUseRoughTool, sPocketing, dMachiningDepth, nil, nil, bAllWithEndCap, bLapJointAngTrasm)
                if not bOk then return false, sWarn2 end
                if sWarn2 then
                   if not sWarn then sWarn = '' end