Found
Found() --> lRetConsulta o resultado da última busca.
Visão geral
Found informa sucesso da última operação de busca; não realiza uma nova consulta e não prova que o cursor serve para qualquer leitura posterior. O exemplo requer ordem ativa cuja expressão seja ED_COD, com dez posições, e busca a chave fictícia A preenchida até esse tamanho. Consulta Found imediatamente no mesmo contexto e sem outra busca intermediária. Não representa pesquisa de um cadastro padrão nem garante que a chave exista. EDTRB é um alias próprio de teste já aberto; ED_COD, quando usado, é campo caractere de tamanho 10 do esquema didático. (TOTVS, s.d., ref. 1)
Sintaxe
Found() --> lRetRetorno
Lógico do sucesso da última busca.
Exemplo comentado
#Include "Protheus.ch"
User Function Ed390()
Local lBusca
Local lUltima
// EDTRB propria; ordem ativa ED_COD de tamanho 10.
If Select("EDTRB") > 0
lBusca := EDTRB->(DBSeek(PadR("A",10), .F.))
lUltima := EDTRB->(Found())
ConOut(cValToChar(lBusca))
ConOut(cValToChar(lUltima))
EndIf
Return NilDois indicadores da busca recém-realizada, dependentes da tabela; 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.
- Usar somente tabela própria de teste com estrutura conhecida. Qualificar alias, conferir posição do registro e administrar alterações de contexto conforme o contrato do chamador.
- Em revisão: exemplo editorial não compilado nem executado em Protheus. Conferir includes, release, RDD e contexto antes de homologar.
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.