--beep al registrar serie

-- cuadro más grande

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. <br?><br/> {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