Toninho:
Found the problem (besides the && instead of ||).
This now correctly raises a r/t error if the param
passed isn't char or numeric:
---cut---
HB_FUNC( ADSISEMPTY )
{
UNSIGNED32 ulRetVal = ~AE_SUCCESS;
UNSIGNED16 pbEmpty = FALSE;
ADSAREAP pArea;
UNSIGNED8* pucFldName;
pArea = hb_rddGetADSWorkAreaPointer();
if( ! ISCHAR( 1 ) && ! ISNUM( 1 ) )
{
hb_errRT_DBCMD( EG_ARG, 1014, NULL, "ADSISEMPTY" );
return;
}
else if( pArea )
{
pucFldName = (UNSIGNED8 *) ( ISCHAR( 1 ) ? hb_parcx( 1 ) :
ADSFIELD( hb_parni( 1 ) ) );
ulRetVal = AdsIsEmpty( pArea->hTable, pucFldName, &pbEmpty );
}
if ( ! pArea || ulRetVal != AE_SUCCESS )
{
hb_errRT_DBCMD( EG_NOTABLE, 2001, NULL, "ADSISEMPTY" );
}
hb_retl( pbEmpty );
}
---cut---
Regards,
[EMAIL PROTECTED] wrote:
>> Unrecoverable error 9000:
>>
>
> Luis, try this function, here works for me:
>
> ---cut---
> HB_FUNC( ADSISEMPTY )
> {
> UNSIGNED32 ulRetVal;
> UNSIGNED16 pbEmpty;
> ADSAREAP pArea;
> UNSIGNED8* pucFldName;
>
> pArea = hb_rddGetADSWorkAreaPointer();
>
> if( !ISCHAR( 1 ) && !ISNUM( 1 ) )
> {
> hb_errRT_DBCMD( EG_ARG, 1014, NULL, "ADSISEMPTY" );
> }
> else if( pArea )
> {
> pucFldName = (UNSIGNED8 *) ( ISCHAR( 1 ) ? hb_parcx( 1 ) :
> ADSFIELD( hb_parni( 1 ) ) );
> ulRetVal = AdsIsEmpty( pArea->hTable, pucFldName, &pbEmpty );
> }
>
> if ( !pArea || !( ulRetVal == AE_SUCCESS ) )
> {
> hb_errRT_DBCMD( EG_NOTABLE, 2001, NULL, "ADSISEMPTY" );
> }
>
> hb_retl( pbEmpty );
> }
> ---cut---
>
>
>
>
> Regards,
>
> Toninho.
>
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
> Register now and save $200. Hurry, offer ends at 11:59 p.m.,
> Monday, April 7! Use priority code J8TLD2.
> http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
> _______________________________________________
> xHarbour-developers mailing list
> xHarbour-developers@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/xharbour-developers
>
>
--
Luis Krause Mantilla
lkrausem at shaw dot ca
luis_krause at hotmail dot com
"May the Source be with GNU"
-------------------------------------------------------------------------
This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
Register now and save $200. Hurry, offer ends at 11:59 p.m.,
Monday, April 7! Use priority code J8TLD2.
http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
