AYUDA URGENTE!!! INDICES NTX

[prm_pedro]

HOLA A TODO COMO PUEDO FILTAR UNA DBF POR ENDICES EN FWPPC


LO UNIC QUE TENGO ES LO SIGUIENTE:

USE (curdir()+'\BASES\'+"CLIENTES.DBF") NEW

PERO YO NECESITO ALGO ASI

USE (curdir()+'\BASES\'+"CLIENTES.DBF") INDEX "INDEX1.NTX" NEW

Y AS VES COMO HAGO UN FILTRO





dbsetorder(1)
dbgotop()
IF dbseek(cart)
dbgoto(RecNo())
IF BASETMP->(RLOCK())
IF cCjaoPza = 'C' //cajas
BASETMP->cantidad +=(ncant*nuni) //sumamos la conversion de cajas a piezas
ELSE //piezas
BASETMP->cantidad += ncant
ENDIF
BASETMP->TOTAL += ntotal
basetmp->(dbcommitall())
basetmp->(dbunlock())
ENDIF
ENDIF

ALGO DE ESTO PERO NO LO PUEDO HACER EN UN POCKET PC

ESPERO Y ALGUIEN ME PUEDA AYUDAR

[Antonio Linares]

Pedro,

> USE (curdir()+'\BASES\'+"CLIENTES.DBF") INDEX "INDEX1.NTX" NEW

Puedes hacerlo perfectamente. Primero debes tener el índice NTX creado:

USE (curdir()+'\BASES\'+"CLIENTES.DBF") NEW

INDEX ON NombreCampo TO "INDEX1.NTX"

SET INDEX TO "INDEX1.NTX"

Es preferible que uses índices CDXs ya que usas un sólo fichero para todos los índices:

REQUEST DBFCDX

USE (curdir()+'\BASES\'+"CLIENTES.DBF") VIA "DBFCDX" NEW

INDEX ON NombreCampo TO "TagNombre"