FiveTech Software tech support forums

by **VitalJavier** » Sat Aug 18, 2018 6:05 pm

Tal vez a alguien ya paso por esto, y me podrían echar un hilo.
(Uso ADS, con tablas libres)

-Mi sistema esta en un Servidor
-En todas las maquinas les instale el sistema direccionando de donde abrir las tablas "\\servidor\…."
-Ahora toca que los temporales se creen en la PC local

1.- Con DbCreate - no crea nada
pues como no lo creaba , decidi poner un archivo "temporal.adt" en la maquina local
2.- Con DbUseArea - no puede abrir
pues no abre el temporal que puse manualmente

DbUseArea(.T.,DbSetDriver(),"C:\NUEVO\TEMPORAL\TEMPORALV","TEMPORALV",.F.,.F.)

y pues no me funciona crear y abrir archivos que están el la PC local.

Saludos.

by **russimicro** » Sun Aug 19, 2018 12:39 pm

Mi experiencia..

1. ADS, con tablas libres ADSCDX, en servidor remoto
2. Temporales en formato DBFCDX
3. Temporales en disco local
4. Filtros especiales , con indices en disco local y temporary

Johnson Russi

by **Loren** » Mon Aug 20, 2018 7:35 am

Russimicro, buenas:

Yo hago siempre uso de 2 variables declaradas como públicas: "Path_Servidor" y "Path_PC_local", donde guardo los path respectivos de uno y otro PC.

Cuando quiero usar las DBF o CDX del servidor utilizo:

Code: Select all Expand view: set default to &Path_Servidor ... use mitablaDbf1 shared index ... use mitablaDbf2 shared index ... ...

Cuando quiero usar las DBF o CDX del PC_Local utilizo:

Code: Select all Expand view: set default to &Path_PC_local ... use mitablaDbfLocal1 shared index ... use mitablaDbfLocal2 shared index ... index on .... ...

saludos.

by **hmpaquito** » Mon Aug 20, 2018 10:29 am

Hola,

Sería bueno tener la descripcion y codigos de error para asi poder dar una mejor ayuda.

Saludos

by **russimicro** » Mon Aug 20, 2018 2:56 pm

