En esta oportunidad me encuentro trabajando con la implementación de LETODB para realizar consultas entre distintas sucursales.
Estoy con el problema que no puedo abrir un archivo de base de datos .dbf en forma remota y creo es por que esta siendo utilizado, porque haciendo la misma consulta sobre otras bases de datos que están en el mismo directorio remoto funciona sin inconvenientes.
EJEMPLO DE APERTURA DE BASES
Dbusearea(.t.,"LETO",cServer+'/wflabor','ProduNew',.T.,.F.) FUNCIONA
xbrowse()
USE ( '//190.108.228.106:2812/wflabor' ) New FUNCIONA
xbrowse()
Dbusearea(.t.,"LETO",cServer+'/wfprodu','ProduNew',.T.,.F.) NO FUNCIONA 'No se pudo abrir un archivo...','Error de apertura'
xbrowse()
USE ( '//190.108.228.106:2812/wfprodu' ) New NO FUNCIONA ... SIN DATOS
xbrowse()
Se pueden consultar bases con LETODB si están abiertas o siendo utilizadas por otra aplicación?, por ahora consigo abrir todas las bases menos la que necesito...
La base wfprodu esta siendo utilizada constantemente por las terminales, incluye procesos que bloquean y desbloquean registros, mientras que la base wflabor solo se utiliza a demanda.
Les agradezco cualquier ayuda o comentario.
//............................................
FUNCTION Consultar()
local cServer:= '//190.108.228.106:2812'
local aInfo :={},aDir:={}
dbcloseall()
RDDSETDEFAULT("LETO")
if LETO_CONNECT(cServer,'Invitado','invitado') == -1
MsgInfo("No se puede conectar con la Sucursal Remota","Reintente más tarde!","Aviso")
RDDSETDEFAULT( "DBFCDX" )
RETU .F.
else
MsgWait('CONECTADO, Aguarde...','AVISO', 1 )
endif
TRY
/// Dbusearea(.t.,"LETO",cServer+'/wfprodu','ProduNew',.T.,.F.) NO FUNCIONA
Dbusearea(.t.,"LETO",cServer+'/wflabor','ProduNew',.T.,.F.) /// FUNCIONA BIEN
CATCH
MsgInfo('No se pudo abrir un archivo...','Error de apertura')
RDDSETDEFAULT( "DBFCDX" )
RETU .F.
END
xbrowse()
CLOSE ProduNew
RDDSetDefault('DBFCDX')
RETU .T.
