Búsqueda con TSBrowse

[fmontepo]

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

[mmercado]

Hola Fernando:

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]:cOrder:= "CP_LOCA", agrega la siguiente instrucción:
oBrw:SetOrder(3)

Un abrazo.

[Patricio Avalos Aguirre]

Hola Manuel

Alguna novedad con la ultima version de la tsbrowse?

[mmercado]

Hola Patricio:

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.