Agregar archivos de proyecto.

GestionGrupoSanchoToro/VentanasEmergentes/dxwAgregarNuevoCodigoPostal.xaml.vb

@@ -0,0 +1,71 @@
+
+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
+
+