29 lines
1.3 KiB
VB.net
29 lines
1.3 KiB
VB.net
Public Class subagentes
|
|
Private Shared _ListaSubagentes As List(Of subagentes)
|
|
Public Property AMarcarComoBaja As Boolean
|
|
Public ReadOnly Property PolizasConDocumentosPendientes As List(Of polizassg)
|
|
Get
|
|
Return Me.polizassg.Where(Function(x) x.documentospolizassg.Any(Function(y) y.Obligatorio And y.FechaComprobacion Is Nothing AndAlso y.idFichero Is Nothing)).ToList
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property PolizasConDocumentosPendientes7Dias As List(Of polizassg)
|
|
Get
|
|
Dim FechaInicio As Date = Date.Today.AddDays(-7)
|
|
Return Me.polizassg.Where(Function(x) x.FechaAlta >= FechaInicio).ToList.Where(Function(x) x.documentospolizassg.Any(Function(y) y.Obligatorio And y.FechaComprobacion Is Nothing AndAlso y.idFichero Is Nothing)).ToList
|
|
End Get
|
|
End Property
|
|
Public Shared Function ListaSubAgentes() As List(Of subagentes)
|
|
If _ListaSubagentes Is Nothing Then
|
|
Dim bd = bdGestionAsegasa.gestionasegasaEntities.NuevoContexto
|
|
_ListaSubagentes = bd.subagentes.OrderBy(Function(x) x.Nombre).ToList
|
|
End If
|
|
Return _ListaSubagentes
|
|
End Function
|
|
Public ReadOnly Property CodigoYNombre As String
|
|
Get
|
|
Return Codigo & " - " & Nombre
|
|
End Get
|
|
End Property
|
|
|
|
End Class
|