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

-- cambio de clase de validación de usuario

Browse Source
This commit is contained in:
rrene
2024-06-30 23:20:27 -07:00
parent e7eb6ee199
commit aa158b198c
9 changed files with 279 additions and 341 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
Sistemas/PopUpCambiaUsuario.aspx.vb
View File

@@ -95,24 +95,10 @@ Partial Class Sistemas_PopUpCambiaUsuario
tContraseña = gvr.DataKey("Contraseña").ToString tContraseña = gvr.DataKey("Contraseña").ToString
tCveEmpresa = gvr.DataKey("CveEmpresa").ToString.ToEntero tCveEmpresa = gvr.DataKey("CveEmpresa").ToString.ToEntero
Dim tGrupoEmpresa As String = "" Dim tGrupoEmpresa As String = ClsPaginas.GlobalGrupoEmpresa(Request.Url.Host.ToUpper())
Dim NombreCadena As String = "Conexion" Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexionDominio(Request.Url.Host.ToUpper())
If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tGrupoEmpresa = "EMD"
If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH"
If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "ConexionEcono"
If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM"
If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS"
If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO"
If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tGrupoEmpresa = "VSH"
If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tGrupoEmpresa = "AJAM"
If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tGrupoEmpresa = "ALATEL"
If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tGrupoEmpresa = "SERVEC"
If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tGrupoEmpresa = "SMS"
If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tGrupoEmpresa = "VYA"
If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tGrupoEmpresa = "GRUPODIAZ"
If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tGrupoEmpresa = "FERRETERA"
Dim ObjUsuario As New ClsSisUsuarios(NombreCadena:=NombreCadena) Dim ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
Dim Usuario As Usuario Dim Usuario As Usuario
'Dim UsuarioAsignaciones As Usuario 'Dim UsuarioAsignaciones As Usuario
@@ -127,8 +113,6 @@ Partial Class Sistemas_PopUpCambiaUsuario
ADSSessionConfig.sessionUser.CvePlataforma = 3 ADSSessionConfig.sessionUser.CvePlataforma = 3
End If End If
ADSSessionConfig.sessionDpage = False ADSSessionConfig.sessionDpage = False
ADSSessionConfig.sessionUser.ModoSimulacion = True ADSSessionConfig.sessionUser.ModoSimulacion = True
If dt IsNot Nothing Then If dt IsNot Nothing Then
@@ -137,36 +121,15 @@ Partial Class Sistemas_PopUpCambiaUsuario
End If End If
End If End If
dt.Dispose() dt.Dispose()
ADSSessionConfig.sessionUser.CveEmpresa = Usuario.Empresa.CveEmpresa
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, Usuario.Empresa.CveEmpresa)
Dim ObjEmpresa As New ClsSisEmpresas()
If ObjEmpresa.GetEmpresas(tCveEmpresa, "-1", "-1", "-1", "-1") Then
If ObjEmpresa.GetEmpresasFuncionalidades(tCveEmpresa) Then
Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
Dim EmpresasFuncionalidades As New HybridDictionary
For Each Row As Data.DataRow In dttmp.Rows
EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
Next
ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
End If
UsuarioActual.Empresa = ObjEmpresa.Empresa
ADSSessionConfig.sessionUser.CveEmpresa = ObjEmpresa.Empresa.CveEmpresa
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, ObjEmpresa.Empresa.CveEmpresa)
Else
End If
ObjEmpresa.Dispose()
If UsuarioActual.CveCliente > 0 Then If UsuarioActual.CveCliente > 0 Then
CargaZonasHorarias(UsuarioActual) CargaZonasHorarias(UsuarioActual)
End If End If
End If End If
RegistraScript("gotourl();") RegistraScript("gotourl();")
End If End If
End If End If
End Sub End Sub
Private Sub CargaZonasHorarias(ByRef UsuarioActual As Usuario) Private Sub CargaZonasHorarias(ByRef UsuarioActual As Usuario)

22
Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
View File

@@ -92,25 +92,11 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa
tUsuario = gvr.DataKey("Usuario").ToString tUsuario = gvr.DataKey("Usuario").ToString
tContraseña = gvr.DataKey("Contraseña").ToString tContraseña = gvr.DataKey("Contraseña").ToString
tCveEmpresa = gvr.DataKey("CveEmpresa").ToString.ToEntero tCveEmpresa = gvr.DataKey("CveEmpresa").ToString.ToEntero
Dim tGrupoEmpresa As String = ""
Dim NombreCadena As String = "Conexion"
If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tGrupoEmpresa = "EMD" Dim tGrupoEmpresa As String = ClsPaginas.GlobalGrupoEmpresa(Request.Url.Host.ToUpper())
If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH" Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexionDominio(Request.Url.Host.ToUpper())
If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "ConexionEcono"
If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM"
If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS"
If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO"
If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tGrupoEmpresa = "VSH"
If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tGrupoEmpresa = "AJAM"
If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tGrupoEmpresa = "ALATEL"
If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tGrupoEmpresa = "SERVEC"
If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tGrupoEmpresa = "SMS"
If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tGrupoEmpresa = "VYA"
If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tGrupoEmpresa = "GRUPODIAZ"
If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tGrupoEmpresa = "FERRETERA"
Dim ObjUsuario As New ClsSisUsuarios(NombreCadena:=NombreCadena) Dim ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
Dim Usuario As Usuario Dim Usuario As Usuario
'Dim UsuarioAsignaciones As Usuario 'Dim UsuarioAsignaciones As Usuario
@@ -130,7 +116,7 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa
ADSSessionConfig.sessionUser.ModoSimulacion = False ADSSessionConfig.sessionUser.ModoSimulacion = False
ADSSessionConfig.sessionUser.ModoSimulacionXEmpresa = True ADSSessionConfig.sessionUser.ModoSimulacionXEmpresa = True
UsuarioActual.Empresa = objempresa UsuarioActual.Empresa = Usuario.Empresa
dt.Dispose() dt.Dispose()
If UsuarioActual.CveCliente > 0 Then If UsuarioActual.CveCliente > 0 Then

