diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index a28a9f9f2..88ed5969c 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1529,7 +1529,11 @@ Partial Class Ventas_ClientesAbonar
             ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion, ListaVentasGenerarNC)
 
             Try
-                Dim Resp As Modelos.Factura.MMensajeFactura = ObjFacturaDevolucion.EmitirFactura(False, Transac:=SqlTransaccion)
+                If ListaVentasGenerarNC.Count > 0 Then
+                    ObjFacturaDevolucion.Observaciones = String.Format("Descuento por pronto pago. Factura: {0}", ListaVentasGenerarNC(0).SerieFolio)
+                End If
+
+                Dim Resp As Modelos.Factura.MMensajeFactura = ObjFacturaDevolucion.EmitirFactura(False, Transac:=SqlTransaccion, Modulo:="Clientes/Abonar")
                 Retorno.Respuesta = Resp
             Catch ex As Exception
                 OnError("Ocurrió un error al guardar la NC de pronto pago", ex)
@@ -2819,8 +2823,8 @@ Partial Class Ventas_ClientesAbonar
             UpDatos.Update()
         Else
 
-            If SBPagoMAyorASaldo.ToString.Length > 0 Then
-                Alert($"Facturas con pagos mayores a saldo:<br/>{SBPagoMAyorASaldo.ToString}", TipoMensaje.MsgAdvertencia)
+            If SBPagoMayorASaldo.ToString.Length > 0 Then
+                Alert($"Facturas con pagos mayores a saldo:<br/>{SBPagoMayorASaldo.ToString}", TipoMensaje.MsgAdvertencia)
             End If
 
         End If