mlpe e TPA.mlpe - Se pezzo a caduta con rulliera V2 attiva (pinza 3), prima muove la rulliera e poi la apre.

Common_PF1250.TPA.mlpe

@@ -2894,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,

UpdateLog.txt

@@ -1,5 +1,8 @@
            ==== 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.
 

Version.lua

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