diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 3c67875f7..96d491d7a 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -14986,12 +14986,12 @@ Partial Class Compras_Compras
 
         End If
         ObjComprasComprobacion.Dispose()
-
+        Dim cvemovimientoentrada As Integer = -1
 
         'DEVOLUCIÓN AUTOMATICA
         If CheckDevAuto.Checked Then
             Dim ErrorMovInv As Boolean = False
-            Dim cvemovimientoentrada As Integer
+
             Dim folio As Integer
             Dim fecha As Date = TxtFechaCancelacion.Text.ToDate
             Dim importeconcepto As Decimal
@@ -15133,7 +15133,8 @@ Partial Class Compras_Compras
                                 If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero,
                                                                             dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero,
                                                                             dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
-                                                                            dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
+                                                                            If(cvemovimientoentrada > 0, cvemovimientoentrada, dr("CveMovimientoAlmacen").ToString.ToEntero),
+                                                                            dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
                                                                             ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
                                     ErrorCancelar = True
                                     Exit For