Pular para o conteúdo
Início » Advpl RecLock

Advpl RecLock

    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 uma
    atualizaçã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().