240
Sistemas/PopUpSeleccionarEmpresa.aspx.vb
View File

@@ -60,150 +60,136 @@ Partial Class PopUpSeleccionarEmpresa
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow) Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
If gvr IsNot Nothing Then If gvr IsNot Nothing Then
Dim tGrupoEmpresa As String = ""
Dim NombreCadena As String = "Conexion"
Dim Usuario As Usuario = Nothing
If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tGrupoEmpresa = "EMD"
If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH"
If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "ConexionEcono"
If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM"
If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS"
If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO"
If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tGrupoEmpresa = "VSH"
If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tGrupoEmpresa = "AJAM"
If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tGrupoEmpresa = "ALATEL"
If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tGrupoEmpresa = "SERVEC"
If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tGrupoEmpresa = "SMS"
If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tGrupoEmpresa = "VYA"
If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tGrupoEmpresa = "GRUPODIAZ"
If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tGrupoEmpresa = "FERRETERA"
Dim ObjUsuario As New ClsSisUsuarios(NombreCadena:=NombreCadena) Dim Usuario As Usuario = Nothing
Dim tGrupoEmpresa As String = ClsPaginas.GlobalGrupoEmpresa(Request.Url.Host.ToUpper())
Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexionDominio(Request.Url.Host.ToUpper())
Dim ObjUsuario As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
Usuario = ObjUsuario.ValidaUsuario(gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"), CveEmpresa:=gvr.DataKey("CveEmpresa").ToEntero) Usuario = ObjUsuario.ValidaUsuario(gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"), CveEmpresa:=gvr.DataKey("CveEmpresa").ToEntero)
ObjUsuario.Dispose() ObjUsuario.Dispose()
If Usuario IsNot Nothing Then If Usuario IsNot Nothing Then
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario) 'Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
Usuario.ModoSimulacion = ModoSimulacion Usuario.ModoSimulacion = ModoSimulacion
ADSSession.ADSSessionConfig.sessionUser = Usuario ADSSession.ADSSessionConfig.sessionUser = Usuario
ADSSession.ADSSessionConfig.sessionDpage = False ADSSession.ADSSessionConfig.sessionDpage = False
Usuario.MultipleEmpresa = True
If dt IsNot Nothing Then ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, e.CommandArgument.ToString().ToEntero())
If dt.Rows.Count >= 1 Then RegistraScript("Ir3();")
Dim CveEmpresa = e.CommandArgument.ToString().ToEntero() 'If dt IsNot Nothing Then
If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True ' If dt.Rows.Count >= 1 Then
Usuario.CvePlataforma = 1 ' Dim CveEmpresa = e.CommandArgument.ToString().ToEntero()
Usuario.CveEmpresa = CveEmpresa ' If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, CveEmpresa) ' Usuario.CvePlataforma = 1
CreaObjetoEmpresa(Usuario) ' Usuario.CveEmpresa = CveEmpresa
RegistraScript("Ir3();") ' ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, CveEmpresa)
End If ' CreaObjetoEmpresa(Usuario)
End If ' RegistraScript("Ir3();")
dt.Dispose() ' End If
'End If
'dt.Dispose()
End If
End If
End If
End Sub
Protected Sub GvPortalCliente_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalCliente.RowCommand
If e.CommandName = "Cambia" Then
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
If gvr IsNot Nothing Then
Dim ObjUsuario As New ClsSisUsuarios
Dim Usuario As Usuario = Nothing
Usuario = ObjUsuario.ValidaUsuarioPortalCliente(gvr.DataKey("CveCliente").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
ObjUsuario.Dispose()
If Usuario IsNot Nothing Then
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
Usuario.ModoSimulacion = ModoSimulacion
ADSSession.ADSSessionConfig.sessionUser = Usuario
ADSSession.ADSSessionConfig.sessionDpage = False
If dt IsNot Nothing Then
If dt.Rows.Count >= 1 Then
If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
Usuario.CvePlataforma = 6
UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
CreaObjetoEmpresa(Usuario)
'si la contraseña es la prederminada, pide la nueva contraseña
'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
RegistraScript("Ir4();")
End If
End If
dt.Dispose()
End If End If
End If End If
End If End If
End Sub End Sub
Protected Sub GvPortalProveedor_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalProveedor.RowCommand 'Protected Sub GvPortalCliente_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalCliente.RowCommand
If e.CommandName = "Cambia" Then ' If e.CommandName = "Cambia" Then
Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow) ' Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
If gvr IsNot Nothing Then
Dim tGrupoEmpresa As String = ""
Dim NombreCadena As String = "Conexion"
Dim Usuario As Usuario = Nothing
If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tGrupoEmpresa = "EMD"
If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH"
If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "ConexionEcono"
If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM"
If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS"
If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO"
If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tGrupoEmpresa = "VSH"
If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tGrupoEmpresa = "AJAM"
If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tGrupoEmpresa = "ALATEL"
If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tGrupoEmpresa = "SERVEC"
If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tGrupoEmpresa = "SMS"
If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tGrupoEmpresa = "VYA"
If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tGrupoEmpresa = "GRUPODIAZ"
If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tGrupoEmpresa = "FERRETERA"
Dim ObjUsuario As New ClsSisUsuarios(NombreCadena:=NombreCadena) ' If gvr IsNot Nothing Then
Usuario = ObjUsuario.ValidaUsuarioPortalProveedor(gvr.DataKey("CveProveedor").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
ObjUsuario.Dispose() ' Dim ObjUsuario As New ClsSisUsuarios
' Dim Usuario As Usuario = Nothing
If Usuario IsNot Nothing Then ' Usuario = ObjUsuario.ValidaUsuarioPortalCliente(gvr.DataKey("CveCliente").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion ' ObjUsuario.Dispose()
Usuario.ModoSimulacion = ModoSimulacion
ADSSession.ADSSessionConfig.sessionUser = Usuario ' If Usuario IsNot Nothing Then
ADSSession.ADSSessionConfig.sessionDpage = False ' Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
If dt IsNot Nothing Then ' Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
If dt.Rows.Count >= 1 Then ' Usuario.ModoSimulacion = ModoSimulacion
If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True ' ADSSession.ADSSessionConfig.sessionUser = Usuario
Usuario.CvePlataforma = 7 ' ADSSession.ADSSessionConfig.sessionDpage = False
UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa) ' If dt IsNot Nothing Then
CreaObjetoEmpresa(Usuario) ' If dt.Rows.Count >= 1 Then
'si la contraseña es la prederminada, pide la nueva contraseña ' If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False) ' Usuario.CvePlataforma = 6
RegistraScript("Ir5();") ' UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
End If ' ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
End If ' CreaObjetoEmpresa(Usuario)
dt.Dispose() ' 'si la contraseña es la prederminada, pide la nueva contraseña
End If ' 'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
' RegistraScript("Ir4();")
End If ' End If
' End If
End If ' dt.Dispose()
End Sub ' End If
' End If
' End If
'End Sub
'Protected Sub GvPortalProveedor_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GvPortalProveedor.RowCommand
' If e.CommandName = "Cambia" Then
' Dim gvr As GridViewRow = DirectCast(DirectCast(e.CommandSource, LinkButton).BindingContainer, GridViewRow)
' If gvr IsNot Nothing Then
' Dim tGrupoEmpresa As String = ""
' Dim NombreCadena As String = "Conexion"
' Dim Usuario As Usuario = Nothing
' If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tGrupoEmpresa = "EMD"
' If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH"
' If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "ConexionEcono"
' If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM"
' If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS"
' If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO"
' If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tGrupoEmpresa = "VSH"
' If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tGrupoEmpresa = "AJAM"
' If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tGrupoEmpresa = "ALATEL"
' If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tGrupoEmpresa = "SERVEC"
' If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tGrupoEmpresa = "SMS"
' If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tGrupoEmpresa = "VYA"
' If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tGrupoEmpresa = "GRUPODIAZ"
' If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tGrupoEmpresa = "FERRETERA"
' Dim ObjUsuario As New ClsSisUsuarios(NombreCadena:=NombreCadena)
' Usuario = ObjUsuario.ValidaUsuarioPortalProveedor(gvr.DataKey("CveProveedor").ToEntero(), gvr.DataKey("Usuario"), gvr.DataKey("Contraseña"))
' ObjUsuario.Dispose()
' If Usuario IsNot Nothing Then
' Dim dt As Data.DataTable = GlobalDTUsuarios(Usuario.CveUsuario)
' Dim ModoSimulacion As Boolean = ADSSession.ADSSessionConfig.sessionUser.ModoSimulacion
' Usuario.ModoSimulacion = ModoSimulacion
' ADSSession.ADSSessionConfig.sessionUser = Usuario
' ADSSession.ADSSessionConfig.sessionDpage = False
' If dt IsNot Nothing Then
' If dt.Rows.Count >= 1 Then
' If dt.Rows.Count > 1 Then Usuario.MultipleEmpresa = True
' Usuario.CvePlataforma = 7
' UsuarioActual.CveEmpresa = gvr.DataKey("CveEmpresa").ToEntero()
' ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, UsuarioActual.CveEmpresa)
' CreaObjetoEmpresa(Usuario)
' 'si la contraseña es la prederminada, pide la nueva contraseña
' 'FormsAuthentication.RedirectFromLoginPage(Encripta(Usuario.CveUsuario.ToString), False)
' RegistraScript("Ir5();")
' End If
' End If
' dt.Dispose()
' End If
' End If
' End If
'End Sub
#Region "F U N C I O N E S" #Region "F U N C I O N E S"
Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click Protected Sub BtnSetWindows_Click(sender As Object, e As System.EventArgs) Handles BtnSetWindows.Click

