ayuda en indices

Post Reply
tomafa
Posts: 111
Joined: Sun Aug 13, 2006 7:28 pm
Location: ....
Contact:

ayuda en indices

Post 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
Marco Augusto
Posts: 122
Joined: Wed Oct 12, 2005 1:03 pm
Location: Cuernacava, Morelos Mexico

Post by Marco Augusto »

creo que solo te falta un select

sele ndserd
go bottom
...listbox...
Marco Augusto Rodriguez Manzo
fwh 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport

PERZO SOFT
Sistemas Personalizados
Marco Augusto
Posts: 122
Joined: Wed Oct 12, 2005 1:03 pm
Location: Cuernacava, Morelos Mexico

Post by Marco Augusto »

perdon

select ndserd
go top
Marco Augusto Rodriguez Manzo
fwh 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport

PERZO SOFT
Sistemas Personalizados
Vital
Posts: 58
Joined: Mon Nov 06, 2006 6:56 am

Post 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"
Post Reply