:) VIVA O VFP :)

Segue a solução:

Para travar:

Select RecNo() As Registro, RLock() As Trava From Tabela Where Codigo = 1 Into Cursor Resultado
If Resultado.Trava = .F.
   MessageBox("Registro em uso por outro usuário")
   Return .F.
EndIf

Para destravar:

UnLock Record Resultado.Registro In Tabela

E fim de papo! :)

Alguém vê algo de ruim neste código?