From 010b7bb54d4f8055962c77be88fa1e77d97bcc2a Mon Sep 17 00:00:00 2001 From: DarioS Date: Mon, 2 Aug 2021 13:50:07 +0200 Subject: [PATCH] DataWall : - alla generazione CN nella intestazione si mette anche la versione dell'eseguibile. --- BatchProcess.lua | 6 +++++- BatchProcessNew.lua | 6 +++++- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/BatchProcess.lua b/BatchProcess.lua index 67f4482..abaea9e 100644 --- a/BatchProcess.lua +++ b/BatchProcess.lua @@ -536,7 +536,11 @@ end -- *** Genero programma CN *** ( se richiesto) if WALL.FLAG == 0 or WALL.FLAG == 4 then EgtOutLog( ' +++ Generating NC part program >>>') - if not EgtGenerate( '', 'EgtCAM5 - ' .. sNgeFile) then + local sInfo = 'EgtCAM5 - ' + if EgtGetExeVersion then + sInfo = 'EgtCAM5 ver.' .. EgtGetExeVersion() .. ' - ' + end + if not EgtGenerate( '', sInfo .. sNgeFile) then WALL.ERR = 20 local _, sName, _ = EgtSplitPath( WALL.FILE) WALL.MSG = 'Error generating NC part program : ' .. sName diff --git a/BatchProcessNew.lua b/BatchProcessNew.lua index 29cf2ca..69f9d29 100644 --- a/BatchProcessNew.lua +++ b/BatchProcessNew.lua @@ -520,7 +520,11 @@ end -- *** Genero programma CN *** ( se richiesto) if WALL.FLAG == 0 or WALL.FLAG == 4 then EgtOutLog( ' +++ Generating NC part program >>>') - if not EgtGenerate( '', 'EgtCAM5 - ' .. sNgeFile) then + local sInfo = 'EgtCAM5 - ' + if EgtGetExeVersion then + sInfo = 'EgtCAM5 ver.' .. EgtGetExeVersion() .. ' - ' + end + if not EgtGenerate( '', sInfo .. sNgeFile) then WALL.ERR = 20 local _, sName, _ = EgtSplitPath( WALL.FILE) WALL.MSG = 'Error generating NC part program : ' .. sName