- solo filtrar cuentas de bancos, al expedir

2021-07-01 08:40:21 -07:00
parent 4a3ce04b28
commit 9a23361c27
1 changed files with 1 additions and 1 deletions
--- 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))