From 89fb1aba6438af59664705ec9f91f7a0eb7e5819 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 17 Jul 2023 11:41:49 -0700
Subject: [PATCH] -- que al asociar folios fiscales, considerar Ant

---
 Ventas/Ventas.aspx.vb | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 2b337b218..c8a2179ac 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6898,8 +6898,6 @@ Partial Class Ventas
             UpModalRemisionesNC.Update()
         End If
 
-        CargaFacturasARelacionar()
-
         If RequiereOC Then
             Dim Documentacion As String = ""
             'RegistraScript("$('#DivDocsCliente').modal({ backdrop: 'static', keyboard: false });", "ModalArchivos")
@@ -7066,9 +7064,14 @@ Partial Class Ventas
     End Sub
     Private Sub CargaFacturasARelacionar()
         Using ObjClientes As New ClsClientes
+            Dim dtt As New DataTable
             If ObjClientes.GetHistorialVentas(Me.CveCliente, UsuarioActual.CveEmpresa, TipoDocto:="Ing") Then
-                DdlFacturaARelacionar.DataSource = ObjClientes.DtResultados
+                dtt = ObjClientes.DtResultados
             End If
+            If ObjClientes.GetHistorialVentas(Me.CveCliente, UsuarioActual.CveEmpresa, TipoDocto:="Ant") Then
+                dtt.Merge(ObjClientes.DtResultados)
+            End If
+            DdlFacturaARelacionar.DataSource = dtt
         End Using
         DdlFacturaARelacionar.DataBind()