110 lines
3.3 KiB
VB.net
110 lines
3.3 KiB
VB.net
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
|
|
|