agregado procesos y bd clases

guia/Extensiones/modificacionespolizasagrario.vb

@@ -0,0 +1,44 @@
+Partial Public Class modificacionespolizasagrario
+    Public ReadOnly Property PorIncAge As Double
+        Get
+
+            Return Me.previstasIncentivoAgente / Me.primaComercialNeta * 100
+        End Get
+    End Property
+    Public ReadOnly Property PorComAge As Double
+        Get
+
+            Return Me.previstasComisionAgente / Me.primaComercialNeta * 100
+        End Get
+    End Property
+    Public ReadOnly Property PorIncAse As Double
+        Get
+
+            Return Me.previstasIncentivoAsegasa / Me.primaComercialNeta * 100
+        End Get
+    End Property
+    Public ReadOnly Property PorComAse As Double
+        Get
+
+            Return Me.previstasComisionAsegasa / Me.primaComercialNeta * 100
+        End Get
+    End Property
+    Public ReadOnly Property PorNifNue As Double
+        Get
+
+            Return Me.previstasNIFNuevo / Me.primaComercialNeta * 100
+        End Get
+    End Property
+    Public ReadOnly Property PorTomPro As Double
+        Get
+
+            Return Me.previstasTomadorPropio / Me.primaComercialNeta * 100
+        End Get
+    End Property
+    Public ReadOnly Property PorTotComPre As Double
+        Get
+
+            Return Me.totalPrevistas / Me.primaComercialNeta * 100
+        End Get
+    End Property
+End Class