diff --git a/EXE_MachMgr.cpp b/EXE_MachMgr.cpp index 83db3bd..f45c499 100644 --- a/EXE_MachMgr.cpp +++ b/EXE_MachMgr.cpp @@ -1267,6 +1267,16 @@ ExeImportSetup( const string& sName) return pMachMgr->ImportSetup( sName) ; } +//----------------------------------------------------------------------------- +bool +ExeVerifyCurrSetup( STRVECTOR& vsErrors) +{ + IMachMgr* pMachMgr = GetCurrMachMgr() ; + VERIFY_MACHMGR( pMachMgr, false) + // eseguo la verifica + return pMachMgr->VerifyCurrSetup( vsErrors) ; +} + //----------------------------------------------------------------------------- // DB lavorazioni //----------------------------------------------------------------------------- diff --git a/LUA_MachMgr.cpp b/LUA_MachMgr.cpp index a68303b..e219229 100644 --- a/LUA_MachMgr.cpp +++ b/LUA_MachMgr.cpp @@ -1367,6 +1367,23 @@ LuaImportSetup( lua_State* L) return 1 ; } +//----------------------------------------------------------------------------- +static int +LuaVerifyCurrSetup( lua_State* L) +{ + // nessun parametro + LuaClearStack( L) ; + // verifico l'attrezzaggio della macchinata corrente + STRVECTOR vsErrors ; + bool bOk = ExeVerifyCurrSetup( vsErrors) ; + LuaSetParam( L, bOk) ; + if ( bOk) + LuaSetParam( L) ; + else + LuaSetParam( L, vsErrors) ; + return 2 ; +} + //------------------------------------------------------------------------------- // Machinings database //------------------------------------------------------------------------------- @@ -3082,6 +3099,7 @@ LuaInstallMachMgr( LuaMgr& luaMgr) bOk = bOk && luaMgr.RegisterFunction( "EgtGetCurrSetup", LuaGetCurrSetup) ; bOk = bOk && luaMgr.RegisterFunction( "EgtGetDefaultSetupName", LuaGetDefaultSetupName) ; bOk = bOk && luaMgr.RegisterFunction( "EgtImportSetup", LuaImportSetup) ; + bOk = bOk && luaMgr.RegisterFunction( "EgtVerifyCurrSetup", LuaVerifyCurrSetup) ; // Machinings database bOk = bOk && luaMgr.RegisterFunction( "EgtMdbGetMachiningNewName", LuaMdbGetMachiningNewName) ; bOk = bOk && luaMgr.RegisterFunction( "EgtMdbAddMachining", LuaMdbAddMachining) ;