Imports tsWPFCore
Imports bdGrupoSanchoToro.db
Imports System.Collections
Imports bdGrupoSanchoToro.db.tscGrupoSanchoToro
Imports bdGrupoSanchoToro.db.Utilidades
Imports DevExpress.Xpf.Bars

Public Class ucConfiguracion


    Private bd As tscGrupoSanchoToro
    Public Overrides Sub Cargado()
        Dim kk As New ucConfiguracion
    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 enIVA = bd.enumeraciones.First(Function(X) X.Codigo = "PIVA.DEFECTO")
        Dim enEAS = bd.enumeraciones.First(Function(x) x.Codigo = "CONF.EMAILASESORIA")
        Dim enECO = bd.enumeraciones.First(Function(x) x.Codigo = "CONF.EMAILCOPIAOCULTA")
        Dim cta = bd.cuentascorreo.First(Function(x) x.Codigo = "DEFECTO" AndAlso x.idEmpresa = EmpresaActual.idEmpresa)
        'ilIVA.DataContext = enIVA
        liEmailAsesoria.DataContext = enEAS
        liEmailCopiaOculta.DataContext = enECO
        DataContext = cta
        Return tsUtilidades.EstadosAplicacion.ModificandoRegistro
    End Function

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

    End Sub

    Public Overrides Sub EstableceTitulo()

        Me.docpanel.Caption = "Configuración"
        Me.docpanel.Tag = "Configuración"

    End Sub

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

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

    Public Overrides ReadOnly Property DescripcionRegistro As String
        Get
            Return "Configuració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
        Dim per = Comun.ObtienePermisos(Me.bd, "AP.ADMINISTRATIVOS", idUsuario)
        per.Nuevos = False
        per.Exportar = False
        per.Eliminar = False
        per.Impresion = False
        Return per
    End Function





    Public Sub New()

        ' Llamada necesaria para el diseñador.
        InitializeComponent()


        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

    End Sub

    Private Sub ucConfiguracion_DespuesGuardar(sender As Object, e As ItemClickEventArgs, OpcionGuardado As Integer) Handles Me.DespuesGuardar
        '     bdGrupoSanchoToro.db.Utilidades.PorcentajeIva = bd.enumeraciones.First(Function(x) x.Codigo = "PIVA.DEFECTO").ValorNumerico1.Value
    End Sub
End Class