Toninho:
Are you using the most current CVS?
If I do provide a fieldname or fieldpos it works fine;
but if I provide a non-existent field or call adsIsEmpty()
with no workarea open, it still gives me the Unrecoverable error 9000.
Must be doing something wrong, but I can't spot it.
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
> [email protected]
> 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
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
