.- Tengo un form con el entorno de datos, en él utilizo un pageframe (page1: consultas, page2: procesar) y un grid. En la page1 de consultas utilizo el grid, y en la page2 para procesar y donde lo hago por medio de varios cuadro de texto.
.- En la propiedad del form lo tengo en DataSession = 2
.- En él load del form utilizo esto:
Set Confirm On
Set Exclusive Off
Set Multilock On
Set Refresh To 0.5
Set Refresh To 0,5
Set Reprocess To Automatic
Set Lock Off
Set Procedure To
.- En el botón procesar tengo colocado esto:
=CursorSetProp("Buffering",3,"deudasproveedores")
*-----------
lcBloqueaRnc=factura
If Seek(lcBloqueaRnc,"deudasproveedores")
Rlock("deudasproveedores")
Endif
If IsRLocked()=.F.
Messagebox('El registro con la factura número '+lcBloqueaRnc+' está siendo utilizado por otro usuario.',0+16,'ERROR AVISPAO')
Messagebox(IsRLocked()) && de prueba para verificar el estado aquí
If Seek(lcBloqueaRnc,"Acreencias")
Unlock
Endif
Thisform.cmdeshacer.Click
Else
Messagebox("El registro no lo están utilizando, POR ESO AHORA LO BLOQUEO")
Messagebox(IsRLocked()) && de prueba para verificar el estado acá
* Aquí habilito los cuadro de texto
Endif
*-----------
Mis preguntas son:
1.- ¿Estoy haciendo bien el bloqueo y el desbloqueo?
2.- Cuando aparece el mensaje (el que yo puse ERROR AVISPAO) porque otro usuario trata de usar el registro y este usuario quiere cerrar el form aparece este mensaje del VFP: "Otra persona está usando el registro." Aceptar, volver, ayuda. ¿Cómo corrijo este problema?
Espero que me puedan ayudar a resolver este problemilla.
--------------------------------------------------------------------------------------------------------------
"El objeto más noble que puede ocupar el hombre es ilustrar a sus semejantes"
Simón Bolívar
"El Libertador"
Estadista y Militar Venezolano