88
Sistemas/Usuarios.aspx.vb
View File

@@ -21,45 +21,45 @@ Partial Class Sistemas_Usuarios
End Property End Property
#Region "Permisos" #Region "Permisos"
Private Property PermisoEditar As Boolean Private Property PermisoEditar As Boolean
Get Get
Return CType(ViewState("PermisoEditar"), Boolean) Return CType(ViewState("PermisoEditar"), Boolean)
End Get End Get
Set(value As Boolean) Set(value As Boolean)
ViewState("PermisoEditar") = value ViewState("PermisoEditar") = value
End Set End Set
End Property End Property
Private Property PermisoModulos As Boolean Private Property PermisoModulos As Boolean
Get Get
Return CType(ViewState("PermisoModulos"), Boolean) Return CType(ViewState("PermisoModulos"), Boolean)
End Get End Get
Set(value As Boolean) Set(value As Boolean)
ViewState("PermisoModulos") = value ViewState("PermisoModulos") = value
End Set End Set
End Property End Property
Private Property PermisoProcesos As Boolean Private Property PermisoProcesos As Boolean
Get Get
Return CType(ViewState("PermisoProcesos"), Boolean) Return CType(ViewState("PermisoProcesos"), Boolean)
End Get End Get
Set(value As Boolean) Set(value As Boolean)
ViewState("PermisoProcesos") = value ViewState("PermisoProcesos") = value
End Set End Set
End Property End Property
Private Property PermisoRestablecerContraseña As Boolean Private Property PermisoRestablecerContraseña As Boolean
Get Get
Return CType(ViewState("PermisoProcesos"), Boolean) Return CType(ViewState("PermisoProcesos"), Boolean)
End Get End Get
Set(value As Boolean) Set(value As Boolean)
ViewState("PermisoProcesos") = value ViewState("PermisoProcesos") = value
End Set End Set
End Property End Property
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
@@ -67,12 +67,12 @@ Partial Class Sistemas_Usuarios
ViewState("CveRol") = -1 ViewState("CveRol") = -1
CargarEmpresa() CargarEmpresa()
CargaDatos() CargaDatos()
End If End If
End Sub End Sub
Public Sub CargaDatos() Public Sub CargaDatos()
Dim Usuario As New ClsSisUsuarios Dim Usuario As New ClsSisUsuarios
If Usuario.GetUsuarios(-1, -1, Estatus:=DdlEsatus.SelectedValue.ToEntero) Then If Usuario.GetUsuarios(-1, -1, Estatus:=DdlEsatus.SelectedValue.ToEntero) Then
If UsuarioActual.CveRol <> 1 Then If UsuarioActual.CveRol <> 1 Then
DtUsuarios = Usuario.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0} AND CveRol <> 1", DdlEmpresa.SelectedValue)) DtUsuarios = Usuario.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0} AND CveRol <> 1", DdlEmpresa.SelectedValue))
@@ -84,13 +84,13 @@ Partial Class Sistemas_Usuarios
GvDatos.DataSource = Nothing GvDatos.DataSource = Nothing
End If End If
Usuario.Dispose() Usuario.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString()) CargaGrid(ViewState("Orden").ToString())
Else Else
CargaGrid("") CargaGrid("")
End If End If
End Sub End Sub
Protected Sub consultar_Click(sender As Object, e As EventArgs) Protected Sub consultar_Click(sender As Object, e As EventArgs)

