agregado procesos y bd clases

guia/Extensiones/polizasagrario.vb

@@ -0,0 +1,109 @@
+Imports tsl5
+Imports bdGestionAsegasa
+Imports tsl5.Extensiones
+Imports DevExpress.CodeParser
+
+Partial Public Class polizasagrario
+
+
+#Region "Tomador"
+    Public ReadOnly Property Tomador As entidades
+        Get
+            Return Me.entidades
+        End Get
+    End Property
+
+#End Region
+
+#Region "Asegurado"
+    Public ReadOnly Property Asegurado As entidades
+        Get
+            Return Me.entidades1
+        End Get
+    End Property
+    Public ReadOnly Property DireccionAsegurado As direcciones
+        Get
+            Return Me.direcciones
+        End Get
+    End Property
+
+#End Region
+    Public ReadOnly Property CodNomAgente As String
+        Get
+            Return Me.agentes.Codigo & "-" & Me.agentes.Nombre
+        End Get
+    End Property
+    Public ReadOnly Property Fraccio As String
+        Get
+            Dim Retorno = "NO"
+            If Me.fraccionada = True Then Retorno = "SI"
+            Return Retorno
+        End Get
+    End Property
+
+
+    Public ReadOnly Property idSubAgente_Especial As Integer?
+        Get
+            If Me.idSubagente.HasValue AndAlso Me.agentes.Codigo = "000047002186" Then
+                Dim bd As gestionasegasaEntities = Me.ObtieneContexto
+                Dim Codigo = Me.subagentes.Codigo.Substring(0, 2) & "00"
+                Dim subage = bd.subagentes.FirstOrDefault(Function(x) x.idAgente = Me.idAgente And x.Codigo = Codigo)
+                If subage IsNot Nothing Then
+                    Return subage.idSubagente
+                Else
+                    Return Nothing
+                End If
+            Else
+                Return idSubagente
+            End If
+        End Get
+    End Property
+
+    Public ReadOnly Property ProvinciaAsegurado As String
+        Get
+            If Me.entidades1 IsNot Nothing AndAlso Me.entidades1.direcciones1 IsNot Nothing AndAlso Me.entidades1.direcciones1.CodigoPostal IsNot Nothing AndAlso Me.entidades1.direcciones1.CodigoPostal.Length > 2 Then
+                Return Me.entidades1.direcciones1.CodigoPostal.Substring(0, 2)
+            Else
+                Return ""
+            End If
+        End Get
+    End Property
+
+
+#Region "Conversiones"
+    Public Function AListadoGenericoPA() As ListadoGenericoPA
+        Return New ListadoGenericoPA(Me)
+    End Function
+#End Region
+End Class
+#Region "Exportaciones"
+
+
+
+Public Class ListadoGenericoPA
+    Public Sub New(Poliza As polizasagrario)
+        NumeroPóliza = Poliza.poliza
+        FechaPóliza = Poliza.fechaPoliza
+        Línea = Poliza.planeslineas.descripcion
+        Compañía = Poliza.companias.Nombre
+        CIFAsegurado = Poliza.entidades1.CIF
+        Asegurado = Poliza.entidades1.RazonSocial
+        Teléfono1 = If(Poliza.telefono1Asegurado.NothingAVacio <> "", Poliza.telefono1Asegurado, Poliza.entidades1.Telefono1.NothingAVacio)
+        Teléfono2 = If(Poliza.telefono2Asegurado.NothingAVacio <> "", Poliza.telefono2Asegurado, Poliza.entidades1.Telefono2.NothingAVacio)
+        Email = If(Poliza.emailAsegurado.NothingAVacio <> "", Poliza.emailAsegurado, Poliza.entidades1.Email.NothingAVacio)
+    End Sub
+
+    Property NumeroPóliza As String
+    Property FechaPóliza As Date?
+    Property Compañía As String
+    Property Línea As String
+    Property CIFAsegurado As String
+    Property Asegurado As String
+    Property Teléfono1 As String
+    Property Teléfono2 As String
+    Property Email As String
+
+End Class
+
+#End Region
+