busqueda Incremental

[carlos]

Saudos a todos
Sucede, que tengo un TEdit donde voy tecleando el nombre de un producto
x, cada vez que que teclee una letra quiero que se vaya mostrando en un
brow los nombres de los productos que van coincidiendo con lo que voy
tecleando el el TEdit.
Por favor, si alguien tiene un pequeño ejemplo, le estare eternamente
agradecido. no tengo la menor idea de como hacerlo,, please help
Gracias de antemanos

[ignacio]

Carlos,
En el evento OnChange del TEdit establecer el filtro en el Browse. No es muy
complicado.
Un saludo,
"Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
news:42aa2b23$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Saudos a todos
>
> Sucede, que tengo un TEdit donde voy tecleando el nombre de un producto x,
> cada vez que que teclee una letra quiero que se vaya mostrando en un brow
> los nombres de los productos que van coincidiendo con lo que voy tecleando
> el el TEdit.
>
> Por favor, si alguien tiene un pequeño ejemplo, le estare eternamente
> agradecido. no tengo la menor idea de como hacerlo,, please help
>
> Gracias de antemanos

[carlos]

Si mira, yo lo estoy tratando de hacer precisamente con el evento onchange
del TEdit,, pero me disculpa por decirte que no tengo la menor idea de como
hacerlo
Si pudiera solo escribirme un par de lienas con la idea central, te lo
agradeceria muchisimo
Saludos
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:42ad3540$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Carlos,
>
> En el evento OnChange del TEdit establecer el filtro en el Browse. No es
muy
> complicado.
>
> Un saludo,
>
> "Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
> news:42aa2b23$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> > Saudos a todos
> >
> > Sucede, que tengo un TEdit donde voy tecleando el nombre de un producto
x,
> > cada vez que que teclee una letra quiero que se vaya mostrando en un
brow
> > los nombres de los productos que van coincidiendo con lo que voy
tecleando
> > el el TEdit.
> >
> > Por favor, si alguien tiene un pequeño ejemplo, le estare eternamente
> > agradecido. no tengo la menor idea de como hacerlo,, please help
> >
> > Gracias de antemanos
>
>

[jasm.nospam]

Carlos,
Una orientacion de por donde van los tiros:
METHOD Edit1Change( oSender ) CLASS TForm13
Articulo->( DBSeek( ::oEdit1:Value, .t. ) )
::oBrowse:Refresh()
RETURN Nil
Saludos
Jose Alfonso Suarez
Carlos Cedeño Vera escribió:
> Si mira, yo lo estoy tratando de hacer precisamente con el evento onchange
> del TEdit,, pero me disculpa por decirte que no tengo la menor idea de como
> hacerlo
>
> Si pudiera solo escribirme un par de lienas con la idea central, te lo
> agradeceria muchisimo
>
> Saludos
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:42ad3540$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
>>Carlos,
>>
>>En el evento OnChange del TEdit establecer el filtro en el Browse. No es
>
> muy
>
>>complicado.
>>
>>Un saludo,
>>
>>"Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
>>news:42aa2b23$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>
>>>Saudos a todos
>>>
>>>Sucede, que tengo un TEdit donde voy tecleando el nombre de un producto
>
> x,
>
>>>cada vez que que teclee una letra quiero que se vaya mostrando en un
>
> brow
>
>>>los nombres de los productos que van coincidiendo con lo que voy
>
> tecleando
>
>>>el el TEdit.
>>>
>>>Por favor, si alguien tiene un pequeño ejemplo, le estare eternamente
>>>agradecido. no tengo la menor idea de como hacerlo,, please help
>>>
>>>Gracias de antemanos
>>
>>
>
>

[carlos]

