Corretta scrittura attivazione freno

Common_PF1250.TPA.mlpe

@@ -311,13 +311,17 @@ function OnDispositionEnd()
          end
       end
       if #EMT.MDCHAR > 0 then
-         local nMoveType = EgtIf( EMT.CHY_ON, 3, 2)
-         EmitMoveStartChars( nMoveType)
-         -- se dopo c'è scarico spezzone devo mettere attesa termine esecuzione
-         if IsRestPhase( EMT.PHASE + 1) then
-            EmitMoveWaitChars( nMoveType)
+         if not EMT.LASTOISBRAKE then
+            local nMoveType = EgtIf( EMT.CHY_ON, 3, 2)
+            EmitMoveStartChars( nMoveType)
+            -- se dopo c'è scarico spezzone devo mettere attesa termine esecuzione
+            if IsRestPhase( EMT.PHASE + 1) then
+               EmitMoveWaitChars( nMoveType)
+            else
+               EmitMoveWaitChars( nMoveType, true)
+            end
          else
-            EmitMoveWaitChars( nMoveType, true)
+            EMT.LASTOISBRAKE = nil
          end
          -- emissione conclusione pezzo precedente (se non in modalità test)
          if not TEST_USE and EMT.PRODID then
@@ -3136,13 +3140,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_DEV19'
 PP_NVER = '3.1.1.2'
 MIN_MACH_VER = '2.7d2'
 MACH_NAME = EgtGetCurrMachineName()