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