diff --git a/Beam/BeamData.lua b/Beam/BeamData.lua
index 912cd6a..507fba8 100644
--- a/Beam/BeamData.lua
+++ b/Beam/BeamData.lua
@@ -14,7 +14,7 @@ local BeamData = {
    MAX_HEIGHT = 800,                          -- altezza massima del grezzo
    LEN_SHORT_PART = 1200,                     -- lunghezza massima pezzo piccolo
    LEN_VERY_SHORT_PART = 400,                 -- lunghezza massima pezzo molto corto (molto probabile lo scarico a caduta)
-   MAX_RAW = 20000,                           -- massima lunghezza grezzo (deve essere minore di LenTable - RAW_OFFSET)
+   MAX_RAW = 30000,                           -- massima lunghezza grezzo (deve essere minore di LenTable - RAW_OFFSET)
    STD_RAW = 14000,                           -- lunghezza standard della barra di grezzo
    OVM_HEAD = 10,                             -- sovramateriale testa
    OVM_MID = 5.0,                             -- sovramateriale intermedio (spessore lama)
@@ -176,7 +176,7 @@ local function GetBlockedAxis( sHead, nToolType, sBlockedAxis)
       return ''
    -- sega a catena
    elseif nToolType == MCH_TY.MORTISE_STD then
-      if sHead == 'H23' then
+      if sHead == 'H13' then
          if sBlockedAxis == 'parallel' then
             return 'A=0'
          elseif sBlockedAxis == 'perpendicular' then
diff --git a/Common_ONE-PF.mlse b/Common_ONE-PF.mlse
index 3319a1e..9aac830 100644
--- a/Common_ONE-PF.mlse
+++ b/Common_ONE-PF.mlse
@@ -1829,7 +1829,7 @@ local function MaxDispl( TabI, vCmd, sType)
      -- allontano (Y1+T) e (Y2)
       dY1a = MaxY1
       dY2a = MinY2
-      dTa = ( MaxY1 - TabI.dY1PosI) + dTa 
+      dTa = ( dY1a - TabI.dY1PosI) + dTa 
    -- **[M2]** = allontanamento dei trascinatori con Y2 in presa
    elseif sType == 'M2'   then
       EmitComment( vCmd, '[M2]')
@@ -1840,7 +1840,7 @@ local function MaxDispl( TabI, vCmd, sType)
       -- allontano (Y2+T) e (Y1)
       dY1a = MaxY1
       dY2a = MinY2
-      dTa = ( MinY2 - TabI.dY2PosI) + dTa 
+      dTa = ( dY2a - TabI.dY2PosI) + dTa 
    -- **[M3]** = accentramento dei trascinatori con Y1 in presa
    elseif sType == 'M3' then
       EmitComment( vCmd, '[M3]')
@@ -1850,7 +1850,7 @@ local function MaxDispl( TabI, vCmd, sType)
       -- accentro (Y1+T) e (Y2)
       dY1a = TabI.MyMinY1V1
       dY2a = TabI.MaxY2V2
-      dTa = ( TabI.MyMinY1V1 - TabI.dY1PosI) + dTa 
+      dTa = ( dY1a - TabI.dY1PosI) + dTa 
    -- **[M4]** = accentramento dei trascinatori con Y2 in presa
    elseif sType == 'M4' then
       EmitComment( vCmd, '[M4]')
@@ -1861,7 +1861,7 @@ local function MaxDispl( TabI, vCmd, sType)
       -- accentro (Y2+T) e (Y1)
       dY1a = TabI.MyMinY1V1
       dY2a = TabI.MaxY2V2
-      dTa = ( TabI.MaxY2V2 - TabI.dY2PosI) + dTa 
+      dTa = ( dY2a - TabI.dY2PosI) + dTa 
    end
    --
    table.insert( vCmd, { 3, 'Y1', dY1a,  'Y2', dY2a, 'T', dTa, EMC.CNT})
@@ -2187,7 +2187,7 @@ local function PosY1Y2B( TabI, vCmd)
          end 
       end
       nCnt = nCnt + 1
-      if nCnt > 5 then return end
+      if nCnt > 10 then return end
    until ( not bXW)
       -- chiusura/parcheggio dei trascinatori in funzioni chiamanti
    local dY1Delta = TabI.dY1PosI - TabI.dTPosI
@@ -2326,7 +2326,7 @@ local function PosY2Y1B( TabI, vCmd)
          end 
       end
       nCnt = nCnt + 1
-      if nCnt > 5 then return end
+      if nCnt > 10 then return end
    until ( not bXW)
    -- la chiusura delle morse è fatta sopra
    local dY1Delta = TabI.dY1PosI - TabI.dTPosI
@@ -2398,7 +2398,7 @@ function SpecAdjustCarrA( WorkTab)
          dY1DeltaF = PosY1Y2B( TabValI, vCmd)
       else
          --[A(1)A]  **ALLONTANAMENTO** (dall'origine) del trascinatore Y1
-         EmitComment( vCmd, '[AY1A]')
+         EmitComment( vCmd, '[A-Y1A]')
          dY1DeltaF = PosY1Y2A( TabValI, vCmd)
       end
       -- chiudo Y1
diff --git a/Essetre-PFMAX.nge b/Essetre-PFMAX.nge
index 1a34265..784ad22 100644
Binary files a/Essetre-PFMAX.nge and b/Essetre-PFMAX.nge differ
diff --git a/Essetre-PFMAXrl.mlde b/Essetre-PFMAXrl.mlde
index fbe7f86..32985d8 100644
--- a/Essetre-PFMAXrl.mlde
+++ b/Essetre-PFMAXrl.mlde
@@ -21,12 +21,14 @@
 -- 2024/07/10 ver 2.6g1 Allineamento con common ver. 2.6g1
 -- 2024/07/16 ver 2.6g2 Allineamento con common ver. 2.6g2
 -- 2024/07/17 ver 2.6g3 Allineamento con common ver. 2.6g3
+-- 2024/07/19 ver 2.6g4 Gestione pezzi fino a 30 metri
+--                      Allineamento con common ver. 2.6g4
 
 -- Intestazioni
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6g3'
+PP_VER = '2.6g4'
 MIN_MACH_VER = '2.5k1'
 MACH_NAME = 'Essetre-PFMAXrl'
 
@@ -144,7 +146,7 @@ DeltaTabZ = -1410.0      -- per TPA la quota è dal centro di rotazione (va aggi
 DeltaRulliTraveZ = 1380
 DeltaRulliTappetoZ = -485
 DimTabY = 500
-DimTabX = 24000
+DimTabX = 30000
 Delta2TabY = 1170.0
 Delta2TabZ = -1410.0     --  per TPA la quota è dal centro di rotazione (va aggiunto MillOffs)
 Head2X = 0
@@ -601,7 +603,7 @@ EmtAxis {
       Type = MCH_AT.LINEAR,
       Dir = - X_AX(),
       Pos = Point3d(0.0,2450.0,-958.0),
-      Stroke = {-20000, 20000},
+      Stroke = {-30000, 30000},
       Home = LoadT,
       Geo = 'T_AXIS/GEO'}
 EmtTable {
diff --git a/UpdateLog.txt b/UpdateLog.txt
index a55c90d..355d28f 100644
--- a/UpdateLog.txt
+++ b/UpdateLog.txt
@@ -1,5 +1,8 @@
            ==== Common_ONE-PF Update Log ====
 
+Versione 2.6g4 (19/07/2024)
+- (SIM-GEN) Aumentato numero iterazioni per scambio carrelli (da 5 a 10), per pezzi lunghi 30m.
+
 Versione 2.6g3 (17/07/2024)
 - (GEN) Correzione modifica precedente (2.6g2). Con lama precedente e motosega successiva, andava a parcheggio con lama alla quota della motosega. Ticket#1880
 
diff --git a/Version.lua b/Version.lua
index 1639b73..d878c99 100644
--- a/Version.lua
+++ b/Version.lua
@@ -3,7 +3,7 @@
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_ONE-PF',            -- nome script PP standard
-   VERSION = '2.6g3',                 -- versione script
+   VERSION = '2.6g4',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }