27 lines
939 B
VB.net
27 lines
939 B
VB.net
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
|