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

-- cambio de GlobalDTSubProyectos

Browse Source 
- cambio en GlobalDTUsuarios
This commit is contained in:
rrene
2024-08-01 05:46:28 -07:00
parent 14f053bc86
commit 1c14bceea9
240 changed files with 692 additions and 689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Sistemas/PopUpSeleccionarEmpresa.aspx.vb
View File

@@ -14,8 +14,8 @@ Partial Class PopUpSeleccionarEmpresa
End Sub
Private Sub GetEmpresas()
GlobalDTUsuarios(-1, -1) = Nothing
Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Dt IsNot Nothing Then
If Dt.Rows.Count > 0 Then
@@ -115,7 +115,7 @@ Partial Class PopUpSeleccionarEmpresa
'ObjUsuario.Dispose()
If Usuario IsNot Nothing Then
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, Usuario.CveEmpresa)
Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
Usuario.ModoSimulacion = ModoSimulacion
@@ -160,7 +160,7 @@ Partial Class PopUpSeleccionarEmpresa
'ObjUsuario.Dispose()
If Usuario IsNot Nothing Then
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario, Usuario.CveEmpresa)
Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
Usuario.ModoSimulacion = ModoSimulacion