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() --> lRet
|
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
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
Pergunte(cPerg,.T.)DbSelectArea(“SA1”)DbSetOrder(1)DbSeek(xFilial(“SA1”)+MVPAR01)IF Found() MsgInfo(“Cliente encontrado”)ELSE MsgAlert(“Dados não encontrados”)ENDIF |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas