Ejemplo de bloqueo con Retry

"Agustin Ithurbide" escribió en el mensaje
news:

Hola, alguien tiene algun ejemplo de bloqueo del tabla o registro con
(flock() o rlock()) que al devolver falso me ejecute de nuevo el bloqueo,
hasta que lo pueda conseguir, muchas gracias.


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Prueba esto si te sirve .

Function MrLock()
Do While .T.
IF Rlock() then
Return .T.
Else
Wait Window "Registro Bloqueado ."
Endif
Enddo


Saludos !

IF rlock()
WAIT WIND "Registro Bloqueado..."
**: Lineas aplicar
UNLOCK
ELSE
RETRY
ENDIF
"Agustin Ithurbide" escribió en el mensaje
news:

Hola, alguien tiene algun ejemplo de bloqueo del tabla o registro con
(flock() o rlock()) que al devolver falso me ejecute de nuevo el bloqueo,
hasta que lo pueda conseguir, muchas gracias.


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Hola

Ve la ayuda de SET REPROCESS, creo que es lo que necesitas.

Saludos

David

[quote][B]Agustin Ithurbide Escribió:[/b]

<pre>
Hola, alguien tiene algun ejemplo de bloqueo del tabla o registro con
(flock() o rlock()) que al devolver falso me ejecute de nuevo el bloqueo,
hasta que lo pueda conseguir, muchas gracias.


PortalFox :: Nada corre como un zorro
[link]http://www.portalfox.com[/link]

PortalFox - NNTP Forum Gateway

</pre>
[/quote]

Con Fox, todo se puede !!

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa