Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
221
Sistemas/CatIndicadoresUsuarios.aspx.vb
Normal file
221
Sistemas/CatIndicadoresUsuarios.aspx.vb
Normal file
@@ -0,0 +1,221 @@
|
||||
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
|
||||
Reference in New Issue
Block a user