Imports tsWPFCore
Imports bdGrupoSanchoToro.db
Imports System.CodeDom.Compiler
Imports DevExpress.Xpf.Core
Imports System.Reflection
Imports bdGrupoSanchoToro.db.tscGrupoSanchoToro
Imports bdGrupoSanchoToro.db.Utilidades


Public Class ucFiestas


    Private bd As tscGrupoSanchoToro



    Public Overrides Sub Cargado()

    End Sub


    Public Overrides Function EstablecedcPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
        gcFiestas.ItemsSource = bd.fiestas.OrderByDescending(Function(x) x.Fecha).ToList
        Return tsUtilidades.EstadosAplicacion.AplicacionSinIndice
    End Function

    Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)

    End Sub

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

    End Sub

    Public Overrides ReadOnly Property idRegistroAplicacionActual As String
        Get
            Return "Fiestas"
        End Get
    End Property

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

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

    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.ADMINISTRATIVOS", idUsuario)
    End Function



    Private Sub ap_Enlazar(Celda As DevExpress.Xpf.Grid.EditGridCellData, Defecto As Boolean) Handles Me.Enlazar
        Dim id As Integer = DirectCast(Me.gcFiestas.CurrentItem, fiestas).idFiesta
        FuncionesDinamicas.AbrirAP(New ucFiesta(id), OtrosParametros)
    End Sub

    Private Sub ucFiestas_BotonNuevoPulsado() Handles Me.BotonNuevoPulsado
        FuncionesDinamicas.AbrirAP(New ucFiesta, OtrosParametros)
    End Sub
End Class