From f305e59824cb04261c6e232b9d1041615c8a374a Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Thu, 22 Oct 2020 21:28:10 -0700
Subject: [PATCH] --globaldtbancoscuentas, filtro de tipocuenta

---
 App_Code/ClsPaginas.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index a1583a93a..09df9fe34 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1490,7 +1490,7 @@ Public Class ClsPaginas
     '        Application("GlobalDTBancosCuentas") = value
     '    End Set
     'End Property
-    Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1) As DataTable
+    Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1, Optional CveTipoCuenta As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTBancosCuentas-{0}", CveEmpresa)
             'sino existe, recarga los datos
@@ -1506,6 +1506,7 @@ Public Class ClsPaginas
 
             Dim Str As String = String.Format("CveEmpresa = {0} ", UsuarioActual.CveEmpresa)
             If CveUsuario > -1 Then Str = String.Format("{0} AND CveUsuario = {1}", Str, CveUsuario)
+            If CveTipoCuenta > -1 Then Str = String.Format("{0} AND CveTipoCuenta = {1}", Str, CveTipoCuenta)
             If CveCuenta > -1 Then Str = String.Format("{0} AND CveCuenta = {1}", Str, CveCuenta)
             If Estatus > -1 Then Str = String.Format("{0} AND Estatus = '{1}'", Str, If(Estatus = 1, "Activo", "Inactivo"))