19
asmx/WSApp.asmx
View File

@@ -70,15 +70,14 @@ Public Class WSApp
#Region "M E T O D O S - S E R V I C I O" #Region "M E T O D O S - S E R V I C I O"
Public Function ValidaUsuario(CveUsuario As Integer) As Usuario Public Function ValidaUsuario(CveUsuario As Integer) As Usuario
Dim UsuarioActual As Usuario = Nothing Dim UsuarioActual As Usuario = Nothing
Dim ObjUsuarios As New ClsSisUsuarios Dim ObjUsuarios As New ClsSisUsuarioAutenticacion
If ObjUsuarios.GetUsuarios(CveUsuario) Then UsuarioActual = ObjUsuarios.GetUsuarioDetalle(CveUsuario)
If ObjUsuarios.DtResultados.Rows.Count > 0 Then 'If UsuarioActual IsNot Nothing Then
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() ' Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() ' Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia) ' UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia)
CreaObjetoEmpresa(UsuarioActual)
End If 'End If
End If
ObjUsuarios.Dispose() ObjUsuarios.Dispose()
Return UsuarioActual Return UsuarioActual
End Function End Function
@@ -87,7 +86,7 @@ Public Class WSApp
Dim retorno As String = "" Dim retorno As String = ""
Dim Salida As WSUSER = Nothing Dim Salida As WSUSER = Nothing
Dim ObjUsuarios As New ClsSisUsuarios Dim ObjUsuarios As New ClsSisUsuarioAutenticacion
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
Try Try
Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Encripta(Contrasenia)) Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Encripta(Contrasenia))

2
asmx/WSCGame.asmx
View File

@@ -42,7 +42,7 @@ Public Class WSCGame
Dim Entrada = JsonConvert.DeserializeAnonymousType(decripParams, Estructura) Dim Entrada = JsonConvert.DeserializeAnonymousType(decripParams, Estructura)
If Not IsNothing(Entrada) Then If Not IsNothing(Entrada) Then
Dim tUsuario As New ClsSisUsuarios Dim tUsuario As New ClsSisUsuarioAutenticacion
Dim UsuarioActual = tUsuario.ValidaUsuario(Entrada.Usuario, Encripta(Entrada.Contrasenia)) Dim UsuarioActual = tUsuario.ValidaUsuario(Entrada.Usuario, Encripta(Entrada.Contrasenia))
tUsuario.Dispose() tUsuario.Dispose()

172
asmx/WSGPSApp.asmx
View File

