Imports System.Data.Entity
Imports DevExpress.Xpf.Core.ServerMode
Imports DevExpress.Mvvm
Imports DevExpress.Xpf.Grid
Imports tsWPFCore
Imports tsEFCore8.Extensiones
Imports DevExpress.Xpf.Core

Imports bdGrupoSanchoToro.db.Utilidades
Imports bdGrupoSanchoToro

Public Class dxwAgregarNuevoCodigoPostal

    '  Private _alumno As alumnos
    Friend _CodigoPostal As String
    Private _bd As tscGrupoSanchoToro

    Private Sub dxwAgregarNuevoCodigoPostal_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        Me.teCodigoPostal.EditValue = _CodigoPostal
        Dim sCodigoProvincia As String = _CodigoPostal.Substring(0, 2)
        Me.teProvincia.EditValue = _bd.provincias.First(Function(x) x.CodigoProvincia = sCodigoProvincia).Nombre
        Me.cbMunicipio.ItemsSource = _bd.municipios.Where(Function(x) x.CodigoProvincia = sCodigoProvincia).OrderBy(Function(x) x.Nombre).ToList
        Me.cbMunicipio.Focus()
    End Sub

    Public Sub New(CodigoPostal As String, bd As tscGrupoSanchoToro)
        _CodigoPostal = CodigoPostal
        _bd = bd
        ' Llamada necesaria para el diseñador.
        InitializeComponent()
        Comun.EscalaVentana(Me, Me.grid.LayoutTransform)

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

    End Sub


    Private Sub btCancelar_Click(sender As Object, e As RoutedEventArgs)
        Me.DialogResult = False
        Me.Close()
    End Sub

    Private Sub btAceptar_Click(sender As Object, e As RoutedEventArgs)
        Try
            If cbMunicipio.EditValue Is Nothing Then
                DXMessageBox.Show("El municipio es obligatorio")
            Else
                Dim _CodigoMunicipio As String = ""
                If cbMunicipio.EditValue IsNot Nothing Then _CodigoMunicipio = cbMunicipio.EditValue
                Dim sDescripcionAdicional As String = ""
                If teDescripcionAdicional.EditValue IsNot Nothing Then sDescripcionAdicional = teDescripcionAdicional.EditValue
                Dim ncp As New bdGrupoSanchoToro.db.codigospostales
                With ncp
                    .CodigoMunicipio = _CodigoMunicipio
                    .CodigoPostal = _CodigoPostal
                    .DescripcionAdicional = sDescripcionAdicional
                End With
                _bd.codigospostales.Add(ncp)
                _bd.GuardarCambios()
                Me.DialogResult = True
                Me.Close()
            End If
        Catch ex As Exception
            Comun.GeneraRegistroCorreoExcepcion(Nothing, ex, "dxwAgregarNuevoCodigoPostal.btAceptar_Click")
            DXMessageBox.Show(ex.Message, "Error")
        End Try
    End Sub
End Class