Ayuda con DBSEEK()

[gburgardt]

Hola tengo problemas para poder buscar un valor en una tabla

Código: Selecionar todos

STATIC FUNCTION nroref1(nro_ref)
local vmensaje:= space (maxcol())
// alert ('llego a la funcion con '+nro_ref)
 
USE respop VIA "DBFCMX" NEW 
ordSetFocus("nroref")
cmxSetScope(0)
cmxSetScope(1)
DBGOTOP()
nr:=IF(respop->(DBSEEK(nro_ref)),respop->nroref,'-') 
alert(nr)
IF !(nr == '-')
   vmensaje:='el numero ingresado existe'
ENDIF 
 
 @ maxrow(),00 SAY vmensaje
RETURN !Empty(vmensaje)

Y me da este error "Workarea not indexed"
Cualquier ayuda es bienvenida muchas gracias

[alxsts]

Olá!

Seja bem-vindo ao fórum gburgardt!

Não conheço o driver "DBFCMX". Não seria "DBFCDX" ?

Troque a linha

Código: Selecionar todos

USE respop VIA "DBFCMX" NEW

por

Código: Selecionar todos

USE respop VIA "DBFCDX" NEW

[gburgardt]

No the DBFCMX line is correct, because i using in others parts of code and works fine
I need only find a record with for example id = 999999 in dbf file but i dont know how

[JoséQuintas]

Código: Selecionar todos

cmxSetScope(0) 
cmxSetScope(1) 
dbGoTop()

Why?

[janio]

A mensagem de erro é AREA NÃO INDEXADA!

Ao que parece o índice não existe.

Primeiro vc deve criar o índice, assim:

USE respop NEW exclusive VIA "DBFCMX"
INDEX ON nroref TAG CHAVE1
Use
(Isto é necessário fazer apenas uma vez)

Depois:

Código: Selecionar todos

STATIC FUNCTION nroref1(nro_ref)
local vmensaje:= space (maxcol())
// alert ('llego a la funcion con '+nro_ref)
 
USE respop VIA "DBFCMX" NEW 
ordSetFocus("nroref")
DBGOTOP()
nr:=IF(respop->(DBSEEK(nro_ref)),respop->nroref,'-') 
alert(nr)
IF !(nr == '-')
   vmensaje:='el numero ingresado existe'
ENDIF 
 
 @ maxrow(),00 SAY vmensaje
RETURN !Empty(vmensaje)

[Itamar M. Lins Jr.]

Rsrsrsrs!
Tem que perguntar isso p/ quem fez o RDD!.

cmxSetScope(0)

// que comando é esse por exemplo ?

Saudações,
Itamar M. Lins Jr.