[[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 en tablas asociadas a la [[TABLA:contactos]]
== Biblioteca ==
[[LIBR:FazzGlassMcr]]
== Composición ==
== Código ==
<small><pre>
function ActivaFiltroContactos (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		= Trim(oForm.getByName(oControl).CurrentValue)
	oFiltroDB	= ""
	if trim(oFiltro) <> "" Then
		oFiltroDB	= oFiltroDB & "`ContactoID` IN (SELECT ContactoID FROM contactos WHERE ContactoID LIKE '%"
		oFiltroDB	= oFiltroDB & oFiltro
		oFiltroDB	= oFiltroDB & "' OR RazonSocial LIKE '%"
		oFiltroDB	= oFiltroDB & oFiltro
		oFiltroDB	= oFiltroDB & "%' OR Direccion LIKE '%"
		oFiltroDB	= oFiltroDB & oFiltro
		oFiltroDB	= oFiltroDB & "%' OR Localidad LIKE '%"
		oFiltroDB	= oFiltroDB & oFiltro
		oFiltroDB	= oFiltroDB & "%' OR Provincia LIKE '%"
		oFiltroDB	= oFiltroDB & oFiltro
		oFiltroDB	= oFiltroDB & "%')"
	end if
	oForm.Filter	= oFiltroDB
	'MsgBox(oForm.Filter)
	oForm.reload()
	TextoStatusBar("")
end function
</pre></small>
== Bitácora ==
== Uso ==
*[[FORM:BitacoraCRM]]
*[[FORM:PosicionCRM]]
*[[FORM:ConsultaClientesCRM]]