Add files via upload

harbour · Jan 30, 2024 · 4350eba · 4350eba
1 parent c892443
commit 4350eba
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/contrib/hbwin/olecore.c b/contrib/hbwin/olecore.c
@@ -2254,8 +2254,9 @@ HB_FUNC( WIN_OLEAUTO___ONERROR )
 
          lOleError = HB_VTBL( pDisp )->Invoke( HB_THIS_( pDisp ) dispid, HB_ID_REF( IID_NULL ),
                                                LOCALE_USER_DEFAULT,
-                                               DISPATCH_PROPERTYPUT, &dispparam,
-                                               NULL, &excep, &uiArgErr );
+                                               ( V_VT( dispparam.rgvarg ) == VT_DISPATCH) ? DISPATCH_PROPERTYPUTREF : DISPATCH_PROPERTYPUT,
+                                               &dispparam, NULL, &excep, &uiArgErr );
+
          FreeParams( &dispparam );
 
          /* assign method should return assigned value */