diff --git a/harbour/contrib/rdd_ads/ads1.c b/harbour/contrib/rdd_ads/ads1.c
index a540569cc6..942135bd45 100644
--- a/harbour/contrib/rdd_ads/ads1.c
+++ b/harbour/contrib/rdd_ads/ads1.c
@@ -2433,12 +2433,20 @@ static ERRCODE adsSetScope( ADSAREAP pArea, LPDBORDSCOPEINFO sInfo )
 
             case ADS_DATE:
                if ( sInfo->scopeValue->type == HB_IT_DATE )
-                  hb_itemGetDS(  sInfo->scopeValue, (char *) pucScope );
+               {
+                  double dTemp;
+                  bTypeError = FALSE;
+                  dTemp = hb_itemGetDL( sInfo->scopeValue ) ;
+                  usDataType = ADS_DOUBLEKEY ;
+                  AdsSetScope( pArea->hOrdCurrent, (sInfo->nScope + 1),
+                      (UNSIGNED8*) &dTemp,
+                      (UNSIGNED16) sizeof( dTemp ), usDataType );
+               }
+               break;
 /*                  bTypeError = FALSE;
   TODO: needs adsDateFormat, confirm it's DTOS if possible, else convert
 hb_errRT_DBCMD( EG_ARG, EDBCMD_REL_BADPARAMETER, NULL, "ORDSCOPE" );
 */
-               break;
 
 /*            case ADS_LOGICAL:
                if ( sInfo->scopeValue->type == HB_IT_LOGICAL )
diff --git a/harbour/contrib/rdd_ads/adsmgmnt.c b/harbour/contrib/rdd_ads/adsmgmnt.c
index 83bc68b5f3..bd193641c8 100644
--- a/harbour/contrib/rdd_ads/adsmgmnt.c
+++ b/harbour/contrib/rdd_ads/adsmgmnt.c
@@ -116,7 +116,7 @@ HB_FUNC( ADSMGGETACTIVITYINFO )
    UNSIGNED32  ulRetVal;
    UNSIGNED16  usStructSize;
    ADS_MGMT_ACTIVITY_INFO  stActivityInfo;
-   UINT iOption = hb_parni( 1 );
+   unsigned int iOption = hb_parni( 1 );
 
    usStructSize = sizeof( ADS_MGMT_ACTIVITY_INFO );
    ulRetVal = AdsMgGetActivityInfo( hMgmtHandle, &stActivityInfo, &usStructSize );
@@ -364,7 +364,7 @@ HB_FUNC( ADSMGGETUSERNAMES )   /* Return array of connected users */
 
    UNSIGNED32  ulRetVal ;
    UNSIGNED16  ulMaxUsers = 100 ;        /* needed for array memory allocation; caller can set with 2nd arg */
-   UNSIGNED32  ulCount;
+   UNSIGNED16  ulCount;
    UNSIGNED16  usStructSize = sizeof( ADS_MGMT_USER_INFO );
    ADS_MGMT_USER_INFO*  pastUserInfo;
 /*