oleaut32: Fix the return value of ITypeInfo::Invoke when the property-put named…

dlls/oleaut32/tests/tmarshal.c

@@ -975,10 +975,7 @@ static void test_typelibmarshal(void)
     dispparams.rgvarg = vararg;
     VariantInit(&varresult);
     hr = IDispatch_Invoke(pDispatch, DISPID_TM_NAME, &IID_NULL, LOCALE_NEUTRAL, DISPATCH_PROPERTYPUT, &dispparams, &varresult, &excepinfo, NULL);
-    todo_wine
-    {
-        ok(hr == DISP_E_PARAMNOTFOUND, "IDispatch_Invoke should have returned DISP_E_PARAMNOTFOUND instead of 0x%08x\n", hr);
-    }
+    ok(hr == DISP_E_PARAMNOTFOUND, "IDispatch_Invoke should have returned DISP_E_PARAMNOTFOUND instead of 0x%08x\n", hr);
     VariantClear(&varresult);
 
     /* tests param type that cannot be coerced */

dlls/oleaut32/typelib.c

@@ -5481,7 +5481,7 @@ static HRESULT WINAPI ITypeInfo_fnInvoke(
                 if (!cNamedArgs || (rgdispidNamedArgs[0] != DISPID_PROPERTYPUT))
                 {
                     ERR("first named arg for property put invocation must be DISPID_PROPERTYPUT\n");
-                    hres = DISP_E_PARAMNOTOPTIONAL;
+                    hres = DISP_E_PARAMNOTFOUND;
                     goto func_fail;
                 }
                 /* ignore the DISPID_PROPERTYPUT named argument from now on */