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