diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 2a62a241d..092cdd87e 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -243,7 +243,7 @@ Partial Class Compras_ReembolsosComprobaciones
     Private Sub CargaCuentas()
         DdlCuenta.Items.Clear()
         DdlCuenta.SelectedIndex = -1
-        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
+        Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=2) 'solo cuentas "bancarias"
 
         dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))