diff --git a/LuaLibs/BeamExec.lua b/LuaLibs/BeamExec.lua
index d003a51..b15c420 100644
--- a/LuaLibs/BeamExec.lua
+++ b/LuaLibs/BeamExec.lua
@@ -1,4 +1,4 @@
--- BeamExec.lua by Egaltech s.r.l. 2022/09/28
+-- BeamExec.lua by Egaltech s.r.l. 2022/12/23
 -- 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.
@@ -37,6 +37,7 @@
 -- 2022/08/18 Aggiunta gestione macchine con testa da sotto con lama da sotto disabilitata.
 -- 2022/09/28 I fori vengono sempre fatti prima delle tacche.
 -- 2022/09/29 Aggiunta la ricerca di feature specchiate, al momento solo per DtMortise, con le relative funzioni.
+-- 2022/12/23 Corrette rotazioni 90 deg per macchine con carico da destra.
 
 
 -- Tabella per definizione modulo
@@ -1658,7 +1659,7 @@ function BeamExec.ProcessFeatures()
          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)
+         local vtMove = Vector3d( 0, dDeltaYZ / 2 * EgtIf( BD.RIGHT_LOAD, -1, 1), dDeltaYZ / 2)
          local bPreMove = ( dDeltaYZ < 0)
          -- ruoto le travi della fase corrente
          local nRId = nRawId
diff --git a/Process.lua b/Process.lua
index 396666c..65c66fd 100644
--- a/Process.lua
+++ b/Process.lua
@@ -144,10 +144,11 @@ local function MyProcessBeams()
    end
    dTotLen = dTotLen + max( vBeam[#vBeam].Box:getDimX(), BD.MinRaw)
    local dAddLen = BD.OVM_HEAD + ( #vBeam - 1) * BD.OVM_MID
-   EgtOutLog( 'Ltot : ' .. EgtNumToString( dTotLen, 1) .. ' Lagg : '.. EgtNumToString( dAddLen, 1), 1)
+   EgtOutLog( 'Ltot : '..EgtNumToString( dTotLen, 1) .. ' Lagg : '..EgtNumToString( dAddLen, 1)..' MinUnloadRaw : '.. EgtNumToString( BD.MinRaw + BD.OVM_MID, 1), 1)
 
    -- Richiedo lunghezza del grezzo e sovramateriale di testa
-   local vsVal = EgtDialogBox( 'Lavora Travi' .. '     (Ltot='.. EgtNumToString( dTotLen + dAddLen + 0.5, 0) .. ', Lmax=' .. EgtNumToString( BD.MAX_RAW, 0) .. ')',
+   local vsVal = EgtDialogBox( 'Lavora Travi' .. '     (Ltot='..EgtNumToString( dTotLen + dAddLen + 0.5, 0)..
+                                                       ', Lmax='..EgtNumToString( BD.MAX_RAW, 0)..',MinUlr='..EgtNumToString( BD.MinRaw + BD.OVM_MID, 0)..')',
                               {'Lunghezza grezzo', EgtNumToString( BD.STD_RAW, 0)},
                               {'Sovramateriale di testa', EgtNumToString( BD.OVM_HEAD, 0)},
                               {'Forza sezione verticale', ' CB:true,*false'})