FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Búsqueda con TSBrowse
Posts: 14
Joined: Fri Jan 05, 2007 02:14 PM
Búsqueda con TSBrowse
Posted: Mon Dec 14, 2009 06:34 PM

Estimados colegas,
Estoy utilizando tsbrowse 8.0. Este es un gragmento de código que hecho:

DBSelectArea( "CODPOST" )
cTag:= CODPOST->( OrdName() )
CODPOST->( OrdSetFocus( "CP_LOCA" ) )
DBGoTop()

DEFINE DIALOG oDlg RESOURCE "DLG_HELPER" FONT oFtes:SET(1) TITLE "Localidades - Listado Total"

  REDEFINE BROWSE oBrw ID 101 OF oDlg FONT oFtes:SET(1)

     ADD COLUMN TO oBrw ;
        DATA FieldWBlock( "CP", Select() ) ;
        Header "CP" ;
        ALIGN DT_CENTER, DT_CENTER ;
        WIDTH 50 pixels ;
        3dLook TRUE, TRUE

     ADD COLUMN TO oBrw ;
        DATA FieldWBlock( "SP", Select() ) ;
        Header "SP" ;
        ALIGN DT_CENTER, DT_CENTER ;
        WIDTH 50 pixels ;
        3dLook TRUE, TRUE

     ADD COLUMN TO oBrw ;
        DATA FieldWBlock( "LOCALIDAD", Select() ) ;
        Header "Localidad" ;
        ALIGN DT_LEFT, DT_CENTER ;
        WIDTH 263 pixels ;
        3dLook TRUE, TRUE

     ADD COLUMN TO oBrw ;
        DATA FieldWBlock( "DENO_PROV", Select() ) ;
        Header "Provincia" ;
        ALIGN DT_LEFT, DT_CENTER ;
        WIDTH 213 pixels ;
        3dLook TRUE, TRUE

     oBrw:cAlias    := "CODPOST"
     oBrw:lSeek     := .T.
     oBrw:nColOrder := 3
     oBrw:cOrderType:= "C"
     oBrw:lNoHScroll:=.T.
     oBrw:lNoVScroll:=.F.
     oBrw:nHeightCell += 5
     oBrw:nHeightHead += 9
     oBrw:lNoResetPos := .F.
     oBrw:SetIndexCols( 1, 2, 3 )
     oBrw:aColumns[1]:cOrder:= "CP_ID"
     oBrw:aColumns[2]:cOrder:= "CP_ID"
     oBrw:aColumns[3]:cOrder:= "CP_LOCA"

     oBrw:ChangeFont( oFtes:SET(2),,2 )
     oBrw:Look3d( .T., , , .T. )
     oBrw:SetColor( { CLR_TEXT,  CLR_PANE,   CLR_HEADF, CLR_HEADB },;
                     { CLR_BLACK, CLR_AZUL_1, CLR_WHITE, CLR_BLUE  } )

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT oBrw:upStable() ;
VALID( oFtes:END(), .T. )

Al aparecer este dialogo con este browse ordenado por localidad, uno comienza a tipear pero no realiza ninguna búsqueda, ahora si se cambia el órden del ínidice a código postal y luego se lo vuelve a cambiar por Localidad (como cuando inicia), si busca correctamente.
Estoy utilizando ADS Local 9, los índices son .CDX.
Espero que alguien me pueda ayudar.
Saludos y muchas gracias.

Fernando Monteporzi.
MegaSoft.
Santa Fe - Argentina

Saludos

Fernando.-
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Búsqueda con TSBrowse
Posted: Mon Dec 21, 2009 04:24 PM
Hola Fernando:
fmontepo wrote: Al aparecer este dialogo con este browse ordenado por localidad, uno comienza a tipear pero no realiza ninguna búsqueda, ahora si se cambia el órden del ínidice a código postal y luego se lo vuelve a cambiar por Localidad (como cuando inicia), si busca correctamente.
Después de: oBrw:aColumns[3]:= "CP_LOCA", agrega la siguiente instrucción:
oBrw:SetOrder(3)

Un abrazo.
manuelmercado at prodigy dot net dot mx
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: Búsqueda con TSBrowse
Posted: Mon Dec 21, 2009 08:32 PM

Hola Manuel

Alguna novedad con la ultima version de la tsbrowse?

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Búsqueda con TSBrowse
Posted: Tue Dec 22, 2009 07:37 PM
Hola Patricio:
Patricio Avalos Aguirre wrote:Alguna novedad con la ultima version de la tsbrowse?

Dame tu correo para enviarte TSBrowse V.9.0 Beta para sus últimas pruebas.

Un abrazo.
manuelmercado at prodigy dot net dot mx

Continue the discussion