117 lines
3.8 KiB
VB.net
117 lines
3.8 KiB
VB.net
Imports tsWPFCore
|
|
Imports bdGrupoSanchoToro.db
|
|
Imports System.Collections
|
|
Imports bdGrupoSanchoToro.db.tscGrupoSanchoToro
|
|
Imports bdGrupoSanchoToro.db.Utilidades
|
|
Imports DevExpress.Xpf.Bars
|
|
|
|
Public Class ucFiesta
|
|
|
|
|
|
Private bd As tscGrupoSanchoToro
|
|
|
|
Dim _idFiesta As Integer?
|
|
|
|
|
|
|
|
Public Overrides Sub Cargado()
|
|
Me.Tipo_ucControlBusqueda = GetType(ucFiestas)
|
|
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 fiestas
|
|
If FuerzaNuevo OrElse _idFiesta Is Nothing Then
|
|
ra = New fiestas
|
|
ra.Fecha = DateOnly.FromDateTime(Today)
|
|
Me.DataContext = ra
|
|
_idFiesta = Nothing
|
|
NuevoEstado = tsUtilidades.EstadosAplicacion.Nuevo
|
|
Else
|
|
ra = bd.fiestas.First(Function(x) x.idFiesta = _idFiesta.Value)
|
|
NuevoEstado = tsUtilidades.EstadosAplicacion.ModificandoRegistro
|
|
End If
|
|
Me.DataContext = ra
|
|
Return NuevoEstado
|
|
End Function
|
|
|
|
Public Overrides Sub EstableceDataContextSecundarios(Optional Background As Boolean = False)
|
|
End Sub
|
|
|
|
Public Overrides Sub EstableceTitulo()
|
|
If Me.Estado = tsUtilidades.EstadosAplicacion.ModificandoRegistro Then
|
|
Dim ra As fiestas = CType(Me.DataContext, fiestas)
|
|
Me.docpanel.Caption = "fiesta " & ra.Fecha.ToShortDateString
|
|
Me.docpanel.Tag = "fiesta." & ra.idFiesta.ToString
|
|
Else
|
|
Me.docpanel.Caption = "Fiesta nueva"
|
|
Me.docpanel.Tag = "Fiesta.Nuevo"
|
|
End If
|
|
End Sub
|
|
|
|
Public Overrides ReadOnly Property idRegistroAplicacionActual As String
|
|
Get
|
|
If Estado = tsUtilidades.EstadosAplicacion.Nuevo Then
|
|
Return "Fiesta.Nuevo"
|
|
Else
|
|
Return "Fiesta." & DirectCast(Me.DataContext, fiestas).idFiesta.ToString
|
|
End If
|
|
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 "fiesta"
|
|
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
|
|
|
|
|
|
|
|
|
|
|
|
Public Sub New(Optional idFiesta As Integer? = Nothing)
|
|
|
|
' Llamada necesaria para el diseñador.
|
|
InitializeComponent()
|
|
_idFiesta = idFiesta
|
|
|
|
' Agregue cualquier inicialización después de la llamada a InitializeComponent().
|
|
|
|
End Sub
|
|
|
|
Private Sub ucFiesta_AntesGuardar(sender As Object, e As ItemClickEventArgs, ByRef Cancelar As Boolean, ByRef MensajesError As Hashtable, EliminacionManual As Integer) Handles Me.AntesGuardar
|
|
Dim hte As New Hashtable
|
|
Dim bdtmp = tscGrupoSanchoToro.NuevoContexto()
|
|
Dim ra As fiestas = Me.DataContext
|
|
If bdtmp.fiestas.Any(Function(x) x.Fecha = ra.Fecha AndAlso x.idFiesta <> ra.idFiesta) Then
|
|
hte.Add("ALMACENAR-FECHA_YA_EXISTENTE", "La fecha introducida ya estaba dada de alta")
|
|
End If
|
|
If hte.Count > 0 Then
|
|
MensajesError = hte
|
|
Cancelar = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ucFiesta_DespuesGuardar(sender As Object, e As ItemClickEventArgs, OpcionGuardado As Integer) Handles Me.DespuesGuardar
|
|
Dim fi As fiestas = Me.DataContext
|
|
_idFiesta = fi.idFiesta
|
|
End Sub
|
|
End Class
|