[[Category:MACRO]]
== Descripción ==
Define el filtro para el Formulario correspondiente de acuerdo al atributo genérico txtFiltro y le aplica la serie de atributos en forma de filtro.
== Biblioteca ==
FazzGlassMcr
== Composición ==
== Código ==
<small><pre>
function ActivaFiltroProductosGeneral (oEvent) as boolean

Dim strQRYSearch As String
Dim oFiltroDB	As String
Dim oConnection As Object
Dim oForm 		As Object
Dim oControl	As String
Dim oFiltro		As String

	TextoStatusBar("Aguarde un momento. Consulta en curso")
	oForm 		= oEvent.Source.Model.Parent
	oControl	= oEvent.Source.Model.Name
	oFiltro		= oForm.getByName(oControl).CurrentValue
	oFiltroDB	= ""
	if trim(oFiltro) <> "" Then
		oFiltroDB	= oFiltroDB & "`ProductoID` IN (SELECT productos.ProductoID FROM productos WHERE ProductoID LIKE '%"
		oFiltroDB	= oFiltroDB & oFiltro
		oFiltroDB	= oFiltroDB & "%' OR ProveedorID LIKE '%"
		oFiltroDB	= oFiltroDB & oFiltro
		oFiltroDB	= oFiltroDB & "%' OR Descripcion LIKE '%"
		oFiltroDB	= oFiltroDB & oFiltro
		oFiltroDB	= oFiltroDB & "%' OR CategoriaID LIKE '%"
		oFiltroDB	= oFiltroDB & oFiltro
		oFiltroDB	= oFiltroDB & "%')"
	end if
	oForm.Filter	= oFiltroDB
	'MsgBox(oForm.Filter)
	oForm.reload()
	TextoStatusBar("")
end function

</pre></small>
== Bitácora ==
== Uso ==