-recuperati messagi da file messages

CadCuts/ChangeToolWD.xaml.vb

@@ -67,7 +67,8 @@ Public Class ChangeToolWD
          EgtMdbSetCurrMachining(m_CurrSawing)
          Dim sTool As String = String.Empty
          EgtMdbGetCurrMachiningParam(MCH_MP.TOOL, sTool)
-         ErrorTxBl.Text = "⚠️ Utensile " & sTool & " non attrezzato"
+         ' ⚠️ Utensile {0} non attrezzato
+         ErrorTxBl.Text = String.Format(EgtMsg(90377), sTool)
          Index = 0
       End If
       ' se presente seleziono il primo elemento

Machine/ToolsDbPageUC.xaml.vb

@@ -799,18 +799,18 @@ Public Class ToolsDbPageUC
       If Not bFound Then
          TCPosTxBl.Foreground = Brushes.Red
          If String.IsNullOrEmpty(sTCPos) Then
-            TCPosTxBl.ToolTip = "Utensile non attrezzato"
+            TCPosTxBl.ToolTip = EgtMsg(91019)
          Else
-            TCPosTxBl.ToolTip = "Utensile non attrezzato ma posizione di default indicata"
+            TCPosTxBl.ToolTip = EgtMsg(91020)
          End If
       Else
          If String.IsNullOrEmpty(sTCPos) Then
             TCPosTxBl.Foreground = Brushes.Gold
-            TCPosTxBl.ToolTip = "Posizione di default non indicata ma attrezzato nella posizione " & sCurrTCPos
+            TCPosTxBl.ToolTip = EgtMsg(91021) & " " & sCurrTCPos
          Else
             If sTCPos <> sCurrTCPos Then
                TCPosTxBl.Foreground = Brushes.Gold
-               TCPosTxBl.ToolTip = "Posizione di default diversa dalla posizione di attrezzaggio " & sCurrTCPos
+               TCPosTxBl.ToolTip = EgtMsg(91022) & " " & sCurrTCPos
             Else
                TCPosTxBl.Foreground = Brushes.White
                TCPosTxBl.ToolTip = ""