Tipo: Processamento
Tenta efetuar um lock no registro do banco de dados informado.
Sintaxe
RecLock(cAlias,lAdiciona)
Parâmetros
cAlias – Alias do Banco de Dados
lAdiciona – .T. adiciona registro ao Banco de Dados
Retorna
ExpL1 – Valor Lógico de Retorno (.T. ou .F.)
Comentários
Esta função tenta colocar o registro corrente do arquivo cAlias em lock.
É necessário colocar um registro em lock sempre que se for efetuar umaatualização no mesmo, como um comando Replace ou um Delete. Caso lAdiciona = .T., a função RecLock inclui (com um Append Blank) um registro no arquivo cAlias. Se a operação for bem sucedida, retorna .T.
Exemplo
// Exclusão de Registro
// Com lAdiciona = .F.
If ! RecLock(“SF1”,.F.)
@ 1,1 Say “Registro em uso por outra estação”
Loop
EndIf
dbDelete()
dbUnLock()
Com ExpL2 = .T.
// Inclusão de Registro
RecLock(“SF1”,.T.)
Replace F1_TIPO With cTipo, F1_DOC With cNFiscal,;
F1_SERIE With cSerie ,F1_EMISSAO With dDEmissao,;
F1_LOJA With cLoja ,F1_FORNECE With Subs(cA100For,1,6)
dbUnLock()
Após a atualização do registro, deve-se executar a função MsUnlock().
Estude para provas de certificações em TI com os simulados Bynem