54 lines
2.3 KiB
VB.net
54 lines
2.3 KiB
VB.net
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
|