- corretto portautensile Standard_LC_108

- Allineamento con common ver. 2.6c2

Common-PF1250.TPA.mlpe

@@ -6,7 +6,7 @@ local BD = require( 'BeamData')
 
 -- Variabili di modulo
 local CSP_INFO =     INFO_STD_PP.NAME..'  ver.'..INFO_STD_PP.VERSION..' by EgalWare s.r.l.'
-local MACHINE_INFO = 'PP_VER         ver.'..PP_VER
+local MACHINE_INFO = MACH_NAME..'  ver.'..PP_VER
 
 local TEST_USE = false
 
@@ -42,12 +42,13 @@ end
 function OnProgramStart()
    -- Intestazioni
    if EMT.INFO then
-      EmitRemark( EMT.INFO)
+      MyOutput( '('..EMT.INFO..')')
    else
-      EmitRemark( 'Program Start')
+      MyOutput( '(Program Start)')
    end
-   EmitRemark( CSP_INFO)
-   EmitRemark( MACHINE_INFO)
+   MyOutput( '('.. CSP_INFO..')')
+   MyOutput( '('.. MACHINE_INFO..')')
+
    -- Se modalità test, aggiungo linee per muovere tappeto e alzare la testa (in automatico viene fatto dal main residente)
    if TEST_USE then
       MyOutput( 'M199')

Common-PF1250.mlpe

@@ -777,7 +777,7 @@ end
 ---------------------------------------------------------------------
 function OnSimulPathEnd()
    -- rimozione sfridi
-   RemoveScraps()
+   ExecRemoveScraps()
    -- se non ci sono comandi ausiliari associati e richiesta risalita a Zmax
    if EMT.AUXTOT == 0 and EMT.TO_ZMAX then
       if EMT.MCHSPLIT and not EMT.TO_FALL then
@@ -1065,6 +1065,10 @@ end
 
 ---------------------------------------------------------------------
 function OnSimulMoveEnd()
+   -- rimozione eventuali sfridi
+   if EMT.FLAG == 301 then 
+      ExecRemoveScraps()
+   end
    -- se primo rapido della lavorazione
    if EMT.MCHFIRST and EMT.MOVE == 0 then
       -- se lavorazione split, dichiaro carro Y1 riagganciato
@@ -1104,7 +1108,7 @@ function OnSimulMoveEnd()
    -- se Zmax dopo fine lavorazione
    if EMT.MOVE == 0 and EMT.FLAG == 3 then
       -- eventuale rimozione sfridi
-      RemoveScraps()
+      ExecRemoveScraps()
       -- eseguo
       ExecMoveZmax( EMT.MCHSPLIT)
       EMT.TO_ZMAX = nil
@@ -1587,7 +1591,7 @@ function ExecOpenRoller( nInd)
 end
 
 ---------------------------------------------------------------------
-function RemoveScraps()
+function ExecRemoveScraps()
    -- se attivo VMILL, lavorazione ed è richiesto di eliminare gli sfridi
    if EMT.VMILL and #EMT.VMILL > 0 and not EMT.OPEISDISP and EMT.VMRS then
       local vMillId = EMT.VMILL[1]
@@ -1618,7 +1622,6 @@ function RemoveScraps()
       end
       EMT.VMRS = false
    end
-
 end
 
 ---------------------------------------------------------------------

Compile.bat

