--Aplicacion de CveIE en concepto 251

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