Para el ejmplo que expongo, sucede lo siguiente,
METHOD FormCreate( oSender ) CLASS TBuscar
LOCAL cFiltro
::oForm := Application:oMainForm
WITH OBJECT ::oForm:oDSEquipos
:lShared := .T.
if !:lOpen
:lOpen := .T.
EndIF
:Select()
cFiltro := DBFILTER()
:ClearFilTer()
:goTop()
*:OrdSetfocus(Iif(::oRadioMenu1:nIndex == 1,"BYIDINV","BYDESCRIP"))
//,iif(::oRadioMenu1:nIndex == 3,"BYDESCRIP""))
END
RETURN Nil
METHOD Buscar() CLASS TBuscar /////// este Methodo lo ejecuto desde el
Evento onchange del TEdit(::oEdDescrip)
LOCAL lDone
with object ::oForm:oDSEquipos //:Locate(::oEdDescrip:Value,.T.)
if !:lOpen
:lOpen := .T.
EndIf
::oBrFind:aCols[2]:cFilter := alltrim(::oEdDescrip:Value)
::oBrfind:Refresh(.t.)
END
RETURN NIL
Ahora bien,, no me funciona esto. Tambien hay algo curioso, cuando hago la
llamada a este formulario donde buscare de la forma que te explico, se
mantienen los datos filtrados como lo tengo en el formulario llamante,,
quito el filtro de varias formas y nada,, dbclearFilter(),
::oDSEquipos:CliearFilter(), Set Filter to,, y nada me hace que muestre los
datos sin filtrado....... can you help please???
GRacias de ante manos
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:42ad3540$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Carlos,
>
> En el evento OnChange del TEdit establecer el filtro en el Browse. No es
muy
> complicado.
>
> Un saludo,
>
> "Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
> news:42aa2b23$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> > Saudos a todos
> >
> > Sucede, que tengo un TEdit donde voy tecleando el nombre de un producto
x,
> > cada vez que que teclee una letra quiero que se vaya mostrando en un
brow
> > los nombres de los productos que van coincidiendo con lo que voy
tecleando
> > el el TEdit.
> >
> > Por favor, si alguien tiene un pequeño ejemplo, le estare eternamente
> > agradecido. no tengo la menor idea de como hacerlo,, please help
> >
> > Gracias de antemanos
>
>

[mcastabaron]

Hola Carlos,
En una pequeña agenda tengo lo que estas buscado, mira a ver si te sirve.
Saludos. Miguel Castaño.
METHOD Edit1Change( oSender ) CLASS TForm1
LOCAL X
X = ::oEdit1 : cText
//
IF len(alltrim(x)) > 0
SET FILTER TO AT(RTRIM(X),Agenda->NOMBRE) != 0
ELSE
SET FILTER TO
ENDIF
//
::ODBBrowse1:Refresh()
::ODBBrowse1:GoTop()
RETURN Nil
"Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
news:[email=42ade76e@ozsrvnegro.ozlan.local...]42ade76e@ozsrvnegro.ozlan.local...[/email]
> Para el ejmplo que expongo, sucede lo siguiente,
>
>
> METHOD FormCreate( oSender ) CLASS TBuscar
> LOCAL cFiltro
> ::oForm := Application:oMainForm
> WITH OBJECT ::oForm:oDSEquipos
> :lShared := .T.
> if !:lOpen
> :lOpen := .T.
> EndIF
> :Select()
> cFiltro := DBFILTER()
> :ClearFilTer()
> :goTop()
> *:OrdSetfocus(Iif(::oRadioMenu1:nIndex == 1,"BYIDINV","BYDESCRIP"))
> //,iif(::oRadioMenu1:nIndex == 3,"BYDESCRIP""))
> END
> RETURN Nil
>
> METHOD Buscar() CLASS TBuscar /////// este Methodo lo ejecuto desde el
> Evento onchange del TEdit(::oEdDescrip)
> LOCAL lDone
> with object ::oForm:oDSEquipos //:Locate(::oEdDescrip:Value,.T.)
> if !:lOpen
> :lOpen := .T.
> EndIf
> ::oBrFind:aCols[2]:cFilter := alltrim(::oEdDescrip:Value)
> ::oBrfind:Refresh(.t.)
> END
>
> RETURN NIL
>
> Ahora bien,, no me funciona esto. Tambien hay algo curioso, cuando hago
la
> llamada a este formulario donde buscare de la forma que te explico, se
> mantienen los datos filtrados como lo tengo en el formulario llamante,,
> quito el filtro de varias formas y nada,, dbclearFilter(),
> ::oDSEquipos:CliearFilter(), Set Filter to,, y nada me hace que muestre
los
> datos sin filtrado....... can you help please???
>
> GRacias de ante manos
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:42ad3540$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> > Carlos,
> >
> > En el evento OnChange del TEdit establecer el filtro en el Browse. No es
> muy
> > complicado.
> >
> > Un saludo,
> >
> > "Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el
mensaje
> > news:42aa2b23$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> > > Saudos a todos
> > >
> > > Sucede, que tengo un TEdit donde voy tecleando el nombre de un
producto
> x,
> > > cada vez que que teclee una letra quiero que se vaya mostrando en un
> brow
> > > los nombres de los productos que van coincidiendo con lo que voy
> tecleando
> > > el el TEdit.
> > >
> > > Por favor, si alguien tiene un pequeño ejemplo, le estare eternamente
> > > agradecido. no tengo la menor idea de como hacerlo,, please help
> > >
> > > Gracias de antemanos
> >
> >
>
>

