diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 7f559bd4a..2426570ff 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13890,7 +13890,8 @@ Partial Class Ventas
                     If Obj.TipoDocto.Contiene("Egs", "Dev") OrElse (NuevaFactura = 1) Then
                         If DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0 Then
                             Timbre.CFDIRelacionados.UUID.Clear()
-                            For Each Dr As DataRow In DtVentasNC.Rows
+                            'QUITAR LAS QUE ESTEN CANCELADAS
+                            For Each Dr As DataRow In DtVentasNC.FiltraParametros("CveEstatusFactura <> 5").Rows
                                 Timbre.CFDIRelacionados.UUID.Add(Dr("FolioFiscal").ToString())
                             Next
                         Else