AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Distinct en cuentas bancarias

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-04-05 17:06:40 -07:00
parent 5d210eeaa4
commit 90a030f590
1 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Bancos/CuentasBancarias.aspx.vb
View File

@@ -33,8 +33,9 @@ Partial Class Bancos_CuentasBancarias
Public Sub CargaDatos()
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancosCuentas(-1) Then
ViewState("DTBancosCuentas") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
Dim dt = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "", {"CveCuenta", "TipoCuenta", "Banco", "NumCuenta", "CLABE", "Moneda", "FInicial", "Estatus", "Fecha", "Usuario"})
ViewState("DTBancosCuentas") = dt
DtBan = dt
Else
Me.GvDatos.DataSource = Nothing
End If