Imports DevExpress.Xpf.Editors
Imports DevExpress.Xpf.LayoutControl
Imports tsWPFCore
Imports System.ComponentModel
Imports System.Data
Imports DevExpress.Xpf.Editors.Validation
Imports DevExpress.Xpf.Editors.Helpers
Imports DevExpress.Xpf.Core
Imports tsWPFCore.modExtensiones
Imports System.Data.Common
Imports System.Data.Entity
Imports tsUtilidades.Datos
Imports DevExpress.Xpf.Bars
Imports System.Collections.ObjectModel
Imports DevExpress.Xpf.Grid
Imports bdGrupoSanchoToro.db
Imports bdGrupoSanchoToro.db.Utilidades
Imports bdGrupoSanchoToro.db.tscGrupoSanchoToro

Public Class ucExtractoBancario


    Private bd As tscGrupoSanchoToro
    Friend _idExtracto As Nullable(Of Integer)

    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 extractosbancarios
        If Estado = tsUtilidades.EstadosAplicacion.Nuevo OrElse _idExtracto Is Nothing OrElse FuerzaNuevo Then
            ra = New extractosbancarios
            Me.DataContext = ra
            _idExtracto = Nothing
            ra.idUsuarioNavigation = bd.usuarios.First(Function(x) x.idUsuario = idUsuario)
            NuevoEstado = tsUtilidades.EstadosAplicacion.Nuevo
        Else
            ra = bd.extractosbancarios.First(Function(x) x.idExtracto = _idExtracto.Value)
            NuevoEstado = tsUtilidades.EstadosAplicacion.ModificandoRegistro
        End If
        Me.DataContext = ra
        Me.gcMovimientos.ItemsSource = ra.movimientosbancarios

        Return NuevoEstado

    End Function


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

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




    Public Overrides ReadOnly Property idRegistroAplicacionActual As String
        Get
            If Estado = tsUtilidades.EstadosAplicacion.Nuevo Then
                Return "ExtractoBancario.Nuevo"
            Else
                Return "ExtractoBancario." & DirectCast(Me.DataContext, extractosbancarios).idExtracto.ToString
            End If
        End Get
    End Property

    Public Overrides ReadOnly Property DescripcionRegistro As String
        Get
            Return "Extracto Bancario"
        End Get
    End Property

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

        ' Llamada necesaria para el diseñador.
        InitializeComponent()
        _idExtracto = idExtracto
        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().

    End Sub



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

    End Sub

    Public Overrides Sub EstableceTitulo()
        If Me.Estado = tsUtilidades.EstadosAplicacion.ModificandoRegistro Then
            Dim ext As extractosbancarios = Me.DataContext
            Me.docpanel.Caption = "Extracto Bancario " & ext.idExtracto.ToString
            Me.docpanel.Tag = "Extracto Bancario." & ext.idExtracto.ToString
        Else
            Me.docpanel.Caption = "Movimiento Bancario Nuevo"
            Me.docpanel.Tag = "Movimiento Bancario.Nuevo"
        End If
    End Sub

    Public Overrides Function ObtienePermisos() As tsUtilidades.Permisos
        Dim per = Comun.ObtienePermisos(Me.bd, "AP.SUPERADMINISTRATIVOS", idUsuario)
        per.Nuevos = False
        per.Modificar = False
        Return per
    End Function


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

    Private Sub ucExtractoBancario_DespuesGuardar(sender As Object, e As ItemClickEventArgs, OpcionGuardado As Integer) Handles Me.DespuesGuardar
        Dim ext As extractosbancarios = Me.DataContext
        _idExtracto = ext.idExtracto
    End Sub
End Class