@@ -115,7 +115,7 @@ Public Class WSGPSApp
<WebMethod> <WebMethod>
Public Function Login(params As String) As String Public Function Login(params As String) As String
Dim Retorno As String = "" Dim Retorno As String = ""
Dim ObjUsuarios As New ClsSisUsuarios Dim ObjUsuarios As New ClsSisUsuarioAutenticacion
Try Try
Dim json = Decripta(params, "AES") Dim json = Decripta(params, "AES")
Dim Datos As MWSLogin2 = JsonConvert.DeserializeObject(Of MWSLogin2)(json) Dim Datos As MWSLogin2 = JsonConvert.DeserializeObject(Of MWSLogin2)(json)
@@ -137,8 +137,8 @@ Public Class WSGPSApp
Dim UsuariosModulos As New List(Of WsModulos) Dim UsuariosModulos As New List(Of WsModulos)
Dim Empresas As New List(Of WsEmpresa) Dim Empresas As New List(Of WsEmpresa)
Dim Clientes As New List(Of WsClientePortalGPS) Dim Clientes As New List(Of WsClientePortalGPS)
Dim objUsr As New ClsSisUsuarios(UsuarioActual:=UsuarioActual)
If ObjUsuarios.GetUsuariosModulos(UsuarioRetorno.CveUsuario, -1) Then If objUsr.GetUsuariosModulos(UsuarioRetorno.CveUsuario, -1) Then
Dim DtModulos As DataTable = ObjUsuarios.DtResultados.FiltraParametros("CvePlataforma = 5 AND Permitir = 1") Dim DtModulos As DataTable = ObjUsuarios.DtResultados.FiltraParametros("CvePlataforma = 5 AND Permitir = 1")
For Each Row As DataRow In DtModulos.Rows For Each Row As DataRow In DtModulos.Rows
UsuariosModulos.Add(New WsModulos With {.CveModulo = Row("CveModulo").ToString.ToEntero, .CvePadre = Row("CvePadre").ToString.ToEntero, .CvePlataforma = 5, .Estilo = Row("Estilo").ToString, .Liga = Row("Liga").ToString, .Modulo = Row("Modulo").ToString, .Parametros = Row("Parametros").ToString}) UsuariosModulos.Add(New WsModulos With {.CveModulo = Row("CveModulo").ToString.ToEntero, .CvePadre = Row("CvePadre").ToString.ToEntero, .CvePlataforma = 5, .Estilo = Row("Estilo").ToString, .Liga = Row("Liga").ToString, .Modulo = Row("Modulo").ToString, .Parametros = Row("Parametros").ToString})
@@ -146,6 +146,7 @@ Public Class WSGPSApp
DtModulos.Dispose() DtModulos.Dispose()
DtModulos = Nothing DtModulos = Nothing
End If End If
objUsr.Dispose()
UsuarioRetorno.Modulos = UsuariosModulos UsuarioRetorno.Modulos = UsuariosModulos
Dim DtClientes As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa") Dim DtClientes As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltraParametros("CvePlataforma = 3 AND CveCliente IS NOT NULL", "Empresa")
If DtClientes IsNot Nothing Then If DtClientes IsNot Nothing Then
@@ -185,96 +186,97 @@ Public Class WSGPSApp
End Function End Function
'<SoapHeader("Credentials")> '<SoapHeader("Credentials")>
<WebMethod> '<WebMethod>
Public Function Login2(params As String) As String 'Public Function Login2(params As String) As String
Dim Retorno As String = "" ' Dim Retorno As String = ""
Dim ObjUsuarios As New ClsSisUsuarios ' Dim ObjUsuarios As New ClsSisUsuarioAutenticacion
Try ' Try
Dim json = Decripta(params, "AES") ' Dim json = Decripta(params, "AES")
Dim Datos As MWSLogin2 = JsonConvert.DeserializeObject(Of MWSLogin2)(json) ' Dim Datos As MWSLogin2 = JsonConvert.DeserializeObject(Of MWSLogin2)(json)
Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES"))) ' Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Decripta(Datos.Usuario, "AES"), Encripta(Decripta(Datos.Contraseña, "AES")))
If UsuarioActual IsNot Nothing Then ' If UsuarioActual IsNot Nothing Then
Dim UsuarioRetorno As New WSUSER2 ' Dim UsuarioRetorno As New WSUSER2
UsuarioRetorno.CveUsuario = UsuarioActual.CveUsuario ' UsuarioRetorno.CveUsuario = UsuarioActual.CveUsuario
UsuarioRetorno.CveEmpresa = UsuarioActual.CveEmpresa ' UsuarioRetorno.CveEmpresa = UsuarioActual.CveEmpresa
UsuarioRetorno.CveCliente = UsuarioActual.CveCliente ' UsuarioRetorno.CveCliente = UsuarioActual.CveCliente
UsuarioRetorno.Usuario = UsuarioActual.Usuario ' UsuarioRetorno.Usuario = UsuarioActual.Usuario
UsuarioRetorno.Nombre = UsuarioActual.Nombre ' UsuarioRetorno.Nombre = UsuarioActual.Nombre
UsuarioRetorno.CveRol = UsuarioActual.CveRol ' UsuarioRetorno.CveRol = UsuarioActual.CveRol
UsuarioRetorno.Rol = UsuarioActual.Rol ' UsuarioRetorno.Rol = UsuarioActual.Rol
UsuarioRetorno.Contrasenia = UsuarioActual.Contraseña ' UsuarioRetorno.Contrasenia = UsuarioActual.Contraseña
UsuarioRetorno.CveSubProyecto = UsuarioActual.CveSubProyecto ' UsuarioRetorno.CveSubProyecto = UsuarioActual.CveSubProyecto
UsuarioRetorno.Procesos = UsuarioActual.Procesos.Values.Cast(Of String).ToList() ' UsuarioRetorno.Procesos = UsuarioActual.Procesos.Values.Cast(Of String).ToList()
Dim UsuariosModulos As New List(Of WsModulos) ' Dim UsuariosModulos As New List(Of WsModulos)
Dim Empresas As New List(Of WsEmpresa) ' Dim Empresas As New List(Of WsEmpresa)
Dim Clientes As New List(Of WsClientePortalGPS) ' Dim Clientes As New List(Of WsClientePortalGPS)
If ObjUsuarios.GetUsuariosModulos(UsuarioRetorno.CveUsuario, -1) Then ' Dim objUsr As New ClsSisUsuarios(UsuarioActual:=UsuarioActual)
Dim DtModulos As DataTable = ObjUsuarios.DtResultados.FiltraParametros("CvePlataforma = 5 AND Permitir = 1") ' If objUsr.GetUsuariosModulos(UsuarioRetorno.CveUsuario, -1) Then
For Each Row As DataRow In DtModulos.Rows ' Dim DtModulos As DataTable = ObjUsuarios.DtResultados.FiltraParametros("CvePlataforma = 5 AND Permitir = 1")
UsuariosModulos.Add(New WsModulos With {.CveModulo = Row("CveModulo").ToString.ToEntero, .CvePadre = Row("CvePadre").ToString.ToEntero, .CvePlataforma = 5, .Estilo = Row("Estilo").ToString, .Liga = Row("Liga").ToString, .Modulo = Row("Modulo").ToString, .Parametros = Row("Parametros").ToString}) ' For Each Row As DataRow In DtModulos.Rows
Next ' UsuariosModulos.Add(New WsModulos With {.CveModulo = Row("CveModulo").ToString.ToEntero, .CvePadre = Row("CvePadre").ToString.ToEntero, .CvePlataforma = 5, .Estilo = Row("Estilo").ToString, .Liga = Row("Liga").ToString, .Modulo = Row("Modulo").ToString, .Parametros = Row("Parametros").ToString})
DtModulos.Dispose() ' Next
DtModulos = Nothing ' DtModulos.Dispose()
End If ' DtModulos = Nothing
' End If
' objUsr.Dispose()
' UsuarioRetorno.Modulos = UsuariosModulos
' Dim DtClientes As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltraParametros("CvePlataforma = 3 AND CveCliente > 0", "Empresa")
' If DtClientes IsNot Nothing Then
' If DtClientes.Rows.Count > 0 Then
' For Each Row As DataRow In DtClientes.Rows
' Clientes.Add(New WsClientePortalGPS With {.CveCliente = Row("CveCliente").ToString.ToEntero, .Cliente = Row("Cliente").ToString})
' Next
' If UsuarioActual.CveCliente <= 0 AndAlso Clientes.Any() Then
' UsuarioRetorno.CveCliente = Clientes.FirstOrDefault().CveCliente
' If UsuarioActual.CveCliente <= 0 AndAlso Clientes.Any() Then
' UsuarioRetorno.CveCliente = Clientes.FirstOrDefault().CveCliente
' If UsuarioRetorno.CveCliente > 0 Then
' CreaObjetoEmpresa(UsuarioActual)
' If UsuarioActual.Empresa.Funcionalidad(704).Contiene(UsuarioRetorno.CveCliente.ToString()) OrElse UsuarioActual.CveUsuario = 3612 Then
' UsuarioRetorno.RastreoSoloInicio = True
' End If
' End If
' End If
' End If
' End If
' End If
UsuarioRetorno.Modulos = UsuariosModulos ' 'MARCA PARA EL RASTREO SOLO INICIO
Dim DtClientes As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario).FiltraParametros("CvePlataforma = 3 AND CveCliente > 0", "Empresa") ' If UsuarioRetorno.CveUsuario = 3612 Then
If DtClientes IsNot Nothing Then ' UsuarioRetorno.RastreoSoloInicio = True
If DtClientes.Rows.Count > 0 Then ' End If
For Each Row As DataRow In DtClientes.Rows
Clientes.Add(New WsClientePortalGPS With {.CveCliente = Row("CveCliente").ToString.ToEntero, .Cliente = Row("Cliente").ToString})
Next
If UsuarioActual.CveCliente <= 0 AndAlso Clientes.Any() Then
UsuarioRetorno.CveCliente = Clientes.FirstOrDefault().CveCliente
If UsuarioActual.CveCliente <= 0 AndAlso Clientes.Any() Then
UsuarioRetorno.CveCliente = Clientes.FirstOrDefault().CveCliente
If UsuarioRetorno.CveCliente > 0 Then
CreaObjetoEmpresa(UsuarioActual)
If UsuarioActual.Empresa.Funcionalidad(704).Contiene(UsuarioRetorno.CveCliente.ToString()) OrElse UsuarioActual.CveUsuario = 3612 Then
UsuarioRetorno.RastreoSoloInicio = True
End If
End If
End If
End If
End If
End If
'MARCA PARA EL RASTREO SOLO INICIO ' UsuarioRetorno.Clientes = Clientes
If UsuarioRetorno.CveUsuario = 3612 Then ' DtClientes.Dispose()
UsuarioRetorno.RastreoSoloInicio = True ' DtClientes = Nothing
End If ' Retorno = Encripta(JsonConvert.SerializeObject(UsuarioRetorno), "AES")
' Else
' Dim UsuarioError As New WSUSER2
' UsuarioError.CveUsuario = -2
' UsuarioError.CveEmpresa = -1
' UsuarioError.CveCliente = -1
' UsuarioError.Usuario = ""
' UsuarioError.Nombre = ""
' UsuarioError.CveRol = -1
' UsuarioError.Rol = ""
' UsuarioError.Contrasenia = ""
' UsuarioError.CveSubProyecto = -1
UsuarioRetorno.Clientes = Clientes ' Retorno = Encripta(JsonConvert.SerializeObject(UsuarioError), "AES")
DtClientes.Dispose() ' End If
DtClientes = Nothing
Retorno = Encripta(JsonConvert.SerializeObject(UsuarioRetorno), "AES")
Else
Dim UsuarioError As New WSUSER2
UsuarioError.CveUsuario = -2
UsuarioError.CveEmpresa = -1
UsuarioError.CveCliente = -1
UsuarioError.Usuario = ""
UsuarioError.Nombre = ""
UsuarioError.CveRol = -1
UsuarioError.Rol = ""
UsuarioError.Contrasenia = ""
UsuarioError.CveSubProyecto = -1
Retorno = Encripta(JsonConvert.SerializeObject(UsuarioError), "AES") ' Catch ex As Exception
End If ' Retorno = ""
' OnError("Ocurrio un error al iniciar sesion.", ex)
' Finally
' ObjUsuarios.Dispose()
' End Try
' Return Retorno
Catch ex As Exception 'End Function
Retorno = ""
OnError("Ocurrio un error al iniciar sesion.", ex)
Finally
ObjUsuarios.Dispose()
End Try
Return Retorno
End Function
<WebMethod> <WebMethod>
Public Function GetPosicionesEquipos(strParams As String) As String Public Function GetPosicionesEquipos(strParams As String) As String
Dim json = "[]" Dim json = "[]"

