In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Undefined function ADSGETRELKEYPOS TDbfBrowse

Foro público de Xailer en español
Responder
Mike Draper
Mensajes: 41
Registrado: Vie Jul 01, 2005 11:59 pm

Undefined function ADSGETRELKEYPOS TDbfBrowse

Mensaje por Mike Draper »

I was trying to make an application that runs fine using DBFCDX into using
Advantage. I include the code:
#ifdef AXS
request _ads
rddRegister('ads', 1)
rddsetdefault('ADS')
rdd2use('ADS')
sl := adsisserverloaded('c:')
if sl == 0
adssetservertype(ADS_LOCAL_SERVER)
aservtype('Local')
else
adssetservertype(ADS_LOCAL_SERVER)
aservtype('Remote')
endif
#else
request dbfcdx
request dbffpt
rddsetdefault('DBFCDX')
rdd2use('DBFCDX')
aservtype('Local')
#endif
I define AXS and include ace32.lib and rddads.lib in the project. Most
things work ok until I get to a TDbfBrowse object. I get the error:
Description: Undefined function
Operation: ADSGETRELKEYPOS
ADSGETRELKEYPOS (0)
(b)TDBFBROWSE:SETDBF (289)
TDBFBROWSE:ONKEYNO (0)
(b)XBROWSE (225)
TDBFBROWSE:KEYNO (0)
TDBFBROWSE:REFRESH (576)
TDBFBROWSE:SETDBF (362)
TDBFBROWSE:CREATE (75)
FRMDATALIST:CREATEFORM (27)
FRMDATALIST:NEW (179)
MISDATALIST (138)
(b)FRMPTMIS:FORMINITIALIZE (49)
TMENUITEM:ONCLICK (0)
TMENU:DOACTION (172)
TMENU:DOACTION (177)
FRMPTMIS:WMCOMMAND (223)
RUNFORM (0)
TAPPLICATION:RUN (156)
MAIN (16)
Any idea about what I did wrong?
Mike Draper
Arriba
jmartial
Mensajes: 397
Registrado: Vie May 20, 2005 8:53 pm

Undefined function ADSGETRELKEYPOS TDbfBrowse

Mensaje por jmartial »

Hi,
Try this in the top of function main or first prg:
REQUEST ADSKEYCOUNT, ADSKEYNO, ADSGETRELKEYPOS, ADSSETRELKEYPOS
Bye,
Joaquín
"Mike Draper" <draperm@cogeco.ca> escribió en el mensaje
news:42a5e186$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> I was trying to make an application that runs fine using DBFCDX into using
> Advantage. I include the code:
>
> #ifdef AXS
> request _ads
> rddRegister('ads', 1)
> rddsetdefault('ADS')
> rdd2use('ADS')
>
> sl := adsisserverloaded('c:')
> if sl == 0
> adssetservertype(ADS_LOCAL_SERVER)
> aservtype('Local')
> else
> adssetservertype(ADS_LOCAL_SERVER)
> aservtype('Remote')
> endif
> #else
> request dbfcdx
> request dbffpt
> rddsetdefault('DBFCDX')
> rdd2use('DBFCDX')
> aservtype('Local')
> #endif
>
> I define AXS and include ace32.lib and rddads.lib in the project. Most
> things work ok until I get to a TDbfBrowse object. I get the error:
>
> Description: Undefined function
> Operation: ADSGETRELKEYPOS
>
> ADSGETRELKEYPOS (0)
> (b)TDBFBROWSE:SETDBF (289)
> TDBFBROWSE:ONKEYNO (0)
> (b)XBROWSE (225)
> TDBFBROWSE:KEYNO (0)
> TDBFBROWSE:REFRESH (576)
> TDBFBROWSE:SETDBF (362)
> TDBFBROWSE:CREATE (75)
> FRMDATALIST:CREATEFORM (27)
> FRMDATALIST:NEW (179)
> MISDATALIST (138)
> (b)FRMPTMIS:FORMINITIALIZE (49)
> TMENUITEM:ONCLICK (0)
> TMENU:DOACTION (172)
> TMENU:DOACTION (177)
> FRMPTMIS:WMCOMMAND (223)
> RUNFORM (0)
> TAPPLICATION:RUN (156)
> MAIN (16)
>
> Any idea about what I did wrong?
>
> Mike Draper
>
>
Arriba
Mike Draper
Mensajes: 41
Registrado: Vie Jul 01, 2005 11:59 pm

Undefined function ADSGETRELKEYPOS TDbfBrowse

Mensaje por Mike Draper »

Thanks Joaquin. Worked like a charm!
"Joaquín Martínez" <jmartial@interbook.net> wrote in message
news:[email=42a61976@ozsrvnegro.ozlan.local...]42a61976@ozsrvnegro.ozlan.local...[/email]
> Hi,
>
> Try this in the top of function main or first prg:
>
> REQUEST ADSKEYCOUNT, ADSKEYNO, ADSGETRELKEYPOS, ADSSETRELKEYPOS
>
>
> Bye,
> Joaquín
>
> "Mike Draper" <draperm@cogeco.ca> escribió en el mensaje
> news:42a5e186$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> I was trying to make an application that runs fine using DBFCDX into
>> using
>> Advantage. I include the code:
>>
>> #ifdef AXS
>> request _ads
>> rddRegister('ads', 1)
>> rddsetdefault('ADS')
>> rdd2use('ADS')
>>
>> sl := adsisserverloaded('c:')
>> if sl == 0
>> adssetservertype(ADS_LOCAL_SERVER)
>> aservtype('Local')
>> else
>> adssetservertype(ADS_LOCAL_SERVER)
>> aservtype('Remote')
>> endif
>> #else
>> request dbfcdx
>> request dbffpt
>> rddsetdefault('DBFCDX')
>> rdd2use('DBFCDX')
>> aservtype('Local')
>> #endif
>>
>> I define AXS and include ace32.lib and rddads.lib in the project. Most
>> things work ok until I get to a TDbfBrowse object. I get the error:
>>
>> Description: Undefined function
>> Operation: ADSGETRELKEYPOS
>>
>> ADSGETRELKEYPOS (0)
>> (b)TDBFBROWSE:SETDBF (289)
>> TDBFBROWSE:ONKEYNO (0)
>> (b)XBROWSE (225)
>> TDBFBROWSE:KEYNO (0)
>> TDBFBROWSE:REFRESH (576)
>> TDBFBROWSE:SETDBF (362)
>> TDBFBROWSE:CREATE (75)
>> FRMDATALIST:CREATEFORM (27)
>> FRMDATALIST:NEW (179)
>> MISDATALIST (138)
>> (b)FRMPTMIS:FORMINITIALIZE (49)
>> TMENUITEM:ONCLICK (0)
>> TMENU:DOACTION (172)
>> TMENU:DOACTION (177)
>> FRMPTMIS:WMCOMMAND (223)
>> RUNFORM (0)
>> TAPPLICATION:RUN (156)
>> MAIN (16)
>>
>> Any idea about what I did wrong?
>>
>> Mike Draper
>>
>>
>
>
Arriba
Responder

Volver a “Xailer Spanish”