Reporte para etiquetas QR en productos con lote y caducidad

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