AYUDA PARA PROGRAMA EN RED
Publicado por JOF (12 intervenciones) el 01/12/2006 14:16:13
Hola amigos de la web.
Tengo una programa en VFP6 casi terminado y lo estoy probando en red, e echo algunos cambios siguiendo las respuestas que han dado en este foro en estos últimos 3 ó 4 meses.
E logrado hacerlo funcionar en red, pero el problema es el siguiente :
PUEDO MODIFICAR EL MISMO REGISTRO DESDE 2 PCS A LA VES , es decir
en PC1 modifico el número de factura (de 1355 a 1356) y en PC2 modifico el mismo registro, cambio el número de factura a 1357,(creo que esta forma no es la correcta), tendria que bloquear el registro para que un solo usuario pueda modificarlo.
USO ASí:
SET MULTILOCKS ON
OPEN DATABASE xxxxxxxx SHARED
EN FORMULARIO DE INGRESO
FORM1.INIT
SELECT TABLE
CURSORSETPROP("BUFFERING",3)
PROCEDURE GUARDAR
SELECT TABLE
REPLACE CODIGO WITH VCODI
REPLACE FECHA WITH VFECHA
REPLACE FACT WITH VNROFACT
=CURSORSETPROP("BUFFERING",5)
=TABLEUPDATE(.T.)
ENDPROCE
ESPERO PUEDAN AYUDARME
Saludos cordiales // JOSé O. FARINóN // Curuzú Cuatiá Ctes.
Tengo una programa en VFP6 casi terminado y lo estoy probando en red, e echo algunos cambios siguiendo las respuestas que han dado en este foro en estos últimos 3 ó 4 meses.
E logrado hacerlo funcionar en red, pero el problema es el siguiente :
PUEDO MODIFICAR EL MISMO REGISTRO DESDE 2 PCS A LA VES , es decir
en PC1 modifico el número de factura (de 1355 a 1356) y en PC2 modifico el mismo registro, cambio el número de factura a 1357,(creo que esta forma no es la correcta), tendria que bloquear el registro para que un solo usuario pueda modificarlo.
USO ASí:
SET MULTILOCKS ON
OPEN DATABASE xxxxxxxx SHARED
EN FORMULARIO DE INGRESO
FORM1.INIT
SELECT TABLE
CURSORSETPROP("BUFFERING",3)
PROCEDURE GUARDAR
SELECT TABLE
REPLACE CODIGO WITH VCODI
REPLACE FECHA WITH VFECHA
REPLACE FACT WITH VNROFACT
=CURSORSETPROP("BUFFERING",5)
=TABLEUPDATE(.T.)
ENDPROCE
ESPERO PUEDAN AYUDARME
Saludos cordiales // JOSé O. FARINóN // Curuzú Cuatiá Ctes.
Valora esta pregunta


0