@@ -0,0 +1,36 @@
+
+REM Compilazione degli script macchina Egaltech                         2024.02.22
+REM Per togliere info di debug aggiungere flag -s prima del nome del file di input
+
+REM Compilazione 32 bit e copia file da non compilare
+
+@echo off
+
+REM chiedo all'utente la versione da assegnare alla macchina da compilare
+set /p "machineVersion=Inserisci versione: "
+
+REM variabili per costruire i percorsi delle cartelle
+set "machineName=Essetre-PF1250MAX"
+set "deployFolder=C:\MachinesDeploy"
+set "machinePath=%deployFolder%\%machineName%\"
+set "fullPathSource=%deployFolder%\%machineName%\%machineVersion%\%machineName%"
+set "fullPathZip=%deployFolder%\%machineName%\%machineVersion%"
+
+REM elimino eventuale cartella esistente
+rmdir /s /Q %fullPathZip%
+
+REM copio i sorgenti nel percorso di destinazione
+ROBOCOPY . %fullPathSource%\ /E /XF "Compile.bat" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt"
+REM copio i sorgenti nel percorso temporaneo per i compilati
+ROBOCOPY . %fullPathSource%\bin\%machineName%\ /E /XF "Compile.bat" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt"
+
+REM copio i file compilati nel percorso temporaneo per i compilati
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Common-PF1250.mlpe    		 	           Common-PF1250.mlpe
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Common-PF1250.mlse                       Common-PF1250.mlse
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Common-PF1250.TPA.mlpe                   Common-PF1250.TPA.mlpe
+
+REM comprimo i file compilati in uno zip pronto per essere distribuito
+tar.exe acvf %fullPathZip%\%machineName%.zip -C %fullPathSource%\bin\ %machineName%\*.*
+
+REM elimino il percorso temporaneo
+rmdir /s /Q %fullPathSource%\bin\

Essetre-PF1250MAX.mlde

@@ -22,13 +22,17 @@
 -- 2024/02/12 ver 2.6b2 Allineamento con common 2.6b2
 -- 2024/02/20 ver 2.6b3 Allineamento con common 2.6b3
 -- 2024/02/26 ver 2.6b4 Allineamento con common ver. 2.6b4; in mlde aggiunte chiamate EgtAddToPackagePath
+-- 2024/02/29 ver 2.6c1 Allineamento con common ver. 2.6c1
+-- 2024/03/04 ver 2.6c2 Modificato log con nome macchina
+--                      Allineamento con common ver. 2.6c2
 
 -- Intestazioni
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6b4'
+PP_VER = '2.6c2'
 MIN_MACH_VER = '2.5k1'
+MACH_NAME = 'Essetre-PF1250MAX'
 
 -- Carico i dati globali
 local sMachDir = EgtGetCurrMachineDir()
@@ -42,7 +46,7 @@ if INFO_STD_PP.MIN_MACH_VER_PP_COMMON > MIN_MACH_VER then
    MIN_MACH_VER = INFO_STD_PP.MIN_MACH_VER_PP_COMMON
 end
 
-EgtOutLog ( '** Essetre-PF1250MAX '..PP_VER..' (MinMach '.. MIN_MACH_VER ..') **', 1)
+EgtOutLog ( '** ' .. MACH_NAME..' '..PP_VER..' ** ( '..INFO_STD_PP.NAME..': '..INFO_STD_PP.VERSION..' - MinMach: '.. MIN_MACH_VER ..') **', 1)
 
 -- Parametri macchina
 NumericalControl = 'TPA'                         -- NUM o TPA

UpdateLog.txt

@@ -1,5 +1,12 @@
            ==== Common_PF1250 Update Log ====
 
+Versione 2.6c2 (04/03/2024)
+- (GEN) I commenti iniziali si scrivono in modo standard, per poterli commentare nella macchina di test
+- (MLDE-GEN) Aggiunta variabile 'MACH_NAME' in MLDE con nome macchina
+
+Versione 2.6c1 (29/02/2024)
+- (SIM) Gestione rimozione VMILL per tagli a cubetti Zig-Zag
+
 Versione 2.6b4 (23/02/2024)
 - (MLDE-SIM-GEN) EgtAddToPackagePath spostato in mlde
 

Version.lua

@@ -3,8 +3,8 @@
 
 local InfoCommon_STD_PP = {
    NAME = 'Common_PF1250',            -- nome script PP standard
-   VERSION = '2.6b4',                 -- versione script
-   MIN_MACH_VER_PP_COMMON = '2.6b4'   -- versione minima kernel
+   VERSION = '2.6c2',                 -- versione script
+   MIN_MACH_VER_PP_COMMON = '2.5k1'   -- versione minima kernel
 }
 
 return InfoCommon_STD_PP