Agregar archivos de proyecto.

2026-01-23 12:45:41 +01:00
parent 5ed4e0bc46
commit c8d1044267
237 changed files with 34721 additions and 0 deletions
--- a/GestionGrupoSanchoToro/VentanasEmergentes/dxwAgregarNuevoMunicipio.xaml.vb
+++ b/GestionGrupoSanchoToro/VentanasEmergentes/dxwAgregarNuevoMunicipio.xaml.vb
@@ -0,0 +1,82 @@
+
+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 DevExpress.XtraReports.UI
+Imports System.IO
+Imports DevExpress.Xpf.Printing
+Imports Microsoft.Win32
+Imports System.Data.Objects
+Imports System.Data.Objects.DataClasses
+Imports DevExpress.Xpf.Editors
+Imports bdGrupoSanchoToro.db.tscGrupoSanchoToro
+Imports bdGrupoSanchoToro
+
+Public Class dxwAgregarNuevoMunicipio
+    '  Private _alumno As alumnos
+    Friend _CodigoPostal As String
+    Friend _CodigoMunicipio As String
+    Private bd As tscGrupoSanchoToro
+
+    Private Sub dxwAgregarNuevoCodigoPostal_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        Me.teCodigoPostal.Focus()
+    End Sub
+
+    Public Sub New(CodigoPostal As String)
+        ' Llamada necesaria para el diseñador.
+        InitializeComponent()
+        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
+        bd = tscGrupoSanchoToro.NuevoContexto
+        _CodigoPostal = CodigoPostal
+        teCodigoPostal.EditValue = CodigoPostal
+    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 teMunicipio.EditValue IsNot Nothing AndAlso teCodigoPostal.EditValue IsNot Nothing Then
+                _CodigoPostal = teCodigoPostal.EditValue
+                If _CodigoPostal.Length <> 5 Then Throw New Exception("El código postal es erróneo")
+                Dim codpro = _CodigoPostal.Substring(0, 2)
+                Dim provincia = bd.provincias.FirstOrDefault(Function(x) x.CodigoProvincia = codpro)
+                If provincia Is Nothing Then Throw New Exception("El código postal no pertenece a ninguna provincia")
+                Dim mun As String = teMunicipio.EditValue
+                If mun.NothingAVacio = "" Then Throw New Exception("El municipio es obligatorio")
+                _CodigoMunicipio = bdGrupoSanchoToro.db.municipios.ObtieneCodigoMunicipioMasCoincidente(bd, _CodigoPostal, mun)
+                Me.DialogResult = True
+                Me.Close()
+            Else
+                DXMessageBox.Show("El codigo postal y el municipio son obligatorios", "Atención")
+            End If
+        Catch ex As Exception
+            FuncionesDinamicas.ErrorNoControladoAp("dxwagregarnuevomunicipio_aceptar_click", ex)
+            DXMessageBox.Show(ex.Message, "Error")
+        End Try
+    End Sub
+
+    Private Sub teCodigoPostal_EditValueChanged(sender As Object, e As EditValueChangedEventArgs) Handles teCodigoPostal.EditValueChanged
+        Dim codpos As String = teCodigoPostal.EditValue
+        If codpos IsNot Nothing AndAlso codpos.Length = 5 Then
+            Dim codpro = codpos.Substring(0, 2)
+            Dim provincia = bd.provincias.FirstOrDefault(Function(x) x.CodigoProvincia = codpro)
+            If provincia IsNot Nothing Then
+                cbProvincia.EditValue = provincia.Nombre
+            Else
+                cbProvincia.EditValue = ""
+            End If
+        Else
+            cbProvincia.EditValue = ""
+        End If
+    End Sub
+End Class
+
+