diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index ca1b60934..6dc8dfaf9 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -116,15 +116,22 @@
Kardex
-
- Generar PDF
-
-
- Generar Excel
-
-
-
-
+
+
+
+ Generar PDF
+
+
+ Generar Excel
+
+
+ Series
+
+
+
+
+
+
@@ -493,6 +500,41 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 448dcc4e4..040ca2bc1 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/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