Page 1 of 1

ayuda en indices

Posted: Thu Sep 27, 2007 11:34 pm
by tomafa
tengo el siguiente problema, creo un indice compuesto por tres valores

quiero por medio de este filtrar informacion en un browse, y utilizo OrdScope(), pero no me muestra nada codigo es el siguiente

(nDSerD)->( OrdScope( 0, nKey ))
(nDSerD)->( OrdScope( 1, nKey ))
(nDSerD)->( DbGoTop() )
REDEFINE LISTBOX dbServi ;
FIELDS (nDSerD)->Servicio ;
HEADER " Servicio" ;
SIZES 95 ;
ID 102 OF oDlt UPDATE ;
ALIAS (nDSerD)->( ALIAS() )

dbServi:nLineStyle := 5
dbServi:nHeaderHeight := 30
dbServi:nLineHeight := 20
dbServi:aHJustify := { 0, 0, 0 }

dbServi:lAdjLastCol := .F.
dbServi:lAdjBrowse := .T.
dbServi:lCellStyle := .T.

nkey es la llave compuesta, alguna otra manera pero sin el set filter, que estoy haciendo mal

Posted: Fri Sep 28, 2007 12:26 am
by Marco Augusto
creo que solo te falta un select

sele ndserd
go bottom
...listbox...

Posted: Fri Sep 28, 2007 12:27 am
by Marco Augusto
perdon

select ndserd
go top

Posted: Fri Sep 28, 2007 4:27 am
by Vital
Tomafa, yo lo hago asi :

Select MAEREMIS
DbGoBottom()
Select DETREMIS
OrdSetFocus(1) // Este es mi indice
Set Scope To MAEREMIS->NUMERO,MAEREMIS->NUMERO
DbGoTop()

// Este es mi lisbox y funciona muy bien
REDEFINE LISTBOX oBrowD Fields DETREMIS->PRODUCTO,Transform(DETREMIS->CANTIDAD,"9,999"),Transform(DETREMIS->PRECIO,"99,999.99"),Transform(DETREMIS->IMPORTE,"9,999.99"),DETREMIS->NOMBRE Header "Producto","Cantidad","Precio","Importe","Nombre" ID 102 OF oDlg UpDate Alias "DETREMIS"