bBlockBloco por registro.
AdvPL GuiaDBEval( <bBlock>, [bFirstCondition], [bSecondCondition], [nCount], [nRecno], [lRest] ) --> NilAvalia um bloco para os registros do escopo escolhido.
DBEval executa o bloco para registros segundo condições e limites informados. Seu retorno é Nil, não uma lista de resultados. O exemplo conta no máximo três registros a partir de uma navegação de teste, sem escrever campos. Condições de escopo e estado de ordem/filtro devem ser definidos pelo chamador; não esconder uma atualização em massa num callback descrito como leitura. 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)
DBEval( <bBlock>, [bFirstCondition], [bSecondCondition], [nCount], [nRecno], [lRest] ) --> NilbBlockBloco por registro.
bFirstConditionPrimeira condição de escopo.
bSecondConditionSegunda condição de escopo.
nCountLimite de registros.
nRecnoRegistro específico no escopo.
lRestOpção de processamento dos registros restantes.
Nil; não é um indicador lógico de sucesso.
#Include "Protheus.ch"
User Function Ed331()
Local nContagem := 0
// Somente tabela propria, sem edicoes pendentes.
If Select("EDTRB") > 0
EDTRB->(DBGoTop())
EDTRB->(DBEval({|| nContagem++},,,3))
ConOut(cValToChar(nContagem))
EndIf
Return NilContagem esperada entre 0 e 3, conforme dados e filtro; a posição do alias é alterada. 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.