From 06725f895afa2189190683f3ca39cc9078e56098 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 16 Dec 2021 19:29:10 -0700
Subject: [PATCH] redondeo

---
 Inventarios/EntregaAlmacen.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 605de65fd..a71cb65b7 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2536,7 +2536,7 @@ Partial Class Inventarios_EntregaAlmacen
                             ErrorMovInv = True
                         Else
                             If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
-                                ImporteAlmacen = ObjInventario.DtResultados.SUMD("Total")
+                                ImporteAlmacen = ObjInventario.DtResultados.SUMD("Total").RoundSQL
 
                                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), CveSeccionAlmacen:=-3, Serie:=Dr("Serie").ToString(), Lote:=Dr("Lote").ToString(), FechaCaducidad:=Dr("FechaCaducidad").ToString().ToDate, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), EsInterno:=EsInterno, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero()) Then
@@ -2954,7 +2954,7 @@ Partial Class Inventarios_EntregaAlmacen
                     Dim TotalCostoAcumulado As Decimal = 0
                     Dim cont As Integer = 1
 
-                    Dim ValorMultiplicador = 1
+                    Dim ValorMultiplicador As Decimal = 1
 
                     If TipoMovimiento = 1 Then
                         ValorMultiplicador = 1