Nesse vídeo demonstraremos a utilização da função IsLocked, que serve para validar se um registro esta travado.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "Totvs.ch"

/*/{Protheus.doc} zExe311
Valida se um registro esta travado
@type  Function
@author Atilio
@since 23/02/2023
@obs 
    Função IsLocked
    Parâmetros
        Recebe o alias
        Recebe o recno
    Retorno
        Retorna .T. se o registro esta travado

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe311()
	Local aArea      := FWGetArea()
    Local nRecAtu    := 0
    
    DbSelectArea('SB1')
    SB1->(DbSetOrder(1)) //B1_FILIAL + B1_COD
    SB1->(DbGoTop())

    //Se conseguir posicionar no produto
    If SB1->( MsSeek(FWxFilial('SB1') + 'F0003'))
        //Busca o Recno atual
        nRecAtu := SB1->(RecNo())

        //Trava o registro para atualizações
        RecLock('SB1', .F.)

        //Valida se o registro já foi travado
        If IsLocked("SB1", nRecAtu)
            FWAlertInfo("O registro já foi travado anteriormente!", "Teste IsLocked")
        Else
            FWAlertInfo("O registro esta disponível para ser travado!", "Teste IsLocked")
        EndIf

        //Destrava o registro
        SB1->(MsUnlock())
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++