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.

Filtrar una base de datos

Foro público de Xailer en español
Responder
Armando Ruiz
Mensajes: 12
Registrado: Jue May 15, 2008 4:48 am

Filtrar una base de datos

Mensaje por Armando Ruiz »

Hola a todos,
Les pido su ayuda para poder elaborar un filtrado en una base de datos, los
datos para el filtrado los tomare de los TEdit que ponga en mi forma, una
vez filtrado quiero mandar un reporte con unicamente los datos filtrados, me
podrian decir como hacer esto?
Gracias
Armando Ruiz
Arriba
Avatar de Usuario
Carlos Ortiz
Mensajes: 873
Registrado: Mié Jul 01, 2009 5:44 pm
Ubicación: Argentina - Córdoba
Contactar:
Contactar Carlos Ortiz

Filtrar una base de datos

Mensaje por Carlos Ortiz »

METHOD Button1Click( oSender ) CLASS TFrmArticulos
local filtro:=""
::X_NIDMARC:=::oDSBusqueda:nidmarc
::oDbf:select()
if !empty(::oDSBusqueda:nidmarc)
// MARCAS
filtro := str(Busqueda->nidmarc)+"=articulos->nidmarc.and."
endif
if !empty(::oDSBusqueda:nidfabr)
// FABRICANTES
filtro := filtro + str(Busqueda->nidfabr)+"=articulos->nidfabr.and."
endif
filtro:=alltrim(filtro)
if upper(right(filtro,5))=".AND."
filtro:=pad(filtro,len(filtro)-5)
endif
::oDbf:Filter(filtro) //primer filter
::oBrw:gotop()
::oBrw:Refresh(.t.)
RETURN .t.
Arriba
Responder

Volver a “Xailer Spanish”