Nesse vídeo demonstraremos a utilização da função DbGoTop que serve para posicionar no primeiro registro de um alias (dependendo do índice utilizado).

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

//Bibliotecas
#Include "TOTVS.ch"
#Include "TopConn.ch"

/*/{Protheus.doc} User Function zExe126
Posiciona no primeiro registro conforme o índice usado
@type Function
@author Atilio
@since 14/12/2022
@see https://tdn.totvs.com/display/tec/DBGoTop
@obs 

    Função DbGoTop
    Parâmetros
        Não tem parâmetros
    Retorno
        Não tem retorno

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

User Function zExe126()
    Local aArea      := FWGetArea()

    //Abre o cadastro de produtos, ordenando por descrição
    DbSelectArea("SB1")
    SB1->(DbSetOrder(3)) // B1_FILIAL + B1_DESC + B1_COD

    //Pula 5 registros
    SB1->(DbSkip(5))

    //Posiciona no topo da tabela
    SB1->(DbGoTop())

    //Mostra o último produto encontrado
    FWAlertInfo("O primeiro produto conforme a descrição é '" + Alltrim(SB1->B1_DESC) + "'", "Teste DbGoTop")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++