Página 1 de 1

Filtrar una base de datos

Publicado: Mié Jul 30, 2008 2:38 am
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

Filtrar una base de datos

Publicado: Jue Jul 31, 2008 5:43 am
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.