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
/*----------------------------------------------------------------------------------*/
/*define _*/
#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*/
/*----------------------------------------------------------------------------------*/
Code: Select all
;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
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