SanchoToro/GestionGrupoSanchoToro/ucGruposEnumeraciones.xaml.vb

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 DevExpress.Xpf.Grid
Imports tsUtilidades

Public Class ucGruposEnumeraciones


    Dim bd As tscGrupoSanchoToro

    Public Overrides Sub Cargado()
    End Sub

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

    Public Overrides ReadOnly Property DescripcionRegistro As String
        Get
            Return "Grupos 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()
        Me.docpanel.Caption = "Grupos de Enumeraciones"
    End Sub


    Public Overrides Function EstableceDCPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
        Try
            Dim grs = (From g In bd.gruposenumeraciones Select g Where g.Oculto = False)
            DataContext = grs
            Me.gc.ItemsSource = grs

        Catch ex As Exception
            If DXSplashScreen.IsActive Then DXSplashScreen.Close()
            DXMessageBox.Show(ex.Message, "Error")
        End Try
        Return tsUtilidades.EstadosAplicacion.AplicacionSinIndice
    End Function

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

    'Public Overrides Function ObtieneConexionBD() As BBDD
    '    Return bdGrupoSanchoToro.db.tscGrupoSanchoToro.bdga
    'End Function

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

    Private Sub ucGruposEnumeraciones_Enlazar(Celda As EditGridCellData, Defecto As Boolean) Handles Me.Enlazar
        Dim ra = DirectCast(Me.gc.CurrentItem, gruposenumeraciones)
        Dim id As Integer = ra.idGrupoEnumeracion
        FuncionesDinamicas.AbrirAP(New ucGrupoEnumeraciones(id), OtrosParametros)
    End Sub

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

    Private Sub ucGruposEnumeraciones_BotonNuevoPulsado() Handles Me.BotonNuevoPulsado
        FuncionesDinamicas.AbrirAP(New ucGrupoEnumeraciones, OtrosParametros)
    End Sub

    'Private WithEvents ApLineas As tsWPFCore.ApLineas
    'Public ReadOnly Property Titulo As String Implements tsWPFCore.IApLineas.Titulo
    '    Get
    '        Return "Grupos de Enumeraciones"
    '    End Get
    'End Property


    'Private Sub ApLineas_Enlazar(Celda As EditGridCellData, Defecto As Boolean) Handles ApLineas.Enlazar
    '    If Defecto Then
    '        Dim id As Integer = Me.gc.SelectedItems(0).idGrupoEnumeracion
    '        Dim ucgrupo As New ucGrupoEnumeraciones
    '        FuncionesDinamicas.AbrirUcCL(ucgrupo, Comun.dwi.grupodoc, Nothing, ApLineas.dcfg, ApLineas.dcn, 0, ApLineas.dsc, ApLineas.OtrosParametros, id)
    '    Else
    '        Dim grupo As gruposenumeraciones = Celda.RowData.Row
    '        Dim gr As New ucGrupoEnumeraciones
    '        FuncionesDinamicas.AbrirUcCL(gr, Comun.dwi.grupodoc, Nothing, ApLineas.dcfg, ApLineas.dcn, 0, ApLineas.dsc, ApLineas.OtrosParametros, grupo.idGrupoEnumeracion)
    '    End If
    'End Sub

    'Public Sub EstableceDataContext(ByRef DataContext As Object, Optional BackGround As Boolean = False) Implements tsWPFCore.IApLineas.EstableceDataContext
    '    Try
    '        Dim grs = (From g In bd.gruposenumeraciones Select g Where g.Oculto = False)
    '        DataContext = grs
    '        Me.gc.ItemsSource = grs
    '    Catch ex As Exception
    '        If DXSplashScreen.IsActive Then DXSplashScreen.Close()
    '        DXMessageBox.Show(ex.Message, "Error")
    '    End Try
    'End Sub

    'Public ReadOnly Property NombreTablaBase As String Implements tsWPFCore.IApLineas.NombreTablaBase
    '    Get
    '        Return "gruposenumeraciones"
    '    End Get
    'End Property

    'Public Sub Nuevo() Implements tsWPFCore.IApLineas.Nuevo

    '    Dim ucGrupo As New ucGrupoEnumeraciones
    '    FuncionesDinamicas.AbrirUcCL(ucGrupo, Comun.dwi.grupodoc, Nothing, ApLineas.dcfg, ApLineas.dcn, 0, ApLineas.dsc, ApLineas.OtrosParametros, Nothing)
    'End Sub



    'Public Sub EstableceApLin(ApLin As tsWPFCore.ApLineas) Implements tsWPFCore.IApLineas.EstableceApLin
    '    Me.ApLineas = ApLin
    'End Sub

    'Public Function ObtieneContexto(dcn As tsUtilidades.Datos.DatosConexionCliente) As System.Data.Objects.ObjectContext Implements tsWPFCore.IApLineas.ObtieneContexto
    '    bd = tscGrupoSanchoToro.NuevoContexto
    '    Return bd
    'End Function

    'Public Function ObtienePermisos() As tsUtilidades.Permisos Implements tsWPFCore.IApLineas.ObtienePermisos
    '    Return Comun.ObtienePermisos(Me.bd, "AP.GRUPOSENUMERACIONES", Me.ApLineas.dsc.idUsuario)
    'End Function

    'Public Function ObtieneRejilla() As tsWPFCore.tsGridControl Implements tsWPFCore.IApLineas.ObtieneRejilla
    '    Return Me.gc
    'End Function

    'Public Function ObtieneCampoIndice() As String Implements tsWPFCore.IApLineas.ObtieneCampoIndice
    '    Return "idGrupoEnumeracion"
    'End Function
End Class