From 48ac1f7425df5e072339b4bada8582b53ba753cd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 7 Mar 2022 13:59:29 -0700
Subject: [PATCH] =?UTF-8?q?--=20cambios,=20se=20liminaron=20espacios=20en?=
 =?UTF-8?q?=20el=20c=C3=B3digo.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contabilidad/FiltraPolizas.aspx.vb    |  3 +++
 Contabilidad/PolizasImpresion.aspx.vb | 21 ++++-----------------
 2 files changed, 7 insertions(+), 17 deletions(-)

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