Code: Select all Expand view: cPatTab := path local o remoto, etc cNomTab := alias de la tabla vIndTab:= vector con nombre del indices lModTab := modo compartido, exclusivo cNomDri := driver : DBFCDX, ADS, SQLRDD, ETC FUNCTION lUsaTab( cPatTab,cNomTab,cAliTab,vIndTab,lModTab,cNomDri) LOCAL cDriVer := cNomDri local lShared := lModTab IF M->lSerAds .AND. cDriVer == "ADS" // SERVIDOR ADS ACTIVO DO WHILE .T. IF SELECT(cAliTab) == 0 TRY IF !lAdsRemInt // NO INTERNET IF ( LEN(vIndTab) > 0 ) .AND. FILE(cPatTab+vIndTab[1]) IF lShared USE (cPatTab+cNomTab) ALIAS &cAliTab SHARED NEW VIA (cDriVer) INDEX (cPatTab+vIndTab[1]) CONNECTION oConSql ELSE USE (cPatTab+cNomTab) ALIAS &cAliTab EXCLUSIVE NEW VIA (cDriVer) INDEX (cPatTab+vIndTab[1]) CONNECTION oConSql ENDIF ELSE IF lShared USE (cPatTab+cNomTab) ALIAS &cAliTab SHARED NEW VIA (cDriVer) CONNECTION oConSql ELSE USE (cPatTab+cNomTab) ALIAS &cAliTab EXCLUSIVE NEW VIA (cDriVer) CONNECTION oConSql ENDIF ENDIF ELSE // ADSREM - INTERNET IF ( LEN(vIndTab) > 0 ) IF lShared USE (cPatTab+cNomTab) ALIAS &cAliTab SHARED NEW VIA (cDriVer) INDEX (cPatTab+vIndTab[1]) CONNECTION oConSql ELSE USE (cPatTab+cNomTab) ALIAS &cAliTab EXCLUSIVE NEW VIA (cDriVer) INDEX (cPatTab+vIndTab[1]) CONNECTION oConSql ENDIF ELSE IF lShared USE (cPatTab+cNomTab) ALIAS &cAliTab SHARED NEW VIA (cDriVer) CONNECTION oConSql ELSE USE (cPatTab+cNomTab) ALIAS &cAliTab EXCLUSIVE NEW VIA (cDriVer) CONNECTION oConSql ENDIF ENDIF ENDIF CATCH IF cVerMen == NIL MYMEN("Error 1. En apertura de tablas. Verifique si hay procesos en ejecuci¢n : "+cAliTab+"-"+cPatTab+cNomTab) ENDIF RETURN .F. END TRY IF NETERR() MENSAJES('Error. Tabla abierta por otra estaci¢n : "'+cNomTab+'".','Verif¡quelo','N') USE SW := 1 ENDIF CATCH IF cVerMen == NIL MYMEN("Error 2. En apertura de tablas. Verifique si hay procesos en ejecuci¢n : "+cAliTab+"-"+cPatTab+cNomTab) ENDIF RETURN .F. END ELSE SELECT ( SELECT(cAliTab) ) SET FILTER TO SET RELATION TO ENDIF IF cDriVer == "ADS" IF cAliTab == "SET" .OR. cAliTab == "SET_OTR" .OR. cAliTab == "SE2" // NO ENCRIPTA ELSE PARAMETRO(42,@cEncTab) // activa modo encriptacion IF cEncTab == "D" .OR. lDesCri <> NIL IF RDDSETDEFAULT() == "ADS" IF (cAliTab)->( AdsIsTableEncrypted() ) IF lShared // SI FUERON ABIERTAS EN MODO COMPORTIDO .. LAS CIERRA Y ABRE EN EXCLUSIVO CLOSE (cAliTab) TRY IF !lAdsRemInt // NO INTERNET IF ( LEN(vIndTab) > 0 ) .AND. FILE(cPatTab+vIndTab[1]) USE (cPatTab+cNomTab) ALIAS &cAliTab EXCLUSIVE NEW VIA (cDriVer) INDEX (cPatTab+vIndTab[1]) CONNECTION oConSql ELSE USE (cPatTab+cNomTab) ALIAS &cAliTab EXCLUSIVE NEW VIA (cDriVer) CONNECTION oConSql ENDIF ELSE // ADSREM - INTERNET IF ( LEN(vIndTab) > 0 ) USE (cPatTab+cNomTab) ALIAS &cAliTab EXCLUSIVE NEW VIA (cDriVer) INDEX (cPatTab+vIndTab[1]) CONNECTION oConSql ELSE USE (cPatTab+cNomTab) ALIAS &cAliTab EXCLUSIVE NEW VIA (cDriVer) CONNECTION oConSql ENDIF ENDIF CATCH IF cVerMen == NIL MYMEN("Error 1.1. En apertura de tablas. Verifique si hay procesos en ejecuci¢n : "+cAliTab+"-"+cPatTab+cNomTab) ENDIF RETURN .F. END ENDIF // ALERTA("DESENCRIPTO : "+cAliTab) (cAliTab)->( AdsEnableEncryption(cClaDbf) ) (cAliTab)->( AdsDecryptTable() ) lDesCri := NIL SW_ENCRIPTAR := .F. LOOP ENDIF ENDIF ENDIF IF cEncTab == "E" .AND. lDesCri == NIL .AND. SW_ENCRIPTAR IF RDDSETDEFAULT() == "ADS" IF M->lEncTabADS // EXEPCION PARA TABLA DE PARAMETROS IF (cAliTab)->( AdsIsTableEncrypted() ) AdsEnableEncryption(cClaDbf) // alertA("ENABLED : "+cAliTab) ELSE CLOSE (cAliTab) TRY IF !lAdsRemInt // NO INTERNET IF ( LEN(vIndTab) > 0 ) .AND. FILE(cPatTab+vIndTab[1]) USE (cPatTab+cNomTab) ALIAS &cAliTab EXCLUSIVE NEW VIA (cDriVer) INDEX (cPatTab+vIndTab[1]) CONNECTION oConSql ELSE USE (cPatTab+cNomTab) ALIAS &cAliTab EXCLUSIVE NEW VIA (cDriVer) CONNECTION oConSql ENDIF ELSE // ADSREM - INTERNET IF ( LEN(vIndTab) > 0 ) USE (cPatTab+cNomTab) ALIAS &cAliTab EXCLUSIVE NEW VIA (cDriVer) INDEX (cPatTab+vIndTab[1]) CONNECTION oConSql ELSE USE (cPatTab+cNomTab) ALIAS &cAliTab EXCLUSIVE NEW VIA (cDriVer) CONNECTION oConSql ENDIF ENDIF CATCH IF cVerMen == NIL MYMEN("Error 1.1. En apertura de tablas. Verifique si hay procesos en ejecuci¢n : "+cAliTab+"-"+cPatTab+cNomTab) ENDIF RETURN .F. END (cAliTab)->( AdsEnableEncryption(cClaDbf) ) (cAliTab)->( AdsEncryptTable() ) // alertA("ENCRIPTA : "+cAliTab) CLOSE (cAliTab) LOOP ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF EXIT ENDDO ELSE // SQLRDD Y DBFCDX IF cDriVer == NIL cDriVer := RDDSETDEFAULT() ENDIF IF SELECT(cAliTab) == 0 TRY SW := 0 IF ( cDriVer == "SQLRDD" .OR. cDriVer == "SQLEX" ) //cNomTab := LOWER(cNomTab) DBUSEAREA(.T.,cDriVer,cPatTab+cNomTab,cAliTab,lShared,lReaOnl,NIL,oConSql) // oConSql = OBJETO DE CONEXION AL SERVER SQLRDD ELSE DBUSEAREA(.T.,cDriVer,cPatTab+cNomTab,cAliTab,lShared,lReaOnl,NIL) ENDIF CATCH IF cVerMen == NIL MYMEN("Error. En apertura de tablas. Verifique si hay otros procesos en ejecuci¢n o si tiene permisos en la empresa destino : "+cAliTab+"-"+cPatTab+cNomTab) ENDIF RETURN .F. END TRY IF NETERR() IF cVerMen == NIL MENSAJES("Error. Tabla abierta por otra estaci¢n : "+cNomTab,"Verif¡quelo","N") ENDIF USE SW := 1 ENDIF CATCH IF cVerMen == NIL MYMEN("Error 4. En apertura de tablas. Verifique si hay otros procesos en ejecuci¢n : "+cAliTab+"-"+cPatTab+cNomTab) ENDIF RETURN .F. END IF SW == 1 SW := 0 RETURN .F. ENDIF ELSE SELECT ( SELECT(cAliTab) ) SET FILTER TO SET RELATION TO ENDIF ENDIF RETURN .T.