[carlos]

Miguel
Muchas gracias
"Miguel C." <mcastabaron@cajamar.es> escribió en el mensaje
news:[email=42ae8a05@ozsrvnegro.ozlan.local...]42ae8a05@ozsrvnegro.ozlan.local...[/email]
>
> Hola Carlos,
> En una pequeña agenda tengo lo que estas buscado, mira a ver si te sirve.
> Saludos. Miguel Castaño.
>
> METHOD Edit1Change( oSender ) CLASS TForm1
>
> LOCAL X
> X = ::oEdit1 : cText
> //
> IF len(alltrim(x)) > 0
> SET FILTER TO AT(RTRIM(X),Agenda->NOMBRE) != 0
> ELSE
> SET FILTER TO
> ENDIF
> //
> ::ODBBrowse1:Refresh()
> ::ODBBrowse1:GoTop()
>
>
> RETURN Nil
>
> "Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el mensaje
> news:[email=42ade76e@ozsrvnegro.ozlan.local...]42ade76e@ozsrvnegro.ozlan.local...[/email]
> > Para el ejmplo que expongo, sucede lo siguiente,
> >
> >
> > METHOD FormCreate( oSender ) CLASS TBuscar
> > LOCAL cFiltro
> > ::oForm := Application:oMainForm
> > WITH OBJECT ::oForm:oDSEquipos
> > :lShared := .T.
> > if !:lOpen
> > :lOpen := .T.
> > EndIF
> > :Select()
> > cFiltro := DBFILTER()
> > :ClearFilTer()
> > :goTop()
> > *:OrdSetfocus(Iif(::oRadioMenu1:nIndex ==
1,"BYIDINV","BYDESCRIP"))
> > //,iif(::oRadioMenu1:nIndex == 3,"BYDESCRIP""))
> > END
> > RETURN Nil
> >
> > METHOD Buscar() CLASS TBuscar /////// este Methodo lo ejecuto desde
el
> > Evento onchange del TEdit(::oEdDescrip)
> > LOCAL lDone
> > with object ::oForm:oDSEquipos //:Locate(::oEdDescrip:Value,.T.)
> > if !:lOpen
> > :lOpen := .T.
> > EndIf
> > ::oBrFind:aCols[2]:cFilter := alltrim(::oEdDescrip:Value)
> > ::oBrfind:Refresh(.t.)
> > END
> >
> > RETURN NIL
> >
> > Ahora bien,, no me funciona esto. Tambien hay algo curioso, cuando hago
> la
> > llamada a este formulario donde buscare de la forma que te explico, se
> > mantienen los datos filtrados como lo tengo en el formulario llamante,,
> > quito el filtro de varias formas y nada,, dbclearFilter(),
> > ::oDSEquipos:CliearFilter(), Set Filter to,, y nada me hace que muestre
> los
> > datos sin filtrado....... can you help please???
> >
> > GRacias de ante manos
> >
> > "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el
mensaje
> > news:42ad3540$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> > > Carlos,
> > >
> > > En el evento OnChange del TEdit establecer el filtro en el Browse. No
es
> > muy
> > > complicado.
> > >
> > > Un saludo,
> > >
> > > "Carlos Cedeño Vera" <carlos@labodegadeclimas.com> escribió en el
> mensaje
> > > news:42aa2b23$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> > > > Saudos a todos
> > > >
> > > > Sucede, que tengo un TEdit donde voy tecleando el nombre de un
> producto
> > x,
> > > > cada vez que que teclee una letra quiero que se vaya mostrando en un
> > brow
> > > > los nombres de los productos que van coincidiendo con lo que voy
> > tecleando
> > > > el el TEdit.
> > > >
> > > > Por favor, si alguien tiene un pequeño ejemplo, le estare
eternamente
> > > > agradecido. no tengo la menor idea de como hacerlo,, please help
> > > >
> > > > Gracias de antemanos
> > >
> > >
> >
> >
>
>