From 6e2c52945303f093d9e618fa9b03a531c40a870d Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 30 Aug 2022 11:42:05 -0700 Subject: [PATCH] BDH. solo mostrar codigo de barras en acumuladores, RecepcionAlmacen.aspx --- Inventarios/RecepcionAlmacen.aspx.vb | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index e48ec5fd5..9a5fefa07 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -1394,6 +1394,9 @@ Partial Class Inventarios_RecepcionAlmacen If Not TmDT.Columns.Contains("CantidadSeleccionada") Then TmDT.Columns.Add("CantidadSeleccionada", GetType(Decimal)) End If + If Not TmDT.Columns.Contains("CveCategoria") Then + TmDT.Columns.Add("CveCategoria", GetType(Integer)) + End If GvInv.Columns(2).Visible = False @@ -1557,6 +1560,11 @@ Partial Class Inventarios_RecepcionAlmacen 'FUNCIONALIDAD PISTOLA DE CODIGOS If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" And Not UsuarioActual.TienePermisoProceso(174) Then e.Row.FCTextBox("TbCantidadF").Enabled = False + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'acumuladoras + If e.Row.DBCampo("CveCategoria") <> "249" Then + e.Row.FCTextBox("TbCantidadF").Enabled = True + End If + End If End If If e.Row.DBCampo("CantidadF").ToDecimal = 0 Then @@ -1606,7 +1614,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim TxtCantidad = GvInv.Rows(Gvr.RowIndex).FCTextBox("TbCantidadF") If Gvr.DataKey("CantidadF").ToDecimal - TxtCantidad.Text.ToDecimal - 1 >= 0 Then - If Gvr.DataKey("AplicaSerieLote") = "True" Then + If Gvr.DataKey("AplicaSerie") = "True" Then TdSeriePS.Visible = True TxtSeriePS.Focus()