Reporte para etiquetas QR en productos con lote y caducidad

Inventarios/Kardex.aspx

@@ -573,9 +573,13 @@
                             <div style="width:98%;margin-left:1.5%;margin-right:1.5%">
                                 <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> Imprmir QR</asp:HyperLink>
+                                    </div>
+                                    
                                     <asp:GridView ID="GvProductoCaducidad" Width="98%" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="False" AllowPaging="False"
                                         ShowFooter="True" ShowHeaderWhenEmpty="True" CssClass="table table-striped table-advance table-hover ScrollAD" GridLines="None" 
-                                        DataKeyNames="Almacen,Cantidad,FechaCaducidad">
+                                        DataKeyNames="Almacen,Cantidad,FechaCaducidad,Lote">
                                         <Columns>
                                             <asp:BoundField HeaderText="Almacén" DataField="Almacen"/>
                                             <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###.##}"  ItemStyle-Width="80px" ItemStyle-HorizontalAlign="Right"/>

Inventarios/Kardex.aspx.vb

@@ -186,6 +186,11 @@ 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()
@@ -475,6 +480,15 @@ Partial Class Inventarios_Kardex
         CargarCaducidadProducto()
         UpProductoCaducidad.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "DivModalCaducidad"))
+
+        For Each dt As GridViewRow In GvProductoCaducidad.Rows
+            If GvProductoCaducidad.Rows.Count > 0 Then
+                If dt.DataKey("FechaCaducidad").ToString <> "" Or dt.DataKey("Lote").ToString <> "" Then
+                    DivImprimir.Visible = True
+                End If
+            End If
+
+        Next
     End Sub
 #End Region