diff --git a/Contabilidad/FiltraPolizas.aspx.vb b/Contabilidad/FiltraPolizas.aspx.vb
index 0c28e02e6..b1477c7c3 100644
--- a/Contabilidad/FiltraPolizas.aspx.vb
+++ b/Contabilidad/FiltraPolizas.aspx.vb
@@ -607,6 +607,9 @@ Partial Class Contabilidad_FiltraPolizas
 
                 e.Row.Cells(2).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank' >{e.Row.DataKey("Folio")}</a>"
                 e.Row.Cells(6).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank'><i class='fa fa-arrow-right' style='color:#686868;'></i></a>"
+            Else
+                e.Row.Cells(2).Text = $"<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank' >{e.Row.DataKey("Folio")}</a>"
+                e.Row.Cells(6).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank'><i class='fa fa-arrow-right' style='color:#686868;'></i></a>"
 
             End If
 
diff --git a/Contabilidad/PolizasImpresion.aspx.vb b/Contabilidad/PolizasImpresion.aspx.vb
index 900c7af9d..ad1f7f81f 100644
--- a/Contabilidad/PolizasImpresion.aspx.vb
+++ b/Contabilidad/PolizasImpresion.aspx.vb
@@ -9,8 +9,6 @@ Imports Microsoft.Reporting.WebForms
 Partial Class Contabilidad_PolizasImpresion
     Inherits ClsPaginas
 
-
-
     Public Property ContabilidadSIG As Boolean
         Get
             If ViewState("ContabilidadSIG") Is Nothing Then
@@ -53,26 +51,22 @@ Partial Class Contabilidad_PolizasImpresion
                 CargaCuentas()
             End If
 
-
-
         End If
 
     End Sub
     Private Sub BtnConsultar_click(sender As Object, args As EventArgs) Handles BtnConsultar.Click
 
         If ContabilidadSIG Then
-            ConsultaSIIG()
+            ConsultaSIG()
         Else
             ConsultaCONTPAQi()
         End If
 
     End Sub
 
+#Region "SIG"
 
-
-#Region "SIIG"
-
-    Private Sub ConsultaSIIG()
+    Private Sub ConsultaSIG()
 
         Dim foli As Integer = -1
         Dim folf As Integer = -1
@@ -129,9 +123,7 @@ Partial Class Contabilidad_PolizasImpresion
 
     End Sub
 
-
-
-    Private Sub cargaddlpolizasSIG()
+    Private Sub CargaDdlPolizasSIG()
         Dim objcont As New ClsContabilidad
         If objcont.GetTiposPoliza(-1, "-1", UsuarioActual.CveEmpresa) Then
             ddlTipoPoliza.DataSource = objcont.DtResultados
@@ -159,8 +151,6 @@ Partial Class Contabilidad_PolizasImpresion
         DdlCuenta.DataValueField = "CveCuenta"
         DdlCuenta.DataTextField = "CtaCodigo"
 
-
-
         Dim objconta As New ClsContabilidad
         If objconta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
             DdlCuenta.DataSource = objconta.DtResultados
@@ -276,7 +266,4 @@ Partial Class Contabilidad_PolizasImpresion
 #End Region
 
 
-
-
-
 End Class