Imports bdGrupoSanchoToro.db
Imports System.Data.Entity
Imports DevExpress.Xpf.Core
Imports tsWPFCore
Imports System.Collections
Imports DevExpress.Xpf.Bars
Imports System.Threading.Tasks
Imports System.Linq.Dynamic
Imports bdGrupoSanchoToro.db.Utilidades
Imports bdGrupoSanchoToro.db.tscGrupoSanchoToro
Imports tsUtilidades

Public Class ucGrupoEnumeraciones
    ''Faltan funciones que no me deja crear (ej EstadoCambiado) cuando se arregle reviso

    Private bd As tscGrupoSanchoToro
    Private _idGrupo As Integer?

    Public Sub New(Optional idGrupo As Integer? = Nothing)

        ' Esta llamada es exigida por el diseñador.
        _idGrupo = idGrupo
        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 "GrupoEnumeraciones.Nuevo"
            Else
                Return "GrupoEnumeraciones." & DirectCast(Me.DataContext, gruposenumeraciones).idGrupoEnumeracion.ToString
            End If
        End Get
    End Property

    Public Overrides ReadOnly Property DescripcionRegistro As String
        Get
            Return "Grupo Enumeraciones"
        End Get
    End Property

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

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

    Public Overrides Sub EstableceTitulo()
        If Me.Estado = tsUtilidades.EstadosAplicacion.ModificandoRegistro Then
            Dim mv As gruposenumeraciones = Me.DataContext
            Me.docpanel.Caption = "Grupo Enumeraciones " & mv.Grupo.ToString
        Else
            Me.docpanel.Caption = "Grupo Enumeraciones. Nuevo"

        End If
    End Sub

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

    Private Sub ucGrupoEnumeraciones_DespuesGuardar(sender As Object, e As ItemClickEventArgs, OpcionGuardado As Integer) Handles Me.DespuesGuardar
        Dim gr As gruposenumeraciones = Me.DataContext
        _idGrupo = gr.idGrupoEnumeracion
    End Sub

    Dim ra As gruposenumeraciones
    ' Private WithEvents blenumeraciones As ComponentModel.BindingList(Of db.enumeraciones)
    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

        If FuerzaNuevo OrElse _idGrupo Is Nothing Then
            ra = New gruposenumeraciones
            NuevoEstado = tsUtilidades.EstadosAplicacion.Nuevo
        Else
            Dim id As Integer = _idGrupo
            ra = bd.gruposenumeraciones.First(Function(X) X.idGrupoEnumeracion = id)
            NuevoEstado = tsUtilidades.EstadosAplicacion.ModificandoRegistro
        End If
        Me.DataContext = ra
        '    blenumeraciones = tsWPFCore.tsUserControl.Obtienebl(ra.enumeraciones.ToList)
        Me.gcEnumeraciones.ItemsSource = ra.enumeraciones ' blenumeraciones

        Return NuevoEstado
    End Function



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

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

    Private Sub tvEnumeraciones_CellValueChanged(sender As Object, e As DevExpress.Xpf.Grid.CellValueChangedEventArgs) Handles tvEnumeraciones.CellValueChanged
        Select Case e.Column.FieldName.ToLower
            Case "codigo"
                If e.Value.ToString.Length > 0 AndAlso ra.Grupo.Length > 0 Then
                    If Not e.Value.ToString.StartsWith(ra.Grupo & ".") Then
                        Dim enu As bdGrupoSanchoToro.db.enumeraciones = e.Row
                        enu.Codigo = ra.Grupo & "." & e.Value.ToString

                    End If
                End If
        End Select
    End Sub

    Private Sub gcEnumeraciones_AntesEliminar(gc As tsGridControl, ByRef Cancelar As Boolean) Handles gcEnumeraciones.AntesEliminar
        Dim enu As enumeraciones = gcEnumeraciones.CurrentItem
        '  enu.idEnumeracion = 1
        Debug.Write("aqui")
    End Sub
End Class