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 ucPermisos


    Dim bd As tscGrupoSanchoToro

    Public Overrides ReadOnly Property idRegistroAplicacionActual As String
        Get
            Return "Permisos"
        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)
    End Sub

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

    Public Overrides Sub Cargado()

    End Sub

    Private Sub uc_Enlazar(Celda As EditGridCellData, Defecto As Boolean) Handles Me.Enlazar
        Dim id As Integer = DirectCast(Me.gc.CurrentItem, bdGrupoSanchoToro.db.permisos).idPermiso
        FuncionesDinamicas.AbrirAP(New ucPermiso(id), OtrosParametros)
    End Sub

    Private Sub ucPermisos_BotonNuevoPulsado() Handles Me.BotonNuevoPulsado
        FuncionesDinamicas.AbrirAP(New ucPermiso(Nothing), OtrosParametros)
    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 pers = bd.permisos.OrderBy(Function(x) x.CodigoPermiso).ToList
        DataContext = pers
        Me.gc.ItemsSource = pers
        Return tsUtilidades.EstadosAplicacion.AplicacionSinIndice
    End Function

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

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

End Class