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