In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

busqueda Incremental

Foro público de Xailer en español
Responder
carlos
Mensajes: 126
Registrado: Mié Feb 02, 2005 7:31 pm

busqueda Incremental

Mensaje por 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
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9442
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

busqueda Incremental

Mensaje por 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
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
carlos
Mensajes: 126
Registrado: Mié Feb 02, 2005 7:31 pm

busqueda Incremental

Mensaje por 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
Mensajes: 203
Registrado: Vie Abr 01, 2005 9:05 am

busqueda Incremental

Mensaje por 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
Mensajes: 126
Registrado: Mié Feb 02, 2005 7:31 pm

busqueda Incremental

Mensaje por 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
Mensajes: 155
Registrado: Vie Mar 14, 2008 7:25 am
Ubicación: Almería

busqueda Incremental

Mensaje por 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
Mensajes: 126
Registrado: Mié Feb 02, 2005 7:31 pm

busqueda Incremental

Mensaje por 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
> > >
> > >
> >
> >
>
>
Responder