nRegDeslocamento lógico; padrão 1.
AdvPL GuiaDBSkip( [nReg] ) --> NilAvança ou recua na sequência lógica dos registros.
DBSkip considera ordem ativa, filtro e configuração de registros excluídos. O deslocamento padrão é um; números negativos recuam. Após ultrapassar o fim, EOF indica ausência de registro válido; não ler campos nessa posição. Ao recuar além do início, BOF sinaliza o limite. Não usar números mágicos de RecNo como substitutos desses testes: convenções variam por RDD. EDTRB identifica exclusivamente uma tabela própria de teste, já aberta com a estrutura e os direitos necessários; os exemplos não se destinam a tabelas padrão. (TOTVS, s.d., ref. 1)
DBSkip( [nReg] ) --> NilnRegDeslocamento lógico; padrão 1.
Nil; não é um indicador lógico de sucesso.
#Include "Protheus.ch"
User Function Ed340()
If Select("EDTRB") > 0
If !EDTRB->(Eof())
EDTRB->(DBSkip(1))
// Verificar novamente depois do movimento.
ConOut(cValToChar(!EDTRB->(Eof())))
EndIf
EndIf
Return NilInforma se existe registro válido depois de um avanço, sem expor campos. Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
© 2026 Usina.BR. Todos os direitos reservados. TOTVS, Protheus, Microsiga e seus respectivos logotipos são marcas de seus titulares. O AdvPL Guia é independente e utiliza citações limitadas, atribuídas e justificadas por finalidade educativa. Consulte os Termos de Uso. Termos de Uso
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.