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