diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb
index d25465616..212594b67 100644
--- a/App_Code/ClsClasificaciones.vb
+++ b/App_Code/ClsClasificaciones.vb
@@ -137,7 +137,7 @@ Public Class ClsClasificaciones
         Return Retorno
     End Function
 
-    Public Function GetClasificacionesComprobaciones(CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
+    Public Function GetClasificacionesComprobaciones(CveEmpresa As Integer, Optional Opcion As Integer = 1, Optional TipoComprobacion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_ClasificacionesComprobacionesGet")
@@ -145,6 +145,7 @@ Public Class ClsClasificaciones
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@TipoComprobacion", SqlDbType.Int).Value = TipoComprobacion
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/General/CatClasificacionesComprobaciones.aspx b/General/CatClasificacionesComprobaciones.aspx
index d812010e0..d533828ff 100644
--- a/General/CatClasificacionesComprobaciones.aspx
+++ b/General/CatClasificacionesComprobaciones.aspx
@@ -13,6 +13,42 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+
+        <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div id="PFiltros" class="portlet solid  grey-cascade portlet-filter">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" />
+                        <a href="javascript:;" class="expand"></a>
+                    </div>
+
+                    <div class="  caption">
+                        <div class="row" style="margin-left: 10px;">
+                            <label class="col-md-1 " id="LbDdlEstados" runat="server" style="width: 90px; margin-top: 5px;">Tipo:</label>
+                            
+                            <div class="col-md-2" >
+                                <asp:DropDownList ID="DdlEstadosComprobaciones" runat="server" Width="150px"     Class="select2me" AutoPostBack="true">
+                                    <asp:ListItem   Selected="True" Value="-1">Todos</asp:ListItem>
+                                    <asp:ListItem  Value="0">Sin Asignar</asp:ListItem>
+                                    <asp:ListItem Value="1">Viáticos</asp:ListItem>
+                                    <asp:ListItem   Value="2">Comprobacines</asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                            
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body" style="display: none;">
+                
+                </div>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+
     <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
         <ContentTemplate>
 
diff --git a/General/CatClasificacionesComprobaciones.aspx.vb b/General/CatClasificacionesComprobaciones.aspx.vb
index c721d8da6..174826c35 100644
--- a/General/CatClasificacionesComprobaciones.aspx.vb
+++ b/General/CatClasificacionesComprobaciones.aspx.vb
@@ -33,11 +33,12 @@ Partial Class Gral_CatClasificacionesComprobaciones
     Protected Sub CargaGridClasificaciones()
 
         Dim ObjClasificaciones As New ClsClasificaciones()
-        If ObjClasificaciones.GetClasificacionesComprobaciones(UsuarioActual.CveEmpresa, 2) Then
+        If ObjClasificaciones.GetClasificacionesComprobaciones(UsuarioActual.CveEmpresa, 2, DdlEstadosComprobaciones.SelectedValue.ToEntero) Then
             GvClasificaciones.DataSource = ObjClasificaciones.DtResultados
             GvClasificaciones.DataBind()
         End If
         ObjClasificaciones.Dispose()
+        UpDatos.Update()
 
     End Sub
     Private Sub LbAgregarClasificacion_Click(sender As Object, e As EventArgs) Handles LbAgregarClasificacion.Click
@@ -75,4 +76,7 @@ Partial Class Gral_CatClasificacionesComprobaciones
 
 
 
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaGridClasificaciones()
+    End Sub
 End Class
\ No newline at end of file