Ya que estamos la soluci贸n a la primera pregunta mia fue:
1) Bajar del link de Antonio el CVS, ir a la carpeta RDD_ADS, copiar en la misma el ACE.H que se ecuentra en la paquete SDK de ADS SERVER
2) Compilar con BCC 551 ADS1.c , ADSFUNC.c, ADSMGMNT.c,
ASI
C:\BORLAND\BCC55\BIN\BCC32 -c -O2 -DWIN32;ADS_LIB_VERSION=700 -IC:\XHAR_906\INCLUDE -oC:\BORLAND\BCC55\OBJ\ADS1.OBJ ADS1.C
C:\BORLAND\BCC55\BIN\BCC32 -c -O2 -DWIN32;ADS_LIB_VERSION=700 -IC:\XHAR_906\INCLUDE -oC:\BORLAND\BCC55\OBJ\ADSFUNC.OBJ ADSFUNC.C
C:\BORLAND\BCC55\BIN\BCC32 -c -O2 -DWIN32;ADS_LIB_VERSION=700 -IC:\XHAR_906\INCLUDE -oC:\BORLAND\BCC55\OBJ\ADSMGMNT.OBJ ADSMGMNT.C
3) Se generar谩n los OBJ anteriores basados en los funtes C
4) Pegar los 3 OBJ en la carpeta de la aplicaci贸n
5) Compilar la aplicaci贸n quitando RDDADS.LIB y agregando los OBJ anteriores
6) En la aplicaci贸n utilizar el ACE32.DLL de la versi贸n 7.1 de ADS
Esta soluci贸n creo fue la mas r谩pida y quedoandando muy bien,
RESPECTO A:
locate for field->forma = (::cFormaRen2)->forma
rlock()
field->total := nValor
dbunlock(
LA FORMA CORRECTA SERIA CREO:
locate for field->forma = (::cFormaRen2)->forma
IF FOUND()
rlock()
field->total := nValor
dbunlock()
ELSE
MSGSTOP("REGISTRO NO ENCONTRADO")
ENDIF
SALUDOS,