FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour ayuda en indices
Posts: 111
Joined: Sun Aug 13, 2006 07:28 PM
ayuda en indices
Posted: Thu Sep 27, 2007 11:34 PM

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

Posts: 151
Joined: Wed Oct 12, 2005 01:03 PM
ayuda en indices
Posted: Fri Sep 28, 2007 12:26 AM

creo que solo te falta un select

sele ndserd
go bottom
...listbox...

Marco Augusto Rodriguez Manzo

FWH January 2020 Xharbour 1.2.3

MySQL 5.0.19 Fastreport



PERZO SOFT

Sistemas Personalizados
Posts: 151
Joined: Wed Oct 12, 2005 01:03 PM
ayuda en indices
Posted: Fri Sep 28, 2007 12:27 AM

perdon

select ndserd
go top

Marco Augusto Rodriguez Manzo

FWH January 2020 Xharbour 1.2.3

MySQL 5.0.19 Fastreport



PERZO SOFT

Sistemas Personalizados
Posts: 58
Joined: Mon Nov 06, 2006 06:56 AM
ayuda en indices
Posted: Fri Sep 28, 2007 04:27 AM

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"

Continue the discussion