SanchoToro/GestionGrupoSanchoToro/ucPermiso.xaml.vb

Imports DevExpress.Xpf.Editors
Imports DevExpress.Xpf.LayoutControl
Imports tsWPFCore
Imports System.ComponentModel
Imports System.Data
Imports DevExpress.Xpf.Editors.Validation
Imports DevExpress.Xpf.Editors.Helpers
Imports DevExpress.Xpf.Core
Imports tsWPFCore.modExtensiones
Imports System.Data.Common
Imports System.Data.Entity
Imports bdGrupoSanchoToro.db
Imports tsUtilidades.Datos
Imports DevExpress.Xpf.Bars
Imports DevExpress.Xpf.Grid
Imports System.Collections
Imports tsEFCore8.Extensiones
Imports bdGrupoSanchoToro.db.Utilidades
Imports bdGrupoSanchoToro.db.tscGrupoSanchoToro
Imports System.Data.Objects.DataClasses
Public Class ucPermiso
    ''faltan cosas que pasar (ej: init row) no me dejan po el error base
    Private bd As tscGrupoSanchoToro
    Private _idPermiso As Integer?

    Public Sub New(idPermiso As Integer?)

        ' Esta llamada es exigida por el diseñador.
        _idPermiso = idPermiso
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

    End Sub

    Public Overrides ReadOnly Property idRegistroAplicacionActual As String
        Get
            If Estado = tsUtilidades.EstadosAplicacion.Nuevo Then
                Return "Permiso.Nuevo"
            Else
                Return "Permiso." & DirectCast(Me.DataContext, bdGrupoSanchoToro.db.permisos).idPermiso.ToString
            End If
        End Get
    End Property

    Public Overrides ReadOnly Property DescripcionRegistro As String
        Get
            Return "Permisos"
        End Get
    End Property

    Public Overrides ReadOnly Property NombreTablaBase As String
        Get
            Return "permisos"
        End Get
    End Property

    Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
        Dim listagru = (From gru In bd.gruposusuarios Select gru).ToList
        Me.cbGrupo.ItemsSource = listagru

        Dim listausu = (From usu In bd.usuarios Select usu).ToList
        Me.cbUsuario.ItemsSource = listausu
    End Sub

    Public Overrides Sub EstableceTitulo()
        Me.docpanel.Caption = "Permiso"
    End Sub

    Public Overrides Sub Cargado()
        Me.Tipo_ucControlBusqueda = GetType(ucPermisos)
    End Sub

    Public Overrides Function EstableceDCPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
        Dim NuevoEstado As tsUtilidades.EstadosAplicacion
        Dim ra As bdGrupoSanchoToro.db.permisos
        If FuerzaNuevo OrElse _idPermiso Is Nothing Then
            ra = New bdGrupoSanchoToro.db.permisos
            NuevoEstado = tsUtilidades.EstadosAplicacion.Nuevo
        Else
            Dim id As Integer = _idPermiso
            ra = bd.permisos.First(Function(X) X.idPermiso = id)
            NuevoEstado = tsUtilidades.EstadosAplicacion.ModificandoRegistro
        End If
        Me.DataContext = ra
        Me.AutorizacionesGruposGridControl.ItemsSource = ra.autorizacionesgrupos
        Me.AutorizacionesUsuariosGridControl.ItemsSource = ra.autorizacionesusuarios
        Return NuevoEstado
    End Function

    Public Overrides Function ObtieneBD() As tsUtilidades.ItsContexto
        bd = tscGrupoSanchoToro.NuevoContexto
        Return bd
    End Function

    'Public Overrides Function ObtieneConexionBD() As BBDD
    '    Return bdGrupoSanchoToro.db.tscGrupoSanchoToro.bdga
    'End Function

    Public Overrides Function ObtienePermisos() As tsUtilidades.Permisos
        Return Comun.ObtienePermisos(Me.bd, "AP.SUPERADMINISTRADORES", idUsuario)
    End Function

    Private Sub tvAutorizacionesGrupos_InitNewRow(sender As Object, e As DevExpress.Xpf.Grid.InitNewRowEventArgs) Handles tvAutorizacionesGrupos.InitNewRow
        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "PermitirConsultas", False)
        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "PermitirNuevos", False)
        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "PermitirModificaciones", False)
        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "PermitirEliminaciones", False)
        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "PermitirExportar", False)
        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "PermitirImpresiones", False)
        AutorizacionesGruposGridControl.SetCellValue(e.RowHandle, "OtrosPermisos", False)
    End Sub

    Private Sub tvAutorizacionesUsuarios_InitNewRow(sender As Object, e As DevExpress.Xpf.Grid.InitNewRowEventArgs) Handles tvAutorizacionesUsuarios.InitNewRow
        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "PermitirConsultas", False)
        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "PermitirNuevos", False)
        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "PermitirModificaciones", False)
        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "PermitirEliminaciones", False)
        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "PermitirExportar", False)
        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "PermitirImpresiones", False)
        AutorizacionesUsuariosGridControl.SetCellValue(e.RowHandle, "OtrosPermisos", False)
    End Sub


End Class