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

GlobalDTOCEstatusUsuarios, GlobalDTBancosCuentas, OC anticpos

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-07-16 15:23:10 -07:00
parent 2188c6b8ce
commit 7cf2df795a
74 changed files with 855 additions and 363 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Bancos/RepIE.aspx.vb
View File

@@ -281,7 +281,7 @@ Partial Class Bancos_RepIE
CLABE = ""
Banco = ""
Dim dr As DataRow = GlobalDTBancosCuentas(-1, DdlCuenta.SelectedValue.ToEntero).FiltroPrimero("")
Dim dr As DataRow = GlobalDTBancosCuentas(-1, DdlCuenta.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
If dr IsNot Nothing Then
@@ -377,7 +377,7 @@ Partial Class Bancos_RepIE
#Region "CARGA COMBOS FILTRO"
Private Sub CargaCuenta()
DdlCuenta.Items.Clear()
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlCuenta.DataBind()
DdlCuenta.Items.Insert(0, New ListItem("Todas", "-1"))
@@ -514,7 +514,7 @@ Partial Class Bancos_RepIE
Private Sub DdlCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuenta.SelectedIndexChanged
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuenta.SelectedValue)
If dr IsNot Nothing AndAlso dr("UsaTarjeta").ToString = "True" Then
CargaGridTarjetas()