Sistemata emissione comandi finali

Common_PF1250.TPA.mlpe

@@ -311,6 +311,7 @@ function OnDispositionEnd()
          end
       end
       if #EMT.MDCHAR > 0 then
+         EMT.LASTOISBRAKE = nil
          local nMoveType = EgtIf( EMT.CHY_ON, 3, 2)
          EmitMoveStartChars( nMoveType)
          -- se dopo c'è scarico spezzone devo mettere attesa termine esecuzione
@@ -319,6 +320,7 @@ function OnDispositionEnd()
          else
             EmitMoveWaitChars( nMoveType, true)
          end
+
          -- emissione conclusione pezzo precedente (se non in modalità test)
          if not TEST_USE and EMT.PRODID then
             local sEnd= 'M113 P1='..tostring( EMT.PRODID)..' P2='..tostring( EMT.PATTID)..' P3='..tostring( EMT.CUTID)..' P4=2' 
@@ -3136,13 +3138,19 @@ end
 ---------------------------------------------------------------------
 -- Emette i movimenti di esecuzione movimenti trave e alzata o discesa del piano ferma pezzo
 function EmitStopBeam( MoData)
-   EmitMoveStartChars(2)
-   EmitMoveWaitChars(2)
    if MoData.StopBeamStat then
-      local sUnloadSide = EgtIf( MoData.Load, 'P1=', 'P2=')
-      sOut = 'M125 ' .. sUnloadSide .. EgtNumToString( MoData.StopBeamStat, 0)
+      if MoData.Load then
+         EmitMoveStartChars( 3)
+         EmitMoveWaitChars( 3)
+         sOut = 'M125 P1=' .. EgtNumToString( MoData.StopBeamStat, 0)
+      else
+         EmitMoveStartChars( 2)
+         EmitMoveWaitChars( 2)
+         sOut = 'M125 P2=' .. EgtNumToString( MoData.StopBeamStat, 0)
+      end
    end
    MyOutput( sOut)
+   EMT.LASTOISBRAKE = true
 end
 
 ---------------------------------------------------------------------

Essetre-PF1250-3T_5Ax.mlde

@@ -5,7 +5,7 @@
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '3.1a2_DEV18'
+PP_VER = '3.1a2_DEV20'
 PP_NVER = '3.1.1.2'
 MIN_MACH_VER = '2.7d2'
 MACH_NAME = EgtGetCurrMachineName()