From 0e01ecbc278921593ca209d08fa40b12af7651e2 Mon Sep 17 00:00:00 2001
From: JPerez <jonathan.perez@asdsistemas.mx>
Date: Fri, 6 Jun 2025 13:00:46 -0700
Subject: [PATCH] --Excluir facturas canceladas al relacionar cfdi

---
 Ventas/Ventas.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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