diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index d93ba5ca0..7c9e2fa5b 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -2322,7 +2322,7 @@ Partial Class Inventarios_RecepcionAlmacen
                     Dim tCveConcepto As Integer = 69
 
                     For Each RowInv As DataRow In tmpCostos.Rows
-                        ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
+                        ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL
                         If tCveConcepto = 69 Then
                             IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
                         End If
@@ -2532,7 +2532,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             ElseIf DtDetalleLote.Rows.Count > 0 Then
                                 Dim ContDt As Integer = 0
                                 ' por redondeo
-                                If gvr.FCTextBox("TbCantidadF").Text.ToDouble = 1 Then PU = PU.RoundAD
+                                If gvr.FCTextBox("TbCantidadF").Text.ToDouble = 1 Then PU = PU.RoundSQL
                                 For Each Dr As DataRow In DtDetalleLote.Rows
                                     SumaTotal += Dr("Cantidad").ToString.ToDecimal * (PU + CostoIndirecto)
                                     If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalleLote.Rows.Count AndAlso (TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)).RoundSQL <> SumaTotal Then
@@ -2633,7 +2633,7 @@ Partial Class Inventarios_RecepcionAlmacen
                         ElseIf DtDetalleLote.Rows.Count > 0 Then
                             Dim ContDt As Integer = 0
                             ' por redondeo
-                            If gvr.FCTextBox("TbCantidadF").Text.ToDouble = 1 Then PU = PU.RoundAD
+                            If gvr.FCTextBox("TbCantidadF").Text.ToDouble = 1 Then PU = PU.RoundSQL
                             For Each Dr As DataRow In DtDetalleLote.Rows
                                 SumaTotal += Dr("Cantidad").ToString.ToDecimal * (PU + CostoIndirecto)
                                 If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso ContDt + 1 = DtDetalleLote.Rows.Count AndAlso (TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)).RoundSQL <> SumaTotal Then
@@ -2650,7 +2650,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             Next
                         Else
                             ' por redondeo
-                            If gvr.FCTextBox("TbCantidadF").Text.ToDouble = 1 Then PU = PU.RoundAD
+                            If gvr.FCTextBox("TbCantidadF").Text.ToDouble = 1 Then PU = PU.RoundSQL
                             SumaTotal += gvr.FCTextBox("TbCantidadF").Text.ToDecimal * (PU + CostoIndirecto) ' considerar el costo indirecto para el ajuste
                             If RecibidaCompleta AndAlso Cont + 1 = GvInv.Rows.Count AndAlso (TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1)).RoundSQL <> SumaTotal.RoundSQL Then
                                 Dim tTotal As Decimal = gvr.FCTextBox("TbCantidadF").Text.ToDecimal * (PU)
@@ -3159,7 +3159,7 @@ Partial Class Inventarios_RecepcionAlmacen
                     Dim ValorInventario As Decimal = 0
                     DtCostos = ObjInventario.DtResultados
                     Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
-                    Dim TotalCostoExtranjero As Decimal = DtCostos.SUM("TotalExtranjero").ToDecimal
+                    Dim TotalCostoExtranjero As Decimal = DtCostos.SUMD("TotalExtranjero")
 
                     'VARIABLES
                     Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
@@ -4195,7 +4195,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
                 For Each Dr As DataRow In DtInv.Rows
                     Dr("PU") = Dr("PUExtranjero")
-                    Dr("Total") = Dr("PU").ToString.ToDouble * Dr("Cantidad").ToString.ToDouble
+                    Dr("Total") = Dr("PU").ToString.ToDecimal * Dr("Cantidad").ToString.ToDecimal
                     Dr("CostoIndirecto") = Dr("CostoIndirectoExtranjero")
                 Next
 
@@ -4222,9 +4222,9 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
 
         For Each Dr As DataRow In DtInv.Rows
-            Dr("PU") = Dr("PUExtranjero").ToString.ToDouble * TipoCambio
-            Dr("Total") = Dr("PU").ToString.ToDouble * Dr("CantidadC").ToString.ToDouble
-            Dr("CostoIndirecto") = Dr("CostoIndirectoExtranjero").ToString.ToDouble * TipoCambio
+            Dr("PU") = Dr("PUExtranjero").ToString.ToDecimal * TipoCambio
+            Dr("Total") = Dr("PU").ToString.ToDecimal * Dr("CantidadC").ToString.ToDecimal
+            Dr("CostoIndirecto") = Dr("CostoIndirectoExtranjero").ToString.ToDecimal * TipoCambio
         Next
         DtInv.AcceptChanges()
     End Sub