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
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


0