From b8ded4ee93678e3cae0548580b96b3c122f9a9c2 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 27 Apr 2022 14:00:50 -0700
Subject: [PATCH] =?UTF-8?q?redireccionar=20a=20la=20p=C3=B3liza=20segun=20?=
 =?UTF-8?q?el=20tipo=20de=20contabilidad?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contabilidad/PopUpAuxiliar.aspx.vb | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb
index 7658cd839..d7547cfe2 100644
--- a/Contabilidad/PopUpAuxiliar.aspx.vb
+++ b/Contabilidad/PopUpAuxiliar.aspx.vb
@@ -198,7 +198,13 @@ Partial Class PopUpAuxiliar
             e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Left
 
             If e.Row.FCLiteral("LtlContabilizado").Text = "Si" Then
-                Dim Liga As String = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">", e.Row.DBCampo("IdPoliza"))
+                Dim Liga As String
+                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                    Liga = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">", e.Row.DBCampo("CvePrePoliza"))
+                Else
+                    Liga = String.Format("<a class=""Texto"" href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">", e.Row.DBCampo("IdPoliza"))
+                End If
+
                 e.Row.FCLiteral("LtlPoliza").Text = String.Format("{0}{1}</a>", Liga, e.Row.DBCampo("Poliza"))
             End If