agregado procesos y bd clases

guia/Extensiones/municipios.vb

@@ -0,0 +1,53 @@
+Partial Public Class municipios
+    Public Shared ListaPoblaciones As List(Of municipios)
+    Public ReadOnly Property PoblacionYProvincia As String
+        Get
+            Try
+                If Me.Nombre = Me.provincias.Nombre Then
+                    Return Me.Nombre
+                Else
+                    Return Me.Nombre & " (" & Me.provincias.Nombre & ")"
+                End If
+            Catch ex As Exception
+                Return ""
+            End Try
+        End Get
+    End Property
+    Public Shared Function ObtienePoblacion(CodigoPoblacion As String) As String
+        If ListaPoblaciones Is Nothing Then
+            Dim bd = bdGestionAsegasa.gestionasegasaEntities.NuevoContexto
+            ListaPoblaciones = bd.municipios.Include("provincias").ToList
+        End If
+        If ListaPoblaciones.Any(Function(x) x.CodigoMunicipio = CodigoPoblacion) Then
+            Return ListaPoblaciones.First(Function(x) x.CodigoMunicipio = CodigoPoblacion).Nombre
+        Else
+            Dim bd = bdGestionAsegasa.gestionasegasaEntities.NuevoContexto
+            Dim pob = bd.municipios.Include("provincias").FirstOrDefault(Function(x) x.CodigoMunicipio = CodigoPoblacion)
+            If pob IsNot Nothing Then
+                ListaPoblaciones.Add(pob)
+                Return pob.Nombre
+            Else
+                Return ""
+            End If
+        End If
+    End Function
+    Public Shared Function ObtieneProvincia(CodigoPoblacion As String) As String
+        If ListaPoblaciones Is Nothing Then
+            Dim bd = bdGestionAsegasa.gestionasegasaEntities.NuevoContexto
+            ListaPoblaciones = bd.municipios.Include("provincias").ToList
+        End If
+        If ListaPoblaciones.Any(Function(x) x.CodigoMunicipio = CodigoPoblacion) Then
+            Return ListaPoblaciones.First(Function(x) x.CodigoMunicipio = CodigoPoblacion).provincias.Nombre
+        Else
+            Dim bd = bdGestionAsegasa.gestionasegasaEntities.NuevoContexto
+            Dim pob = bd.municipios.Include("provincias").FirstOrDefault(Function(x) x.CodigoMunicipio = CodigoPoblacion)
+            If pob IsNot Nothing Then
+                ListaPoblaciones.Add(pob)
+                Return pob.provincias.Nombre
+            Else
+                Return ""
+            End If
+        End If
+    End Function
+
+End Class