PC Toledo

Enviado: **04 Mar 2015 14:18**

Hola tengo problemas para poder buscar un valor en una tabla

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

Enviado: **04 Mar 2015 15:00**

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

Enviado: **04 Mar 2015 21:54**

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

Enviado: **05 Mar 2015 03:11**

Código: Selecionar todos

cmxSetScope(0) 
cmxSetScope(1) 
dbGoTop()

Why?

Enviado: **05 Mar 2015 08:27**

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)

Enviado: **05 Mar 2015 09:12**

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

cmxSetScope(0)

// que comando é esse por exemplo ?

Saudações,
Itamar M. Lins Jr.

PC Toledo

Ayuda con DBSEEK()

Ayuda con DBSEEK()

Ayuda con DBSEEK()

Ayuda con DBSEEK()

Ayuda con DBSEEK()

Ayuda con DBSEEK()

Ayuda con DBSEEK()