FoxPro/Visual FoxPro - Bloquear tablas en red

   
Vista:

Bloquear tablas en red

Publicado por Marcelo (L) (171 intervenciones) el 01/04/2015 17:49:55
Hola amigos, trabajo con vfp8 y necesito una rutina para saber si puedo abrir en exclusivo un archivo
el ejemplo es el siguiente una aplicación abre la tabla compartida (shared) por ejemplo use padrón.dbf in 0 shared
desde atra aplicación necesito hacer un Pack sobre esa misma tabla para eso debería abrir con use padrón.dbf in 0 exclusive lo cual me da un error lo que quiero saber es si hay alguna función que me avise que no puede abrir en exclusive el archivo para avisar al operador que debe cerrar el archivo en la otra aplicación. Espero su ayuda desde ya muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Bloquear tablas en red

Publicado por Fidel José (558 intervenciones) el 01/04/2015 23:51:19
Yo utilizo esta rutina.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
***********************
PROCEDURE TEST_OPENEX
**********************
LPARAMETERS tcFile,tlClose
TRY
	LOCAL lopen,lcAlias,loex As Exception
	lcAlias=JUSTSTEM(tcFile)
 
	* Si la tabla está en uso en el equipo
	* debe cerrarse.
	IF USED( lcAlias )
		SELECT (lcAlias)
		USE
	ENDIF
 
	* Intenta abrir en modo exclusivo
	USE (tcFile) IN 0 EXCLUSIVE
	lOpen=USED(tcFile)
CATCH TO loex
	lOPen=.f.
FINALLY
	IF lOpen AND tlClose
		SELECT (lcAlias)
		USE
	ENDIF
ENDTRY
RETURN lOPen
ENDPROC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Bloquear tablas en red

Publicado por Marcelo (L) (171 intervenciones) el 02/04/2015 02:36:05
Gracias lo voy a probar, Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar