DataWall :

- alla generazione CN nella intestazione si mette anche la versione dell'eseguibile.
2021-08-02 13:50:07 +02:00
parent d9e11e61b6
commit 010b7bb54d
2 changed files with 10 additions and 2 deletions
@@ -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