ayuda en indices

ayuda en indices

Postby tomafa » 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
tomafa
 
Posts: 111
Joined: Sun Aug 13, 2006 7:28 pm
Location: ....

Postby Marco Augusto » 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
User avatar
Marco Augusto
 
Posts: 144
Joined: Wed Oct 12, 2005 1:03 pm
Location: Cuernacava, Morelos Mexico

Postby Marco Augusto » 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
User avatar
Marco Augusto
 
Posts: 144
Joined: Wed Oct 12, 2005 1:03 pm
Location: Cuernacava, Morelos Mexico

Postby Vital » Fri Sep 28, 2007 4: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"
Vital
 
Posts: 58
Joined: Mon Nov 06, 2006 6:56 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 123 guests