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