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")