diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index b9250d79c..7345e52fe 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3073,7 +3073,7 @@ Namespace Modelos
             Try
                 Dim AplicaCancelacionConPagos As Boolean = (CancelacionPagos = OpcionesCancelacionPagos.ConPagos_CancelarIE OrElse CancelacionPagos = OpcionesCancelacionPagos.ConPagos_GenerarIxC)
 
-                If ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso AplicaCancelacionConPagos AndAlso ValorMultiplicador = -1 Then
+                If ObjFactura.TipoDocto.Contiene("Ing", "Rem", "Ant") AndAlso AplicaCancelacionConPagos AndAlso ValorMultiplicador = -1 Then
                     Dim DtPagosVenta As DataTable = Nothing
 
                     If ObjClientes IsNot Nothing Then
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 94b2ca4a3..7d49af125 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -27101,7 +27101,7 @@ Partial Class Ventas
 
                     Dim CancelacionPagos = OpcionesCancelacionPagos.SinPagos
 
-                    If (UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1") AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFacturaCancelacion.Pagado > 0 Then
+                    If (UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(382) = "1") AndAlso ObjFacturaCancelacion.TipoDocto.Contiene("Ing", "Rem", "Ant") AndAlso Not EsRefacturacion AndAlso ObjFacturaCancelacion.Pagado > 0 Then
                         CancelacionPagos = OpcionesCancelacionPagos.ConPagos_CancelarIE
                     End If