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

2001-11-08 23:42 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>

Browse Source 
* source/rdd/dbcmd.c
     + added ordKeyVal() (need support by specifics RDDs)
This commit is contained in:
Horacio Dario Roldan Kasimatis
2001-11-09 03:01:04 +00:00
parent 80c2c0e579
commit 698f10037e
1 changed files with 16 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
harbour/source/rdd/dbcmd.c
View File

@@ -2477,6 +2477,22 @@ HB_FUNC( ORDKEYNO )
hb_errRT_DBCMD( EG_NOTABLE, EDBCMD_NOTABLE, NULL, "ORDKEYNO" );
}
HB_FUNC( ORDKEYVAL )
{
DBORDERINFO pOrderInfo;
if( s_pCurrArea )
{
pOrderInfo.itmOrder = NULL;
pOrderInfo.itmResult = hb_itemNew( NULL );
SELF_ORDINFO( ( AREAP ) s_pCurrArea->pArea, DBOI_KEYVAL, &pOrderInfo );
hb_itemReturn( pOrderInfo.itmResult );
hb_itemRelease( pOrderInfo.itmResult );
}
else
hb_errRT_DBCMD( EG_NOTABLE, EDBCMD_NOTABLE, NULL, "ORDKEYVAL" );
}
#endif
HB_FUNC( ORDLISTADD )
@@ -3657,4 +3673,3 @@ HB_FUNC( __DBCOPY )
ISCHAR( 8 ) ? hb_parc( 8 ) : NULL ); /* RDD */
}
}