fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2002-05-15 19:26 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2002-05-15 15:25:56 +00:00
parent 09666a5f95
commit 1749f5bd02
2 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/contrib/rdd_ads/ads1.c
View File

@@ -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 )

4
harbour/contrib/rdd_ads/adsmgmnt.c
View File

@@ -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;
/*