diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 2cac3b0ce..150e711f8 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2884,7 +2884,7 @@ Partial Class Inventarios_EntregaAlmacen
                     Dim CveCliente As Integer = ObjVentas.DtResultados(0)("CveCliente").ToString().ToEntero()
                     Dim ClienteNombre As String = ObjVentas.DtResultados(0)("ClienteNombre").ToString()
                     Dim Serie As String = ObjVentas.DtResultados(0)("SerieFolio").ToString()
-                    Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL()
+                    Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundAD()
                     Dim TotalCostoAcumulado As Decimal = 0
                     Dim cont As Integer = 1
 
@@ -2898,13 +2898,13 @@ Partial Class Inventarios_EntregaAlmacen
                         ValorMultiplicador = -1
                     End If
 
-                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/EntregaAlmacen", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                     'Se agrega movimiento separado por la cuenta de ventas (ER)
 
                     If CvePrePoliza > 0 Then
 
                         For Each RowInv As DataRow In tmpCostos.Rows
-                            ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL()
+                            ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundAD()
                             TotalCostoAcumulado += ValorInventario
 
                             'cuando es el último movimiento y hay diferencias en los importes