Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Pagetitle | ||||
|---|---|---|---|---|
|
Função: Found
Recupera
...
o
...
resultado
...
referente
...
a
...
última
...
operação
...
de
...
busca
...
efetuada
...
pelo
...
processamento
...
corrente.
Sintaxe
| Bloco de código | ||
|---|---|---|
| ||
Found() |
...
|
Retorno
Nome | Tipo | Descrição |
|---|---|---|
lRet |
...
lógico |
...
Retorna verdadeiro (.T.) |
...
se a última operação de busca, realizada pelo processamento corrente, obteve sucesso; caso contrário, falso (.F.). |
Exemplos
...
Pergunte(cPerg,.T.)
DbSelectArea("SA1")
DbSetOrder(1)
DbSeek(xFilial("SA1")+MVPAR01)
IF Found()
MsgInfo("Cliente encontrado")
ELSE
MsgAlert("Dados não encontrados")
ENDIF
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
user function test
local cRdd := 'TOPCONN'
local cTable := 'MYTABLE'
local aStru := {{"CPOC","C",10,0}}
local nHdl := tcLink()
if tcCanOpen(cTable)
tcDelFile(cTable)
endif
dbCreate(cTable, aStru, cRdd)
dbUseArea(.T., cRdd, cTable, (cTable), .F., .F. )
dbCreateIndex('MYINDEX', 'CPOC')
for i := 0 to 6
dbAppend(.F.)
(cTable)->CPOC := chr(65+i) //Insere caracteres de A à F
dbCommit()
next
dbGoTop()
dbSeek("D", .F.)
if Found()
msgInfo("Operação de busca (caractere 'D'): sucesso")
else
msgInfo("Operação de busca (caractere 'D'); falha")
endif
dbGoTop()
dbSeek("H", .F.)
if Found()
msgInfo("Operação de busca (caractere 'H'): sucesso")
else
msgInfo("Operação de busca (caractere 'H'): falha")
endif
dbCloseArea()
tcUnlink(nHdl)
return
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas