Problemas de configuracion de ADS server 7.1

Problemas de configuracion de ADS server 7.1

Postby carlos vargas » Wed Feb 14, 2007 8:42 pm

Amigos

Tengo un problema de conexion con un servidor ads 7 y mi aplicacion, la situacion es la siguiente

La red (grupo de trabajo se llama 'jardines')
existe un servidor con win2k server el nombre es 'vpnserver' el ip es 192.168.1.200, las demas pc usan winxp

he creado un directorio en el disco d del server, se llama jrdatos, lo he compartido con derecho de escritura y lectura para todos.

logicamente he instalado el ads server 7.1

el programa principal tiene el siguiente codigo.

El programa falla al momento de intentar abrir las tablas de datos. :-(

Code: Select all  Expand view  RUN
/*----------------------------------------------------------------------------------*/
/*define archivos cabezeras*/
#include "jardines.ch"

/*----------------------------------------------------------------------------------*/
/*define variables globales*/
GLOBAL oApp, oImageLogoJR, nXFix, nYFix

/*----------------------------------------------------------------------------------*/
/*define modulos externos*/
REQUEST  ADS, HB_LANG_ES, HB_CODEPAGE_ES
EXTERNAL AdsKeyNo, AdsKeyCount, AdsGetRelKeyPos, AdsSetRelKeyPos

/*----------------------------------------------------------------------------------*/

FUNCTION Main()
    LOCAL oBrush

    /*define imagen del logo*/
    REDEFINE IMAGE oImageLogoJR NAME "LOGO"

    /*procedimiento inicial*/
    IF !Main_Inicio()
        RETURN
    ENDIF

    /*define brush*/
    DEFINE BRUSH oBrush NAME "FONDO2"

    /*define dialogo*/
    DEFINE DIALOG oDlgMenu NAME "DLG_MENU" ICON GetIcon() BRUSH oBrush

    /*redefine controles*/
    REDEFINE STSAY ID 401 OF oDlgMenu COLORS CLR_RED SHADED

    REDEFINE BITMAP ID 501 OF oDlgMenu NAME "MENU"

    REDEFINE BUTTON ID 101 OF oDlgMenu ACTION Colectores()
    REDEFINE BUTTON ID 102 OF oDlgMenu ACTION Vendedores()
    REDEFINE BUTTON ID 103 OF oDlgMenu ACTION Jardines()
    REDEFINE BUTTON ID 104 OF oDlgMenu ACTION Contratos()
    REDEFINE BUTTON ID 105 OF oDlgMenu ACTION EstadoLote()
    REDEFINE BUTTON ID 106 OF oDlgMenu ACTION Dummy()
    REDEFINE BUTTON ID 107 OF oDlgMenu ACTION Tasa()
    REDEFINE BUTTON ID 108 OF oDlgMenu ACTION Dummy()

    REDEFINE BUTTON ID 201 OF oDlgMenu ACTION oDlgMenu:end()

    /*activa dialogo*/
    ACTIVATE DIALOG oDlgMenu CENTER

    /*cierra tablas*/
    Main_Final()

RETURN nil

/*----------------------------------------------------------------------------------*/

PROCEDURE Main_Inicio()
    LOCAL cServerType,cServerPath

    /*sobre escribe y agrega metodos a clases nativas de fwh*/
    OverrideAndExtend()

    /*carga configuracion desde ini*/
    oIni:=TIni():new( curdrive()+":\"+curdir()+"\"+"jardines2.ini")

    cServerType:=oIni:get("DATOS","ServerType")
    cServerPath:=oIni:get("DATOS","ServerPath")

    /**/
    nXFix:=oIni:get("FIXPRN","AJUSTEX")
    nYFix:=oIni:get("FIXPRN","AJUSTEY")

    /*define pagina de codigo y lenguaje por defecto*/
    hb_langselect("ES")
    hb_setcodepage("ES")

    /*define RDD*/
    rddsetdefault("ADS")

    /*define parametros del servidor*/
    AdsSetServerType( Val(cServerType) )
    AdsSetFileType(ADS_ADT)
    AdsRightsCheck(FALSE)
    AdsLocking(FALSE)

    /*define configuracoin de entorno*/
    SET DEFAULT  TO &cServerPath
    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(cServerPath)
        RETURN FALSE
    ENDIF

RETURN TRUE

/*----------------------------------------------------------------------------------*/

FUNCTION Main_AbrirTablas(cServerPath)
    LOCAL oErr
    LOCAL lOk:=TRUE

    /*intenta abrir tablas de datos*/
    //TRY

        USE (cServerPath + "mcole.adt") NEW SHARED ALIAS cole
        USE (cServerPath + "mvend.adt") NEW SHARED ALIAS vend
        USE (cServerPath + "mjard.adt") NEW SHARED ALIAS jard
        USE (cServerPath + "mlote.adt") NEW SHARED ALIAS lote
        USE (cServerPath + "mcont.adt") NEW SHARED ALIAS cont
        USE (cServerPath + "mdesl.adt") NEW SHARED ALIAS tasa
    //CATCH oErr
        //MsgStop("Error en apertura de tablas de datos:"+FINL+oErr:description)
        //lOk:=FALSE
    //END

RETURN lOk

/*----------------------------------------------------------------------------------*/

PROCEDURE Main_Final()

    oImageLogoJR:END()

    /*cierra tablas*/
    DBCloseAll()

RETURN

/*----------------------------------------------------------------------------------*/
/*EOF*/
/*----------------------------------------------------------------------------------*/


El archivo jardines2.ini tiene el siguiente contenido

Code: Select all  Expand view  RUN
;Server Type
;===========
;Servidor Local=1
;Servidor Remoto=2
;Servidor Internet=4
;
;Ruta de directorio de datos
;-----------------------------------------------------
[DATOS]
;ServerType = 2
;ServerPath = \\vpnserver\jrdatos\
;-----------------------------------------------------
ServerType = 1
ServerPath = c:\carlos\jardines\datos\
;-----------------------------------------------------
[FIXPRN]
AJUSTEX=0
AJUSTEY=0


El caso es que en modo local funciona muy bien, pero modo c/s no ha a habido manera.

de entrada les informo que me he leido todos los post de RF sobre ads y otros compañeros, y si bien comprendo en el papel, a la hora de los dulce, nel todos amargo :-(, algo estoy pasando por alto.

cualquier ayuda es extramadamente agradecida.

estoy desesperado con esto :-(

salu2
carlos vargas
Salu2
Carlos Vargas
Desde Managua, Nicaragua (CA)
User avatar
carlos vargas
 
Posts: 1721
Joined: Tue Oct 11, 2005 5:01 pm
Location: Nicaragua

Postby R.F. » Wed Feb 14, 2007 9:57 pm

1) Instala el ARC en tu estacion de trabajo y prueba conectarte con el servidor, abriendo una base de datos

2) Revisa la configuracion del firewall de Windows de tus estaciones de trabajo y del servidor, tiene que estar abierto el puerto 2000

3) En la instalacion de ADS, con el Advantage Configuration Utility revisa que el puerto 2000 este asignado para la red de area local.
Saludos
R.F.
R.F.
 
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Postby carlos vargas » Thu Feb 15, 2007 12:13 am

Ok, rene

lo hare y te comento.

he hecho una prueba antes de ver este post instalando el ads server una de las estaciones y si me hha funcionado de perlas.

veremos en el server con los tips que me indicaste.

gracias por la atencion.

salu2
carlos vargas
Salu2
Carlos Vargas
Desde Managua, Nicaragua (CA)
User avatar
carlos vargas
 
Posts: 1721
Joined: Tue Oct 11, 2005 5:01 pm
Location: Nicaragua

Postby JoseLuis » Thu Feb 15, 2007 2:04 pm

Una duda que me corroe desde hace tiempo en éste sentido.

Yo también tengo una de mis aplicaciones funcionado en un grupo de trabajo del que 10 ordenadores corren bajo xp, y un servidor donde están los datos y tengo instalado server2003, que tine una dirección ip también, pero yo siempre he funcionado sin ADS ni esas cosas, siempre con DBF abiertas en modo comprartido. Veo que hablais sobre server 7.1, ADS, ARC etc cosas que me suenan a chino.

Es algo distinto de lo que yo hago?
Estos sistemas mejorarían lo que yo tengo?

Ya digo que tenemos 10 puestos de trabajo metiendo albaranes, facturando, tomando avisos, enviando ftp, correos, pdf, todo a través de mi aplicación y funciona perfectamente desde que estaba en clipper y fuí pasando a Fivewin y luego a FWH, y la gente no nota nada, el sistema funciona rápido y bien, pero si supone algo de mejora, mo pondría a estudiar sobre éste tema.

Saludos

Jose Luis
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo

Postby R.F. » Thu Feb 15, 2007 4:23 pm

Saludos
R.F.
R.F.
 
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Postby JoseLuis » Thu Feb 15, 2007 5:29 pm

Gracias Rene

Con ésto ya tengo tarea para un tiempo..

Saludos

Jose Luis
JoseLuis
 
Posts: 426
Joined: Thu Oct 19, 2006 12:28 pm
Location: Toledo


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 47 guests