Asegasa.NET/guia/Extensiones/companias.vb

Imports tsl5.Extensiones

Partial Public Class companias
    Public ReadOnly Property Direccion As direcciones
        Get
            If Me.idDireccion.HasValue AndAlso Me.idDireccion.Value > 0 Then
                Return Me.direcciones
            Else
                Return Nothing
            End If
        End Get
    End Property


    Private _CodigoPostalTmpEsNulo As Boolean = True
    Private _CodigoPostalTmp As String
    Public Property CodigoPostalTmp As String
        Get
            If _CodigoPostalTmpEsNulo Then
                If Direccion Is Nothing Then
                    Return ""
                Else
                    _CodigoPostalTmp = Me.Direccion.CodigoPostal
                    _CodigoPostalTmpEsNulo = False
                    Return Me.Direccion.CodigoPostal
                End If
            Else
                Return _CodigoPostalTmp
            End If
        End Get
        Set(value As String)
            _CodigoPostalTmp = value
            _CodigoPostalTmpEsNulo = False
            If Direccion IsNot Nothing Then
                Direccion.CodigoPostal = value
            End If
            Me.OnPropertyChanged("CodigoPostalTmp")
        End Set
    End Property

    Private _DomicilioTmpEsNulo As Boolean = True
    Private _DomicilioTmp As String
    Public Property DomicilioTmp As String
        Get
            If _DomicilioTmpEsNulo Then
                If Direccion Is Nothing Then
                    Return ""
                Else
                    _DomicilioTmp = Direccion.Direccion
                    _DomicilioTmpEsNulo = False
                    Return Direccion.Direccion
                End If
            Else
                Return _DomicilioTmp
            End If
        End Get
        Set(value As String)
            _DomicilioTmp = value
            _DomicilioTmpEsNulo = False
            If Direccion IsNot Nothing Then
                Direccion.Direccion = value
            End If
            Me.OnPropertyChanged("DomicilioTmp")
        End Set
    End Property


    Private _CodigoPoblacionTmpEsNulo As Boolean = True
    Private _CodigoPoblacionTmp As String
    Public Property CodigoPoblacionTmp As String
        Get
            If _CodigoPoblacionTmpEsNulo Then

                If Direccion Is Nothing OrElse Direccion.municipios Is Nothing Then
                    If Direccion IsNot Nothing AndAlso Direccion.municipios Is Nothing Then
                        If Direccion.CodigoPostal.NothingAVacio <> "" Then
                            Dim bd = bdGestionAsegasa.gestionasegasaEntities.NuevoContexto
                            Dim pob = bd.codigospostales.FirstOrDefault(Function(x) x.CodigoPostal = Direccion.CodigoPostal)
                            If pob Is Nothing Then
                                Return "CP.ERRONEO"
                            Else
                                Direccion.CodigoMunicipio = pob.CodigoMunicipio
                                _CodigoPoblacionTmp = pob.CodigoMunicipio
                                _CodigoPoblacionTmpEsNulo = False
                                Return _CodigoPoblacionTmp
                            End If
                        Else
                            Return ""
                        End If
                    Else
                        Return ""
                    End If
                Else
                    _CodigoPoblacionTmp = Direccion.CodigoMunicipio
                    _CodigoPoblacionTmpEsNulo = False
                    Return Direccion.CodigoMunicipio
                End If
            Else
                Return _CodigoPoblacionTmp
            End If
        End Get
        Set(value As String)
            _CodigoPoblacionTmp = value
            _CodigoPoblacionTmpEsNulo = False
            If Direccion IsNot Nothing Then
                Direccion.CodigoMunicipio = value
            End If
            Me.OnPropertyChanged("CodigoPoblacionTmp")
            ProvinciaTmp = municipios.ObtieneProvincia(_CodigoPoblacionTmp)
            PoblacionTmp = municipios.ObtienePoblacion(_CodigoPoblacionTmp)
        End Set
    End Property

    Private _PoblacionTmp As String
    Private _PoblacionTmpEsNulo As Boolean = True
    Public Property PoblacionTmp As String
        Get
            If _PoblacionTmpEsNulo Then _PoblacionTmp = municipios.ObtienePoblacion(CodigoPoblacionTmp)
            Return _PoblacionTmp
        End Get
        Set(value As String)
            _PoblacionTmp = value
            Me.OnPropertyChanged("PoblacionTmp")
        End Set
    End Property

    Private _ProvinciaTmp As String
    Private _ProvinciaTmpEsNulo As Boolean = True
    Public Property ProvinciaTmp As String
        Get
            If _ProvinciaTmpEsNulo Then _ProvinciaTmp = municipios.ObtieneProvincia(CodigoPoblacionTmp)
            Return _ProvinciaTmp
        End Get
        Set(value As String)
            _ProvinciaTmp = value
            Me.OnPropertyChanged("ProvinciaTmp")
        End Set
    End Property
    Public ReadOnly Property DescripcionFormaLiquidacion As String
        Get
            Return DirectCast(Me.FormaLiquidacion, FormaLiquidacionEnum).ToString
        End Get
    End Property
    Public ReadOnly Property CodigoNombre As String
        Get
            Return Me.Codigo & " " & Me.Nombre
        End Get
    End Property
    Public Enum FormaLiquidacionEnum
        TRANSFERENCIA = 0
        RECIBO = 1
    End Enum

    Public Shared Function ListadoFormaLiquidacion() As List(Of FormaLiquidacion)
        Dim listFormaLiquidacion As New List(Of FormaLiquidacion)
        For Each Enumeracion As FormaLiquidacionEnum In System.Enum.GetValues(GetType(FormaLiquidacionEnum))
            listFormaLiquidacion.Add(New FormaLiquidacion With {.id = CInt(Enumeracion), .Descripcion = Enumeracion.ToString})
        Next
        Return listFormaLiquidacion
    End Function
End Class
Public Class FormaLiquidacion
    Property id As Integer
    Property Descripcion As String
End Class