Page 1 of 1

Indice condicional

Posted: Tue Apr 04, 2006 3:53 pm
by Alvaro Urdaneta
Saludos al foro,

Tengo un programa que tiene un comportamiento distinto en FW y FWH, es referente a indices condicionales. Anexo un ejemplo:


#include "FiveWin.ch"
#include "ord.ch"

//----------------------------------------------------------------------------//

function Main()
local cNumero
local aCampos := {{ 'NUMERO', 'C', 6, 0 }}

REQUEST DBFCDX
RDDSETDEFAULT( "DBFCDX" )

SET DATE FRENCH
SET CENT ON

dbcreate( 'PRUEBA', aCampos )

use PRUEBA alias PRUEBA
APPEND BLANK
prueba->NUMERO := "100000"

APPEND BLANK
prueba->NUMERO := "200000"

// CASO 1: Con este indice funcion bien lee unicamente el numero "100000"
// INDEX ON prueba->NUMERO TAG prueba1 TO prueba

// CASO 2: Con este indice lee todos los registros
INDEX ON prueba->NUMERO TAG prueba1 TO prueba FOR !DELETED()

cNumero := "100000"

SET SCOPE TO cNumero
GO TOP
DO WHILE !eof()
msginfo( prueba->NUMERO )

DELETE
SKIP
ENDDO

CLOSE ALL

return nil

Esta aplicacion debe eliminar registros dentro de un rango utilizando un indice condicional.

Si creamos la aplicacion con el primer indice funciona ok, pero si lo creamos con el segundo indice el scope no se queda en el valor indicado y sigue hasta el final del archivo. Esto funciona bien en FW. Alguien podria darme una mano con esto ?.

Gracias.

Posted: Tue Apr 04, 2006 10:51 pm
by VeRCE
Que tal si intentas esto?

PRUEBA->(OrdScope( 0, cNumero ) )
PRUEBA->(OrdScope( 1, cNumero ) )
PRUEBA->(DBGoTop())

y para quitar el filtro

PRUEBA->(OrdScope( 0, NIL ) )
PRUEBA->(OrdScope( 1, NIL ) )

Espero te sirva

Posted: Tue Apr 04, 2006 11:27 pm
by Alvaro Urdaneta
Gracias por la respuesta, hice la prueba y funciona igual, el problema es con el indice condicional y recuerdo haber leido en un foro de xHarbour algo respecto a un bug del INDEX, es posible que eso suceda aqui. Cuando se usan indices condicionales (!DELETED()) y defines un rango se rompe este rango al eliminar algun registro dentro del rango.

Saludos