{{indexmenu_n>1}}
====== Ejemplo para filtrar un contents desde campos de una colección ======
\\
Vamos a ver cómo podemos filtrar con unos campos de una colección, otra colección colocada en forma de contents (subformulario), para ver los resultados de la búsqueda sobre la marcha.
También veremos como podemos manejarlo todo con botones, en este caso de tipo gráfico, sin utilizar los botones por defecto, incluso hasta para salir de la colección.
Aquí está la imagen de lo que se pretende:\\
\\
{{ :b.-programacion:filtrar-contents-orenes.png?direct&300 |}}
===== Pasos a seguir =====
=== 1.- Definimos la colección de Clientes: ===
Codigo:Ruta:Codigo:Nombre:
Para la función createFilter, esta podemos definirla en un fichero .vbs externo
function addCriteria(sOut,sField,sData)
if len(cstr(sData))>0 then
if len(sOut)>0 then
sOut=sOut+" AND "
end if
addCriteria=sOut+sField+" LIKE '%"+sData+"%'"
else
addCriteria=sOut
end if
end function
function createFilter()
dim sSearch
sSearch=""
sSearch=addCriteria(sSearch,"IDRUTA",this("MAP_IDRUTA"))
sSearch=addCriteria(sSearch,"MAP_CODCLI",this("MAP_CODCLIBUS"))
sSearch=addCriteria(sSearch,"MAP_NOMCLI",this("MAP_DESCCLIBUS"))
this.contents("ClientesRutas").filter=sSearch
end function
=== 2.- Definimos las colecciones de rutas y el contents de resultados: ===
CodigoMatriculaBajaCod Cli:Nomb Cli:Pobl Cli:Dir Cli:Tfno Cli:Cod Ruta:Desc Ruta: