agregado procesos y bd clases
This commit is contained in:
750
guia/Extensiones/siniestros.vb
Normal file
750
guia/Extensiones/siniestros.vb
Normal file
@@ -0,0 +1,750 @@
|
||||
Imports System.Data.Objects
|
||||
Imports tsl5.Extensiones
|
||||
|
||||
|
||||
Partial Public Class siniestros
|
||||
|
||||
Public Property idPoliza_Nulable As Integer?
|
||||
Get
|
||||
If Me.idPoliza = 0 Then
|
||||
Return Nothing
|
||||
Else
|
||||
Return Me.idPoliza
|
||||
End If
|
||||
End Get
|
||||
Set(value As Integer?)
|
||||
If value.HasValue Then Me.idPoliza = value.Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
#Region "Contrario"
|
||||
Private _CifContrarioTmpEsNulo As Boolean = True
|
||||
Private _CifContrarioTmp As String
|
||||
Public Property CifContrarioTmp As String
|
||||
Get
|
||||
If _CifContrarioTmpEsNulo Then
|
||||
If Me.entidades Is Nothing Then
|
||||
Return ""
|
||||
Else
|
||||
_CifContrarioTmp = Me.entidades.CIF
|
||||
_CifContrarioTmpEsNulo = False
|
||||
Return Me.entidades.CIF
|
||||
End If
|
||||
Else
|
||||
Return _CifContrarioTmp
|
||||
End If
|
||||
|
||||
'If Me.entidades Is Nothing Then
|
||||
' If _CifContrarioTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _CifContrarioTmp
|
||||
' End If
|
||||
'Else
|
||||
' Return Me.entidades.CIF
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_CifContrarioTmp = value
|
||||
_CifContrarioTmpEsNulo = False
|
||||
|
||||
If Me.entidades IsNot Nothing Then
|
||||
If value.NothingAVacio = "" Then
|
||||
Me.entidades.CIF = Nothing
|
||||
Else
|
||||
Me.entidades.CIF = value
|
||||
End If
|
||||
End If
|
||||
Me.OnPropertyChanged("CifContrarioTmp")
|
||||
Me.OnPropertyChanged("RazonSocialContrarioTmp")
|
||||
Me.OnPropertyChanged("CodigoPostalContrarioTmp")
|
||||
Me.OnPropertyChanged("DomicilioContrarioTmp")
|
||||
Me.OnPropertyChanged("CodigoPoblacionContrarioTmp")
|
||||
Me.OnPropertyChanged("PoblacionContrarioTmp")
|
||||
Me.OnPropertyChanged("ProvinciaContrarioTmp")
|
||||
Me.OnPropertyChanged("TelefonoContrario1Tmp")
|
||||
Me.OnPropertyChanged("TelefonoContrario2Tmp")
|
||||
Me.OnPropertyChanged("EmailContrarioTmp")
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _RazonSocialContrarioTmpEsNulo As Boolean = True
|
||||
Private _RazonSocialContrarioTmp As String
|
||||
Public Property RazonSocialContrarioTmp As String
|
||||
Get
|
||||
If _RazonSocialContrarioTmpEsNulo Then
|
||||
If Me.entidades Is Nothing Then
|
||||
Return ""
|
||||
Else
|
||||
Dim rs As String
|
||||
If Me.entidades.RazonSocial = "" Then
|
||||
rs = (Me.entidades.Apellidos & ", " & Me.entidades.Nombre).Trim.Trim(",")
|
||||
Else
|
||||
rs = Me.entidades.RazonSocial
|
||||
End If
|
||||
_RazonSocialContrarioTmpEsNulo = False
|
||||
_RazonSocialContrarioTmp = rs
|
||||
Return rs
|
||||
End If
|
||||
Else
|
||||
Return _RazonSocialContrarioTmp
|
||||
|
||||
End If
|
||||
|
||||
'If Me.entidades Is Nothing Then
|
||||
' If _RazonSocialContrarioTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _RazonSocialContrarioTmp
|
||||
' End If
|
||||
'Else
|
||||
' If Me.entidades.RazonSocial = "" Then
|
||||
' Return (Me.entidades.Apellidos & ", " & Me.entidades.Nombre).Trim.Trim(",")
|
||||
' Else
|
||||
' Return Me.entidades.RazonSocial
|
||||
' End If
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_RazonSocialContrarioTmp = value
|
||||
_RazonSocialContrarioTmpEsNulo = False
|
||||
|
||||
If Me.entidades IsNot Nothing Then
|
||||
Me.entidades.RazonSocial = value
|
||||
If Me.entidades.CIF.NothingAVacio <> "" AndAlso "1234567890X".Contains(Me.entidades.CIF.Substring(1, 1)) AndAlso value.Contains(",") Then
|
||||
Me.entidades.Apellidos = value.Split(",")(0).Trim
|
||||
Me.entidades.Nombre = value.Split(",")(1).Trim
|
||||
End If
|
||||
End If
|
||||
Me.OnPropertyChanged("RazonSocialContrarioTmp")
|
||||
End Set
|
||||
End Property
|
||||
Private _CodigoPostalContrarioTmpEsNulo As Boolean = True
|
||||
Private _CodigoPostalContrarioTmp As String
|
||||
Public Property CodigoPostalContrarioTmp As String
|
||||
Get
|
||||
If _CodigoPostalContrarioTmpEsNulo Then
|
||||
If Me.entidades Is Nothing OrElse Me.entidades.DireccionPrincipal Is Nothing Then
|
||||
Return ""
|
||||
Else
|
||||
_CodigoPostalContrarioTmp = Me.entidades.DireccionPrincipal.CodigoPostal
|
||||
_CodigoPostalContrarioTmpEsNulo = False
|
||||
Return Me.entidades.DireccionPrincipal.CodigoPostal
|
||||
End If
|
||||
Else
|
||||
Return _CodigoPostalContrarioTmp
|
||||
End If
|
||||
|
||||
'If Me.entidades Is Nothing OrElse Me.entidades.DireccionPrincipal Is Nothing Then
|
||||
' If _CodigoPostalContrarioTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _CodigoPostalContrarioTmp
|
||||
' End If
|
||||
'Else
|
||||
' Return Me.entidades.DireccionPrincipal.CodigoPostal
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_CodigoPostalContrarioTmp = value
|
||||
_CodigoPostalContrarioTmpEsNulo = False
|
||||
If Me.entidades IsNot Nothing AndAlso Me.entidades.DireccionPrincipal IsNot Nothing Then
|
||||
Me.entidades.DireccionPrincipal.CodigoPostal = value
|
||||
End If
|
||||
Me.OnPropertyChanged("CodigoPostalContrarioTmp")
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _DomicilioContrarioTmpEsNulo As Boolean = True
|
||||
Private _DomicilioContrarioTmp As String
|
||||
Public Property DomicilioContrarioTmp As String
|
||||
Get
|
||||
If _DomicilioContrarioTmpEsNulo Then
|
||||
If Me.entidades Is Nothing OrElse Me.entidades.DireccionPrincipal Is Nothing Then
|
||||
Return ""
|
||||
Else
|
||||
_DomicilioContrarioTmp = Me.entidades.DireccionPrincipal.Direccion
|
||||
_DomicilioContrarioTmpEsNulo = False
|
||||
Return Me.entidades.DireccionPrincipal.Direccion
|
||||
End If
|
||||
Else
|
||||
Return _DomicilioContrarioTmp
|
||||
End If
|
||||
|
||||
'If Me.entidades Is Nothing OrElse Me.entidades.DireccionPrincipal Is Nothing Then
|
||||
' If _DomicilioContrarioTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _DomicilioContrarioTmp
|
||||
' End If
|
||||
'Else
|
||||
' Return Me.entidades.DireccionPrincipal.Direccion
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_DomicilioContrarioTmp = value
|
||||
_DomicilioContrarioTmpEsNulo = False
|
||||
If Me.entidades IsNot Nothing AndAlso Me.entidades.DireccionPrincipal IsNot Nothing Then
|
||||
Me.entidades.DireccionPrincipal.Direccion = value
|
||||
End If
|
||||
Me.OnPropertyChanged("DomicilioContrarioTmp")
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private _CodigoPoblacionContrarioTmpEsNulo As Boolean = True
|
||||
Private _CodigoPoblacionContrarioTmp As String
|
||||
Public Property CodigoPoblacionContrarioTmp As String
|
||||
Get
|
||||
If _CodigoPoblacionContrarioTmpEsNulo Then
|
||||
|
||||
If Me.entidades Is Nothing OrElse Me.entidades.DireccionPrincipal Is Nothing OrElse Me.entidades.DireccionPrincipal.municipios Is Nothing Then
|
||||
If Me.entidades IsNot Nothing AndAlso Me.entidades.DireccionPrincipal IsNot Nothing AndAlso Me.entidades.DireccionPrincipal.municipios Is Nothing Then
|
||||
If Me.entidades.DireccionPrincipal.CodigoPostal.NothingAVacio <> "" Then
|
||||
Dim bd = bdGestionAsegasa.gestionasegasaEntities.NuevoContexto
|
||||
Dim pob = bd.codigospostales.First(Function(x) x.CodigoPostal = Me.entidades.DireccionPrincipal.CodigoPostal)
|
||||
Me.entidades.DireccionPrincipal.CodigoMunicipio = pob.CodigoMunicipio
|
||||
_CodigoPoblacionContrarioTmp = pob.CodigoMunicipio
|
||||
_CodigoPoblacionContrarioTmpEsNulo = False
|
||||
Return _CodigoPoblacionContrarioTmp
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
Else
|
||||
_CodigoPoblacionContrarioTmp = Me.entidades.DireccionPrincipal.CodigoMunicipio
|
||||
_CodigoPoblacionContrarioTmpEsNulo = False
|
||||
Return Me.entidades.DireccionPrincipal.CodigoMunicipio
|
||||
End If
|
||||
Else
|
||||
Return _CodigoPoblacionContrarioTmp
|
||||
End If
|
||||
|
||||
'If Me.entidades Is Nothing OrElse Me.entidades.DireccionPrincipal Is Nothing OrElse Me.entidades.DireccionPrincipal.municipios Is Nothing Then
|
||||
' If _CodigoPoblacionContrarioTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _CodigoPoblacionContrarioTmp
|
||||
' End If
|
||||
'Else
|
||||
' Return Me.entidades.DireccionPrincipal.CodigoMunicipio
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_CodigoPoblacionContrarioTmp = value
|
||||
_CodigoPoblacionContrarioTmpEsNulo = False
|
||||
If Me.entidades IsNot Nothing AndAlso Me.entidades.DireccionPrincipal IsNot Nothing Then
|
||||
Me.entidades.DireccionPrincipal.CodigoMunicipio = value
|
||||
End If
|
||||
Me.OnPropertyChanged("CodigoPoblacionContrarioTmp")
|
||||
Me.OnPropertyChanged("PoblacionContrarioTmp")
|
||||
Me.OnPropertyChanged("ProvinciaContrarioTmp")
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property PoblacionContrarioTmp As String
|
||||
Get
|
||||
Return municipios.ObtienePoblacion(CodigoPoblacionContrarioTmp)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property ProvinciaContrarioTmp As String
|
||||
Get
|
||||
Return municipios.ObtieneProvincia(CodigoPoblacionContrarioTmp)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Private _TelefonoContrario1TmpEsNulo As Boolean = True
|
||||
Private _TelefonoContrario1Tmp As String
|
||||
Public Property TelefonoContrario1Tmp As String
|
||||
Get
|
||||
If _TelefonoContrario1TmpEsNulo Then
|
||||
|
||||
If Me.entidades Is Nothing Then
|
||||
Return ""
|
||||
Else
|
||||
_TelefonoContrario1Tmp = Me.entidades.Telefono1
|
||||
_TelefonoContrario1TmpEsNulo = False
|
||||
Return Me.entidades.Telefono1
|
||||
End If
|
||||
Else
|
||||
Return _TelefonoContrario1Tmp
|
||||
End If
|
||||
|
||||
'If Me.entidades Is Nothing Then
|
||||
' If _TelefonoContrarioTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _TelefonoContrarioTmp
|
||||
' End If
|
||||
'Else
|
||||
' Return Me.entidades.Telefono1
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_TelefonoContrario1Tmp = value
|
||||
_TelefonoContrario1TmpEsNulo = False
|
||||
|
||||
If Me.entidades IsNot Nothing Then
|
||||
Me.entidades.Telefono1 = value
|
||||
End If
|
||||
Me.OnPropertyChanged("TelefonoContrario1Tmp")
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _TelefonoContrario2TmpEsNulo As Boolean = True
|
||||
Private _TelefonoContrario2Tmp As String
|
||||
Public Property TelefonoContrario2Tmp As String
|
||||
Get
|
||||
If _TelefonoContrario2TmpEsNulo Then
|
||||
|
||||
If Me.entidades Is Nothing Then
|
||||
Return ""
|
||||
Else
|
||||
_TelefonoContrario2Tmp = Me.entidades.Telefono2
|
||||
_TelefonoContrario2TmpEsNulo = False
|
||||
Return Me.entidades.Telefono2
|
||||
End If
|
||||
Else
|
||||
Return _TelefonoContrario2Tmp
|
||||
End If
|
||||
|
||||
'If Me.entidades Is Nothing Then
|
||||
' If _TelefonoContrarioTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _TelefonoContrarioTmp
|
||||
' End If
|
||||
'Else
|
||||
' Return Me.entidades.Telefono1
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_TelefonoContrario2Tmp = value
|
||||
_TelefonoContrario2TmpEsNulo = False
|
||||
If Me.entidades IsNot Nothing Then
|
||||
Me.entidades.Telefono2 = value
|
||||
End If
|
||||
Me.OnPropertyChanged("TelefonoContrario2Tmp")
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _EmailContrarioTmpEsNulo As Boolean = True
|
||||
Private _EmailContrarioTmp As String
|
||||
Public Property EmailContrarioTmp As String
|
||||
Get
|
||||
If _EmailContrarioTmpEsNulo Then
|
||||
If Me.entidades Is Nothing Then
|
||||
Return ""
|
||||
Else
|
||||
_EmailContrarioTmp = Me.entidades.Email
|
||||
_EmailContrarioTmpEsNulo = False
|
||||
Return Me.entidades.Email
|
||||
End If
|
||||
Else
|
||||
Return _EmailContrarioTmp
|
||||
End If
|
||||
|
||||
'If Me.entidades Is Nothing Then
|
||||
' If _EmailContrarioTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _EmailContrarioTmp
|
||||
' End If
|
||||
'Else
|
||||
' Return Me.entidades.Email
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_EmailContrarioTmp = value
|
||||
_EmailContrarioTmpEsNulo = False
|
||||
If Me.entidades IsNot Nothing Then
|
||||
Me.entidades.Email = value
|
||||
End If
|
||||
Me.OnPropertyChanged("EmailContrarioTmp")
|
||||
End Set
|
||||
End Property
|
||||
Public Sub ReiniciaValoresTMPContrario()
|
||||
_CifContrarioTmpEsNulo = True
|
||||
_RazonSocialContrarioTmpEsNulo = True
|
||||
_CodigoPoblacionContrarioTmpEsNulo = True
|
||||
_CodigoPostalContrarioTmpEsNulo = True
|
||||
_DomicilioContrarioTmpEsNulo = True
|
||||
_TelefonoContrario1TmpEsNulo = True
|
||||
_TelefonoContrario2TmpEsNulo = True
|
||||
_EmailContrarioTmpEsNulo = True
|
||||
End Sub
|
||||
#End Region
|
||||
#Region "Taller"
|
||||
Private _CifTallerTmpEsNulo As Boolean = True
|
||||
Private _CifTallerTmp As String
|
||||
Public Property CifTallerTmp As String
|
||||
Get
|
||||
If _CifTallerTmpEsNulo Then
|
||||
If Me.entidades1 Is Nothing Then
|
||||
Return ""
|
||||
Else
|
||||
_CifTallerTmp = Me.entidades1.CIF
|
||||
_CifTallerTmpEsNulo = False
|
||||
Return Me.entidades1.CIF
|
||||
End If
|
||||
Else
|
||||
Return _CifTallerTmp
|
||||
End If
|
||||
'If Me.entidades1 Is Nothing Then
|
||||
' If _CifTallerTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _CifTallerTmp
|
||||
' End If
|
||||
'Else
|
||||
' Return Me.entidades1.CIF
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_CifTallerTmp = value
|
||||
_CifTallerTmpEsNulo = False
|
||||
If Me.entidades1 IsNot Nothing Then
|
||||
If value.NothingAVacio = "" Then
|
||||
Me.entidades1.CIF = Nothing
|
||||
Else
|
||||
Me.entidades1.CIF = value
|
||||
End If
|
||||
End If
|
||||
Me.OnPropertyChanged("CifTallerTmp")
|
||||
Me.OnPropertyChanged("RazonSocialTallerTmp")
|
||||
Me.OnPropertyChanged("CodigoPostalTallerTmp")
|
||||
Me.OnPropertyChanged("DomicilioTallerTmp")
|
||||
Me.OnPropertyChanged("CodigoPoblacionTallerTmp")
|
||||
Me.OnPropertyChanged("PoblacionTallerTmp")
|
||||
Me.OnPropertyChanged("ProvinciaTallerTmp")
|
||||
Me.OnPropertyChanged("TelefonoTallerTmp")
|
||||
Me.OnPropertyChanged("EmailTallerTmp")
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _RazonSocialTallerTmpEsNulo As Boolean = True
|
||||
Private _RazonSocialTallerTmp As String
|
||||
Public Property RazonSocialTallerTmp As String
|
||||
Get
|
||||
If _RazonSocialTallerTmpEsNulo Then
|
||||
If Me.entidades1 IsNot Nothing Then
|
||||
Dim rs As String
|
||||
If Me.entidades1.RazonSocial.NothingAVacio = "" Then
|
||||
rs = (Me.entidades1.Apellidos & ", " & Me.entidades1.Nombre).Trim.Trim(",")
|
||||
Else
|
||||
rs = Me.entidades1.RazonSocial
|
||||
End If
|
||||
_RazonSocialTallerTmpEsNulo = False
|
||||
_RazonSocialTallerTmp = rs
|
||||
Return rs
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
|
||||
Else
|
||||
Return _RazonSocialTallerTmp
|
||||
End If
|
||||
'If Me.entidades1 Is Nothing Then
|
||||
' If _RazonSocialTallerTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _RazonSocialTallerTmp
|
||||
' End If
|
||||
'Else
|
||||
' If Me.entidades1.RazonSocial = "" Then
|
||||
' Return (Me.entidades1.Apellidos & ", " & Me.entidades1.Nombre).Trim.Trim(",")
|
||||
' Else
|
||||
' Return Me.entidades1.RazonSocial
|
||||
' End If
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_RazonSocialTallerTmp = value
|
||||
_RazonSocialTallerTmpEsNulo = False
|
||||
If Me.entidades1 IsNot Nothing Then
|
||||
Me.entidades1.RazonSocial = value
|
||||
If Me.entidades1.CIF.NothingAVacio <> "" AndAlso "1234567890X".Contains(Me.entidades1.CIF.Substring(1, 1)) AndAlso value.Contains(",") Then
|
||||
Me.entidades1.Apellidos = value.Split(",")(0).Trim
|
||||
Me.entidades1.Nombre = value.Split(",")(1).Trim
|
||||
End If
|
||||
End If
|
||||
Me.OnPropertyChanged("RazonSocialTallerTmp")
|
||||
End Set
|
||||
End Property
|
||||
Private _CodigoPostalTallerTmpEsNulo As Boolean = True
|
||||
Public _CodigoPostalTallerTmp As String
|
||||
Public Property CodigoPostalTallerTmp As String
|
||||
Get
|
||||
If _CodigoPostalTallerTmpEsNulo Then
|
||||
If Me.entidades1 IsNot Nothing AndAlso Me.entidades1.DireccionPrincipal IsNot Nothing Then
|
||||
_CodigoPostalTallerTmp = Me.entidades1.DireccionPrincipal.CodigoPostal
|
||||
_CodigoPostalTallerTmpEsNulo = False
|
||||
Return Me.entidades1.DireccionPrincipal.CodigoPostal
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
Else
|
||||
Return _CodigoPostalTallerTmp
|
||||
End If
|
||||
'If Me.entidades1 Is Nothing OrElse Me.entidades1.DireccionPrincipal Is Nothing Then
|
||||
' If _CodigoPostalTallerTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _CodigoPostalTallerTmp
|
||||
' End If
|
||||
'Else
|
||||
' Return Me.entidades1.DireccionPrincipal.CodigoPostal
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_CodigoPostalTallerTmp = value
|
||||
_CodigoPostalTallerTmpEsNulo = False
|
||||
If Me.entidades1 IsNot Nothing AndAlso Me.entidades1.DireccionPrincipal IsNot Nothing Then
|
||||
Me.entidades1.DireccionPrincipal.CodigoPostal = value
|
||||
End If
|
||||
Me.OnPropertyChanged("CodigoPostalTallerTmp")
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _DomicilioTallerTmpEsNulo As Boolean = True
|
||||
Private _DomicilioTallerTmp As String
|
||||
Public Property DomicilioTallerTmp As String
|
||||
Get
|
||||
If _DomicilioTallerTmpEsNulo Then
|
||||
If Me.entidades1 IsNot Nothing AndAlso Me.entidades1.DireccionPrincipal IsNot Nothing Then
|
||||
_DomicilioTallerTmp = Me.entidades1.DireccionPrincipal.Direccion.NothingAVacio
|
||||
_DomicilioTallerTmpEsNulo = False
|
||||
Return Me.entidades1.DireccionPrincipal.Direccion
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
Else
|
||||
Return _DomicilioTallerTmp
|
||||
End If
|
||||
'If Me.entidades1 Is Nothing OrElse Me.entidades1.DireccionPrincipal Is Nothing Then
|
||||
' If _DomicilioTallerTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _DomicilioTallerTmp
|
||||
' End If
|
||||
'Else
|
||||
' Return Me.entidades1.DireccionPrincipal.Direccion
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_DomicilioTallerTmp = value
|
||||
_DomicilioTallerTmpEsNulo = False
|
||||
If Me.entidades1 IsNot Nothing AndAlso Me.entidades1.DireccionPrincipal IsNot Nothing Then
|
||||
Me.entidades1.DireccionPrincipal.Direccion = value
|
||||
End If
|
||||
Me.OnPropertyChanged("DomicilioTallerTmp")
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private _CodigoPoblacionTallerTmpEsNulo As Boolean = True
|
||||
Private _CodigoPoblacionTallerTmp As String
|
||||
Public Property CodigoPoblacionTallerTmp As String
|
||||
Get
|
||||
If _CodigoPoblacionTallerTmpEsNulo Then
|
||||
'If Me.entidades1 IsNot Nothing AndAlso Me.entidades1.DireccionPrincipal IsNot Nothing AndAlso Me.entidades1.DireccionPrincipal.municipios IsNot Nothing Then
|
||||
' _CodigoPoblacionTallerTmp = Me.entidades1.DireccionPrincipal.CodigoMunicipio
|
||||
' _CodigoPoblacionTallerTmpEsNulo = False
|
||||
' Return Me.entidades1.DireccionPrincipal.CodigoMunicipio
|
||||
'Else
|
||||
' Return ""
|
||||
'End If
|
||||
If Me.entidades1 Is Nothing OrElse Me.entidades1.DireccionPrincipal Is Nothing OrElse Me.entidades1.DireccionPrincipal.municipios Is Nothing Then
|
||||
If Me.entidades1 IsNot Nothing AndAlso Me.entidades1.DireccionPrincipal IsNot Nothing AndAlso Me.entidades1.DireccionPrincipal.municipios Is Nothing Then
|
||||
If Me.entidades1.DireccionPrincipal.CodigoPostal.NothingAVacio <> "" Then
|
||||
Dim bd = bdGestionAsegasa.gestionasegasaEntities.NuevoContexto
|
||||
Dim pob = bd.codigospostales.First(Function(x) x.CodigoPostal = Me.entidades1.DireccionPrincipal.CodigoPostal)
|
||||
Me.entidades1.DireccionPrincipal.CodigoMunicipio = pob.CodigoMunicipio
|
||||
_CodigoPoblacionTallerTmp = pob.CodigoMunicipio
|
||||
_CodigoPoblacionTallerTmpEsNulo = False
|
||||
Return _CodigoPoblacionTallerTmp
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
|
||||
Else
|
||||
_CodigoPoblacionTallerTmp = Me.entidades1.DireccionPrincipal.CodigoMunicipio
|
||||
_CodigoPoblacionTallerTmpEsNulo = False
|
||||
Return Me.entidades1.DireccionPrincipal.CodigoMunicipio
|
||||
End If
|
||||
Else
|
||||
Return _CodigoPoblacionTallerTmp
|
||||
End If
|
||||
|
||||
|
||||
' If Me.entidades1 Is Nothing OrElse Me.entidades1.DireccionPrincipal Is Nothing OrElse Me.entidades1.DireccionPrincipal.municipios Is Nothing Then
|
||||
' If _CodigoPoblacionTallerTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _CodigoPoblacionTallerTmp
|
||||
' End If
|
||||
'Else
|
||||
' Return Me.entidades1.DireccionPrincipal.CodigoMunicipio
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_CodigoPoblacionTallerTmp = value
|
||||
_CodigoPoblacionTallerTmpEsNulo = False
|
||||
If Me.entidades1 IsNot Nothing AndAlso Me.entidades1.DireccionPrincipal IsNot Nothing Then
|
||||
Me.entidades1.DireccionPrincipal.CodigoMunicipio = value
|
||||
End If
|
||||
Me.OnPropertyChanged("CodigoPoblacionTallerTmp")
|
||||
Me.OnPropertyChanged("PoblacionTallerTmp")
|
||||
Me.OnPropertyChanged("ProvinciaTallerTmp")
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Public ReadOnly Property PoblacionTallerTmp As String
|
||||
Get
|
||||
Return municipios.ObtienePoblacion(CodigoPoblacionTallerTmp)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property ProvinciaTallerTmp As String
|
||||
Get
|
||||
Return municipios.ObtieneProvincia(CodigoPoblacionTallerTmp)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private _TelefonoTallerTmpEsNulo As Boolean = True
|
||||
Private _TelefonoTallerTmp As String
|
||||
Public Property TelefonoTallerTmp As String
|
||||
Get
|
||||
If _TelefonoTallerTmpEsNulo Then
|
||||
If Me.entidades1 IsNot Nothing Then
|
||||
_TelefonoTallerTmp = Me.entidades1.Telefono1
|
||||
_TelefonoTallerTmpEsNulo = False
|
||||
Return Me.entidades1.Telefono1
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
Else
|
||||
Return _TelefonoTallerTmp
|
||||
End If
|
||||
|
||||
'If Me.entidades1 Is Nothing Then
|
||||
' If _TelefonoTallerTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _TelefonoTallerTmp
|
||||
' End If
|
||||
'Else
|
||||
' Return Me.entidades1.Telefono1
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_TelefonoTallerTmp = value
|
||||
_TelefonoTallerTmpEsNulo = False
|
||||
If Me.entidades1 IsNot Nothing Then
|
||||
Me.entidades1.Telefono1 = value
|
||||
End If
|
||||
Me.OnPropertyChanged("TelefonoTallerTmp")
|
||||
End Set
|
||||
End Property
|
||||
Private _EmailTallerTmpEsNulo As Boolean = True
|
||||
Private _EmailTallerTmp As String
|
||||
|
||||
|
||||
Public Property EmailTallerTmp As String
|
||||
Get
|
||||
If _EmailTallerTmpEsNulo Then
|
||||
If Me.entidades1 Is Nothing Then
|
||||
Return ""
|
||||
Else
|
||||
_EmailTallerTmp = Me.entidades1.Email
|
||||
_EmailTallerTmpEsNulo = False
|
||||
Return Me.entidades1.Email
|
||||
End If
|
||||
Else
|
||||
Return _EmailTallerTmp
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'If Me.entidades1 Is Nothing Then
|
||||
' If _EmailTallerTmpEsNulo Then
|
||||
' Return ""
|
||||
' Else
|
||||
' Return _EmailTallerTmp
|
||||
' End If
|
||||
'Else
|
||||
' Return Me.entidades1.Email
|
||||
'End If
|
||||
End Get
|
||||
Set(value As String)
|
||||
_EmailTallerTmp = value
|
||||
_EmailTallerTmpEsNulo = False
|
||||
If Me.entidades1 IsNot Nothing Then
|
||||
Me.entidades1.Email = value
|
||||
End If
|
||||
Me.OnPropertyChanged("EmailTallerTmp")
|
||||
End Set
|
||||
End Property
|
||||
Public Sub ReiniciaValoresTMPTaller()
|
||||
_CifTallerTmpEsNulo = True
|
||||
_RazonSocialTallerTmpEsNulo = True
|
||||
_CodigoPoblacionTallerTmpEsNulo = True
|
||||
_CodigoPostalTallerTmpEsNulo = True
|
||||
_DomicilioTallerTmpEsNulo = True
|
||||
_TelefonoTallerTmpEsNulo = True
|
||||
_EmailTallerTmpEsNulo = True
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Friend Shared Sub GuardandoCambios(bd As bdGestionAsegasa.gestionasegasaEntities)
|
||||
Dim gestioness = bd.ObjectStateManager.GetObjectStateEntries(EntityState.Added).Where(Function(x) x.EntitySet.Name.ToLower = "gestionessiniestros")
|
||||
AsignaidUsuarioCreadorGestionesSiniestros(bd, gestioness)
|
||||
gestioness = bd.ObjectStateManager.GetObjectStateEntries(EntityState.Modified).Where(Function(x) x.EntitySet.Name.ToLower = "gestionessiniestros")
|
||||
AsignaidUsuarioModificadorGestionesSiniestros(bd, gestioness)
|
||||
End Sub
|
||||
|
||||
Private Shared Sub AsignaidUsuarioCreadorGestionesSiniestros(bd As bdGestionAsegasa.gestionasegasaEntities, ms As IEnumerable(Of ObjectStateEntry))
|
||||
Try
|
||||
If ms.Count > 0 And Utilidades.dsc.idUsuario > 0 Then
|
||||
Dim Ahora = tsl5.bbdd.AhoraMysql(bd)
|
||||
For Each m In ms
|
||||
Dim r = DirectCast(m.Entity, gestionessiniestros)
|
||||
r.idUsuarioCreador = Utilidades.dsc.idUsuario
|
||||
r.idUsuarioModificador = Utilidades.dsc.idUsuario
|
||||
r.FechaModificacion = Ahora
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Throw
|
||||
End Try
|
||||
End Sub
|
||||
Private Shared Sub AsignaidUsuarioModificadorGestionesSiniestros(bd As bdGestionAsegasa.gestionasegasaEntities, ms As IEnumerable(Of ObjectStateEntry))
|
||||
Try
|
||||
If ms.Count > 0 And Utilidades.dsc.idUsuario > 0 Then
|
||||
Dim Ahora = tsl5.bbdd.AhoraMysql(bd)
|
||||
For Each m In ms
|
||||
Dim r = DirectCast(m.Entity, gestionessiniestros)
|
||||
r.idUsuarioModificador = Utilidades.dsc.idUsuario
|
||||
r.FechaModificacion = Ahora
|
||||
Next
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Throw
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user