Allineamento a common ver. 3.1h1

Common_PF1250.TPA.mlpe

@@ -867,10 +867,19 @@ function OnRapid()
                   end
                end
                if EMT.HEAD ~= 'H13' then 
-                  EmitMoveDataHead( 1, { Z=EMT.L3, S=Speed})
-                  EmitMoveDataHead( 1, { B=EMT.R2, S=Speed})
-                  EmitMoveDataHead( 1, { C=EMT.R1, S=Speed})
-                  EmitMoveDataHead( 1, { X=EMT.L2, S=Speed})
+                  -- utensili lunghi
+                  if EMT.TTOTLEN > LongTool then
+                     EmitMoveDataHead( 1, { B=0, S=Speed})
+                     EmitMoveDataHead( 1, { C=EMT.R1, S=Speed})
+                     EmitMoveDataHead( 1, { B=EMT.R2, S=Speed})
+                     EmitMoveDataHead( 1, { X=EMT.L2, S=Speed})
+                     EmitMoveDataHead( 1, { Z=EMT.L3, S=Speed})
+                  else
+                     EmitMoveDataHead( 1, { Z=EMT.L3, S=Speed})
+                     EmitMoveDataHead( 1, { B=EMT.R2, S=Speed})
+                     EmitMoveDataHead( 1, { C=EMT.R1, S=Speed})
+                     EmitMoveDataHead( 1, { X=EMT.L2, S=Speed})
+                  end
                else
                   EmitMoveDataHead( 1, { Z=EMT.L3, B=EMT.R2, S=Speed})
                   EmitMoveDataHead( 1, { C=EMT.R1, S=Speed})
@@ -2885,7 +2894,13 @@ function EmitParkRoller( dPosT, bSplitCut)
    end
    if abs( ParkV2 - EMT.V2POS) > 0.1 then
       MDChar.V2 = ParkV2
-      MDChar.IniStatV2 = 1
+      -- Se pezzo a caduta con rulliera V2 attiva (pinza 3), prima muove la rulliera e poi la apre.
+      if FindFallAtEndAux( EMT.PATHID) and ( EMT.FALL or EMT.FLAG == 3) then
+         MDChar.IniStatV2 = -1
+         MDChar.FinStatV2 = 1
+      else
+         MDChar.IniStatV2 = 1
+      end
    end
    EmitMoveDataChars( MDChar)
    EmitMoveStartChars( MDChar.MovType)

Common_PF1250.mlpe

@@ -1680,7 +1680,8 @@ function ExecMoveZmax( bMchSplit, bGoToHome)
    -- se necessario ruotare la testa, allargo i carrelli
    if RollerParkingNeeded( EMT.HEAD, CurrC, CurrB, HomeC, HomeB) then
       ExecOpenRoller( 1)
-      ExecOpenRoller( 2)
+      -- Se pezzo a caduta con rulliera V2 attiva (pinza 3), aspetta ad aprire la rulliera
+      if ( not bSpliCut and not EMT.TO_FALL) then ExecOpenRoller( 2) end
       local bAgg = EgtExistsInfo( EMT.PATHID, 'CNT')
       ExecParkRoller( nil, nil, nil, nil, bMchSplit, bAgg)
    end
@@ -2023,7 +2024,8 @@ function ExecParkRoller( PosY1, PosY2, PosV1, PosV2, bSpliCut, bAgg)
    local MyParkY2 = ParkY2
    -- Apro i rulli, se necessario
    if abs( ParkV1 - PosV1) > 0.1 then ExecOpenRoller( 1) end
-   if abs( ParkV2 - PosV2) > 0.1 then ExecOpenRoller( 2) end
+   -- Se pezzo a caduta con rulliera V2 attiva (pinza 3), aspetta ad aprire la rulliera
+   if abs( ParkV2 - PosV2) > 0.1 and ( not bSpliCut and not EMT.TO_FALL) then ExecOpenRoller( 2) end
    -- Eseguo spostamenti
    if EMT.Y1DELTA and EMT.Y2DELTA then
       local DiffY1 = MyParkY1 - PosY1
