EgtCAM5 :

- Migliorie varie.

ToolsDbWindow/ToolTreeView2.vb

@@ -1203,11 +1203,21 @@ Public Class ToolTreeViewItem
          If dMaxMat < EPS_SMALL Then
             Return EgtMsg(MSG_TOOLSERRORS + 6)
          End If
-         If Not IsNothing(m_Len) Then
-            Dim dLen As Double = 0
-            StringToLen(m_Len, dLen)
-            If dMaxMat > dLen + EPS_SMALL Then
-               Return EgtMsg(MSG_TOOLSERRORS + 7)
+         If (Type And MCH_TF.SAWBLADE) = 0 Then
+            If Not IsNothing(m_Len) Then
+               Dim dLen As Double = 0
+               StringToLen(m_Len, dLen)
+               If dMaxMat > dLen + EPS_SMALL Then
+                  Return EgtMsg(MSG_TOOLSERRORS + 7)
+               End If
+            End If
+         Else
+            If Not IsNothing(m_Diam) Then
+               Dim dDiam As Double = 0
+               StringToLen(m_Diam, dDiam)
+               If dMaxMat > (dDiam / 3) + EPS_SMALL Then
+                  Return EgtMsg(MSG_TOOLSERRORS + 17)
+               End If
             End If
          End If
       End If
@@ -1236,10 +1246,18 @@ Public Class ToolTreeViewItem
             Dim dTotDiam As Double = 0
             StringToLen(m_TotDiam, dTotDiam)
             If dDiam > dTotDiam + EPS_SMALL Then
-               Return "Il diametro non può essere maggiore del diametro totale"
+               Return EgtMsg(MSG_TOOLSERRORS + 18)
+            End If
+         End If
+         If (Type And MCH_TF.SAWBLADE) <> 0 Then
+            If Not IsNothing(m_MaxMat) Then
+               Dim dMaxMat As Double = 0
+               StringToLen(m_MaxMat, dMaxMat)
+               If (dDiam / 3) < dMaxMat Then
+                  Return EgtMsg(MSG_TOOLSERRORS + 19)
+               End If
             End If
          End If
-
       End If
       Return Nothing
    End Function
@@ -1249,7 +1267,7 @@ Public Class ToolTreeViewItem
          Dim dTotDiam As Double = 0
          StringToLen(m_TotDiam, dTotDiam)
          If dTotDiam < EPS_SMALL Then
-            Return "Il diametro totale deve essere maggiore di zero"
+            Return EgtMsg(MSG_TOOLSERRORS + 20)
          End If
       End If
       Return Nothing
@@ -1266,14 +1284,16 @@ Public Class ToolTreeViewItem
             Dim dTotLen As Double = 0
             StringToLen(m_TotLen, dTotLen)
             If dLen > dTotLen + EPS_SMALL Then
-               Return "La lunghezza non può essere maggiore della lunghezza totale"
+               Return EgtMsg(MSG_TOOLSERRORS + 13)
             End If
          End If
-         If Not IsNothing(m_MaxMat) Then
-            Dim dMaxMat As Double = 0
-            StringToLen(m_MaxMat, dMaxMat)
-            If dLen < dMaxMat Then
-               Return "La lunghezza non può essere minore del massimo materiale"
+         If (Type And MCH_TF.SAWBLADE) = 0 Then
+            If Not IsNothing(m_MaxMat) Then
+               Dim dMaxMat As Double = 0
+               StringToLen(m_MaxMat, dMaxMat)
+               If dLen < dMaxMat Then
+                  Return EgtMsg(MSG_TOOLSERRORS + 14)
+               End If
             End If
          End If
       End If
@@ -1285,13 +1305,13 @@ Public Class ToolTreeViewItem
          Dim dTotLen As Double = 0
          StringToLen(m_TotLen, dTotLen)
          If dTotLen < EPS_SMALL Then
-            Return "La lunghezza totale deve essere maggiore di zero"
+            Return EgtMsg(MSG_TOOLSERRORS + 15)
          End If
          If Not IsNothing(m_Len) Then
             Dim dLen As Double = 0
             StringToLen(m_Len, dLen)
             If dTotLen < dLen - EPS_SMALL Then
-               Return "La lunghezza totale non può essere minore della lunghezza"
+               Return EgtMsg(MSG_TOOLSERRORS + 16)
             End If
          End If
       End If