[[Category:MACRO]]
== Descripción ==
Activa filtro sobre ActiveCommand en formularios
== Biblioteca ==
*[[LIBR:FazzGlassMcr]]
== Composición ==
*[[TABLA:bitacoracrm]]
*[[TABLA:contactos]]
== Código ==
<small><pre>
function ActivaFiltroBitacoras (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 & "BitacoraCT IN ("
		oFiltroDB	= oFiltroDB & "SELECT BitacoraCT FROM "
		oFiltroDB	= oFiltroDB & "(SELECT "
		oFiltroDB	= oFiltroDB & "T2.BitacoraCT,"
		oFiltroDB	= oFiltroDB & "T1.RazonSocial,"
		oFiltroDB	= oFiltroDB & "T2.BitacoraAT,"
		oFiltroDB	= oFiltroDB & "T2.BitacoraQT,"
		oFiltroDB	= oFiltroDB & "T2.BitacoraTexto "
		oFiltroDB	= oFiltroDB & "FROM "
		oFiltroDB	= oFiltroDB & "contactos AS T1,"
		oFiltroDB	= oFiltroDB & "bitacoracrm AS T2 "
		oFiltroDB	= oFiltroDB & "WHERE "
		oFiltroDB	= oFiltroDB & "T1.ContactoID = T2.BitacoraCT AND ("
		oFiltroDB	= oFiltroDB & "T2.BitacoraCT LIKE '%"
		oFiltroDB	= oFiltroDB & oFiltro
		oFiltroDB	= oFiltroDB & "%' OR T1.RazonSocial LIKE '%"
		oFiltroDB	= oFiltroDB & oFiltro
		oFiltroDB	= oFiltroDB & "%' OR T2.BitacoraAT LIKE '%"
		oFiltroDB	= oFiltroDB & oFiltro
		oFiltroDB	= oFiltroDB & "%' OR T2.BitacoraTexto LIKE '%"
		oFiltroDB	= oFiltroDB & oFiltro
		oFiltroDB	= oFiltroDB & "%')) AS T3)"
		'InputBox("Query:", "Test", oFiltroDB)
	end if
	oForm.Filter	= oFiltroDB
	oForm.reload()
	TextoStatusBar("")
end function
</pre></small>
== Bitácora ==
== Uso ==
[[FORM:BitacoraCRM]]