by **VitalJavier** » Mon Aug 20, 2018 4:06 pm

Al tratar de abrir , este es el error que me marca

Code: Select all Expand view: Application =========== Path and name: C:\nuevo\admin.exe (32 bits) Size: 6,452,736 bytes Time from start: 0 hours 0 mins 7 secs Error occurred at: 20/08/2018, 10:59:48 Error description: Error ADSADT/5024 Open error: C:\temporal\TEMPORALV

Puse ese archivo "TEMPORALV" en la carpeta local "C:\TEMPORAL"

Ya vi ese erro y me dice :

Code: Select all Expand view: 5024 AE_INVALID_CONNECTION_HANDLE Advantage Error Guide Advantage does not have a connection open with the specified handle.

Alguien sabe como resolverlo.

by **VitalJavier** » Mon Aug 20, 2018 4:20 pm

Hice pruebas asi :

Code: Select all Expand view: cPathDAT := "\\servidor\sistema\datos\" hConnec := ADSConnect(cPathDAT) // Esto me Retorna un .T. cPathTEM := "c:\nuevo\temporal\" bConnec := ADSConnect(cPathTEM) // Esto me retorna un .F.

Algo esta mal ?

by **hmpaquito** » Mon Aug 20, 2018 5:48 pm

Como ha comentado algun compañero, puedes utilizar el driver DBFCDX para los archivos locales.

by **VitalJavier** » Tue Aug 21, 2018 2:28 pm

Pues como dijeron "DBFCDX" solo asi se pudo

Tablas en el servidor "ADT"
Temporales en PC local "DBF"

Code: Select all Expand view: Para Crearlo asi : DbCreate(cCrea,aTempora,"DBFCDX") Para Abrirlo asi : DbUseArea(.T.,"DBFCDX",cPathTEM +"TEMPORALV","TEMPORALV",.F.,.F.)

Y pues funcionando, gracias por su ayuda.

FiveTech Software tech support forums

El tema de crear y leer archivos "Temporales"

El tema de crear y leer archivos "Temporales"

Re: El tema de crear y leer archivos "Temporales"

Re: El tema de crear y leer archivos "Temporales"

Re: El tema de crear y leer archivos "Temporales"

Re: El tema de crear y leer archivos "Temporales"

Re: El tema de crear y leer archivos "Temporales"

Re: El tema de crear y leer archivos "Temporales"

Re: El tema de crear y leer archivos "Temporales"

Re: El tema de crear y leer archivos "Temporales"

Who is online