From bca08d89e94eab2f5b1b076f52fa9c714c597e45 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 23 May 2025 09:00:51 -0700
Subject: [PATCH] =?UTF-8?q?--=20mejoras=20en=20c=C3=B3digo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/Kardex.aspx    |  2 +-
 Inventarios/Kardex.aspx.vb | 16 ++++++----------
 2 files changed, 7 insertions(+), 11 deletions(-)

diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index decbb8933..e6c663354 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -787,7 +787,7 @@
                                 <asp:UpdatePanel ID="UpProductoCaducidad" runat="server" UpdateMode="Conditional" RenderMode="Inline">
                                     <ContentTemplate>
                                         <div runat="server" id="DivImprimir" style="text-align: right" visible="false">
-                                            <asp:HyperLink ID="ImprimirQR" runat="server"><i class="fa fa-file-pdf-o" style="font-weight: bold;"></i>Imprimir QR</asp:HyperLink>
+                                            <asp:HyperLink ID="HplImprimirQR" runat="server"><i class="fa fa-file-pdf-o" style="font-weight: bold;"></i> Imprimir QR</asp:HyperLink>
                                         </div>
 
                                         <asp:GridView ID="GvProductoCaducidad" Width="98%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index f4540c2b1..50a9559a4 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -261,11 +261,6 @@ Partial Class Inventarios_Kardex
 #Region "   CARGA DATOS   "
     Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
         CargaDatos()
-        Dim almacenes As String = ddlAlmacen.GetSelectedValues()
-        If almacenes = "" Then
-            almacenes = "-1"
-        End If
-        ImprimirQR.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Etiqueta2&CvePS={0}&PS={1}&CveAlmacen={2}&Modalidad={3}", ddlProducto2.SelectedValue.ToEntero, ddlProducto2.SelectedText.ToString, almacenes, "Individual")))
     End Sub
 
     Private Sub CargaDatos()
@@ -412,10 +407,6 @@ Partial Class Inventarios_Kardex
             DivIndicadorL2.Visible = True
 
         End If
-
-
-
-
     End Sub
 
     Private Function CargarKardex(CvePS As Integer) As DataTable
@@ -441,7 +432,6 @@ Partial Class Inventarios_Kardex
                 LtIndicador_UCPesos.Text = dr("UltimoCosto").ToString.FormatoNumero()
                 LtIndicador_UCDolares.Text = (dr("UltimoCosto").ToString.ToDecimal / TC).FormatoNumero
             End If
-
         End If
 
         Dim CveTiposAlmacen As String = ""
@@ -493,6 +483,12 @@ Partial Class Inventarios_Kardex
                     UpOCS.Update()
                 End If
 
+                Dim almacenes As String = ddlAlmacen.GetSelectedValues()
+                If almacenes = "" Then
+                    almacenes = "-1"
+                End If
+                HplImprimirQR.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Etiqueta2&CvePS={0}&PS={1}&CveAlmacen={2}&Modalidad={3}", ddlProducto2.SelectedValue.ToEntero, ddlProducto2.SelectedText.ToString, almacenes, "Individual")))
+
                 UpIndicadores.Update()
 
                 GvM.Attributes.Add("data-heighterror", "430")