diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index d31a60e0f..3b5a20ef5 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -319,7 +319,10 @@ Partial Class Ventas_ClientesAbonar
 
     Private Sub CargaCuentas()
         DdlCuenta.Items.Clear()
-        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=2)
+        Dim CveTipoCuenta As Integer = 2
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then CveTipoCuenta = -1 'que se muestren todas, para empresa acumuladores
+
+        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=CveTipoCuenta)
 
         If ChkPagarPesos.Checked Then
             dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))