se agregó una ventana modal que muestra en un grid las series en los almacenes del producto seleccionado

Inventarios/Kardex.aspx.vb

@@ -203,6 +203,8 @@ Partial Class Inventarios_Kardex
                 If AplicaLote Then GvM.Columns(9).Visible = True
                 If AplicaCaducidad Then GvM.Columns(10).Visible = True
 
+                Dim AuxAplicaSerie As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaSerie") = "True"
+                LnkSeries.Visible = AuxAplicaSerie
                 'CARGA INDICADORES
                 If UsuarioActual.TienePermisoProceso(201) Then
                     DivIndicadores.Visible = True
@@ -238,6 +240,7 @@ Partial Class Inventarios_Kardex
                 End If
                 GvM.DataSource = DtTemp
                 GvM.DataBind()
+                UpAcciones.Update()
             End If
         Else
             Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
@@ -299,6 +302,15 @@ Partial Class Inventarios_Kardex
 
         End If
     End Sub
+
+    Private Sub CargarExistenciasProductosSeries()
+        Dim ObjInventarios As New ClsInventarios
+        If ObjInventarios.GetExistenciasProductoSerie(ddlProducto2.SelectedValue.ToEntero(), ddlAlmacen.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            GvSeries.DataSource = ObjInventarios.DtResultados
+        End If
+        ObjInventarios.Dispose()
+        GvSeries.DataBind()
+    End Sub
 #End Region
 
 #Region "   IMPRIMIR   "
@@ -409,5 +421,14 @@ Partial Class Inventarios_Kardex
 
 #End Region
 
+#Region "Acciones"
+    Protected Sub LnkSeries_OnClick(sender As Object, e As EventArgs) Handles LnkSeries.Click
+        CargarExistenciasProductosSeries()
+        UpGridSeries.Update()
+        RegistraScript(String.Format("$('#{0}').modal('show');", "DivModalSerie"))
+    End Sub
+#End Region
+
+
 
 End Class