Public Class PersonaBase Inherits EntidadBase Private PIdPersona As Integer Private PIdActividad_Economica As Integer Private PIdRevisado As Integer Private PIdResultado As Integer Private PIdPais_Nacimiento As Integer Private PIdPais_Nacionalidad As Integer Private PIdEstado1 As Integer Private PIdEstado2 As Integer Private PIdEstado3 As Integer Private PIdEstado4 As Integer Private PIdEstado5 As Integer Private PIdPersona_Representante As Integer Private PIdEsGAFI As Integer Private PIdEsParaisoFiscal As Integer Private PIdEsPoliticamenteExpuesto As Integer Private PIdClasificacion_Riesgo As Integer Private PSEquivalencia As String Private PIEstado As Integer Private PIdTipo_Persona As Integer Private PSNombre_Completo As String Private PSTelefono As String Private PSCelular As String Private PSCorreo_Electronico As String Private PSPrimer_Nombre As String Private PSSegundo_Nombre As String Private PSPrimer_Apellido As String Private PSSegundo_Apellido As String Private PDNacimiento As DateTime Private PDUltima_Revision As DateTime Private PSOcupacion As String Private PSProfesion As String Private PSFIEL As String Private PIdEstadoCivil As Integer Private PSNomEmpresa As String Private PSGiroEmpresa As String Private PSPuestoEmpresa As String Private PIdPais_Empresa As Integer Private PSOperacionMexico As String Private PIdSector_Economico As Integer Private PIdSucursal As Integer Private PSNomComercial As String Private PIdRepresentante As Integer Private PSRazonSocial As String Private PIdSociedad As Integer Private PIdConyuge As Integer Private PDFechaMatrimonio As DateTime Private PSLugarMatrimonio As String Private PIGenero As Integer Private PDTTablaDomicilio As New DataTable() Private PDTTablaIdentificacion As New DataTable() Private PDTTablaPatronTransaccional As New DataTable() Private PEEntidadCartaPoder As New Entidad.CartaPoder() Private PEEntidadActaConstitutiva As New Entidad.ActaConstitutiva() Private PEEntidadRegistroAsociacion As New Entidad.RegistroAsociacion() Public Property LugarMatrimonio As String Get Return PSLugarMatrimonio End Get Set(ByVal value As String) PSLugarMatrimonio = value End Set End Property Public Property FechaMatrimonio As DateTime Get Return PDFechaMatrimonio End Get Set(ByVal value As DateTime) PDFechaMatrimonio = value End Set End Property Public Property IdConyuge As Integer Get Return PIdConyuge End Get Set(ByVal value As Integer) PIdConyuge = value End Set End Property Public Property IdSociedad As Integer Get Return PIdSociedad End Get Set(ByVal value As Integer) PIdSociedad = value End Set End Property Public Property RazonSocial As String Get Return PSRazonSocial End Get Set(ByVal value As String) PSRazonSocial = value End Set End Property Public Property IdRepresentante As Integer Get Return PIdRepresentante End Get Set(ByVal value As Integer) PIdRepresentante = value End Set End Property Public Property NomComercial As String Get Return PSNomComercial End Get Set(ByVal value As String) PSNomComercial = value End Set End Property Public Property IdSucursal As Integer Get Return PIdSucursal End Get Set(ByVal value As Integer) PIdSucursal = value End Set End Property Public Property IdSector_Economico As Integer Get Return PIdSector_Economico End Get Set(ByVal value As Integer) PIdSector_Economico = value End Set End Property Public Property IdPais_Empresa As Integer Get Return PIdPais_Empresa End Get Set(ByVal value As Integer) PIdPais_Empresa = value End Set End Property Public Property OperacionMexico As String Get Return PSOperacionMexico End Get Set(ByVal value As String) PSOperacionMexico = value End Set End Property Public Property PuestoEmpresa As String Get Return PSPuestoEmpresa End Get Set(ByVal value As String) PSPuestoEmpresa = value End Set End Property Public Property GiroEmpresa As String Get Return PSGiroEmpresa End Get Set(ByVal value As String) PSGiroEmpresa = value End Set End Property Public Property NomEmpresa As String Get Return PSNomEmpresa End Get Set(ByVal value As String) PSNomEmpresa = value End Set End Property Public Property EstadoCivil As Integer Get Return PIdEstadoCivil End Get Set(ByVal value As Integer) PIdEstadoCivil = value End Set End Property Public Property FIEL As String Get Return PSFIEL End Get Set(ByVal value As String) PSFIEL = value End Set End Property Public Property Profesion As String Get Return PSProfesion End Get Set(ByVal value As String) PSProfesion = value End Set End Property Public Property Ocupacion As String Get Return PSOcupacion End Get Set(ByVal value As String) PSOcupacion = value End Set End Property Public Property IdResultado As Integer Get Return PIdResultado End Get Set(ByVal value As Integer) PIdResultado = value End Set End Property Public Property IdRevisado As Integer Get Return PIdRevisado End Get Set(ByVal value As Integer) PIdRevisado = value End Set End Property Public Property IdClasificacion_Riesgo As Integer Get Return PIdClasificacion_Riesgo End Get Set(ByVal value As Integer) PIdClasificacion_Riesgo = value End Set End Property Public Property IdEsPoliticamenteExpuesto As Integer Get Return PIdEsPoliticamenteExpuesto End Get Set(ByVal value As Integer) PIdEsPoliticamenteExpuesto = value End Set End Property Public Property IdEsParaisoFiscal As Integer Get Return PIdEsParaisoFiscal End Get Set(ByVal value As Integer) PIdEsParaisoFiscal = value End Set End Property Public Property IdEsGAFI As Integer Get Return PIdEsGAFI End Get Set(ByVal value As Integer) PIdEsGAFI = value End Set End Property Public Property IdPersona_Representante As Integer Get Return PIdPersona_Representante End Get Set(ByVal value As Integer) PIdPersona_Representante = value End Set End Property Public Property IdEstado1 As Integer Get Return PIdEstado1 End Get Set(ByVal value As Integer) PIdEstado1 = value End Set End Property Public Property IdEstado2 As Integer Get Return PIdEstado2 End Get Set(ByVal value As Integer) PIdEstado2 = value End Set End Property Public Property IdEstado3 As Integer Get Return PIdEstado3 End Get Set(ByVal value As Integer) PIdEstado3 = value End Set End Property Public Property IdEstado4 As Integer Get Return PIdEstado4 End Get Set(ByVal value As Integer) PIdEstado4 = value End Set End Property Public Property IdEstado5 As Integer Get Return PIdEstado5 End Get Set(ByVal value As Integer) PIdEstado5 = value End Set End Property Public Property IdPais_Nacionalidad As Integer Get Return PIdPais_Nacionalidad End Get Set(ByVal value As Integer) PIdPais_Nacionalidad = value End Set End Property Public Property IdPais_Nacimiento As Integer Get Return PIdPais_Nacimiento End Get Set(ByVal value As Integer) PIdPais_Nacimiento = value End Set End Property Public Property IdActividad_Economica As Integer Get Return PIdActividad_Economica End Get Set(ByVal value As Integer) PIdActividad_Economica = value End Set End Property Public Property IdPersona As Integer Get Return PIdPersona End Get Set(ByVal value As Integer) PIdPersona = value End Set End Property Public Property Correo_Electronico As String Get Return PSCorreo_Electronico End Get Set(ByVal value As String) PSCorreo_Electronico = value.ToUpper.Trim End Set End Property Public Property Telefono As String Get Return PSTelefono End Get Set(ByVal value As String) PSTelefono = value End Set End Property Public Property Celular As String Get Return PSCelular End Get Set(ByVal value As String) PSCelular = value End Set End Property Public Property Equivalencia As String Get Return PSEquivalencia End Get Set(ByVal value As String) PSEquivalencia = value End Set End Property Public Property idTipo_Persona As Integer Get Return PIdTipo_Persona End Get Set(ByVal value As Integer) PIdTipo_Persona = value End Set End Property Public Property idEstado As Integer Get Return PIEstado End Get Set(ByVal value As Integer) PIEstado = value End Set End Property Public Property Segundo_Nombre As String Get Return PSSegundo_Nombre End Get Set(ByVal value As String) PSSegundo_Nombre = value.ToUpper.Trim End Set End Property Public Property Primer_Apellido As String Get Return PSPrimer_Apellido End Get Set(ByVal value As String) PSPrimer_Apellido = value.ToUpper.Trim End Set End Property Public Property Segundo_Apellido As String Get Return PSSegundo_Apellido End Get Set(ByVal value As String) PSSegundo_Apellido = value.ToUpper.Trim End Set End Property Public Property Primer_Nombre As String Get Return PSPrimer_Nombre End Get Set(ByVal value As String) PSPrimer_Nombre = value.ToUpper.Trim End Set End Property Public Property Nombre_Completo As String Get Return PSNombre_Completo End Get Set(ByVal value As String) PSNombre_Completo = value.ToUpper.Trim End Set End Property Public Property Ultima_Revision As DateTime Get Return PDUltima_Revision End Get Set(ByVal value As DateTime) PDUltima_Revision = value End Set End Property Public Property Nacimiento As DateTime Get Return PDNacimiento End Get Set(ByVal value As DateTime) PDNacimiento = value End Set End Property Public Property Genero As Integer Get Return PIGenero End Get Set(ByVal value As Integer) PIGenero = value End Set End Property Public Property TablaDomicilio As DataTable Get Return PDTTablaDomicilio End Get Set(ByVal value As DataTable) PDTTablaDomicilio = value End Set End Property Public Property TablaIdentificacion As DataTable Get Return PDTTablaIdentificacion End Get Set(ByVal value As DataTable) PDTTablaIdentificacion = value End Set End Property Public Property TablaPatronTransaccional As DataTable Get Return PDTTablaPatronTransaccional End Get Set(ByVal value As DataTable) PDTTablaPatronTransaccional = value End Set End Property Public Property EntidadCartaPoder As Entidad.CartaPoder Get Return PEEntidadCartaPoder End Get Set(ByVal value As Entidad.CartaPoder) PEEntidadCartaPoder = value End Set End Property Public Property EntidadActaConstitutiva As Entidad.ActaConstitutiva Get Return PEEntidadActaConstitutiva End Get Set(ByVal value As Entidad.ActaConstitutiva) PEEntidadActaConstitutiva = value End Set End Property Public Property EntidadRegistroAsociacion As Entidad.RegistroAsociacion Get Return PEEntidadRegistroAsociacion End Get Set(ByVal value As Entidad.RegistroAsociacion) PEEntidadRegistroAsociacion = value End Set End Property End Class