diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 185575920..44392143f 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -3938,7 +3938,7 @@ Partial Class Clientes
             DtCxCFact = If(DdlTipoCuentasCxC.SelectedValue = "-1", ObjMovtos.DtResultados.FiltraParametros("", "TipoDocto").Copy, ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "TipoDocto"))
             'cargo los anticipos NC
             DtCxCFact.Columns.Add("SaldoAnticipo", GetType(Decimal))
-
+            DtCxCFact.Columns.Add("TipoRNC", GetType(String))
             Dim dtt As DataTable = Nothing
             If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, -1, -1) Then
                 dtt = If(DdlTipoCuentasCxC.SelectedValue = "-1", ObjMovtos.DtResultados.FiltraParametros("SaldoVentaAnticipo = 0 AND ((Tipo = 'IxC' AND CveIE > 0) OR (Tipo = 'Ant' AND CveVenta > 0) OR (Tipo = 'NC' AND CveVenta > 0) OR (Tipo = 'Egs' AND CveVenta > 0) OR (Tipo = 'RNC' AND CveVenta > 0) )"), ObjMovtos.DtResultados.FiltraParametros("Saldo > 0 AND SaldoVentaAnticipo = 0 AND ((Tipo = 'IxC' AND CveIE > 0) OR (Tipo = 'Ant' AND CveVenta > 0) OR (Tipo = 'NC' AND CveVenta > 0) OR (Tipo = 'Egs' AND CveVenta > 0) OR (Tipo = 'RNC' AND CveVenta > 0) )")) ' que tenga saldo de anticipo y no de cliente
@@ -3954,7 +3954,8 @@ Partial Class Clientes
                         drr("SaldoAnticipo") = drt("Saldo")
                         drr("Fecha") = drt("Fecha")
                         drr("Moneda") = drt("Moneda")
-                        drr("CveMoneda") = drt("CveMoneda")
+                        drr("CveMoneda") = drt("CveMoneda")
+                        drr("TipoRNC") = If(drt("Tipo").ToString() = "RNC", If(drt("TipoRNC").ToString() = "2", "Bonificación", "Cargo"), "")
                         DtCxCFact.Rows.Add(drr)
 
                     Next