Botón con código para filtrar

 sMiFiltro is string
sFiltroFechas is string
sFiltroSolicitante is string
sFiltroArea is string
dFechaInicio is Date
dFechaFinal is Date

dFechaInicio = EDT_Date1
dFechaFinal  = EDT_Date2

//busco el id de cada parametro
IF COMBO_Solicitante..StoredValue <> "--TODOS--" THEN
    HReadSeekFirst(Solicitante, Solicitante.SolicitanteNombre, COMBO_Solicitante..StoredValue)
    IF HFound() = True
           sFiltroSolicitante =  " AND calendario.SolicitanteID = " + Solicitante.SolicitanteID
       ELSE
           sFiltroSolicitante = ""
    END
ELSE
    sFiltroSolicitante = ""
END

IF COMBO_Area..StoredValue <> "--TODOS--" THEN
    HReadSeekFirst(Area, AreaNombre, COMBO_Area..StoredValue)
    IF HFound() = True
        sFiltroArea = " AND calendario.AreaID = " +     Area.AreaID
    ELSE
        sFiltroArea = ""        
    END
ELSE
    sFiltroArea = ""    
END

sFiltroFechas = "Calendario.FechaProgramada >= " +  dFechaInicio  +  "  and Calendario.FechaProgramada <= " + dFechaFinal

//armo filtro
sMiFiltro = sFiltroFechas + sFiltroArea + sFiltroSolicitante

HFilter(Calendario,sMiFiltro)
HDeactivateFilter(Calendario)
HActivateFilter(Calendario)
TableDisplay(TABLE_Calendario,taStart)