72 lines
2.6 KiB
VB.net
72 lines
2.6 KiB
VB.net
|
|
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
|
|
|
|
|