agregado procesos y bd clases

guia/Extensiones/subagentes.vb

@@ -0,0 +1,28 @@
+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