28
asmx/WSSIGApp.asmx
View File

@@ -474,7 +474,7 @@ Public Class WSSIGApp
If Not IsNothing(Entrada) Then If Not IsNothing(Entrada) Then
If IsCurrentDate(Entrada.Ticks) Then If IsCurrentDate(Entrada.Ticks) Then
Dim ObjUsuarios As New ClsSisUsuarios Dim ObjUsuarios As New ClsSisUsuarioAutenticacion
Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Entrada.Usuario, Encripta(Entrada.Contrasenia), IMEI) Dim UsuarioActual = ObjUsuarios.ValidaUsuario(Entrada.Usuario, Encripta(Entrada.Contrasenia), IMEI)
If UsuarioActual IsNot Nothing Then If UsuarioActual IsNot Nothing Then
@@ -491,8 +491,8 @@ Public Class WSSIGApp
Dim UsuariosModulos As New List(Of WsModulos) Dim UsuariosModulos As New List(Of WsModulos)
Dim Empresas As New List(Of WsEmpresa) Dim Empresas As New List(Of WsEmpresa)
Dim objUsr As New ClsSisUsuarios(UsuarioActual:=UsuarioActual)
If ObjUsuarios.GetUsuariosModulos(Salida.CveUsuario, Salida.CveEmpresa) Then If objUsr.GetUsuariosModulos(Salida.CveUsuario, Salida.CveEmpresa) Then
Dim dttmp As DataTable = ObjUsuarios.DtResultados.FiltraParametros("CvePlataforma = 4") Dim dttmp As DataTable = ObjUsuarios.DtResultados.FiltraParametros("CvePlataforma = 4")
For Each Row As DataRow In dttmp.Rows For Each Row As DataRow In dttmp.Rows
UsuariosModulos.Add(New WsModulos With {.CveModulo = Row("CveModulo").ToString.ToEntero, .CvePadre = Row("CvePadre").ToString.ToEntero, .CvePlataforma = 4, .Estilo = Row("Estilo").ToString, .Liga = Row("Liga").ToString, .Modulo = Row("Modulo").ToString}) UsuariosModulos.Add(New WsModulos With {.CveModulo = Row("CveModulo").ToString.ToEntero, .CvePadre = Row("CvePadre").ToString.ToEntero, .CvePlataforma = 4, .Estilo = Row("Estilo").ToString, .Liga = Row("Liga").ToString, .Modulo = Row("Modulo").ToString})
@@ -511,7 +511,7 @@ Public Class WSSIGApp
' End If ' End If
'End If 'End If
If ObjUsuarios.GetUsuariosEmpresas(Salida.CveUsuario, Salida.CveEmpresa) Then If objUsr.GetUsuariosEmpresas(Salida.CveUsuario, Salida.CveEmpresa) Then
For Each Row As DataRow In ObjUsuarios.DtResultados.FiltraParametros("", "", {"CveEmpresa", "CveEncuestaCRM", "Empresa", "Tipo_CentroCosto"}).Rows For Each Row As DataRow In ObjUsuarios.DtResultados.FiltraParametros("", "", {"CveEmpresa", "CveEncuestaCRM", "Empresa", "Tipo_CentroCosto"}).Rows
Empresas.Add(New WsEmpresa With { Empresas.Add(New WsEmpresa With {
.CveEmpresa = Row("CveEmpresa").ToString.ToEntero(), .CveEmpresa = Row("CveEmpresa").ToString.ToEntero(),
@@ -523,7 +523,7 @@ Public Class WSSIGApp
Salida.Empresas = Empresas Salida.Empresas = Empresas
ObjUsuarios.Dispose() ObjUsuarios.Dispose()
objUsr.Dispose()
retorno = Encripta(JsonConvert.SerializeObject(Salida), "AES") retorno = Encripta(JsonConvert.SerializeObject(Salida), "AES")
End If End If
End If End If
@@ -548,7 +548,7 @@ Public Class WSSIGApp
Dim Salida As WSUSER = Nothing Dim Salida As WSUSER = Nothing
Try Try
Dim tUsuario As New ClsSisUsuarios Dim tUsuario As New ClsSisUsuarioAutenticacion
Dim UsuarioActual = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI) Dim UsuarioActual = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI)
If UsuarioActual IsNot Nothing Then If UsuarioActual IsNot Nothing Then
@@ -565,18 +565,20 @@ Public Class WSSIGApp
Dim UsuariosModulos As New List(Of WsModulos) Dim UsuariosModulos As New List(Of WsModulos)
Dim Empresas As New List(Of WsEmpresa) Dim Empresas As New List(Of WsEmpresa)
If tUsuario.GetUsuariosModulos(Salida.CveUsuario, Salida.CveEmpresa) Then Dim objUsr As New ClsSisUsuarios(UsuarioActual:=UsuarioActual)
If objUsr.GetUsuariosModulos(Salida.CveUsuario, Salida.CveEmpresa) Then
Dim dttmp As DataTable = tUsuario.DtResultados.FiltraParametros("CvePlataforma = 4") Dim dttmp As DataTable = tUsuario.DtResultados.FiltraParametros("CvePlataforma = 4")
For Each Row As DataRow In dttmp.Rows For Each Row As DataRow In dttmp.Rows
UsuariosModulos.Add(New WsModulos With {.CveModulo = Row("CveModulo").ToString.ToEntero, .CvePadre = Row("CvePadre").ToString.ToEntero, .CvePlataforma = 4, .Estilo = Row("Estilo").ToString, .Liga = Row("Liga").ToString, .Modulo = Row("Modulo").ToString}) UsuariosModulos.Add(New WsModulos With {.CveModulo = Row("CveModulo").ToString.ToEntero, .CvePadre = Row("CvePadre").ToString.ToEntero, .CvePlataforma = 4, .Estilo = Row("Estilo").ToString, .Liga = Row("Liga").ToString, .Modulo = Row("Modulo").ToString})
Next Next
End If End If
Salida.Modulos = UsuariosModulos Salida.Modulos = UsuariosModulos
If tUsuario.GetUsuariosEmpresas(Salida.CveUsuario, Salida.CveEmpresa) Then If objUsr.GetUsuariosEmpresas(Salida.CveUsuario, Salida.CveEmpresa) Then
For Each Row As DataRow In tUsuario.DtResultados.Rows For Each Row As DataRow In tUsuario.DtResultados.Rows
Empresas.Add(New WsEmpresa With {.CveEmpresa = Row("CveEmpresa").ToString.ToEntero, .Empresa = Row("Empresa").ToString}) Empresas.Add(New WsEmpresa With {.CveEmpresa = Row("CveEmpresa").ToString.ToEntero, .Empresa = Row("Empresa").ToString})
Next Next
End If End If
objUsr.Dispose()
Salida.Empresas = Empresas Salida.Empresas = Empresas
retorno = JsonConvert.SerializeObject(Salida) retorno = JsonConvert.SerializeObject(Salida)
End If End If
@@ -603,7 +605,7 @@ Public Class WSSIGApp
Dim Ent = JsonConvert.DeserializeAnonymousType(decripParams, Estructura) Dim Ent = JsonConvert.DeserializeAnonymousType(decripParams, Estructura)
If IsCurrentDate(Ent.Ticks) Then If IsCurrentDate(Ent.Ticks) Then
Dim tUsuario As New ClsSisUsuarios Dim tUsuario As New ClsSisUsuarioAutenticacion
Dim UsuarioActual = tUsuario.ValidaUsuario(Ent.Usuario, Ent.Contrasenia, IMEI) Dim UsuarioActual = tUsuario.ValidaUsuario(Ent.Usuario, Ent.Contrasenia, IMEI)
tUsuario.Dispose() tUsuario.Dispose()
@@ -1784,15 +1786,15 @@ Public Class WSSIGApp
Public Function AddVentas(TipoDocto As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuario As Integer, SubTotal As Decimal, IVA As Decimal, CveMoneda As Integer, Observaciones As String, Productos As String) As String Public Function AddVentas(TipoDocto As String, CveCliente As Integer, CveSubProyecto As Integer, CveUsuario As Integer, SubTotal As Decimal, IVA As Decimal, CveMoneda As Integer, Observaciones As String, Productos As String) As String
Dim Retorno = New Modelos.Factura.MMensajeFactura() Dim Retorno = New Modelos.Factura.MMensajeFactura()
Try Try
Dim ObjUsuarios As New ClsSisUsuarios() Dim ObjUsuarios As New ClsSisUsuarioAutenticacion
Dim UsuarioActual As Usuario = Nothing Dim UsuarioActual As Usuario = ObjUsuarios.GetUsuarioDetalle(CveUsuario)
If ObjUsuarios.GetUsuarios(CveUsuario) Then If UsuarioActual IsNot Nothing Then
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
If ObjUsuarios.DtResultados.Rows.Count = 1 Then If ObjUsuarios.DtResultados.Rows.Count = 1 Then
UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI) UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI)
CreaObjetoEmpresa(UsuarioActual) ' CreaObjetoEmpresa(UsuarioActual)
End If End If
End If End If
ObjUsuarios.Dispose() ObjUsuarios.Dispose()

2
asmx/WS_PuntoVenta.asmx
View File

@@ -739,7 +739,7 @@ Public Class WS_PuntoVenta
<WebMethod()> <WebMethod()>
Public Function GetUsuariosRolesProcesos(Usuario As String, Contraseña As String, CveProceso As Integer) As Integer Public Function GetUsuariosRolesProcesos(Usuario As String, Contraseña As String, CveProceso As Integer) As Integer
Dim CveUsuario As Integer = -1 Dim CveUsuario As Integer = -1
Dim objUsuarios As New ClsSisUsuarios Dim objUsuarios As New ClsSisUsuarioAutenticacion
Dim objUsuario As New Usuario Dim objUsuario As New Usuario
objUsuario = objUsuarios.ValidaUsuario(Usuario, Encripta(Contraseña)) objUsuario = objUsuarios.ValidaUsuario(Usuario, Encripta(Contraseña))