FiveTech Software tech support forums

Según yo... nunca, bajo ninguna circunstancia debe de aparecer me msgstop... lo curioso es que a veces me aparece a veces no. Siempre en la misma base de datos.

Esta es una función que uso para asegurarme de puedo agregar o bloquear un registros antes de actualizarlo.

Saludos
Fernando




Function Seguro( cAlias, cTipo) // B - Rlock A - Append Blank
local nSegundos := 1

Do Case
Case cTipo == "B"

If ( cAlias)->( DbRlock() )
Return TRUE
Else
Do While ( cAlias )->( !DbRlock() )
nSegundos++
Inkey(1)

If ( cAlias )->( DbRlock() )
Return TRUE
Endif

If nSegundos >= 5
MsgAlert("No se puede actualizar el registro"+Chr(13)+;
"Reintentar nuevamente")
nSegundos := 1
Endif
EndDo
Endif


Case cTipo == "A"

( cAlias )->( dbappend() )
If !NetErr()
Return TRUE
Endif

Do While TRUE
nSegundos++
Inkey(1)

( cAlias )->( dbappend() )
If !Neterr()
Return TRUE
Endif

If nSegundos >= 5
MsgAlert("No se puede actualizar el registro"+Chr(13)+;
"Reintentar nuevamente")
nSegundos := 1
Endif

EndDo

EndCase

MsgStop("Código de seguridad. Tipo "+cTipo+" Alias "+( cAlias ) +chr(13)+;
"REPORTELO AL PROGRAMADOR")
Return FALSE

Fleal, nose si los valores A y B son dados o si son basados en algo, pero si el valor entrado es diferente a alguno de estos 2 A y B, no lo validara el CASE y pasara directo al MSSTOP(), es lo unico que veo de extraño, faltaria saber de donde provienen los valores de la variable cTipo...

Hola,

1. primero, no puedes bloquear el registro, entoces ingresas en el DO WHILE
2.- en el IF ( cAlias )->( DbRlock() ) sigue sin poder bloquearse
3.- pero justo despues del IF se libera el registro y entonces cuando vuelve a DO WHILE
ya no cumple la condicion y sale del DO WHILE, sale de CASE y va a lo que queda del codigo posterior al CASE

Code: Select all  Expand view

Do While ( cAlias )->( !DbRlock() )
nSegundos++
Inkey(1)

If ( cAlias )->( DbRlock() )
Return TRUE
Endif

If nSegundos >= 5
MsgAlert("No se puede actualizar el registro"+Chr(13)+;
"Reintentar nuevamente")
nSegundos := 1
Endif
EndDo


Gracias a todos por los comentarios.
He notado que de 12 DBFs en las que uso ésta función. Siempre falla en una sola. Entonces, voy a revisar por que solo falla en esa DBF

Fernando.