diff --git a/EXE_MachMgr.cpp b/EXE_MachMgr.cpp
index a3fff0d..cd4bd6b 100644
--- a/EXE_MachMgr.cpp
+++ b/EXE_MachMgr.cpp
@@ -1411,6 +1411,16 @@ ExeVerifyCurrSetup( STRVECTOR& vsErrors)
    return pMachMgr->VerifyCurrSetup( vsErrors) ;
 }
 
+//-----------------------------------------------------------------------------
+bool
+ExeFindToolInCurrSetup( const string& sTool)
+{
+   IMachMgr* pMachMgr = GetCurrMachMgr() ;
+   VERIFY_MACHMGR( pMachMgr, false)
+  // eseguo la verifica
+   return pMachMgr->FindToolInCurrSetup( sTool) ;
+}
+
 //-----------------------------------------------------------------------------
 bool
 ExeUpdateSetup( void)
diff --git a/LUA_MachMgr.cpp b/LUA_MachMgr.cpp
index ae18402..10db76d 100644
--- a/LUA_MachMgr.cpp
+++ b/LUA_MachMgr.cpp
@@ -1567,6 +1567,20 @@ LuaVerifyCurrSetup( lua_State* L)
    return 2 ;
 }
 
+//-----------------------------------------------------------------------------
+static int
+LuaFindToolInCurrSetup( lua_State* L)
+{
+  // 1 parametro : sTool
+   string sTool ;
+   LuaGetParam( L, 1, sTool) ;
+   LuaClearStack( L) ;
+  // verifico l'attrezzaggio della macchinata corrente
+   bool bOk = ExeFindToolInCurrSetup( sTool) ;
+   LuaSetParam( L, bOk) ;
+   return 1 ;
+}
+
 //-------------------------------------------------------------------------------
 //    Machinings database
 //-------------------------------------------------------------------------------
@@ -3708,6 +3722,7 @@ LuaInstallMachMgr( LuaMgr& luaMgr)
    bOk = bOk && luaMgr.RegisterFunction( "EgtGetDefaultSetupName", LuaGetDefaultSetupName) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtImportSetup", LuaImportSetup) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtVerifyCurrSetup", LuaVerifyCurrSetup) ;
+   bOk = bOk && luaMgr.RegisterFunction( "EgtFindToolInCurrSetup", LuaFindToolInCurrSetup) ;
    // Machinings database
    bOk = bOk && luaMgr.RegisterFunction( "EgtMdbGetMachiningNewName", LuaMdbGetMachiningNewName) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtMdbAddMachining", LuaMdbAddMachining) ;