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



Public Class ucAlmacenes

    Private DatacontextEstablecido As Boolean
    Private bd As tscGrupoSanchoToro




    Public Overrides Sub Cargado()
        GridBusqueda = Me.gc
    End Sub



    Public Overrides Function EstablecedcPrincipal(Optional Background As Boolean = False, Optional FuerzaNuevo As Boolean = False, Optional Refrescar As Boolean = False) As tsUtilidades.EstadosAplicacion
        gc.ItemsSource = bd.almacenes.Where(Function(x) x.idEmpresa = EmpresaActual.idEmpresa).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 = "Almacenes"
    End Sub

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

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

    Public Overrides ReadOnly Property DescripcionRegistro As String
        Get
            Return "Almacén"
        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 al = DirectCast(Me.gc.CurrentItem, almacenes)
        Dim id = al.idAlmacen
        FuncionesDinamicas.AbrirAP(New ucAlmacen(id), OtrosParametros)

    End Sub

    Private Sub ucAlmacenes_BotonNuevoPulsado() Handles Me.BotonNuevoPulsado
        FuncionesDinamicas.AbrirAP(New ucAlmacen(Nothing), OtrosParametros)
    End Sub
End Class