diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 58c50a68d..33007aedc 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1177,7 +1177,7 @@ Partial Class Ventas_ClientesAbonar
                         For Each Fac As Modelos.Factura In ListaFacturasGenerarNC
                             Dim ListaNC As New List(Of Modelos.Factura)
                             ListaNC.Add(Fac)
-                            Dim Resp As RespuestaNotaCredrito = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaNC)
+                            Dim Resp As RespuestaNotaCredrito = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaNC, ObjIE)
 
                             If Resp IsNot Nothing AndAlso Resp.Respuesta IsNot Nothing AndAlso Resp.Respuesta.CveVenta > 0 Then
                                 NCGeneradas.Add(Resp)
@@ -1351,7 +1351,7 @@ Partial Class Ventas_ClientesAbonar
         Public Property Respuesta As Modelos.Factura.MMensajeFactura
     End Class
 
-    Private Function GenerarNC(SqlTransaccion As SqlClient.SqlTransaction, ObjConta As ClsContPAQi, ListaVentasGenerarNC As List(Of Modelos.Factura)) As RespuestaNotaCredrito
+    Private Function GenerarNC(SqlTransaccion As SqlClient.SqlTransaction, ObjConta As ClsContPAQi, ListaVentasGenerarNC As List(Of Modelos.Factura), ByRef ObjIE As ClsBancos) As RespuestaNotaCredrito
         Dim Retorno As New RespuestaNotaCredrito()
         Try
 
@@ -1397,7 +1397,18 @@ Partial Class Ventas_ClientesAbonar
             ObjFacturaDevolucion.MetodoPago33 = "PUE - Pago en una sola exhibición"
             ObjFacturaDevolucion.ClaveMetodoPagoSAT = "PUE"
 
-            Dim drtt As DataRow = GlobalDTTipoTransacciones.FiltroPrimero("CveTipoTransaccion =" & DdlTipoTransaccion.SelectedValue)
+            Dim CveTipoTransaccion As Integer = -1
+
+            'SI ES UN INGRESO X COMPROBAR TOMAR EL TIPO TRANSACCION DE AHI
+            If DdlIngreso.SelectedValue.ToEntero() > 0 Then
+                If ObjIE.GetBancosIE(DdlIngreso.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) AndAlso ObjIE.DtResultados.Rows.Count > 0 Then
+                    CveTipoTransaccion = ObjIE.CveTipoTransaccion
+                End If
+            Else
+                CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero()
+            End If
+
+            Dim drtt As DataRow = GlobalDTTipoTransacciones.FiltroPrimero("CveTipoTransaccion =" & CveTipoTransaccion)
             Dim dra As DataRow = GlobalDTVtaFormaPago.FiltroPrimero("CveFormaPago = " & drtt("CveFormaPago").ToString)
 
             ObjFacturaDevolucion.CveFormaPago33 = dra("CveFormaPago").ToString.ToEntero