diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 5d01bd939..3856176b0 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2850,11 +2850,11 @@ Partial Class Inventarios_EntregaAlmacen
                     Dim ValorMultiplicador = 1
 
                     If TipoMovimiento = 1 Then
+                        ValorMultiplicador = 1
+                    ElseIf TipoMovimiento = 2 AndAlso TipoDocto.Contiene({"Dev"}) AndAlso (EsDevolucionVenta = 1) Then
                         ValorMultiplicador = 1
                     ElseIf TipoMovimiento = 2 Then
-                        ValorMultiplicador = -1
-                    ElseIf TipoMovimiento = 2 AndAlso TipoDocto.Contiene({"Dev"}) And (EsDevolucionVenta = 1) Then
-                        ValorMultiplicador = 1
+                        ValorMultiplicador = -1
                     End If
 
                     Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/RecepcionEntrega", 4, TotalCosto, TotalCosto, 1, Fecha, ClienteNombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)