SIG/Sistemas/CatIndicadoresUsuarios.aspx.vb

Option Explicit On
Option Strict On
Imports Extensiones
Imports System.Data

Partial Class Sistemas_CatIndicadoresUsuarios
    Inherits ClsPaginas

#Region "P R O P I E D A D E S"
    Public Property DtIndicadoresRoles() As DataTable
        Get
            Return CType(ViewState("DtIndicadoresRoles"), DataTable)
        End Get
        Set(ByVal value As DataTable)
            ViewState("DtIndicadoresRoles") = value
        End Set
    End Property
    Public Property DtIndicadoresUsuarios() As DataTable
        Get
            Return CType(ViewState("DtIndicadoresUsuarios"), DataTable)
        End Get
        Set(ByVal value As DataTable)
            ViewState("DtIndicadoresUsuarios") = value
        End Set
    End Property
    Public Property DtIndicadores() As DataTable
        Get
            Return CType(ViewState("DtIndicadores"), DataTable)
        End Get
        Set(ByVal value As DataTable)
            ViewState("DtIndicadores") = value
        End Set
    End Property
#End Region

    Private Sub Sistemas_CatIndicadoresUsuarios_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            CargaCombos()
            CargaDatos()
            OrdenaDatos()
        End If
    End Sub
    Private Sub CargaCombos()
        Dim ObjIndicador As New ClsIndicadores
        DdlRol.DataSource = GlobalDTRoles(UsuarioActual.CveEmpresa)
        DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
        If ObjIndicador.GetIndicadoresUsuariosEmpresa(UsuarioActual.CveEmpresa) Then
            DdlIndicador.DataSource = ObjIndicador.DtResultados
            DdlIndicadorUsuario.DataSource = ObjIndicador.DtResultados
            DtIndicadores = ObjIndicador.DtResultados
        End If
        ObjIndicador.Dispose()
        DdlRol.DataBind()
        DdlIndicador.DataBind()
        DdlIndicadorUsuario.DataBind()
        DdlUsuario.DataBind()
    End Sub
    Private Sub CargaDatos()
        Dim ObjIndicador As New ClsIndicadores
        If ObjIndicador.GetIndicadoresRoles(UsuarioActual.CveEmpresa) Then
            GvRoles.DataSource = ObjIndicador.DtResultados
            DtIndicadoresRoles = ObjIndicador.DtResultados
        End If
        If ObjIndicador.GetIndicadoresUsuarios(UsuarioActual.CveEmpresa) Then
            GvUsuarios.DataSource = ObjIndicador.DtResultados
            DtIndicadoresUsuarios = ObjIndicador.DtResultados
        End If
        ObjIndicador.Dispose()
        GvRoles.DataBind()
        GvUsuarios.DataBind()
    End Sub
#Region "I N D I C A D O R E S  -  R O L E S"
    Protected Sub LbAgregar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LbAgregar.Click
        Dim ObjIndicador As New ClsIndicadores
        Dim CveIndicador = DdlIndicador.SelectedValue.ToEntero
        Dim CveRol = DdlRol.SelectedValue.ToEntero
        If ObjIndicador.AddIndicadoresRoles(CveIndicador, CveRol) Then
            If ObjIndicador.GetIndicadoresRoles(UsuarioActual.CveEmpresa) Then
                GvRoles.DataSource = ObjIndicador.DtResultados
                DtIndicadoresRoles = ObjIndicador.DtResultados
            End If
        End If
        ObjIndicador.Dispose()
        GvRoles.DataBind()
        OrdenaDatos()
    End Sub
    'Protected Sub GvRoles_RowEditing(ByVal sender As Object, ByVal e As GridViewEditEventArgs) Handles GvRoles.RowEditing
    '    GvRoles.EditIndex = e.NewEditIndex
    '    GvRoles.DataSource = DtIndicadoresRoles
    '    GvRoles.DataBind()
    'End Sub
    Protected Sub GvRoles_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvRoles.RowDeleting
        Dim ObjIndicadores As New ClsIndicadores
        Dim CveIndicador As Integer = GvRoles.Rows(e.RowIndex).DataKey("CveIndicador").ToEntero
        Dim CveRol As Integer = GvRoles.Rows(e.RowIndex).DataKey("CveRol").ToEntero
        If ObjIndicadores.RemoveIndicadoresRoles(CveIndicador, CveRol) Then
            If ObjIndicadores.GetIndicadoresRoles(UsuarioActual.CveEmpresa) Then
                GvRoles.DataSource = ObjIndicadores.DtResultados
            End If
        End If
        ObjIndicadores.Dispose()
        GvRoles.DataBind()
        OrdenaDatos()
    End Sub
    'Protected Sub GvRoles_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRoles.RowDataBound
    '    If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then

    '        e.Row.FCDropDownList("DdlEIndicador").DataSource = DtIndicadores
    '        e.Row.FCDropDownList("DdlEIndicador").DataBind()

    '        e.Row.FCDropDownList("DdlERol").DataSource = GlobalDTRoles(UsuarioActual.CveEmpresa)
    '        e.Row.FCDropDownList("DdlERol").DataBind()
    '    End If
    'End Sub
    'Protected Sub GvRoles_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvRoles.RowUpdating
    '    Dim ObjIndicadores As New ClsIndicadores
    '    Dim CveIndicador As Integer = GvRoles.Rows(e.RowIndex).FCDropDownList("DdlEIndicador").SelectedValue.ToEntero
    '    Dim CveRol As Integer = GvRoles.Rows(e.RowIndex).FCDropDownList("DdlERol").SelectedValue.ToEntero
    '    Dim CveIndicadorAnterior As Integer = GvRoles.Rows(e.RowIndex).DataKey("CveIndicador").ToEntero
    '    Dim CveRolAnterior As Integer = GvRoles.Rows(e.RowIndex).DataKey("CveRol").ToEntero
    '    If ObjIndicadores.UpdateIndicadoresRoles(CveIndicador, CveIndicadorAnterior, CveRol, CveRolAnterior) Then
    '        If ObjIndicadores.GetIndicadoresRoles(UsuarioActual.CveEmpresa) Then
    '            DtIndicadoresRoles = ObjIndicadores.DtResultados
    '            GvRoles.DataSource = ObjIndicadores.DtResultados
    '        End If
    '    End If
    '    GvRoles.EditIndex = -1
    '    GvRoles.DataBind()
    '    ObjIndicadores.Dispose()
    'End Sub
    'Protected Sub GvRoles_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvRoles.RowCancelingEdit
    '    GvRoles.EditIndex = -1
    '    GvRoles.DataSource = DtIndicadoresRoles
    '    GvRoles.DataBind()
    'End Sub
