agregado procesos y bd clases

guia/Extensiones/historicocomisiones.vb

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