From d5bdf07441dde52c3d5c3b4f8b1a20fa24089edd Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 7 Feb 2025 11:55:39 -0700
Subject: [PATCH] --Aplicacion de CveIE en concepto 251

---
 App_Code/Modelos.vb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index a80ace836..b71c4f47d 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3539,6 +3539,11 @@ Namespace Modelos
                                                 Pago.AplicaTraslado = False
                                                 Pago.Referencia = Concepto
 
+                                                If DtVentasNC.Columns.Contains("CveIE") Then
+                                                    Dim CveIEVenta As Integer = Dr("CveIE").ToString().ToEntero()
+                                                    Pago.CveIE = CveIEVenta
+                                                End If
+
                                                 ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, Pago, ObjFactura.CvePrePoliza, ObjConta)
 
                                                 If Not ErrorPrepoliza AndAlso ObjFactura.CveTipoAmortizacionAnticipo = 2 AndAlso ObjFactura.EsNCAmortizacion AndAlso ObjFactura.TipoDocto.Contiene("Egs") AndAlso ObjFactura.DtAnticiposAplicados IsNot Nothing Then