diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index 4e6b3ad42..5e234998a 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -7399,7 +7399,7 @@ Public Class ClsContPAQi
         Return Retorno
     End Function
 
-    Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, SegmentoNegocio As Integer, Optional CveEmpresa As Integer = -1) As Boolean
+    Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, SegmentoNegocio As Integer, FolioPoliza As Integer, Optional CveEmpresa As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         StrSQL.Clear()
@@ -7411,6 +7411,7 @@ Public Class ClsContPAQi
         StrSQL.Append("		WHERE P.Ejercicio = @Ejercicio ")
         StrSQL.Append("			AND P.Periodo = @Periodo ")
         StrSQL.Append("			AND (@TipoPoliza = -1 OR P.TipoPol = @TipoPoliza) ")
+        StrSQL.Append("			AND (@FolioPoliza = -1 OR P.Folio = @FolioPoliza) ")
         StrSQL.Append("			AND (@SegmentoNegocio = -1 OR M.IdSegNeg = @SegmentoNegocio) ")
         StrSQL.Append("		GROUP BY P.Id, P.Fecha, T.Nombre, P.Concepto, P.Cargos, P.Abonos, P.Folio, PP.CvePrepoliza ")
         StrSQL.Append("		ORDER BY P.Folio ")
@@ -7423,8 +7424,8 @@ Public Class ClsContPAQi
             .Add("@Periodo", SqlDbType.Int).Value = Periodo
             .Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza
             .Add("@SegmentoNegocio", SqlDbType.Int).Value = SegmentoNegocio
+            .Add("@FolioPoliza", SqlDbType.Int).Value = FolioPoliza
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 0ff191dbd..12007823c 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -6529,7 +6529,7 @@ Public Class ClsContabilidad
 
 #End Region
 
-    Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetPolizas(Ejercicio As Integer, Periodo As Integer, TipoPoliza As Integer, CveSubProyecto As Integer, FolioPoliza As Integer, CveEmpresa As Integer) As Boolean
         Dim Respuesta As Boolean = False
 
         DataAdapter("PA_Conta_FiltraPolizasGet")
@@ -6539,15 +6539,15 @@ Public Class ClsContabilidad
             .Add("@Periodo", SqlDbType.Int).Value = Periodo
             .Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@FolioPoliza", SqlDbType.Int).Value = FolioPoliza
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
 
-
         End With
         Try
             SqlAdapter.Fill(Data)
             Respuesta = True
         Catch ex As Exception
-            Me.OnError("Ocurrió un error al obtener  las Prepolizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            Me.OnError("Ocurrió un error al obtener las Pólizas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
         Return Respuesta
diff --git a/Contabilidad/FiltraPolizas.aspx b/Contabilidad/FiltraPolizas.aspx
index df35f97f9..8d4cd1cf5 100644
--- a/Contabilidad/FiltraPolizas.aspx
+++ b/Contabilidad/FiltraPolizas.aspx
@@ -38,12 +38,12 @@
                     <div class="titlefiltros caption ">
                         <div class="row">
                             <label class="col-md-1">Ejercicio: </label>
-                            <div class="col-md-2">
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="form-control input-sm" DataTextField="Ejercicio" DataValueField="Ejercicio" AutoPostBack="false"></asp:DropDownList>
                             </div>
 
                             <label class="col-md-1">Periodo: </label>
-                            <div class="col-md-2">
+                            <div class="col-md-1">
                                 <asp:DropDownList ID="DdlPeriodo" runat="server" CssClass="form-control input-sm" AutoPostBack="false">
                                     <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
@@ -70,6 +70,10 @@
                                     <asp:ListItem Text="Orden" Value="4"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
+                             <label class="col-md-1">Folio: </label>
+                             <div class="col-md-1">
+                                 <asp:TextBox ID="TxtFolio" runat="server" CssClass="form-control input-sm" ></asp:TextBox>
+                             </div>
                             <label class="col-md-1">Centro Costo: </label>
                             <div class="col-md-1">
                                 <asp:DropDownList ID="DdlSegmentoNeg" DataTextField="Nombre" DataValueField="Id" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb
index db5b664b3..5c54b4f99 100644
--- a/Contabilidad/FiltraPolizas.aspx.vb
+++ b/Contabilidad/FiltraPolizas.aspx.vb
@@ -75,7 +75,7 @@ Partial Class Contabilidad_FiltraPolizas
 
             Dim ObjConta As New ClsContabilidad
 
-            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), TxtFolio.Text.ToEntero, UsuarioActual.CveEmpresa) Then
                 DtDatos = ObjConta.DtResultados
                 Gv.DataSource = ObjConta.DtResultados
             Else
@@ -87,7 +87,7 @@ Partial Class Contabilidad_FiltraPolizas
         Else
 
             Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), TxtFolio.Text.ToEntero, UsuarioActual.CveEmpresa) Then
                 DtDatos = ObjConta.DtResultados
                 Gv.DataSource = ObjConta.DtResultados
                 'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then