76 lines
2.1 KiB
VB.net
76 lines
2.1 KiB
VB.net
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
|