@@ -2092,6 +2094,8 @@ function ExecParkRoller( PosY1, PosY2, PosV1, PosV2, bSpliCut, bAgg)
             EMT.ERR = 2
             EmtSetLastError( 1205, 'Error on MoveAxes in ParkRoller (1)')
          end
+         -- Se pezzo a caduta con rulliera V2 attiva (pinza 3), apre la rulliera dopo il posizionamento dei V2
+         if abs( ParkV2 - PosV2) > 0.1 and ( bSpliCut and EMT.TO_FALL) then ExecOpenRoller( 2) end
       else
          if not SimulMoveAxes( 'T',  PosT + MoveY1, MCH_SIM_STEP.RAPID,
                                'V1', ParkV1, MCH_SIM_STEP.RAPID,

Common_PF1250.mlse

@@ -1203,7 +1203,9 @@ function SpecCalcCarriages( dDistFront, dDistBack, dRollFront, dRollBack, dY1Del
       WorkTab.dY1DeltaMaxF = min( EMC.LB - MinJoin, MaxY1 + dDistFront + dRollFront + AGG_V)
       WorkTab.dY2DeltaMinF = nil
       WorkTab.dY2DeltaMaxF = nil
-      if dY1DeltaMaxSP then WorkTab.dY1DeltaMaxF = min( WorkTab.dY1DeltaMaxF, dY1DeltaMaxSP) end
+      if dY1DeltaMaxSP and dY1DeltaMaxSP > WorkTab.dY1DeltaMinF then
+         WorkTab.dY1DeltaMaxF = min( WorkTab.dY1DeltaMaxF, dY1DeltaMaxSP)
+      end
       WorkTab.dV1PosF = dRollBack
       WorkTab.bV1CloseF = false
       WorkTab.dV2PosF = -dRollFront
@@ -1428,6 +1430,12 @@ function SpecCalcUnloadOnLoadPos()
          table.insert( vCmd, { 11, 1})
       end
    end
+   -- se l'ultima posizione di Y1 (calcolata in modo che PosT sia nella posizione di scarico) è fuori dalla corsa massima ricalcola le due quote alla quota massima raggiungibile
+   if dY1Move > MaxY1 then
+      dRotT = dRotT - ( dY1Move - MaxY1)
+      dY1Move = MaxY1
+      EgtOutLog( '  Warning : Impossible to Reach Unloading on Load Position')
+   end
    table.insert( vCmd, { 2, 'Y1', dY1Move, 'T', dRotT, 'BrakeBeam'})
    -- apro la morsa
    table.insert( vCmd, { 11, 0})

Essetre-PF1250MAX.mlde

@@ -8,8 +8,8 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '3.1f1'
-PP_NVER = '3.1.6.1'
+PP_VER = '3.1h1'
+PP_NVER = '3.1.8.1'
 MIN_MACH_VER = '2.7d2'
 MACH_NAME = EgtGetCurrMachineName()
 

UpdateLog.txt

@@ -1,5 +1,15 @@
            ==== Common_PF1250 Update Log ====
 
+Versione 3.1h1 (07/08/2026)
+- (SIM-GEN) Se pezzo a caduta con rulliera V2 attiva (pinza 3), prima muove la rulliera e poi la apre. Ticket#3116
+
+Versione 3.1g1 (15/07/2026)
+- (GEN) Se prima lavorazione con punta lunga sbagliava movimenti approccio.
+
+Versione 3.1f2 (24/06/2026)
+- (SIM-GEN) UnloadOnLoad - se posizione di scarico non raggiungibile lo scarica dove può. Ticket#3041
+- (SIM-GEN) SpecCalcCarriages - se dY1DeltaMaxSP < dY1DeltaMinF non lo considera. Ticket#3041
+
 Versione 3.1f1 (05/06/2026)
 - (GEN) In caso di ultimo movimento come scarico rimanenza, porta V2 in posizione di parcheggio. Ticket#3006
 - (SIM-GEN) Gestione nuova macchina 3T_5Ax

Version.lua

@@ -3,7 +3,7 @@
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_PF1250',            -- nome script PP standard
-   VERSION = '3.1f1',                 -- versione script
+   VERSION = '3.1h1',                 -- versione script
    MIN_MACH_VER_PP_COMMON = '3.1b2'   -- versione minima kernel
 }