diff --git a/CamAuto.vb b/CamAuto.vb index 4ebd379..8f0e992 100644 --- a/CamAuto.vb +++ b/CamAuto.vb @@ -296,7 +296,14 @@ Friend Module CamAuto Dim sTool2 As String = String.Empty EgtGetMachiningParam(MCH_MP.TUUID, sTuuid) EgtTdbGetToolFromUUID(sTuuid, sTool) - If nType = MCH_OY.SAWING Or nType = MCH_OY.SAWROUGHING Or nType = MCH_OY.SAWFINISHING Then + If String.IsNullOrWhiteSpace( sTool) Then + Dim sMchTool As String = "" + EgtGetMachiningParam( MCH_MP.TOOL, sMchTool) + bOk = False + If sMissingTools.IndexOf(sMchTool) = -1 Then + sMissingTools = sMissingTools & sMchTool & ", " + End If + ElseIf nType = MCH_OY.SAWING Or nType = MCH_OY.SAWROUGHING Or nType = MCH_OY.SAWFINISHING Then If bIsMultiCut Then ' L'utensile sulla seconda testa ha lo stesso nome di quello sulla prima con suffisso "-2" If sTool.Substring(sTool.Length() - 2) = "-2" Then diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 1818e81..214ef91 100644 --- a/My Project/AssemblyInfo.vb +++ b/My Project/AssemblyInfo.vb @@ -62,5 +62,5 @@ Imports System.Windows ' by using the '*' as shown below: ' - - + +