diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 314e5dcb4..1c9847116 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10910,7 +10910,7 @@ Partial Class Ventas
                 End If
 
                 'SI NO VIENE DE REMISION, MARCAR COMO SURTIDA
-                If ErrorList.Count = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(199, 201) AndAlso (RemisionesLista Is Nothing OrElse (RemisionesLista IsNot Nothing AndAlso RemisionesLista.Count = 0)) Then
+                If ErrorList.Count = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(199, 201) AndAlso ObjFactura.TipoDocto = "Ing" AndAlso (RemisionesLista Is Nothing OrElse (RemisionesLista IsNot Nothing AndAlso RemisionesLista.Count = 0)) Then
                     'MARCAR VENTA ANTERIOR
                     If Not ObjInventario.ActualizarEsDevolucionVenta(ObjFactura.CveVenta, 2) Then
                         ErrorList.Add("No se pudo Cancelar el movimiento de almacen de la Factura")
@@ -14770,7 +14770,7 @@ Partial Class Ventas
                     End If
 
                     'SI NO VIENE DE REMISION, MARCAR COMO SURTIDA
-                    If ErrorList.Count = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(199, 201) AndAlso (RemisionesLista Is Nothing OrElse (RemisionesLista IsNot Nothing AndAlso RemisionesLista.Count = 0)) Then
+                    If ErrorList.Count = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(199, 201) AndAlso factura.TipoDocto = "Ing" AndAlso (RemisionesLista Is Nothing OrElse (RemisionesLista IsNot Nothing AndAlso RemisionesLista.Count = 0)) Then
                         If Not ObjInventario.UpdateEstatusAlmacen(ObjVentas.CveVentaDetalle, 1) Then
                             ErrorList.Add("No se pudo actualizar el movimiento de almacen de la factura")
                         End If