70 lines
3.1 KiB
VB.net
70 lines
3.1 KiB
VB.net
Option Strict On
|
|
Imports Extensiones
|
|
Imports System.Data
|
|
|
|
Partial Class GPS_UsuariosRastreo
|
|
Inherits ClsPaginas
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
CargaUsuarios()
|
|
LnkAddUsuario.Attributes.Add("onclick", $"javascript:AbrirVentana('/Sistemas/PopUpAddUsuario.aspx?CveCliente={UsuarioActual.CveCliente}', 801, 700);")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaUsuarios()
|
|
Dim DtUsuarios As DataTable = Nothing
|
|
|
|
If UsuarioActual.CveCliente > 0 AndAlso UsuarioActual.CvePlataforma = 3 Then
|
|
|
|
If UsuarioActual.CveRol = 1198 Then
|
|
LnkAddUsuario.Visible = True
|
|
DtUsuarios = GlobalDTUsuarios(CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente} AND CveRol = 1200 AND Estatus = 1")
|
|
ElseIf UsuarioActual.CveRol = 1200 Then
|
|
If UsuarioActual.TienePermisoProceso(214) Then
|
|
LnkAddUsuario.Visible = True
|
|
DtUsuarios = GlobalDTUsuarios(CveCliente:=UsuarioActual.CveCliente).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente} AND Estatus = 1 AND (CveUsuario = {UsuarioActual.CveUsuario} OR CveUsuarioIng = {UsuarioActual.CveUsuario})")
|
|
Else
|
|
DtUsuarios = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.CveCliente, -1).FiltraParametros($"CveCliente = {UsuarioActual.CveCliente}")
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
If DtUsuarios IsNot Nothing Then
|
|
DtUsuarios = DtUsuarios.FiltraParametros("", "", {"CveUsuario", "Usuario", "Nombre", "FechaUltimoAcceso", "Estatus"})
|
|
End If
|
|
GvUsuarios.DataSource = DtUsuarios
|
|
GvUsuarios.DataBind()
|
|
|
|
UpGvUsuarios.Update()
|
|
End Sub
|
|
|
|
Protected Sub GvUsuarios_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvUsuarios.RowDeleting
|
|
Dim ObjUsuarios As New ClsSisUsuarios
|
|
Dim CveUsuario As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero
|
|
If ObjUsuarios.DeleteClienteUsuario(CveUsuario, UsuarioActual.CveCliente) Then
|
|
Alert("El Usuario se eliminó correctamente", TipoMensaje.MsgInformacion)
|
|
End If
|
|
ObjUsuarios.Dispose()
|
|
CargaGlobal()
|
|
CargaUsuarios()
|
|
End Sub
|
|
|
|
Public Sub CargaGlobal()
|
|
Dim ObjUsuarios As New ClsSisUsuarios
|
|
If ObjUsuarios.GetUsuariosEmpresas(-1) Then
|
|
GlobalDTUsuarios(-1) = ObjUsuarios.DtResultados
|
|
Else
|
|
GlobalDTUsuarios() = Nothing
|
|
End If
|
|
ObjUsuarios.Dispose()
|
|
End Sub
|
|
|
|
Protected Sub GvUsuarios_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuarios.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
e.Row.FCLinkButton("imgE").Attributes.Add("onclick", $"javascript:AbrirVentana('/Sistemas/PopUpAddUsuario.aspx?CveUsuario={e.Row.DBCampo("CveUsuario").ToString}&CveCliente={UsuarioActual.CveCliente}', 801, 701);")
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|