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

-- parametros globaldtuentas usuarios

Browse Source
This commit is contained in:
rrene
2020-07-28 23:14:18 -07:00
parent c7f6f4d76c
commit 597fa4d9c7
3 changed files with 5 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsBancos.vb
View File

@@ -611,12 +611,13 @@ Public Class ClsBancos
#Region " B A N C O S - C U E N T A S - U S U A R I O S" #Region " B A N C O S - C U E N T A S - U S U A R I O S"
Public Function GetBancosCuentasUsuarios(CveCuenta As Integer) As Boolean Public Function GetBancosCuentasUsuarios(CveCuenta As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_BancosCuentasUsuariosGet") DataAdapter("PA_Banc_BancosCuentasUsuariosGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

10
App_Code/ClsPaginas.vb
View File

@@ -1459,14 +1459,8 @@ Public Class ClsPaginas
'sino existe, recarga los datos 'sino existe, recarga los datos
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjBancos As New ClsBancos Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancosCuentasUsuarios(-1) Then If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
Application(AppNombre) = ObjBancos.DtResultados
If CveEmpresa > 0 Then
Application(AppNombre) = ObjBancos.DtResultados.FiltraParametros($"CveEmpresa = { CveEmpresa }")
Else
Application(AppNombre) = ObjBancos.DtResultados
End If
Else Else
Application(AppNombre) = Nothing Application(AppNombre) = Nothing
End If End If

2
App_Code/Modelos.vb
View File

@@ -7199,7 +7199,7 @@ Namespace Modelos
'sino existe, recarga los datos 'sino existe, recarga los datos
If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then
Dim ObjBancos As New ClsBancos Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancosCuentasUsuarios(-1) Then If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
HttpContext.Current.Application(AppNombre) = ObjBancos.DtResultados HttpContext.Current.Application(AppNombre) = ObjBancos.DtResultados
Else Else
HttpContext.Current.Application(AppNombre) = Nothing HttpContext.Current.Application(AppNombre) = Nothing