No vídeo de hoje, vamos demonstrar em como buscar o último registro (RecNo) cadastrado em uma tabela.

A dúvida de hoje, nos perguntaram, como buscar o último registro cadastrado em uma tabela independente do índice usado.

Pensando nisso, montamos esse exemplo, onde demonstramos em como usar a função LastRec.

Segue abaixo o vídeo exemplificando:

E abaixo o código fonte desenvolvido:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zVid0113
Exemplo de como buscar o último registro de uma tabela
@type  Function
@author Atilio
@since 27/03/2024
/*/

User Function zVid0113()
    Local aArea     := FWGetArea()
    Local cTabAlias := ""
    Local nUltRegis := 0

    //Pede para o usuário informar um alias de tabela
    cTabAlias := FWInputBox("Informe um alias de tabela (ex.: SB1, SA2, DA0):")
    cTabAlias := Left(Upper(cTabAlias), 3)

    //Se a tabela existir
    If AvExisteTab({cTabAlias})

        //Abre a tabela, e pega o último registro
        DbSelectArea(cTabAlias)
        nUltRegis := (cTabAlias)->(LastRec())

        //Mostra uma mensagem
        FWAlertSuccess("O último registro na tabela '" + cTabAlias + "' é o de número '" + cValToChar(nUltRegis) + "'!", "Sucesso")

    Else
        FWAlertError("A tabela '" + cTabAlias + "' não existe!", "Falha")
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheusTLPP