Correzione sequenza di fermata pezzo: dopo che si è abbassato il ferma pezzo chiude il pezzo in morsa per evitare che esso possa essere pinzato inclinato dal pistone

Common_PF1250.TPA.mlpe

@@ -571,6 +571,11 @@ function OnMachiningEnd()
             end
             EMT.FALL = nil
          elseif not EMT.PREROT then
+            -- emissione conclusione pezzo (se non in modalità test)
+            if not TEST_USE and EMT.PRODID and ( EMT.UNLOAD and ( not nNextPathId) and ( not nNextMchId)) then
+               local sEnd= 'M113 P1='..tostring( EMT.PRODID)..' P2='..tostring( EMT.PATTID)..' P3='..tostring( EMT.CUTID)..' P4=2' 
+               MyOutput( sEnd)
+            end
             MyOutput( 'M77')
          end
       end
@@ -2113,12 +2118,15 @@ function PrepareUnload( sCmd, nInd)
          local bBarOnY = ( EMT.PHASE < EgtGetPhaseCount() and not IsEnd2Phase( EMT.PHASE))
          -- Se scarico in linea con abbassamento piano ferma pezzo allo scarico
          if Cmd[4] == 'UnBrakeBeam' then
-            -- Muove carrello aperto e lo chiude
-            local MDChar = { Y2=tonumber(Cmd[3]), V2=ParkV2, IniStatY2=1, FinStatY2=-1, BeamVise=EgtIf( bBarOnY, 1, 0), MovType=EgtIf( EMT.CHY_ON, 3, 2)}
+            -- Muove carrello aperto e lo mantiene aperto
+            local MDChar = { Y2=tonumber(Cmd[3]), V2=ParkV2, IniStatY2=1, FinStatY2=1, BeamVise=EgtIf( bBarOnY, 1, 0), MovType=EgtIf( EMT.CHY_ON, 3, 2)}
             table.insert( EMT.MDCHAR, MDChar)
             -- Abbassa ferma pezzo
             local MDStopBeam = { StopBeamStat=2}
             table.insert( EMT.MDCHAR, MDStopBeam)
+            -- Dopo che si è abbassato il ferma pezzo chiude il pezzo in morsa per evitare che esso possa essere pinzato inclinato dal pistone
+            MDChar = { Y2=tonumber(Cmd[3]), V2=ParkV2, IniStatY2=1, FinStatY2=-1, BeamVise=EgtIf( bBarOnY, 1, 0), MovType=EgtIf( EMT.CHY_ON, 3, 2)}
+            table.insert( EMT.MDCHAR, MDChar)
          -- Se non è ultima fase e non è fase successiva a scarico su carico c'è una barra sulla pinza Y1
          else
             local nFinStatY2 = EgtIf( Cmd[4] == 'NoWaitUnload', -84, -1)

Essetre-PF1250-3T_5Ax.mlde

@@ -5,7 +5,7 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '3.1a2_DEV12'
+PP_VER = '3.1a2_DEV16'
 PP_NVER = '3.1.1.2'
 MIN_MACH_VER = '2.7d2'
 MACH_NAME = EgtGetCurrMachineName()
@@ -508,6 +508,7 @@ local H31Id = EmtHead {
       TDir = Vector3d( 0, 0, 1),
       ADir = X_AX(),
       Rot1W = 0.2,
+      SolCh = MCH_SCC.ADIR_XM,
       Rot2Stroke = {MinB3, MaxB3},
       OthColl = {'B3/SOLID', 'C3/SOLID'},
       Geo = 'H38_HEAD/GEO'}