Tempo de leitura: 2 minutos
A função DBGoTop 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 |
#include 'protheus.ch'
#INCLUDE "TBICONN.CH"
#Define QLIN Chr(10)+Chr(13)
/*{Protheus.doc} User Function PADGoTop
(Essa função tem por finalidade mostrar a função de Acesso a Banco de Dados / SQL no Protheus DBGoTop em ADVPL)
@type Function
@author Adilio Costa
@since 06/12/2023
@version Protheus 12.1.2210
@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 do ProtheusAdvpl:
https://hotmart.com/pt-br/club/protheusadvpl
|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
*/
User Function PADGoTop()
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())
MsgInfo("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):
