Xailer & OZ Software

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

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

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