From b876f24aacb4545c59dbea5660d819bac5550d5a Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 Jan 2022 08:20:52 -0700 Subject: [PATCH] =?UTF-8?q?--beep=20al=20registrar=20serie=20--=20cuadro?= =?UTF-8?q?=20m=C3=A1s=20grande?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx | 12 ++++-------- Inventarios/RecepcionAlmacen.aspx.vb | 5 +++-- 2 files changed, 7 insertions(+), 10 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx index 73d4d9d40..fd349e09d 100644 --- a/Inventarios/RecepcionAlmacen.aspx +++ b/Inventarios/RecepcionAlmacen.aspx @@ -811,7 +811,7 @@ Cantidad: - + @@ -827,15 +827,11 @@ - - - - - - + + - + diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 7e81a6401..7fbb1cb32 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -1869,7 +1869,8 @@ Partial Class Inventarios_RecepcionAlmacen If MensajeSinExistencias.ToString <> "" Then Alert($"Las siguientes Series no cuentan con la existencia suficiente por lo cual se omitieron.
{MensajeSinExistencias.ToString}", TipoMensaje.MsgAdvertencia) End If - RegistraScript("playsonidito('beep-07.wav')") + RegistraScript("playsonidito('beep-07.wav')", "SoniditoSerie") + End If End Sub @@ -3226,7 +3227,7 @@ Partial Class Inventarios_RecepcionAlmacen ''VALIDACIÓN DE IMPORTES INGRESADOS VS LA COMPRA U OC 'If Not UsuarioActual.Empresa.Funcionalidad(531) = "1" Then - If Not ErrorMovInv AndAlso RecibidaCompleta Then + If Not ErrorMovInv AndAlso RecibidaCompleta AndAlso UsuarioActual.CveEmpresa <> 140 Then If ObjInventario.GetMovimientosDetalle(CveMovimientoOriginal, UsuarioActual.CveEmpresa) Then Dim dtt As DataTable = ObjInventario.DtResultados Dim tTotalInsertado As Decimal = dtt.SUMD("TotalOriginal") + ImporteIngresoAdicional