Asegasa.NET/guia/Extensiones/vf_recibosextendidos_lc.vb

Imports bdGestionAsegasa.gestionasegasaEntities
Imports tsl5.Extensiones
Imports tsl5.Extensiones.StringExtensions
Partial Public Class vf_recibosextendidos_lc
    Private Shared TiposPago As List(Of enumeraciones)

    Public ReadOnly Property LiquidoCia As Double
        Get
            Return Math.Round(Me.TotalRecibo.Value - Me.TotalComision.Value, 2, MidpointRounding.AwayFromZero)
        End Get
    End Property

    Public ReadOnly Property Situacion_Web As String
        Get
            Return ObtieneSituacionWeb(Me.idSituacion, Me.idTipoPago)
        End Get
    End Property

    Public ReadOnly Property CiaNumeroPoliza As String
        Get
            Return Me.Compania & "/" & Me.NumeroPoliza
        End Get
    End Property



    Public ReadOnly Property TipoPago As String
        Get
            If Me.idTipoPago.HasValue Then
                If TiposPago Is Nothing Then
                    Dim bdtmp = bdGestionAsegasa.gestionasegasaEntities.NuevoContextoCN
                    TiposPago = bdtmp.enumeraciones.Where(Function(x) x.gruposenumeraciones.Grupo = "TIPP").ToList
                End If
                Dim tp = TiposPago.FirstOrDefault(Function(x) x.idEnumeracion = Me.idTipoPago)
                If tp Is Nothing Then
                    Return "* DESCONOCIDO *"
                Else
                    Return tp.Descripcion
                End If
            Else
                Return "* NO ASIGNADO *"
            End If
        End Get
    End Property
    Public ReadOnly Property IBANCorrecto As Boolean
        Get
            Return tsl5.Bancos.Genericas.IBANCorrecto(Me.IBAN.NothingAVacio)
        End Get
    End Property
    Public ReadOnly Property idSubAgente_Especial As Integer?
        Get
            If Me.idSubagente.HasValue AndAlso Me.CodigoAgente = "000047002186" Then
                Dim bd As gestionasegasaEntities = Me.ObtieneContexto
                Dim Codigo = Me.CodigoSubAgente.Substring(0, 2) & "00"
                Dim subage = bd.subagentes.FirstOrDefault(Function(x) x.idAgente = Me.idAgente And x.Codigo = Codigo)
                If subage IsNot Nothing Then
                    Return subage.idSubagente
                Else
                    Return idSubagente
                End If
            Else
                Return idSubagente
            End If
        End Get
    End Property

    Public ReadOnly Property NumeroPolizaSuplementoLargo As String
        Get
            If Me.NumeroSuplemento = 0 Then
                Return Me.NumeroPoliza
            Else
                Return Me.NumeroPoliza & " (" & Me.NumeroSuplemento.ToString & ")"
            End If
        End Get
    End Property
    Public ReadOnly Property NumeroPolizaSuplemento As String
        Get
            If Me.NumeroSuplemento = 0 Then
                Return Me.NumeroPoliza
            Else
                Return Me.NumeroPoliza & "#" & Me.NumeroSuplemento.ToString
            End If
        End Get
    End Property

    Public ReadOnly Property FechaInicioLiquidacionCia As Date?
        Get
            If Utilidades.idTippBA.HasValue = False Then
                Dim bd = DirectCast(Me.ObtieneContexto, gestionasegasaEntities)
                Utilidades.idTippBA = bd.enumeraciones.First(Function(x) x.Codigo = "TIPP.PE").idEnumeracion
                Utilidades.idtrEx = bd.enumeraciones.First(Function(x) x.Codigo = "TRC.EX").idEnumeracion
                Utilidades.idtrCx = bd.enumeraciones.First(Function(x) x.Codigo = "TRC.CX").idEnumeracion
            End If
            Select Case Me.idTipo
                Case Utilidades.idtrEx, Utilidades.idtrCx
                    Return Today
                Case Else
                    If Me.idTipoPago = Utilidades.idTippBA Then
                        Return Today
                    Else
                        Dim fechacalculo As Date? = Nothing
                        If Me.idRemesa.HasValue Then
                            fechacalculo = Me.FechaRemesa.Value.AddDays(Me.PlazoRetornoComision.Value)
                        Else
                            If Me.FechaRecepcionCia.HasValue Then
                                fechacalculo = Me.FechaRecepcionCia.Value.AddDays(Me.PlazoRetornoComision.Value)
                            End If
                        End If
                        If fechacalculo.HasValue Then
                            If fechacalculo > Today Then
                                Return fechacalculo
                            Else
                                Return Today
                            End If
                        Else
                            Return Nothing
                        End If
                    End If
            End Select
        End Get
    End Property
    Public ReadOnly Property MotivoBajaCia As String
        Get
            If Me.idCausaBaja.HasValue Then
                Dim bd As bdGestionAsegasa.gestionasegasaEntities = Me.ObtieneContexto
                Return bd.enumeraciones.First(Function(x) x.idEnumeracion = Me.idCausaBaja).ValorAlfabetico2
            Else
                Return ""
            End If
        End Get
    End Property

    Public ReadOnly Property CodigoDevolucionBanco As String
        Get
            If Me.idCausaDevolucion.HasValue Then
                Dim bd As bdGestionAsegasa.gestionasegasaEntities = Me.ObtieneContexto
                Return bd.enumeraciones.First(Function(x) x.idEnumeracion = Me.idCausaDevolucion).Codigo.Split(".")(1)
            Else
                Return ""
            End If
        End Get
    End Property


End Class