FoxPro/Visual FoxPro - Modificaciones en red

 
Vista:

Modificaciones en red

Publicado por Ernesto Ruiz (134 intervenciones) el 31/01/2006 21:04:33
Hola que tal, tengo un problema, tengo un sistema con tablas excluidas, el sistema trabaja en red y trabaja bien, pero cuando me meto al form de Modificaciones tengo el siguiente codigo en el boton de Modicicar:

SET PROCEDURE TO validaciones
WITH thisform
_v=0
valitxt("txthora","la HORA del RASTRO")
valitxt("cbozona","la ZONA del RASTRO")
valitxt("txtestacion","la ESTACIÓN del RASTRO")
valitxt("txta_huella","el ANCHO DE LA HUELLA de la tortuga")
IF _v=0
SELECT 1
use
USE saqueos INDEX saqueos ORDER numero exclusive
DELETE FROM saqueos WHERE .codigo.value==saqueos.numero
pack
_fecha=CTOD(STR(.fecha.day)+"/"+STR(.fecha.month)+"/"+STR(.fecha.year))
INSERT INTO saqueos(numero,fecha,hora,zona,estacion,a_huella,observ);
values(.codigo.value,_fecha,.txthora.value,.cbozona.value,.txtestacion.value,.txta_huella.value,.edtObserv.value)
cMessageTitle = 'Felicidades !!!'
cMessageText = 'Los datos fueron guardados exitosamente en la TORTU-BASE. ¿Desea agregar un nuevo SAQUEO?'
nDialogType = 4 + 32 + 256
nAnswer = MESSAGEBOX(cMessageText, nDialogType, cMessageTitle)
DO CASE
CASE nAnswer = 6
.init &&'Eligió Si'
CASE nAnswer = 7
.release && si eligio NO
ENDCASE
ENDIF
ENDWITH
Si corro el sistema si hace la consulta bien, pero sale error cuando presiono el boton de modificar, el error dice:
"Denegado C:\Tortugario\incubacion.dbf al acceso al archivo"

Lo que necesito es que cuando un usuario entre al form ese, aparesca un mensaje de que no puede entrar, hasta que el el otro usuario salga de tal form.
o bien, otra solucion mejor que ustedes sepan.
Gracias por su tiempo
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

RE:Modificaciones en red

Publicado por Ernesto Ruiz (134 intervenciones) el 31/01/2006 21:07:28
se me olvido poner que en el load tengo lo siguiente:
close tables all
SELECT 1
USE rastros INDEX rastros ORDER numero SHARED
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