Tempo de leitura: 2 minutos
A função DBGoTop em ADVPL posiciona no primeiro registro lógico da tabela corrente. Ela é uma das Funções de Acesso a Banco de Dados / SQL no Protheus em ADVPL.
Sintaxe:
DBGoTop()
Parâmetro(s):
Nenhum.
Observações:
- A sequência lógica depende da ordem e do filtro ativo na tabela corrente. Portanto, o primeiro registro lógico pode não ser o primeiro registro físico.
Exemplo da função DBGoTop em ADVPL: Vamos supor que nós tenhamos 5 registros na tabela SA2(Fornecedores) do TOTVS Protheus conforme os dados, nesse caso usamos a função DBGoTop para garantir o posicionamento no primeiro registro lógico de SA2, assim a mensagem no código ADVPL abaixo será: “O nome do primeiro fornecedor de SA2 é:FORNECEDOR 1“, já que foi feito o posicionamento para o início dos registros de SA2.
| FILIAL | CÓDIGO | NOME | CNPJ |
| 0101 | 000001 | FORNECEDOR 1 | 99999999999999 |
| 0101 | 000002 | FORNECEDOR 2 | 88888888888888 |
| 0101 | 000003 | FORNECEDOR 3 | 77777777777777 |
| 0101 | 000004 | FORNECEDOR 4 | 66666666666666 |
| 0101 | 000005 | FORNECEDOR 5 | 55555555555555 |
//Bibliotecas
#Include "Protheus.ch"
#INCLUDE "TBICONN.CH"
#INCLUDE "topconn.ch"
#include "TOTVS.CH"
/*/{Protheus.doc} fDBGoTop
Exemplo da função DBGoTop em ADVPL
@type function
@author Adilio Costa
@since 06/12/2023
@version 1.0
@?Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@?Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@?Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@?Conheça os Cursos e Formações do Protheus:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/
@Participe de nossas comunidades no WhatsApp:
-Comunidade Protheus Backoffice:https://chat.whatsapp.com/KMUIAjwZ6EZ6eAHsLkPTyb
-Comunidade Protheus-RH:https://chat.whatsapp.com/L5dUyAna6xU4ylG5DUgfOW
-Comunidade Protheus-Programação:https://chat.whatsapp.com/LsD6z0apdqKHlOz67bcaEn
-Comunidade Protheus-Framework:https://chat.whatsapp.com/BzUFpjaSnTC3vtsfa77jmG
|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
/*/
User Function fDBGoTop()
Local aArea := GetArea() //Salvando a área atual
//Seleciona a tabela SA2 como a área ativa
DBSelectArea("SA2")
//Seleciona o 1 índice de SA2 -> A2_FILIAL+A2_COD+A2_LOJA
SA2->(DBSetOrder(1))
//Posiciona no prímeiro registro lódigo de SA2
SA2->(DBGoTop())
FWAlertInfo("O nome do primeiro fornecedor de SA2 é:"+SA2->A2_NOME,"Função DBGoTop")
//Restaurando o ambiente salvo
RestArea(aArea)
Return
É isso aí, finalizamos aqui mais um post no Blog ProtheusAdvpl. Caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br, até um próximo post, grande abraço e fica com Deus.
Link(s) de referência(s):