#End Region

#Region "I N D I C A D O R E S  -  U S U A R I O S"
    Protected Sub LbAgregaIU_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LbAgregaIU.Click
        Dim ObjIndicador As New ClsIndicadores
        Dim CveIndicador = DdlIndicadorUsuario.SelectedValue.ToEntero
        Dim CveUsuario = DdlUsuario.SelectedValue.ToEntero
        If ObjIndicador.AddIndicadoresUsuarios(CveIndicador, CveUsuario) Then
            If ObjIndicador.GetIndicadoresUsuarios(UsuarioActual.CveEmpresa) Then
                GvUsuarios.DataSource = ObjIndicador.DtResultados
                DtIndicadoresUsuarios = ObjIndicador.DtResultados
            End If
        End If
        ObjIndicador.Dispose()
        GvUsuarios.DataBind()
        OrdenaDatos()
    End Sub
    'Protected Sub GvUsuarios_RowEditing(ByVal sender As Object, ByVal e As GridViewEditEventArgs) Handles GvUsuarios.RowEditing
    '    GvUsuarios.EditIndex = e.NewEditIndex
    '    GvUsuarios.DataSource = DtIndicadoresUsuarios
    '    GvUsuarios.DataBind()
    'End Sub
    Protected Sub GvUsuarios_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvUsuarios.RowDeleting
        Dim ObjIndicadores As New ClsIndicadores
        Dim CveIndicador As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveIndicador").ToEntero
        Dim CveUsuario As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero
        If ObjIndicadores.RemoveIndicadoresUsuarios(CveIndicador, CveUsuario) Then
            If ObjIndicadores.GetIndicadoresUsuarios(UsuarioActual.CveEmpresa) Then
                GvUsuarios.DataSource = ObjIndicadores.DtResultados
                DtIndicadoresUsuarios = ObjIndicadores.DtResultados
            End If
        End If
        ObjIndicadores.Dispose()
        GvUsuarios.DataBind()
        OrdenaDatos()
    End Sub
    'Protected Sub GvUsuarios_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvUsuarios.RowDataBound
    '    If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then

    '        e.Row.FCDropDownList("DdlEIndicador").DataSource = DtIndicadores
    '        e.Row.FCDropDownList("DdlEIndicador").DataBind()

    '        e.Row.FCDropDownList("DdlEUsuario").DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
    '        e.Row.FCDropDownList("DdlEUsuario").DataBind()
    '    End If
    'End Sub
    'Protected Sub GvUsuarios_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvUsuarios.RowUpdating
    '    Dim ObjIndicadores As New ClsIndicadores
    '    Dim CveIndicador As Integer = GvUsuarios.Rows(e.RowIndex).FCDropDownList("DdlEIndicador").SelectedValue.ToEntero
    '    Dim CveUsuario As Integer = GvUsuarios.Rows(e.RowIndex).FCDropDownList("DdlEUsuario").SelectedValue.ToEntero
    '    Dim CveIndicadorAnterior As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveIndicador").ToEntero
    '    Dim CveUsuarioAnterior As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero
    '    If ObjIndicadores.UpdateIndicadoresUsuarios(CveIndicador, CveIndicadorAnterior, CveUsuario, CveUsuarioAnterior) Then
    '        If ObjIndicadores.GetIndicadoresUsuarios(UsuarioActual.CveEmpresa) Then
    '            DtIndicadoresRoles = ObjIndicadores.DtResultados
    '            GvUsuarios.DataSource = ObjIndicadores.DtResultados
    '            DtIndicadoresUsuarios = ObjIndicadores.DtResultados
    '        End If
    '    End If
    '    ObjIndicadores.Dispose()
    '    GvUsuarios.EditIndex = -1
    '    GvUsuarios.DataBind()
    'End Sub
    'Protected Sub GvUsuarios_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvUsuarios.RowCancelingEdit
    '    GvUsuarios.EditIndex = -1
    '    GvUsuarios.DataSource = DtIndicadoresUsuarios
    '    GvUsuarios.DataBind()
    'End Sub
#End Region
#Region "O R D E N A M I E N T O   -  J A V A S C R I P T"
    Private Sub OrdenaDatos()
        If GvRoles.Rows.Count > 0 Then
            GvRoles.UseAccessibleHeader = True
            GvRoles.HeaderRow.TableSection = TableRowSection.TableHeader
        End If
        If GvUsuarios.Rows.Count > 0 Then
            GvUsuarios.UseAccessibleHeader = True
            GvUsuarios.HeaderRow.TableSection = TableRowSection.TableHeader
        End If
        RegistraScript("OrdenarGV();")
    End Sub

#End Region


End Class