Se LOAD90 attivo, bisogna scrivere 4, che significa di attivare il laser posto sul ponte, che cerca lo zero del pannello

Essetre-90480023_XS-MW.mlde

@@ -8,7 +8,7 @@ require( 'EmtGenerator')
 EgtEnableDebug( false)
 if not EmtModifyHeadAuxDirection then error( 'A newer version of the program is required (minimum 2.3j5)') end
 
-PP_VER = '3.1d1_DEV12'
+PP_VER = '3.1d1_DEV13'
 PP_NVER = '2.7.4.1'
 
 -- Parametri macchina

Essetre-WALL.NUM.mlpe

@@ -136,8 +136,13 @@ function OnDispositionEnd()
                 ' E30051='..EgtNumToString( 1000 * b3Raw:getDimX(), 0)..
                 ' E30052='..EgtNumToString( 1000 * b3Raw:getDimZ(), 0))
       EMT.ST = b3Raw:getDimZ()
-      -- Comando per gestione carico
-      EmtOutput( 'M26 E30054=1')
+      
+      -- Comando per gestione carico. Se LOAD90 attivo, bisogna scrivere 4, che significa di attivare il laser posto sul ponte, che cerca lo zero del pannello
+      -- N.B.: si utilizza LOAD90 perchè è un parametro che già leggiamo e che sulle WALL non viene utilizzato
+      local BtlInfoId = EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or EgtGetCurrMachGroup() or GDB_ID.NULL
+      local nLoad90 = EgtGetInfo( BtlInfoId, 'LOAD90', 'i') or 0
+      if nLoad90 > 0 then nLoad90 = 4 end
+      EmtOutput( 'M26 E30054='..EgtNumToString( nLoad90, 0))
       -- Posizione cuffia
       local dHCuff = b3Raw:getDimZ() + 32 
       EmtOutput( 'E30039=' .. EgtNumToString( dHCuff * 1000, 0))