>What I did :
>
>DEFINE CLASS TitularesDocumentosEnvironment AS SPIEnvironment
> FUNCTION LoadCursors()
> DIMENSION this.aCursors[2]
> this.aCursors[1] = 'v_Titulares_Documentos'
> this.aCursors[2] = 'v_Titulares_Documentos_Todos'
> ENDFUNC
>
> FUNCTION Init()
> LOCAL luRetVal, lnSelect
> luRetVal = EVAL(This.ParentClass+"::Init()")
> lnSelect = SELECT()
> SELECT v_Titulares_Documentos
> INDEX ON STR({^2100-12-31} - dt_documento, 5) TAG DATA
> INDEX ON TiraAcento(UPPER(LEFT(rf_documento, 50))) TAG REFERENCIA
> INDEX ON nu_registro TAG REGISTRO
> INDEX ON od_tipo_documento + STR({^2100-12-31} - dt_documento, 5) TAG TIPO
> SET ORDER TO TAG TIPO
> SELECT (lnSelect)
> ENDFUNC
>
>ENDDEFINE

José,

I am afraid I can't go any further. I tried similar code in VFP 5 and all is fine. Don't have VFP6 yet.

José