haciendo pull

Inventarios/Kardex.aspx.vb

@@ -205,7 +205,9 @@ Partial Class Inventarios_Kardex
                 If AplicaCaducidad Then GvM.Columns(10).Visible = True
 
                 Dim AuxAplicaSerie As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaSerie") = "True"
+                Dim AuxAplicaCad As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaCaducidad") = "True"
                 LnkSeries.Visible = AuxAplicaSerie
+                LnkCaducidad.Visible = AuxAplicaCad
                 'CARGA INDICADORES
                 If UsuarioActual.TienePermisoProceso(201) Then
                     DivIndicadores.Visible = True
@@ -324,6 +326,19 @@ Partial Class Inventarios_Kardex
         ObjInventarios.Dispose()
         GvSeries.DataBind()
     End Sub
+
+    Private Sub CargarCaducidadProducto()
+        Dim almacenes As String = ddlAlmacen.GetSelectedValues()
+        If almacenes = "" Then
+            almacenes = "-1"
+        End If
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetExistenciasCaducidad(ddlProducto2.SelectedValue.ToEntero(), -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, almacenes) Then
+            GvProductoCaducidad.DataSource = ObjInventarios.DtResultados
+        End If
+        ObjInventarios.Dispose()
+        GvProductoCaducidad.DataBind()
+    End Sub
 #End Region
 
 #Region "   IMPRIMIR   "
@@ -440,6 +455,12 @@ Partial Class Inventarios_Kardex
         UpGridSeries.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "DivModalSerie"))
     End Sub
+
+    Protected Sub LnkCaducidad_OnClick(sender As Object, e As EventArgs) Handles LnkCaducidad.Click
+        CargarCaducidadProducto()
+        UpProductoCaducidad.Update()
+        RegistraScript(String.Format("$('#{0}').modal('show');", "DivModalCaducidad"))
+    End Sub
 #End Region