EgtCAM5 1.6v2 :

- correzione su DB utensili per uscita, correttore e coolant.

ToolsDbWindow/ToolTreeView.vb

@@ -839,13 +839,13 @@ Public Class ToolTreeViewItem
       Dim dValue As Double = 0
       Dim sValue As String = String.Empty
       EgtTdbGetCurrToolParam(MCH_TP.CORR, nValue)
-      Corr = nValue
+      Corr = nValue.ToString()
       EgtTdbGetCurrToolParam(MCH_TP.EXIT_, nValue)
-      ExitPar = nValue
+      ExitPar = nValue.ToString()
       EgtTdbGetCurrToolParam(MCH_TP.TYPE, nValue)
       Type = nValue
       EgtTdbGetCurrToolParam(MCH_TP.COOLANT, nValue)
-      Coolant = nValue
+      Coolant = nValue.ToString()
       EgtTdbGetCurrToolParam(MCH_TP.CORNRAD, dValue)
       CornRad = LenToString(dValue, 4)
       EgtTdbGetCurrToolParam(MCH_TP.DIAM, dValue)
@@ -907,11 +907,15 @@ Public Class ToolTreeViewItem
 
    Friend Sub WriteToolParam()
       EgtSetCurrentContext(IniFile.m_ProjectSceneContext)
+      Dim nValue As Integer = 0
       Dim dValue As Double = 0
-      EgtTdbSetCurrToolParam(MCH_TP.CORR, Corr)
-      EgtTdbSetCurrToolParam(MCH_TP.EXIT_, ExitPar)
+      Int32.TryParse(Corr, nValue)
+      EgtTdbSetCurrToolParam(MCH_TP.CORR, nValue)
+      Int32.TryParse(ExitPar, nValue)
+      EgtTdbSetCurrToolParam(MCH_TP.EXIT_, nValue)
       EgtTdbSetCurrToolParam(MCH_TP.TYPE, Type)
-      EgtTdbSetCurrToolParam(MCH_TP.COOLANT, Coolant)
+      Int32.TryParse(Coolant, nValue)
+      EgtTdbSetCurrToolParam(MCH_TP.COOLANT, nValue)
       StringToLen(CornRad, dValue)
       EgtTdbSetCurrToolParam(MCH_TP.CORNRAD, dValue)
       StringToLen(Diam, dValue)