diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index b46a81102..e188974ff 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -917,6 +917,7 @@ Partial Class Ventas_ClientesAbonar
                             If RblTipoPago.SelectedValue = "3" Then
                                 Pago.TipoPago = "I"
                                 Pago.FechaDocumentoRelacionado = FechaIngreso
+                                Pago.CveClientePago = CveCliente
                             End If
 
                             'Tipos de cambio