He realizado la conexion por remoto del sevidor ADS, pero me ha fallado a travez de Internet.
he creado un diccionario de datos, para las tablas, he creado un usuario llamado "carlos", con su clave "carlos01".
he probado que exista comunicacion a travez de UDP con el puerto que he asignado 2003 a la conexion por internet. (con una utilidad que encontre en el sitio de Advantage que permite enviar paquetes a travez de una IP en un puerto especifico).
- Code: Select all Expand view
PROCEDURE Main_Inicio()
LOCAL cType,cPath
/*sobre escribe y agrega metodos a clases nativas de fwh*/
OverrideAndExtend()
/*fix*/
nXFix:=0
nYFix:=0
/*define pagina de codigo y lenguaje por defecto*/
hb_langselect("ES")
hb_setcodepage("ES")
/*define RDD*/
rddsetdefault("ADS")
/*define parametros del servidor*/
AdsRightsCheck(FALSE)
AdsSetFileType(ADS_ADT)
AdsLocking(FALSE)
AdsSetServerType(7)
/*define configuracion de entorno*/
SET CENTURY ON
SET DATE BRIT
SET EPOCH TO 1964
SET OPTIMIZE ON
SET CONFIRM ON
SET DELETED ON
SET SOFTSEEK OFF
SET DECIMAL TO 4
Set(_SET_FILECASE,1)
Set(_SET_DIRCASE,1)
/*Abre tablas*/
IF !Main_AbrirTablas(cPath)
RETURN FALSE
ENDIF
RETURN TRUE
/*----------------------------------------------------------------------------------*/
FUNCTION Main_AbrirTablas(cPath)
LOCAL oErr, cErr
LOCAL lOk:=FALSE
/*intenta conexion con servidor de datos*/
IF !AdsConnect60("\\jardines\jrdatos\jardines.add",4,"carlos","carlos01",,@hConn)
/*obtiene error*/
adsGetLastError(@cErr)
/*muestra mensaje de error de conexion*/
MsgStop(cErr,"Error de conexion a servidor de datos ADS!")
RETURN lOk
ENDIF
/*abre tablas de datos*/
USE mcole.adt NEW SHARED ALIAS cole
USE mvend.adt NEW SHARED ALIAS vend
USE mjard.adt NEW SHARED ALIAS jard
USE mlote.adt NEW SHARED ALIAS lote
USE mcont.adt NEW SHARED ALIAS cont
USE mdesl.adt NEW SHARED ALIAS tasa
/*flag de operacion*/
lOk:=TRUE
RETURN lOk
/*----------------------------------------------------------------------------------*/
El error que muestra es:
Error 6610, The anvantage databases server did no respond to a database request in a timely manner.
salud2
carlos vargas