This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2021-02-04 01:25:49 -07:00
parent 45195c44e5
commit 76c0c6bdca
2 changed files with 9 additions and 8 deletions

View File

@@ -205,12 +205,7 @@ Partial Class LogIn
ADSSessionConfig.sessionUser = Usuario
ADSSessionConfig.sessionDpage = False
ObjUsuario.Dispose()
If Usuario IsNot Nothing AndAlso (
Usuario.CveRol = 1 OrElse (
(isgps AndAlso (Usuario.CvePlataforma = 3 OrElse Usuario.CveRol = 1200)) OrElse
((Not isgps) AndAlso (Usuario.CvePlataforma <> 3 AndAlso Usuario.CveRol <> 1200))
)
) Then
If Usuario IsNot Nothing Then
If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then
CreaObjetoEmpresa(Usuario)