Imports tsl5
Imports bdGestionAsegasa
Imports tsl5.Extensiones
Partial Public Class historicocomisiones
    Public ReadOnly Property TotalComisionAgente As Double
        Get
            Return If(Me.comisionAgente.HasValue, Me.comisionAgente.Value, 0) + If(Me.incentivoAgente.HasValue, Me.incentivoAgente.Value, 0)
        End Get
    End Property
    Public ReadOnly Property CodNomAgente As String
        Get
            Return Me.agentes.Codigo & "-" & Me.agentes.Nombre
        End Get
    End Property
    Public ReadOnly Property PlanLinea As String
        Get
            Return Me.polizasagrario.planeslineas.planLinea
        End Get
    End Property
    Public ReadOnly Property NumeroPolizas As Integer
        Get
            Dim bd As gestionasegasaEntities = Me.ObtieneContexto
            Return bd.polizasagrario.Where(Function(x) x.poliza = Me.polizasagrario.poliza).Count
        End Get
    End Property
End Class