DataBeam :

- correzioni e migliorie.

LuaLibs/ProcessMortise.lua

@@ -1,4 +1,4 @@
--- ProcessMortise.lua by Egaltech s.r.l. 2018/04/24
+-- ProcessMortise.lua by Egaltech s.r.l. 2019/07/08
 -- Gestione calcolo mortase per Travi
 
 -- Tabella per definizione modulo
@@ -109,11 +109,12 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId)
       EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.ADIR_YP)
    end
    -- se elevazione superiore a massimo affondamento della fresa, riduco opportunamente
+   local sWarn
    if dMorH > dMaxDepth + 10 * GEO.EPS_SMALL then
+      sWarn = 'Warning in mortise : elevation (' .. EgtNumToString( dMorH,1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth,1) .. ')'
       EgtSetMachiningParam( MCH_MP.DEPTH, dMaxDepth - dMorH)
       dMorH = dMaxDepth
-      local sWarn = 'Warning in process ' .. tostring( Proc.Id) .. ' : elevation bigger than max tool depth'
-      EgtOutLog( sWarn)
+      EgtOutLog( sWarn .. ' (process ' .. tostring( Proc.Id) .. ')')
    end
    -- imposto elevazione
    EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMorH, 1) .. ';')
@@ -123,8 +124,8 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId)
       EgtSetOperationMode( nMchFId, false)
       return false, sErr
    end
-   return true
-end   
+   return true, sWarn
+end
 
 ---------------------------------------------------------------------
 return ProcessMortise