diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 90183a6fb..c99cb1fd4 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10953,7 +10953,7 @@ Partial Class Ventas
                                         If ObjFactura.TipoDocto.Contiene("Egs") Then
                                             IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero()
                                         Else
-                                            IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero()
+                                            IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaDescuento", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero()
                                         End If
 
                                         If importeMovimiento <> 0 Then