- creata funzione GetStrategyResult per restituzione risultati e varie modifiche relative

- uniformata la restituzione dei risultati in caso di strategia non applicabile (FeatureLib.GetStrategyResultNotApplicable, a cui si può passare il messaggio da ritornare)

LuaLibs/BeamExec.lua

@@ -133,6 +133,7 @@ function BeamExec.GetToolsFromDB()
          if not Tool.SetupInfo.dMaxMatDecrease then
             Tool.SetupInfo.dMaxMatDecrease = 0
          end
+         Tool.nQuality = 1
          Tool.sUUID = EgtTdbGetCurrToolParam( MCH_TP.UUID)
          Tool.sUserNotes = EgtTdbGetCurrToolParam( MCH_TP.USERNOTES)
          Tool.dMaxDepth = EgtTdbGetCurrToolMaxDepth() or Tool.dMaxMaterial
@@ -161,13 +162,15 @@ function BeamExec.GetToolsFromDB()
                Tool.dSideStep = EgtGetValInNotes( Tool.sUserNotes, 'SIDESTEP', 'd') or floor( Tool.dDiameter / 3)  -- se non settato nell'utensile, considero un terzo del diametro
                Tool.bIsPen = abs( Tool.dSpeed) < 5
                Tool.dPerformanceIndex = ( Tool.dDiameter * Tool.dMaxMaterial) / Tool.dLength
+               Tool.nQuality = 4
                -- recupero parametri propri delle lame
             elseif sToolFamily == 'SAWBLADE' then
                Tool.bIsUsedForLongCut = EgtGetValInNotes( Tool.sUserNotes, 'LONGCUT') == 1 or false     -- false come valore di default
                Tool.dStep = EgtGetValInNotes( Tool.sUserNotes, 'STEP', 'd') or Tool.dThickness                    -- se non settato nell'utensile, considero lo spessore lama
                Tool.dSideStep = EgtGetValInNotes( Tool.sUserNotes, 'SIDESTEP', 'd') or Tool.dMaxMaterial  -- se non settato nell'utensile, considero un quarto del diametro
                Tool.dPerformanceIndex = 1 / ( Tool.dDiameter * Tool.dLength)
-            -- recupero parametri propri delle motoseghe
+               Tool.nQuality = 5
+               -- recupero parametri propri delle motoseghe
             elseif sToolFamily == 'MORTISE' then
                Tool.dDistance = EgtTdbGetCurrToolParam( MCH_TP.DIST) or 90 -- 90mm dimensione standard aggregato catena
                Tool.bIsMortise = EgtGetValInNotes( Tool.sUserNotes, 'MORTISE') == 1
@@ -177,10 +180,12 @@ function BeamExec.GetToolsFromDB()
                Tool.dCornerRadius = EgtTdbGetCurrToolParam( MCH_TP.CORNRAD)
                Tool.dWidth = Tool.dDiameter
                Tool.dPerformanceIndex = 1 / Tool.dLength
+               Tool.nQuality = 2
             end
          -- drillbit
          else
             Tool.dPerformanceIndex = Tool.dDiameter / Tool.dLength
+            Tool.nQuality = 4
          end
 
          -- se tutti i dati necessari sono disponibili, inserisco utensile nella lista globale degli utensili disponibili