cambios en apidenuncias

.codex-links/WebIntranet/Models/CertificateLoginBridgeHelper.vb

@@ -0,0 +1,490 @@
+Imports System.Security.Cryptography.X509Certificates
+Imports System.Text.RegularExpressions
+Imports Newtonsoft.Json
+
+Namespace Models
+    Public Class CertificateLoginBridgeOptions
+        Public Property PublicUrl As String = String.Empty
+        Public Property ForwardedCertificateHeader As String = "X-ARR-ClientCert"
+        Public Property AdditionalForwardedCertificateHeaders As List(Of String) = New List(Of String)()
+        Public Property AllowedParentOrigins As List(Of String) = New List(Of String)()
+
+        Public Shared Function LoadFromConfiguration() As CertificateLoginBridgeOptions
+            Dim publicUrl = FirstNonEmpty(
+                ConfigurationManager.AppSettings("CertificateLoginPublicUrl"),
+                ConfigurationManager.AppSettings("UrlCertLogin"))
+
+            Dim forwardedCertificateHeader = FirstNonEmpty(
+                ConfigurationManager.AppSettings("CertificateForwardedHeader"),
+                ConfigurationManager.AppSettings("CertHeaderName"),
+                "X-ARR-ClientCert")
+
+            Dim additionalHeadersSetting = FirstNonEmpty(
+                ConfigurationManager.AppSettings("CertificateAdditionalForwardedHeaders"),
+                ConfigurationManager.AppSettings("AdditionalCertHeaders"))
+
+            Dim allowedOriginsSetting = FirstNonEmpty(
+                ConfigurationManager.AppSettings("CertificateAllowedParentOrigins"),
+                ConfigurationManager.AppSettings("AllowedParentOrigins"))
+
+            Return New CertificateLoginBridgeOptions With {
+                .PublicUrl = publicUrl,
+                .ForwardedCertificateHeader = forwardedCertificateHeader,
+                .AdditionalForwardedCertificateHeaders = SplitSetting(additionalHeadersSetting),
+                .AllowedParentOrigins = SplitSetting(allowedOriginsSetting)
+            }
+        End Function
+
+        Private Shared Function SplitSetting(value As String) As List(Of String)
+            If String.IsNullOrWhiteSpace(value) Then
+                Return New List(Of String)()
+            End If
+
+            Return value.Split(New Char() {";"c, "|"c}, StringSplitOptions.RemoveEmptyEntries).
+                Select(Function(item) item.Trim()).
+                Where(Function(item) item <> String.Empty).
+                ToList()
+        End Function
+
+        Private Shared Function FirstNonEmpty(ParamArray values() As String) As String
+            For Each value In values
+                If Not String.IsNullOrWhiteSpace(value) Then
+                    Return value.Trim()
+                End If
+            Next
+
+            Return String.Empty
+        End Function
+    End Class
+
+    Public Class CertificateProxyLoginResponse
+        Public Property Token As String = String.Empty
+        Public Property User As CertificateProxyUser
+    End Class
+
+    Public Class CertificateProxyUser
+        Public Property NIF As String = String.Empty
+        Public Property NOMBRE As String = String.Empty
+        Public Property APELLIDOS As String = String.Empty
+        Public Property ADMINISTRARPTYREGISTRO As Boolean?
+    End Class
+
+    Public Module CertificateLoginBridgeHelper
+        Private ReadOnly DefaultCertificateHeaders As String() = {
+            "X-ARR-ClientCert",
+            "X-Client-Cert",
+            "X-Client-Cert-Der-Base64",
+            "X-Client-Certificate",
+            "X-Client-Certificate-Der-Base64",
+            "X-SSL-CERT",
+            "X-SSL-Client-Cert",
+            "X-SSL-Client-Cert-Base64",
+            "X-Tls-Client-Cert",
+            "X-Tls-Client-Cert-Der-Base64",
+            "X-Forwarded-Tls-Client-Cert",
+            "Ssl-Client-Cert"
+        }
+
+        Private ReadOnly DefaultCertificateServerVariables As String() = {
+            "SSL_CLIENT_CERT",
+            "HTTP_SSL_CLIENT_CERT",
+            "HTTP_X_SSL_CLIENT_CERT",
+            "HTTP_X_CLIENT_CERT",
+            "HTTP_X_CLIENT_CERTIFICATE",
+            "HTTP_X_ARR_CLIENTCERT",
+            "CERT_CERTIFICATE"
+        }
+
+        Public Function IsCertificateHostRequest(request As HttpRequest, publicUrl As String) As Boolean
+            If request Is Nothing OrElse String.IsNullOrWhiteSpace(publicUrl) Then
+                Return False
+            End If
+
+            Dim configuredUri As Uri = Nothing
+            If Not Uri.TryCreate(publicUrl, UriKind.Absolute, configuredUri) Then
+                Return False
+            End If
+
+            Dim forwardedHostRaw = GetFirstHeaderValue(request, "X-Forwarded-Host")
+            Dim forwardedProtoRaw = GetFirstHeaderValue(request, "X-Forwarded-Proto")
+            Dim forwardedPortRaw = GetFirstHeaderValue(request, "X-Forwarded-Port")
+            Dim hasForwardedInfo =
+                Not String.IsNullOrWhiteSpace(forwardedHostRaw) OrElse
+                Not String.IsNullOrWhiteSpace(forwardedProtoRaw) OrElse
+                Not String.IsNullOrWhiteSpace(forwardedPortRaw)
+
+            Dim requestHost = ExtractHost(If(hasForwardedInfo, forwardedHostRaw, Nothing))
+            If String.IsNullOrWhiteSpace(requestHost) AndAlso request.Url IsNot Nothing Then
+                requestHost = request.Url.Host
+            End If
+
+            If Not String.Equals(requestHost, configuredUri.Host, StringComparison.OrdinalIgnoreCase) Then
+                Return False
+            End If
+
+            If Not hasForwardedInfo Then
+                Return True
+            End If
+
+            Dim requestScheme = FirstToken(forwardedProtoRaw)
+            If String.IsNullOrWhiteSpace(requestScheme) Then
+                requestScheme = configuredUri.Scheme
+            End If
+
+            Dim requestPort = ParseNullableInt(forwardedPortRaw)
+            If Not requestPort.HasValue Then
+                requestPort = ExtractPort(forwardedHostRaw)
+            End If
+            If Not requestPort.HasValue Then
+                requestPort = GetDefaultPort(requestScheme)
+            End If
+
+            Dim configuredPort = If(configuredUri.IsDefaultPort, GetDefaultPort(configuredUri.Scheme), configuredUri.Port)
+            Return String.Equals(requestScheme, configuredUri.Scheme, StringComparison.OrdinalIgnoreCase) AndAlso
+                requestPort.Value = configuredPort
+        End Function
+
+        Public Function IsAllowedParentOrigin(parentOrigin As String, allowedParentOrigins As IEnumerable(Of String)) As Boolean
+            Dim normalizedParentOrigin = NormalizeOrigin(parentOrigin)
+            If String.IsNullOrWhiteSpace(normalizedParentOrigin) Then
+                Return False
+            End If
+
+            Return allowedParentOrigins.
+                Where(Function(origin) Not String.IsNullOrWhiteSpace(origin)).
+                Select(Function(origin) NormalizeOrigin(origin)).
+                Any(Function(origin) String.Equals(origin, normalizedParentOrigin, StringComparison.OrdinalIgnoreCase))
+        End Function
+
+        Public Function ReadCertificate(
+            request As HttpRequest,
+            forwardedCertificateHeader As String,
+            additionalForwardedCertificateHeaders As IEnumerable(Of String)) As X509Certificate2
+
+            Dim directCertificate = ReadDirectCertificate(request)
+            If directCertificate IsNot Nothing Then
+                Return directCertificate
+            End If
+
+            Dim headerCandidates As New List(Of String)()
+            AddHeaderCandidate(headerCandidates, forwardedCertificateHeader)
+
+            If additionalForwardedCertificateHeaders IsNot Nothing Then
+                For Each headerName In additionalForwardedCertificateHeaders
+                    AddHeaderCandidate(headerCandidates, headerName)
+                Next
+            End If
+
+            For Each headerName In DefaultCertificateHeaders
+                AddHeaderCandidate(headerCandidates, headerName)
+            Next
+
+            For Each headerName In headerCandidates.Distinct(StringComparer.OrdinalIgnoreCase)
+                Dim rawHeader = request.Headers(headerName)
+                If String.IsNullOrWhiteSpace(rawHeader) Then
+                    Continue For
+                End If
+
+                Dim certificate = TryCreateCertificate(rawHeader)
+                If certificate IsNot Nothing Then
+                    Return certificate
+                End If
+            Next
+
+            For Each serverVariableName In DefaultCertificateServerVariables
+                Dim rawValue = request.ServerVariables(serverVariableName)
+                If String.IsNullOrWhiteSpace(rawValue) Then
+                    Continue For
+                End If
+
+                Dim certificate = TryCreateCertificate(rawValue)
+                If certificate IsNot Nothing Then
+                    Return certificate
+                End If
+            Next
+
+            Return Nothing
+        End Function
+
+        Public Function ObtenerDni(certificado As X509Certificate2) As String
+            Try
+                If certificado Is Nothing Then
+                    Return String.Empty
+                End If
+
+                Dim candidateValues As New List(Of String) From {
+                    ExtractDistinguishedNameValue(certificado.Subject, "OID.2.5.4.97"),
+                    ExtractDistinguishedNameValue(certificado.Subject, "2.5.4.97"),
+                    ExtractDistinguishedNameValue(certificado.Subject, "SERIALNUMBER"),
+                    ExtractDistinguishedNameValue(certificado.Subject, "OID.2.5.4.5"),
+                    ExtractDistinguishedNameValue(certificado.Subject, "2.5.4.5"),
+                    certificado.GetNameInfo(X509NameType.SimpleName, False)
+                }
+
+                For Each candidateValue In candidateValues
+                    Dim nif = NormalizarIdentificadorFiscal(candidateValue)
+                    If nif <> String.Empty Then
+                        Return nif
+                    End If
+                Next
+
+                Return NormalizarIdentificadorFiscal(certificado.Subject)
+            Catch
+                Return String.Empty
+            End Try
+        End Function
+
+        Public Function BuildIframeDniHtml(dni As String, parentOrigin As String) As String
+            Dim payloadJson = JsonConvert.SerializeObject(New With {
+                .dni = dni
+            })
+            Dim targetOriginJson = JsonConvert.SerializeObject(NormalizeOrigin(parentOrigin))
+
+            Return BuildIframePostMessageHtml(
+                payloadJson,
+                targetOriginJson,
+                "Validando acceso con certificado...")
+        End Function
+
+        Public Function BuildIframeLoginHtml(response As CertificateProxyLoginResponse, parentOrigin As String) As String
+            Dim payloadJson = JsonConvert.SerializeObject(New With {
+                .token = response.Token,
+                .user = response.User
+            })
+            Dim targetOriginJson = JsonConvert.SerializeObject(NormalizeOrigin(parentOrigin))
+
+            Return BuildIframePostMessageHtml(
+                payloadJson,
+                targetOriginJson,
+                "Validando acceso con certificado...")
+        End Function
+
+        Public Function BuildIframeErrorHtml(message As String, parentOrigin As String) As String
+            Dim payloadJson = JsonConvert.SerializeObject(New With {
+                .error = message
+            })
+            Dim targetOriginJson = JsonConvert.SerializeObject(NormalizeOrigin(parentOrigin))
+            Dim safeMessage = If(String.IsNullOrWhiteSpace(message), "No se pudo completar el acceso con certificado.", message)
+
+            Return BuildIframePostMessageHtml(
+                payloadJson,
+                targetOriginJson,
+                safeMessage)
+        End Function
+
+        Private Function BuildIframePostMessageHtml(
+            payloadJson As String,
+            targetOriginJson As String,
+            visibleMessage As String) As String
+
+            Dim visibleMessageJson = JsonConvert.SerializeObject(visibleMessage)
+
+            Return "<!DOCTYPE html>" &
+                "<html>" &
+                "<head><meta charset=""utf-8"" /><title>Autenticacion Certificado</title></head>" &
+                "<body>" &
+                "<div id=""bridgeStatus"" style=""font-family:Arial,sans-serif;font-size:14px;padding:16px;""></div>" &
+                "<script>" &
+                "(function(){" &
+                "var payload = " & payloadJson & ";" &
+                "var targetOrigin = " & targetOriginJson & ";" &
+                "var visibleMessage = " & visibleMessageJson & ";" &
+                "var targetWindow = null;" &
+                "function renderMessage(){" &
+                "var container = document.getElementById('bridgeStatus');" &
+                "if (container && visibleMessage) { container.innerText = visibleMessage; }" &
+                "}" &
+                "if (window.opener && !window.opener.closed) {" &
+                "targetWindow = window.opener;" &
+                "} else if (window.parent && window.parent !== window) {" &
+                "targetWindow = window.parent;" &
+                "}" &
+                "try {" &
+                "if (targetWindow) {" &
+                "targetWindow.postMessage(payload, targetOrigin);" &
+                "}" &
+                "} catch (postMessageError) {}" &
+                "renderMessage();" &
+                "if (window.opener && !window.opener.closed) {" &
+                "setTimeout(function(){ try { window.close(); } catch (closeError) {} }, 150);" &
+                "}" &
+                "})();" &
+                "</script>" &
+                "</body>" &
+                "</html>"
+        End Function
+
+        Private Function ReadDirectCertificate(request As HttpRequest) As X509Certificate2
+            Try
+                If request Is Nothing OrElse request.ClientCertificate Is Nothing OrElse Not request.ClientCertificate.IsPresent Then
+                    Return Nothing
+                End If
+
+                Dim rawCertificate = request.ClientCertificate.Certificate
+                If rawCertificate Is Nothing OrElse rawCertificate.Length = 0 Then
+                    Return Nothing
+                End If
+
+                Return New X509Certificate2(rawCertificate)
+            Catch
+                Return Nothing
+            End Try
+        End Function
+
+        Private Function TryCreateCertificate(rawHeader As String) As X509Certificate2
+            Dim normalizedValue = Uri.UnescapeDataString(rawHeader).Trim()
+            If normalizedValue = String.Empty Then
+                Return Nothing
+            End If
+
+            If normalizedValue.IndexOf("BEGIN CERTIFICATE", StringComparison.OrdinalIgnoreCase) >= 0 Then
+                Try
+                    Dim pemPayload = Regex.Replace(
+                        normalizedValue,
+                        "-+BEGIN CERTIFICATE-+|-+END CERTIFICATE-+|\s+",
+                        String.Empty,
+                        RegexOptions.IgnoreCase)
+
+                    If pemPayload <> String.Empty Then
+                        Return New X509Certificate2(Convert.FromBase64String(pemPayload))
+                    End If
+                Catch
+                End Try
+            End If
+
+            Dim compactValue = Regex.Replace(normalizedValue, "\s+", String.Empty)
+            If compactValue.Length > 0 AndAlso compactValue.Length Mod 2 = 0 AndAlso Regex.IsMatch(compactValue, "^[0-9a-fA-F]+$") Then
+                Try
+                    Return New X509Certificate2(HexStringToBytes(compactValue))
+                Catch
+                End Try
+            End If
+
+            Try
+                Return New X509Certificate2(Convert.FromBase64String(compactValue))
+            Catch
+                Return Nothing
+            End Try
+        End Function
+
+        Private Function NormalizarIdentificadorFiscal(value As String) As String
+            If String.IsNullOrWhiteSpace(value) Then
+                Return String.Empty
+            End If
+
+            Dim normalizedValue = value.Trim().Trim(""""c).ToUpperInvariant()
+            If normalizedValue.StartsWith("IDCES-", StringComparison.OrdinalIgnoreCase) OrElse
+                normalizedValue.StartsWith("VATES-", StringComparison.OrdinalIgnoreCase) Then
+                normalizedValue = normalizedValue.Split("-"c).Last().Trim()
+            End If
+
+            Dim match = Regex.Match(normalizedValue, "\b[0-9XYZ]\d{7}[A-Z]\b", RegexOptions.IgnoreCase)
+            If match.Success Then
+                Return match.Value.ToUpperInvariant()
+            End If
+
+            Return String.Empty
+        End Function
+
+        Private Function ExtractDistinguishedNameValue(subject As String, attributeName As String) As String
+            If String.IsNullOrWhiteSpace(subject) OrElse String.IsNullOrWhiteSpace(attributeName) Then
+                Return String.Empty
+            End If
+
+            Dim pattern = "(?:^|,\s*)" & Regex.Escape(attributeName) & "\s*=\s*(""[^""]+""|[^,]+)"
+            Dim match = Regex.Match(subject, pattern, RegexOptions.IgnoreCase)
+            If Not match.Success Then
+                Return String.Empty
+            End If
+
+            Return match.Groups(1).Value.Trim().Trim(""""c)
+        End Function
+
+        Private Function HexStringToBytes(value As String) As Byte()
+            Dim bytes((value.Length \ 2) - 1) As Byte
+            For i = 0 To bytes.Length - 1
+                bytes(i) = Convert.ToByte(value.Substring(i * 2, 2), 16)
+            Next
+
+            Return bytes
+        End Function
+
+        Private Function NormalizeOrigin(value As String) As String
+            Dim uri As Uri = Nothing
+            If Not Uri.TryCreate(value, UriKind.Absolute, uri) Then
+                Return String.Empty
+            End If
+
+            Return uri.GetLeftPart(UriPartial.Authority).TrimEnd("/"c)
+        End Function
+
+        Private Function ExtractHost(value As String) As String
+            Dim token = FirstToken(value)
+            If String.IsNullOrWhiteSpace(token) Then
+                Return String.Empty
+            End If
+
+            Dim uri As Uri = Nothing
+            If Uri.TryCreate("http://" & token, UriKind.Absolute, uri) Then
+                Return uri.Host
+            End If
+
+            Return token
+        End Function
+
+        Private Function ExtractPort(value As String) As Integer?
+            Dim token = FirstToken(value)
+            If String.IsNullOrWhiteSpace(token) Then
+                Return Nothing
+            End If
+
+            Dim uri As Uri = Nothing
+            If Uri.TryCreate("http://" & token, UriKind.Absolute, uri) AndAlso Not uri.IsDefaultPort Then
+                Return uri.Port
+            End If
+
+            Return Nothing
+        End Function
+
+        Private Function ParseNullableInt(value As String) As Integer?
+            Dim parsedValue As Integer
+            If Integer.TryParse(FirstToken(value), parsedValue) Then
+                Return parsedValue
+            End If
+
+            Return Nothing
+        End Function
+
+        Private Function FirstToken(value As String) As String
+            If String.IsNullOrWhiteSpace(value) Then
+                Return String.Empty
+            End If
+
+            Return value.Split(","c)(0).Trim()
+        End Function
+
+        Private Function GetFirstHeaderValue(request As HttpRequest, headerName As String) As String
+            If request Is Nothing OrElse String.IsNullOrWhiteSpace(headerName) Then
+                Return String.Empty
+            End If
+
+            Return request.Headers(headerName)
+        End Function
+
+        Private Function GetDefaultPort(scheme As String) As Integer
+            If String.Equals(scheme, Uri.UriSchemeHttp, StringComparison.OrdinalIgnoreCase) Then
+                Return 80
+            End If
+
+            Return 443
+        End Function
+
+        Private Sub AddHeaderCandidate(headerCandidates As ICollection(Of String), headerName As String)
+            If Not String.IsNullOrWhiteSpace(headerName) Then
+                headerCandidates.Add(headerName.Trim())
+            End If
+        End Sub
+    End Module
+End Namespace
+
+

.codex-links/WebIntranet/Models/ClasesDatosAdmin.vb

@@ -0,0 +1,772 @@
+Namespace ClasesDatosAdmin
+    Public Class PuestoPersona
+
+        Public Property Puesto As String
+        Public Property Nivel As String
+        Public Property Adscripcion As String
+        Public Property Grupo As String
+        Public Property FechaToPo As DateTime
+        Public Property MotivoToPo As String
+        Public Property CaracterOcu As String
+        Public Property FechaCese As DateTime
+        Public Property MotivoCese As String
+        Public Property AnosSer As Integer
+        Public Property MesesSer As Integer
+        Public Property DiasSer As Integer
+        Public Property unidadAdministrativa As String
+        Public Property servicioAdscrito As String
+    End Class
+    Partial Public Class DOCENCIA
+        Public Property IDDOCENCIA As Integer
+        Public Property DENOMINACION As String
+        Public Property CENTRO As String
+        Public Property TIPO As String
+        Public Property FECHAEXPEDICION As DateTime?
+        Public Property DURACION As Decimal?
+        Public Property IDTIPODOCENCIA As Integer?
+        Public Property IDPERSONA As Integer?
+        Public Property RUTA As String
+        Public Overridable Property IDPERSONANavigation As PERSONAS
+        Public Overridable Property IDTIPODOCENCIANavigation As ENUMERACIONES
+    End Class
+
+
+    Partial Public Class FORMACION
+        Public Property IDFORMACION As Integer
+        Public Property NUM_REGISTRO As String
+        Public Property NOMBRE_CURSO As String
+        Public Property CENTRO As String
+        Public Property FECHA_EXPEDICION As Date?
+        Public Property DURACION As Double?
+        Public Property IDPERSONA As Integer?
+        Public Property FECHA_INSCRIPCION_PROVISIONAL As Date?
+        Public Property FECHA_INSCRIPCION_DEFINITIVA As Date?
+        Public Property APROVECHAMIENTO As Boolean
+        Public Property APTOCPH As Boolean
+        Public Property OFICIAL As Boolean
+        Public Property RUTA As String
+        Public Property NIF As String
+        Public Property IDCURSO As Integer?
+        Public Property NOTA As Decimal?
+        Public Property OBSERVACIONES As String
+        Public Overridable Property IDPERSONANavigation As PERSONAS
+    End Class
+
+    Partial Public Class COMPLEMENTOSCARRERA
+        Public Property IDCOMCARR As Integer
+        Public Property IDPERSONA As Integer?
+        Public Property FECHAINICIO As Date?
+        Public Property IDGRUPO As Integer?
+        Public Property CANTIDAD As Decimal?
+        Public Property IDTRAMO As Integer?
+        Public Property FECHAFIN As Date?
+        Public Overridable Property IDGRUPONavigation As GRUPO
+        Public Overridable Property IDPERSONANavigation As PERSONAS
+        Public Overridable Property IDTRAMONavigation As ENUMERACIONES
+    End Class
+    Partial Public Class TITULACIONES
+        Public Property IDTITULACION As Integer
+        Public Property IDPERSONA As Integer?
+        Public Property NUM_REGISTRO As String
+        Public Property DESCRIPCION As String
+        Public Property CENTRO As String
+        Public Property FECHA_EXPEDICION As Date?
+        Public Property FECHA_INSCRIPCION_PROVISIONAL As Date?
+        Public Property FECHA_INSCRIPCION_DEFINITIVA As Date?
+        Public Property RUTA As String
+        Public Overridable Property IDPERSONANavigation As PERSONAS
+    End Class
+    Partial Public Class TRIENIOS
+        Public Property IDTRIENIO As Integer
+        Public Property IDPERSONAL As Integer?
+        Public Property GRUPO As String
+        Public Property TOA As Integer?
+        Public Property TC As Integer?
+        Public Property IDGRUPO As Integer?
+        Public Overridable Property IDGRUPONavigation As GRUPO
+        Public Overridable Property IDPERSONALNavigation As PERSONAS
+    End Class
+
+    Partial Public Class VIDA_ADMINISTRATIVA
+        Public Property IDVIDA As Integer
+        Public Property IDPERSONAL As Integer?
+        Public Property NUM_REG As Integer?
+        Public Property IDMOTIVO As Integer?
+        Public Property FECHA As Date?
+        Public Property NRP As String
+        Public Property IDPUESTO As Integer?
+        Public Property DENOMINACION_OLD As String
+        Public Property NIVEL_OLD As Integer?
+        Public Property OCUPACION_OLD As Integer?
+        Public Property GRUPOT As Integer?
+        Public Property NTRIENIO As Integer?
+        Public Property NIVELC As Integer?
+        Public Property TITULO As String
+        Public Property CENTRO As String
+        Public Property FECHAT As Date?
+        Public Property OBSERVACIONES As String
+        Public Property FECHARESOLUCION As Date?
+        Public Property IDTRAMOCARRERAHORIZONTAL As Integer?
+        Public Property IDTIPOPERSONAL As Integer?
+        Public Property IDSERVICIOADSCRITO As Integer?
+        Public Property IDSUBUNIDADADMINISTRATIVA As Integer?
+        Public Property IDUNIDADADMINISTRATIVA As Integer?
+        Public Property TIENELINEAS As Boolean
+        Public Overridable Property GRUPOTNavigation As GRUPO
+        Public Overridable Property IDMOTIVONavigation As MOTIVOS_ADMINISTRATIVOS
+        'Public Overridable Property IDPERSONALNavigation As PERSONAS?
+        Public Overridable Property IDPUESTONavigation As PUESTOS
+        Public Overridable Property IDSERVICIOADSCRITONavigation As SERVICIOS
+        Public Overridable Property IDSUBUNIDADADMINISTRATIVANavigation As SUBUNIDADADMINISTRATIVA
+        Public Overridable Property IDTIPOPERSONALNavigation As TIPOS_PERSONAL
+        Public Overridable Property IDTRAMOCARRERAHORIZONTALNavigation As ENUMERACIONES
+        Public Overridable Property IDUNIDADADMINISTRATIVANavigation As UNIDADADMINISTRATIVA
+        Public Overridable Property LINEASVIDAADMINISTRATIVA As ICollection(Of LINEASVIDAADMINISTRATIVA) = New List(Of LINEASVIDAADMINISTRATIVA)()
+        Public Overridable Property NIVELCNavigation As NIVEL
+        Public Overridable Property NIVEL_OLDNavigation As NIVEL
+        Public Overridable Property OCUPACION_OLDNavigation As OCUPACION
+    End Class
+    Partial Public Class LINEASVIDAADMINISTRATIVA
+        Public Property IDLINEAVIDAADMIN As Integer
+        Public Property IDVIDAADMIN As Integer?
+        Public Property DESCRIPCION As String
+        Public Property FECHASUBIDA As Date?
+        Public Property IDLINEAANTERIOR As Integer?
+        Public Property IDTIPO As Integer?
+        Public Property RUTA As String
+        Public Property SOBREESCRITO As Boolean
+        Public Overridable Property IDLINEAANTERIORNavigation As LINEASVIDAADMINISTRATIVA
+        Public Overridable Property IDTIPONavigation As ENUMERACIONES
+        Public Overridable Property IDVIDAADMINNavigation As VIDA_ADMINISTRATIVA
+        Public Overridable Property InverseIDLINEAANTERIORNavigation As ICollection(Of LINEASVIDAADMINISTRATIVA) = New List(Of LINEASVIDAADMINISTRATIVA)()
+    End Class
+
+    Partial Public Class OCUPACION
+        Public Property IDOCUPACION As Integer
+        Public Property OCUPACION1 As String
+        Public Property DESCRIPCION As String
+        Public Property OCU_RES As String
+        Public Property ACTIVO As Boolean
+        Public Property DESCRIPCION_ANEXO As String
+        Public Overridable Property PUESTOS As ICollection(Of PUESTOS) = New List(Of PUESTOS)()
+        Public Overridable Property VIDA_ADMINISTRATIVA As ICollection(Of VIDA_ADMINISTRATIVA) = New List(Of VIDA_ADMINISTRATIVA)()
+    End Class
+
+    Partial Public Class SUBUNIDADADMINISTRATIVA
+        Public Property IDSUBUNIDADADMINISTRATIVA As Integer
+        Public Property IDUNIDADADMINISTRATIVA As Integer?
+        Public Property NOMBRE As String
+        Public Overridable Property PUESTOS As ICollection(Of PUESTOS) = New List(Of PUESTOS)()
+        Public Overridable Property RPT_DESCRIP As ICollection(Of RPT_DESCRIP) = New List(Of RPT_DESCRIP)()
+        Public Overridable Property VIDA_ADMINISTRATIVA As ICollection(Of VIDA_ADMINISTRATIVA) = New List(Of VIDA_ADMINISTRATIVA)()
+    End Class
+
+    Partial Public Class GRUPO
+        Public Property IDGRUPO As Integer
+        Public Property GRUPO1 As String
+        Public Property DESCRIPCION As String
+        Public Property ACTIVO As Boolean
+        Public Property IMPORTE_G As Integer?
+        Public Property IMPORTE_TRI_TOA As Integer?
+        Public Property IMPORTE_TRI_TC As Integer?
+        Public Property IMPORTE_TRI_TCE As Integer?
+        Public Property IMPORTE_G_EXTRAS As Integer?
+        Public Property IMPORTE_TRI_TOAE As Integer?
+        'Public Overridable Property COMPLEMENTOSCARRERA As ICollection(Of COMPLEMENTOSCARRERA) = New List(Of COMPLEMENTOSCARRERA)()
+        'Public Overridable Property CUERPO As ICollection(Of CUERPO) = New List(Of CUERPO)()
+        'Public Overridable Property RPT_DESCRIPGRUPO1Navigation As ICollection(Of RPT_DESCRIP) = New List(Of RPT_DESCRIP)()
+        'Public Overridable Property RPT_DESCRIPGRUPO2Navigation As ICollection(Of RPT_DESCRIP) = New List(Of RPT_DESCRIP)()
+        'Public Overridable Property TRIENIOS As ICollection(Of TRIENIOS) = New List(Of TRIENIOS)()
+        'Public Overridable Property VIDA_ADMINISTRATIVA As ICollection(Of VIDA_ADMINISTRATIVA) = New List(Of VIDA_ADMINISTRATIVA)()
+    End Class
+    Partial Public Class MOTIVOS_ADMINISTRATIVOS
+        Public Property IDMOTIVO As Integer
+        Public Property MOTIVO As String
+        Public Property DESCRIPCION As String
+        Public Property ACTIVO As String
+        Public Property TIPO As String
+        Public Property IDTIPOAPTOS As Integer?
+        Public Property ACTIVOB As Boolean
+        'Public Overridable Property ACTOSADMINPREP As ICollection(Of ACTOSADMINPREP) = New List(Of ACTOSADMINPREP)()
+        Public Overridable Property IDTIPOAPTOSNavigation As TIPOAPTOSADMINISTRATIVOS
+        'Public Overridable Property VIDA_ADMINISTRATIVA As ICollection(Of VIDA_ADMINISTRATIVA) = New List(Of VIDA_ADMINISTRATIVA)()
+    End Class
+    Partial Public Class UNIDADADMINISTRATIVA
+        Public Property IDUNIDADADMINISTRATIVA As Integer
+        Public Property CLAVE_DEPARTAMENTO As String
+        Public Property LITERAL_DEPARTAMENTO As String
+        Public Property ACTIVO_DEPARTAMENTO As Boolean
+        Public Property ORDEN As Decimal?
+        Public Overridable Property PUESTOS As ICollection(Of PUESTOS) = New List(Of PUESTOS)()
+        Public Overridable Property RPT_DESCRIP As ICollection(Of RPT_DESCRIP) = New List(Of RPT_DESCRIP)()
+        Public Overridable Property VIDA_ADMINISTRATIVA As ICollection(Of VIDA_ADMINISTRATIVA) = New List(Of VIDA_ADMINISTRATIVA)()
+    End Class
+
+    Partial Public Class PUESTOS
+        Public Property IDPUESTO As Integer
+        Public Property IDRPT As Integer?
+        Public Property IDRPTDES As Integer?
+        Public Property CODIGO As String
+        Public Property ESTADO As String
+        Public Property DOTACION As String
+        Public Property IDPERSONAL As Integer?
+        Public Property IDOCUPACION As Integer?
+        Public Property TITULAR As Integer?
+        Public Property IDDOTACION As Integer
+        Public Property ORDEN As Integer?
+        Public Property IDSERVICIOADSCRITO As Integer?
+        Public Property IDSUBUNIDADADMINISTRATIVA As Integer?
+        Public Property IDUNIDADADMINISTRATIVA As Integer?
+        Public Property DESPUESCOM As String
+        'Public Overridable Property IDOCUPACIONNavigation As OCUPACION?
+        'Public Overridable Property IDPERSONALNavigation As PERSONAS?
+        Public Overridable Property IDRPTDESNavigation As RPT_DESCRIP
+        'Public Overridable Property IDRPTNavigation As RPT?
+        'Public Overridable Property IDSERVICIOADSCRITONavigation As SERVICIOS?
+        'Public Overridable Property IDSUBUNIDADADMINISTRATIVANavigation As SUBUNIDADADMINISTRATIVA?
+        'Public Overridable Property IDUNIDADADMINISTRATIVANavigation As UNIDADADMINISTRATIVA?
+        'Public Overridable Property TITULARNavigation As PERSONAS?
+        'Public Overridable Property VIDA_ADMINISTRATIVA As ICollection(Of VIDA_ADMINISTRATIVA) = New List(Of VIDA_ADMINISTRATIVA)()
+    End Class
+    Partial Public Class RPT_DESCRIP
+        Public Property IDRPTDES As Integer
+        Public Property IDRPT As Integer?
+        Public Property DENOMINACION As String
+        Public Property ADSCRIPCION As Integer?
+        Public Property GRUPO1 As Integer?
+        Public Property CUERPO1 As Integer?
+        Public Property IDNIVEL_RPT As Integer?
+        Public Property PROVISION As Integer?
+        Public Property CARACTERISTICAS As String
+        Public Property REQUISITOS As String
+        Public Property PLAZAS As Integer?
+        Public Property CODIGO As String
+        Public Property ESPECIFICO As Decimal?
+        Public Property GRUPO2 As Integer?
+        Public Property CUERPO2 As Integer?
+        Public Property EXPERIENCIA As String
+        Public Property TITULO_ESPECIF As String
+        Public Property IDUNIDADADMINISTRATIVA As Integer?
+        Public Property ORDEN As Integer?
+        Public Property GRUPOC As String
+        Public Property VIRTUAL As Boolean
+        Public Property OBSERVACIONES As String
+        Public Property IDSUBUNIDADADMINISTRATIVA As Integer?
+        Public Property IDTIPOVIRTUAL As Integer?
+        Public Property DEPARTAMENTO As String
+        Public Property VIRTUALAC As Boolean
+        Public Property VIRTUALAC2 As Boolean
+        Public Property VIRTUALOTRO As Boolean
+        Public Property IDDEPARTAMENTO As Integer?
+        'Public Overridable Property ADSCRIPCIONNavigation As ADSCRIPCION?
+        'Public Overridable Property CUERPO1Navigation As CUERPO?
+        'Public Overridable Property CUERPO2Navigation As CUERPO?
+        'Public Overridable Property GRUPO1Navigation As GRUPO
+        'Public Overridable Property GRUPO2Navigation As GRUPO
+        Public Overridable Property IDDEPARTAMENTONavigation As ENUMERACIONES
+        'Public Overridable Property IDNIVEL_RPTNavigation As NIVEL?
+        'Public Overridable Property IDRPTNavigation As RPT?
+        'Public Overridable Property IDSUBUNIDADADMINISTRATIVANavigation As SUBUNIDADADMINISTRATIVA?
+        'Public Overridable Property IDTIPOVIRTUALNavigation As ENUMERACIONES?
+        'Public Overridable Property IDUNIDADADMINISTRATIVANavigation As UNIDADADMINISTRATIVA?
+        'Public Overridable Property PROVISIONNavigation As PROVISION?
+        'Public Overridable Property PUESTOS As ICollection(Of PUESTOS) = New List(Of PUESTOS)()
+    End Class
+    Partial Public Class TIPOAPTOSADMINISTRATIVOS
+        Public Property IDTIPO As Integer
+        Public Property DESCRIPCION As String
+        Public Property ACTIVO As Boolean
+        Public Property CORREO As String
+        'Public Overridable Property MOTIVOS_ADMINISTRATIVOS As ICollection(Of MOTIVOS_ADMINISTRATIVOS) = New List(Of MOTIVOS_ADMINISTRATIVOS)()
+    End Class
+    Partial Public Class ENUMERACIONES
+        Public Property IDENUMERACION As Integer
+        Public Property IDGRUPOENUMERACION As Integer
+        Public Property CODIGO As String
+        Public Property DESCRIPCION As String
+        Public Property VALORALFABETICO1 As String
+        Public Property VALORALFABETICO2 As String
+        Public Property VALORNUMERICO1 As Decimal?
+        Public Property VALORNUMERICO2 As Decimal?
+        Public Property ORDEN As Integer?
+        Public Property OCULTO As Boolean
+        Public Property VALORALFABETICO3 As String
+        Public Property VALORALFABETICO4 As String
+        Public Property VALORALFABETICOLARGO As String
+        Public Property VALORNUMERICO3 As Decimal?
+        Public Property VALORNUMERICO4 As Decimal?
+        'Public Overridable Property ASCENDIENTES As ICollection(Of ASCENDIENTES) = New List(Of ASCENDIENTES)()
+        'Public Overridable Property ASCENDIENTESHISTORICOIRPF As ICollection(Of ASCENDIENTESHISTORICOIRPF) = New List(Of ASCENDIENTESHISTORICOIRPF)()
+        'Public Overridable Property ASISTENCIAS As ICollection(Of ASISTENCIAS) = New List(Of ASISTENCIAS)()
+        'Public Overridable Property COMPLEMENTOSCARRERA As ICollection(Of COMPLEMENTOSCARRERA) = New List(Of COMPLEMENTOSCARRERA)()
+        'Public Overridable Property CUENTASCOTIZACIONPATRONAL As ICollection(Of CUENTASCOTIZACIONPATRONAL) = New List(Of CUENTASCOTIZACIONPATRONAL)()
+        'Public Overridable Property CURSOS As ICollection(Of CURSOS) = New List(Of CURSOS)()
+        'Public Overridable Property DEVENGOSIDCLAVENavigation As ICollection(Of DEVENGOS) = New List(Of DEVENGOS)()
+        'Public Overridable Property DEVENGOSIDCONTRATOORELACIONNavigation As ICollection(Of DEVENGOS) = New List(Of DEVENGOS)()
+        'Public Overridable Property DEVENGOSIDDISCAPACIDADNavigation As ICollection(Of DEVENGOS) = New List(Of DEVENGOS)()
+        'Public Overridable Property DEVENGOSIDSITUACIONFAMILIARNavigation As ICollection(Of DEVENGOS) = New List(Of DEVENGOS)()
+        'Public Overridable Property DEVENGOSIDSUBCLAVENavigation As ICollection(Of DEVENGOS) = New List(Of DEVENGOS)()
+        'Public Overridable Property ENFERMEDADES As ICollection(Of ENFERMEDADES) = New List(Of ENFERMEDADES)()
+        'Public Overridable Property ENLACES As ICollection(Of ENLACES) = New List(Of ENLACES)()
+        'Public Overridable Property EXCEPCIONESPERMISOS As ICollection(Of EXCEPCIONESPERMISOS) = New List(Of EXCEPCIONESPERMISOS)()
+        'Public Overridable Property EXPEDIENTESPERSONAS As ICollection(Of EXPEDIENTESPERSONAS) = New List(Of EXPEDIENTESPERSONAS)()
+        'Public Overridable Property FAMILIAIDDISCAPACIDADNavigation As ICollection(Of FAMILIA) = New List(Of FAMILIA)()
+        'Public Overridable Property FAMILIAIDPARENTESCONavigation As ICollection(Of FAMILIA) = New List(Of FAMILIA)()
+        'Public Overridable Property FICHEROS As ICollection(Of FICHEROS) = New List(Of FICHEROS)(
+        'Public Overridable Property FORMACIONIMPARTIDA As ICollection(Of FORMACIONIMPARTIDA) = New List(Of FORMACIONIMPARTIDA)()
+        'Public Overridable Property HIJOS As ICollection(Of HIJOS) = New List(Of HIJOS)()
+        'Public Overridable Property HIJOSHISTORICOIRPF As ICollection(Of HIJOSHISTORICOIRPF) = New List(Of HIJOSHISTORICOIRPF)()
+        'Public Overridable Property HISTORICOIRPF As ICollection(Of HISTORICOIRPF) = New List(Of HISTORICOIRPF)()
+        'Public Overridable Property HORARIOSPERSONASIDTARDEOBLIGATORIANavigation As ICollection(Of HORARIOSPERSONAS) = New List(Of HORARIOSPERSONAS)()
+        'Public Overridable Property HORARIOSPERSONASIDTURNONavigation As ICollection(Of HORARIOSPERSONAS) = New List(Of HORARIOSPERSONAS)()
+        'Public Overridable Property HORASMES As ICollection(Of HORASMES) = New List(Of HORASMES)()
+        'Public Overridable Property IDGRUPOENUMERACIONNavigation As GRUPOSENUMERACIONES?
+        'Public Overridable Property IDIOMASIDNIVELNavigation As ICollection(Of IDIOMAS) = New List(Of IDIOMAS)()
+        'Public Overridable Property IDIOMASIDTIPOIDIOMANavigation As ICollection(Of IDIOMAS) = New List(Of IDIOMAS)()
+        'Public Overridable Property INCIDENCIASCONTROLHORARIOIDADJUNTONavigation As ICollection(Of INCIDENCIASCONTROLHORARIO) = New List(Of INCIDENCIASCONTROLHORARIO)()
+        'Public Overridable Property INCIDENCIASCONTROLHORARIOIDGRUPONavigation As ICollection(Of INCIDENCIASCONTROLHORARIO) = New List(Of INCIDENCIASCONTROLHORARIO)()
+        'Public Overridable Property INCIDENCIASCONTROLHORARIOIDTIPONavigation As ICollection(Of INCIDENCIASCONTROLHORARIO) = New List(Of INCIDENCIASCONTROLHORARIO)()
+        'Public Overridable Property LINEASVIDAADMINISTRATIVA As ICollection(Of LINEASVIDAADMINISTRATIVA) = New List(Of LINEASVIDAADMINISTRATIVA)()
+        'Public Overridable Property NOMINASIDSITUACIONNOMINANavigation As ICollection(Of Nominas) = New List(Of Nominas)()
+        'Public Overridable Property NOMINASIDTIPONavigation As ICollection(Of Nominas) = New List(Of Nominas)()
+        'Public Overridable Property NOMINATRABAJADORCABECERAIDGRUPOFUNCIONARIONavigation As ICollection(Of NOMINATRABAJADORCABECERA) = New List(Of NOMINATRABAJADORCABECERA)()
+        'Public Overridable Property NOMINATRABAJADORCABECERAIDMUTUA2Navigation As ICollection(Of NOMINATRABAJADORCABECERA) = New List(Of NOMINATRABAJADORCABECERA)()
+        'Public Overridable Property NOMINATRABAJADORCABECERAIDMUTUANavigation As ICollection(Of NOMINATRABAJADORCABECERA) = New List(Of NOMINATRABAJADORCABECERA)()
+        'Public Overridable Property NOMINATRABAJADORCABECERAIDSINDICATO1Navigation As ICollection(Of NOMINATRABAJADORCABECERA) = New List(Of NOMINATRABAJADORCABECERA)()
+        'Public Overridable Property NOMINATRABAJADORCABECERAIDSINDICATO2Navigation As ICollection(Of NOMINATRABAJADORCABECERA) = New List(Of NOMINATRABAJADORCABECERA)()
+        'Public Overridable Property NOMINATRABAJADORCABECERAIDTIPOPERSONANavigation As ICollection(Of NOMINATRABAJADORCABECERA) = New List(Of NOMINATRABAJADORCABECERA)()
+        'Public Overridable Property PERIODOSSILTRAIDESTADONavigation As ICollection(Of PERIODOSSILTRA) = New List(Of PERIODOSSILTRA)()
+        'Public Overridable Property PERIODOSSILTRAIDTIPOLIQUIDACIONNavigation As ICollection(Of PERIODOSSILTRA) = New List(Of PERIODOSSILTRA)()
+        'Public Overridable Property PERIODOSSILTRAIDTIPOPERIODOTRAMONavigation As ICollection(Of PERIODOSSILTRA) = New List(Of PERIODOSSILTRA)()
+        'Public Overridable Property PERSONASIDCAUSAALTAPARNavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDCAUSABAJAPARNavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDCAUSADEBAJANavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDDEPARTAMENTONavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDDISCAPACIDADNavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDESCALANavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDESPECIALIDADNavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDGRUPOFUNCIONARIONavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDMUTUA2Navigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDMUTUANavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDOCUPACIONNavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDSEXONavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDSITUACIONENRPTNavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDSITUACIONFAMILIARNavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDSITUACIONLABORALNavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDTIPOEMPLEADORPTNavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PERSONASIDTIPONavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property PLANTILLASIDGRUPONavigation As ICollection(Of PLANTILLAS) = New List(Of PLANTILLAS)()
+        'Public Overridable Property PLANTILLASIDTIPONavigation As ICollection(Of PLANTILLAS) = New List(Of PLANTILLAS)()
+        'Public Overridable Property PROCESOSIDSUBTIPONavigation As ICollection(Of PROCESOS) = New List(Of PROCESOS)()
+        'Public Overridable Property PROCESOSIDTIPONavigation As ICollection(Of PROCESOS) = New List(Of PROCESOS)()
+        'Public Overridable Property PUESTOSTRABAJOIDGRUPOFUNCIONARIONavigation As ICollection(Of PUESTOSTRABAJO) = New List(Of PUESTOSTRABAJO)()
+        'Public Overridable Property PUESTOSTRABAJOIDTIPONavigation As ICollection(Of PUESTOSTRABAJO) = New List(Of PUESTOSTRABAJO)()
+        'Public Overridable Property ROLESDEPARTAMENTOSCH As ICollection(Of ROLESDEPARTAMENTOSCH) = New List(Of ROLESDEPARTAMENTOSCH)()
+        'Public Overridable Property RPT As ICollection(Of RPT) = New List(Of RPT)()
+        'Public Overridable Property RPT_DESCRIPIDDEPARTAMENTONavigation As ICollection(Of RPT_DESCRIP) = New List(Of RPT_DESCRIP)()
+        'Public Overridable Property RPT_DESCRIPIDTIPOVIRTUALNavigation As ICollection(Of RPT_DESCRIP) = New List(Of RPT_DESCRIP)()
+        'Public Overridable Property SALAS As ICollection(Of SALAS) = New List(Of SALAS)()
+        'Public Overridable Property SESIONESIDTIPONavigation As ICollection(Of SESIONES) = New List(Of SESIONES)()
+        'Public Overridable Property SESIONESIDTURNONavigation As ICollection(Of SESIONES) = New List(Of SESIONES)()
+        'Public Overridable Property SITUACIONACTUALIRPFIDCONTRATOORELACIONNavigation As ICollection(Of SITUACIONACTUALIRPF) = New List(Of SITUACIONACTUALIRPF)()
+        'Public Overridable Property SITUACIONACTUALIRPFIDDISCAPACIDADNavigation As ICollection(Of SITUACIONACTUALIRPF) = New List(Of SITUACIONACTUALIRPF)()
+        'Public Overridable Property SITUACIONACTUALIRPFIDSITUACIONFAMILIARNavigation As ICollection(Of SITUACIONACTUALIRPF) = New List(Of SITUACIONACTUALIRPF)()
+        'Public Overridable Property SITUACIONACTUALIRPFIDSITUACIONLABORALNavigation As ICollection(Of SITUACIONACTUALIRPF) = New List(Of SITUACIONACTUALIRPF)()
+        'Public Overridable Property TIPOSPUESTOSTRABAJOIDGRUPOFUNCIONARIONavigation As ICollection(Of TIPOSPUESTOSTRABAJO) = New List(Of TIPOSPUESTOSTRABAJO)()
+        'Public Overridable Property TIPOSPUESTOSTRABAJOIDTIPOPERSONANavigation As ICollection(Of TIPOSPUESTOSTRABAJO) = New List(Of TIPOSPUESTOSTRABAJO)()
+        'Public Overridable Property TIPOSSESIONES As ICollection(Of TIPOSSESIONES) = New List(Of TIPOSSESIONES)()
+        'Public Overridable Property TIPOSTRAMOSIDREGIMENAPLICACIONNavigation As ICollection(Of TIPOSTRAMOS) = New List(Of TIPOSTRAMOS)()
+        'Public Overridable Property TIPOSTRAMOSIDTIPOTRAMOFICHEROXMLNavigation As ICollection(Of TIPOSTRAMOS) = New List(Of TIPOSTRAMOS)()
+        'Public Overridable Property TURNOSTEMPORALES As ICollection(Of TURNOSTEMPORALES) = New List(Of TURNOSTEMPORALES)()
+        'Public Overridable Property VALIDACIONDOCUMENTOS As ICollection(Of VALIDACIONDOCUMENTOS) = New List(Of VALIDACIONDOCUMENTOS)()
+        'Public Overridable Property VIDA_ADMINISTRATIVA As ICollection(Of VIDA_ADMINISTRATIVA) = New List(Of VIDA_ADMINISTRATIVA)()
+    End Class
+    Partial Public Class TIPOS_PERSONAL
+        Public Property IDTIPO As Integer
+        Public Property TIPO_PERSONAL As String
+        Public Property DESCRIPCION As String
+        'Public Overridable Property PERSONAS As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        'Public Overridable Property VIDA_ADMINISTRATIVA As ICollection(Of VIDA_ADMINISTRATIVA) = New List(Of VIDA_ADMINISTRATIVA)()
+    End Class
+    Partial Public Class IDIOMAS
+        Public Property IDIDIOMA As Integer
+        Public Property IDTIPOIDIOMA As Integer?
+        Public Property IDNIVEL As Integer?
+        Public Property CENTROEXPEDICION As String
+        Public Property ANNO As Integer?
+        Public Property IDPERSONA As Integer?
+        Public Overridable Property IDNIVELNavigation As ENUMERACIONES
+        Public Overridable Property IDPERSONANavigation As PERSONAS
+        Public Overridable Property IDTIPOIDIOMANavigation As ENUMERACIONES
+    End Class
+
+    Partial Public Class SERVICIOS
+        Public Property IDSERVICIO As Integer
+        Public Property DESCRIPCION As String
+        Public Property ORDEN As Integer
+        Public Property ACTIVO As Boolean
+        'Public Overridable Property PUESTOS As ICollection(Of PUESTOS) = New List(Of PUESTOS)()
+        'Public Overridable Property VIDA_ADMINISTRATIVA As ICollection(Of VIDA_ADMINISTRATIVA) = New List(Of VIDA_ADMINISTRATIVA)()
+    End Class
+    Partial Public Class NIVEL
+        Public Property IDNIVEL As Integer
+        Public Property NIVEL1 As String
+        Public Property DESCRIPCION As String
+        Public Property ACTIVO As Boolean
+        Public Property IMPORTE_N As Integer?
+        Public Property ALTO_CARGO As Boolean
+        Public Overridable Property COMPLEMENTONIVEL As ICollection(Of COMPLEMENTONIVEL) = New List(Of COMPLEMENTONIVEL)()
+        Public Overridable Property CONSOLIDACION_GRADO As ICollection(Of CONSOLIDACION_GRADO) = New List(Of CONSOLIDACION_GRADO)()
+        Public Overridable Property PERSONASIDGRADOPERSONALCONSOLIDADONavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        Public Overridable Property PERSONASIDNIVELRPTNavigation As ICollection(Of PERSONAS) = New List(Of PERSONAS)()
+        Public Overridable Property RPT_DESCRIP As ICollection(Of RPT_DESCRIP) = New List(Of RPT_DESCRIP)()
+        Public Overridable Property VIDA_ADMINISTRATIVANIVELCNavigation As ICollection(Of VIDA_ADMINISTRATIVA) = New List(Of VIDA_ADMINISTRATIVA)()
+        Public Overridable Property VIDA_ADMINISTRATIVANIVEL_OLDNavigation As ICollection(Of VIDA_ADMINISTRATIVA) = New List(Of VIDA_ADMINISTRATIVA)()
+    End Class
+    Partial Public Class COMPLEMENTONIVEL
+        Public Property IDCOMPLEMENTONIVEL As Integer
+        Public Property IMPORTEANUAL As Decimal?
+        Public Property IMPORTEMENSUAL As Decimal?
+        Public Property IDNIVEL As Integer?
+        Public Property IDRPT As Integer?
+        Public Overridable Property IDNIVELNavigation As NIVEL
+        Public Overridable Property IDRPTNavigation As RPT
+    End Class
+    Partial Public Class RPT
+        Public Property IDRPT As Integer
+        Public Property DESCRIPCION As String
+        Public Property EJERCICIO As Integer?
+        Public Property F_PLENO As Date?
+        Public Property F_PARLAMENTO As Date?
+        Public Property IDSITUACION As Integer?
+        Public Property FECHAINICIO As Date?
+        Public Property FECHAFIN As Date?
+        Public Property NOTAS As String
+        Public Overridable Property COMPLEMENTONIVEL As ICollection(Of COMPLEMENTONIVEL) = New List(Of COMPLEMENTONIVEL)()
+        Public Overridable Property IDSITUACIONNavigation As ENUMERACIONES
+        Public Overridable Property PUESTOS As ICollection(Of PUESTOS) = New List(Of PUESTOS)()
+        Public Overridable Property RETRIBUCIONBASICA As ICollection(Of RETRIBUCIONBASICA) = New List(Of RETRIBUCIONBASICA)()
+        Public Overridable Property RPT_DESCRIP As ICollection(Of RPT_DESCRIP) = New List(Of RPT_DESCRIP)()
+    End Class
+    Partial Public Class CONSOLIDACION_GRADO
+        Public Property IDCUMPGRADO As Integer
+        Public Property IDPERSONAL As Integer?
+        Public Property NIVEL As Integer?
+        Public Property FECHA_EFECTO As Date?
+        Public Property FECHA_RESOLUCION As Date?
+        Public Property FECHA_COMUNICACION As Date?
+        Public Property IDNIVEL As Integer?
+        Public Overridable Property IDNIVELNavigation As NIVEL
+        Public Overridable Property IDPERSONALNavigation As PERSONAS
+    End Class
+    Partial Public Class PERSONAS
+        Public Property IDPERSONA As Integer
+        Public Property NIF As String
+        Public Property APELLIDOS As String
+        Public Property NOMBRE As String
+        Public Property DOMICILIO As String
+        Public Property CODIGOPOSTAL As String
+        Public Property CEUTAMELILLA As Boolean
+        Public Property CORREOELECTRONICO As String
+        Public Property CUENTABANCARIA As String
+        Public Property IDMUTUA As Integer?
+        Public Property NUMEROAFILIACIONMUTUA As String
+        Public Property FECHANACIMIENTO As Date?
+        Public Property FORMACIONACADEMICA As String
+        Public Property TELEFONO1 As String
+        Public Property TELEFONO2 As String
+        Public Property LUGARNACIMIENTO As String
+        Public Property INGRADMNAUTO As Date?
+        Public Property INGRESOADMINISTRACIONESTADO As Date?
+        Public Property INGRESOADMINISTRACIONLOCAL As Date?
+        Public Property IDSITUACIONFAMILIAR As Integer?
+        Public Property IDSITUACIONLABORAL As Integer?
+        Public Property IDPUESTOTRABAJOOPOSICION As Integer?
+        Public Property CODIGOMUNICIPIO As String
+        Public Property PLURIEMPLEO As Decimal
+        Public Property NUMEROPLURIEMPLEO As String
+        Public Property TRIENIOSADMINISTRACIONA1 As Integer
+        Public Property TRIENIOSADMINISTRACIONA2 As Integer
+        Public Property TRIENIOSADMINISTRACIONC1 As Integer
+        Public Property TRIENIOSADMINISTRACIONC2 As Integer
+        Public Property TRIENIOSADMINISTRACIONE As Integer
+        Public Property TRIENIOSPARLAMENTOA1 As Integer
+        Public Property TRIENIOSPARLAMENTOA2 As Integer
+        Public Property TRIENIOSPARLAMENTOC1 As Integer
+        Public Property TRIENIOSPARLAMENTOC2 As Integer
+        Public Property TRIENIOSPARLAMENTOE As Integer
+        Public Property IMPORTETRIENIOADMINISTRACION As Decimal
+        Public Property FECHACUMPLIMIENTOTRIENIO As Date?
+        Public Property IDSINDICATO1 As Integer?
+        Public Property IDSINDICATO2 As Integer?
+        Public Property CUOTASINDICAL1 As Decimal?
+        Public Property CUOTASINDICAL2 As Decimal?
+        Public Property NUMEROTARJETA As Decimal?
+        Public Property IDTIPO As Integer?
+        Public Property RETENCIONAAPLICAR As Decimal?
+        Public Property NIVEL As String
+        Public Property CODIGO As String
+        Public Property SEGUROACCIDENTE As Decimal
+        Public Property BASESSJUN2010 As Decimal
+        Public Property SEXENIOS As Decimal
+        Public Property DIASENFERMEDAD60 As Decimal
+        Public Property IMPORTEENFERMEDAD60 As Decimal
+        Public Property DIASENFERMEDAD75 As Decimal
+        Public Property IMPORTEENFERMEDAD75 As Decimal
+        Public Property IMPORTEDECUCCIONGRUPO As Decimal
+        Public Property IMPTRIADMPAGAEXTRA As Decimal
+        Public Property TRATAMIENTO As String
+        Public Property IDDISCAPACIDAD As Integer?
+        Public Property PENSIONISTAS As Boolean
+        Public Property IDSITUACIONACTUALIRPF As Integer?
+        Public Property MOVILIDADREDUCIDA As Boolean
+        Public Property AÑOCAMBIORESIDENCIA As Integer
+        Public Property IDFICHEROFOTO As Integer?
+        Public Property NUMEROSEXENIO As Integer
+        Public Property NUMEROQUINQUENIO As Integer
+        Public Property QUINQUENIO As Decimal
+        Public Property FECHAALTA As Date?
+        Public Property FECHABAJA As Date?
+        Public Property BASEANTERIORALABAJA As Decimal?
+        Public Property BASEMESANTERIOR As Decimal?
+        Public Property NOCOTIZADESEMPLEO As Boolean
+        Public Property PUESTOTRABAJOENTARJETA As String
+        Public Property IDSEXO As Integer?
+        Public Property IDCONTRATO As Integer?
+        Public Property IDCUENTACOTIZACIONPATRONAL As Integer?
+        Public Property FECHAALTADIETAS As Date?
+        Public Property FECHABAJADIETAS As Date?
+        Public Property PROFESION As String
+        Public Property EMPRESA As String
+        Public Property CARGOULTIMOPUESTO As String
+        Public Property KILOMETROS As Decimal?
+        Public Property PEAJESAUTOPISTA As Decimal?
+        Public Property PERTENECEAMESA As Boolean
+        Public Property RENUNCIADIETA As Boolean
+        Public Property RENUNCIACESANTIA As Boolean
+        Public Property ESTANCIAYMANUTENCION As Decimal?
+        Public Property CODIGOANTIGUODIPUTADO As String
+        Public Property CUENTABANCARIADIPUTADO As String
+        Public Property CUENTABANCARIAPARTIDO As String
+        Public Property IMPORTEPARTIDO As Decimal?
+        Public Property RENUNCIAKMS As Boolean
+        Public Property IDDEPARTAMENTO As Integer?
+        Public Property FECHABAJASEGURIDADSOCIAL As Date?
+        Public Property IDCAUSADEBAJA As Integer?
+        Public Property PREMIOJUBILACIONMENSUAL As Decimal?
+        Public Property IDOCUPACION As Integer?
+        Public Property IMPORTEULTIMANOMINA As Decimal?
+        Public Property QUINQUENIOEXTRA As Decimal
+        Public Property IDMUTUA2 As Integer?
+        Public Property NUMEROAFILIACIONMUTUA2 As String
+        Public Property TRIENIOSADMINISTRACIONB As Integer
+        Public Property TRIENIOSPARLAMENTOB As Integer
+        Public Property IDGRUPOFUNCIONARIO As Integer?
+        Public Property FECHACUMPLIMIENTOCARRERA As Date?
+        Public Property COMPLEMENTOCARRERAA1 As Integer?
+        Public Property COMPLEMENTOCARRERAB As Integer?
+        Public Property COMPLEMENTOCARRERAC1 As Integer?
+        Public Property COMPLEMENTOCARRERAC2 As Integer?
+        Public Property COMPLEMENTOCARRERAE As Integer?
+        Public Property COMPLEMENTOCARRERAA2 As Integer?
+        Public Property DOMICILIONOTIFICACIONES As String
+        Public Property TELEFONO1NOTIFICACIONES As String
+        Public Property CORREONOTIFICACIONES As String
+        Public Property CODIGOPOSTALNOTIFICACIONES As String
+        Public Property TELEFONO2NOTIFICACIONES As String
+        Public Property CODIGOMUNICIPIONOTIFICACION As String
+        Public Property TRIENIOSADMINISTRACIONA1A As Integer?
+        Public Property TRIENIOSADMINISTRACIONA2A As Integer?
+        Public Property TRIENIOSADMINISTRACIONC1A As Integer?
+        Public Property TRIENIOSADMINISTRACIONC2A As Integer?
+        Public Property TRIENIOSADMINISTRACIONEA As Integer?
+        Public Property IMPORTETRIENIOADMINISTRACIONA As Decimal?
+        Public Property IMPTRIADMPAGAEXTRAA As Decimal?
+        Public Property TRIENIOSADMINISTRACIONBA As Integer?
+        Public Property EXTERNO As Integer?
+        Public Property FECHAALTACONTROLHORARIO As Date?
+        Public Property FECHAALTAPAR As Date?
+        Public Property FECHABAJAPAR As Date?
+        Public Property FECHACONSOLIDACIONGRADO As Date?
+        Public Property FECHACUMPLIMIENTOPROXTRIENIO As Date?
+        Public Property FECHAPOSIBLEJUBILACION As Date?
+        Public Property FECHATARJETA As Date?
+        Public Property FECHATITULACION As Date?
+        Public Property IDADSCRIPCIONRPT As Integer?
+        Public Property IDCAUSAALTAPAR As Integer?
+        Public Property IDCAUSABAJAPAR As Integer?
+        Public Property IDCUERPORPT As Integer?
+        Public Property IDGRADOPERSONALCONSOLIDADO As Integer?
+        Public Property IDNIVELRPT As Integer?
+        Public Property IDSITUACIONADMINISTRATIVARPT As Integer?
+        Public Property IDSITUACIONENRPT As Integer?
+        Public Property IDTIPOEMPLEADORPT As Integer?
+        Public Property NRP As String
+        Public Property NRP_OLD As String
+        Public Property TITULACIONOFICIAL As String
+        Public Property SUPERVISORDETODO As Boolean
+        Public Property SUPERVISORDEPARTAMENTO As Boolean
+        Public Property DELEGADO As Boolean
+        Public Property ADMINISTRADORCONTROLHORARIO As Boolean
+        Public Property ADMINISTRADORTOTAL As Boolean
+        Public Property ADMINISTRARPTYREGISTRO As Boolean
+        Public Property DELEGADOINFORMES As Boolean
+        Public Property IDESCALA As Integer?
+        Public Property IDESPECIALIDAD As Integer?
+        Public Property MAXHENEGATIVASPERMITIDAS_D As Decimal?
+        Public Property NUMEROREINTENTOSFALLIDOS As Integer?
+        Public Property PERMITESALDONEGATIVOHE As Boolean
+        'Public Overridable Property ACTOSADMINPREP As ICollection(Of ACTOSADMINPREP) = New List(Of ACTOSADMINPREP)()        
+        'Public Overridable Property ASCENDIENTES As ICollection(Of ASCENDIENTES) = New List(Of ASCENDIENTES)()
+        'Public Overridable Property ASIGNACIONTEMPORALCOBRADA As ICollection(Of ASIGNACIONTEMPORALCOBRADA) = New List(Of ASIGNACIONTEMPORALCOBRADA)()
+        'Public Overridable Property ASISTENCIAS As ICollection(Of ASISTENCIAS) = New List(Of ASISTENCIAS)()
+        'Public Overridable Property ASISTENCIASSESIONES As ICollection(Of ASISTENCIASSESIONES) = New List(Of ASISTENCIASSESIONES)()
+        'Public Overridable Property CODIGOMUNICIPIONOTIFICACIONNavigation As MUNICIPIOS?
+        'Public Overridable Property CODIGOMUNICIPIONavigation As MUNICIPIOS?
+        'Public Overridable Property COMPLEMENTOSCARRERA As ICollection(Of COMPLEMENTOSCARRERA) = New List(Of COMPLEMENTOSCARRERA)()
+        'Public Overridable Property CONSOLIDACION_GRADO As ICollection(Of CONSOLIDACION_GRADO) = New List(Of CONSOLIDACION_GRADO)()
+        'Public Overridable Property CORREOS As ICollection(Of CORREOS) = New List(Of CORREOS)()
+        'Public Overridable Property DEDUCCIONESRETENCIONESJUDICI As ICollection(Of DEDUCCIONESRETENCIONESJUDICI) = New List(Of DEDUCCIONESRETENCIONESJUDICI)()
+        'Public Overridable Property DIASACOMPENSARPERSONAS As ICollection(Of DIASACOMPENSARPERSONAS) = New List(Of DIASACOMPENSARPERSONAS)()
+        'Public Overridable Property DIFERENCIAPAGODELEGADO As ICollection(Of DIFERENCIAPAGODELEGADO) = New List(Of DIFERENCIAPAGODELEGADO)()
+        'Public Overridable Property DIFERENCIATRIENIOS As ICollection(Of DIFERENCIATRIENIOS) = New List(Of DIFERENCIATRIENIOS)()
+        'Public Overridable Property DIPUTADOS As ICollection(Of DIPUTADOS) = New List(Of DIPUTADOS)()
+        'Public Overridable Property ENFERMEDADES As ICollection(Of ENFERMEDADES) = New List(Of ENFERMEDADES)()
+        'Public Overridable Property EXCEPCIONESPERMISOSIDPERSONANavigation As ICollection(Of EXCEPCIONESPERMISOS) = New List(Of EXCEPCIONESPERMISOS)()
+        'Public Overridable Property EXCEPCIONESPERMISOSIDPERSONAPERMISONavigation As ICollection(Of EXCEPCIONESPERMISOS) = New List(Of EXCEPCIONESPERMISOS)()
+        'Public Overridable Property EXPEDIENTESPERSONAS As ICollection(Of EXPEDIENTESPERSONAS) = New List(Of EXPEDIENTESPERSONAS)()
+        'Public Overridable Property FAMILIA As ICollection(Of FAMILIA) = New List(Of FAMILIA)()
+        'Public Overridable Property FORMACION As ICollection(Of FORMACION) = New List(Of FORMACION)()
+        'Public Overridable Property HIJOS As ICollection(Of HIJOS) = New List(Of HIJOS)()
+        'Public Overridable Property HISTORICOIRPF As ICollection(Of HISTORICOIRPF) = New List(Of HISTORICOIRPF)()
+        'Public Overridable Property HORARIOSPERSONAS As ICollection(Of HORARIOSPERSONAS) = New List(Of HORARIOSPERSONAS)()
+        'Public Overridable Property HORASEXTRAS As ICollection(Of HORASEXTRAS) = New List(Of HORASEXTRAS)()
+        'Public Overridable Property HORASMES As ICollection(Of HORASMES) = New List(Of HORASMES)()
+        'Public Overridable Property HUELGAS As ICollection(Of HUELGAS) = New List(Of HUELGAS)()
+        Public Overridable Property IDADSCRIPCIONRPTNavigation As TIPOS_PERSONAL
+        Public Overridable Property IDCAUSAALTAPARNavigation As ENUMERACIONES
+        Public Overridable Property IDCAUSABAJAPARNavigation As ENUMERACIONES
+        Public Overridable Property IDCAUSADEBAJANavigation As ENUMERACIONES
+        'Public Overridable Property IDCONTRATONavigation As CONTRATOS?
+        'Public Overridable Property IDCUENTACOTIZACIONPATRONALNavigation As CUENTASCOTIZACIONPATRONAL?
+        'Public Overridable Property IDCUERPORPTNavigation As CUERPO?
+        Public Overridable Property IDDEPARTAMENTONavigation As ENUMERACIONES
+        Public Overridable Property IDDISCAPACIDADNavigation As ENUMERACIONES
+        Public Overridable Property IDESCALANavigation As ENUMERACIONES
+        Public Overridable Property IDESPECIALIDADNavigation As ENUMERACIONES
+        'Public Overridable Property IDFICHEROFOTONavigation As FICHEROS?
+        Public Overridable Property IDGRADOPERSONALCONSOLIDADONavigation As NIVEL
+        Public Overridable Property IDGRUPOFUNCIONARIONavigation As ENUMERACIONES
+
+        'Public Overridable Property IDIOMAS As ICollection(Of IDIOMAS) = New List(Of IDIOMAS)()
+        Public Overridable Property IDMUTUA2Navigation As ENUMERACIONES
+        Public Overridable Property IDMUTUANavigation As ENUMERACIONES
+        Public Overridable Property IDNIVELRPTNavigation As NIVEL
+        Public Overridable Property IDOCUPACIONNavigation As ENUMERACIONES
+        'Public Overridable Property IDPUESTOTRABAJOOPOSICIONNavigation As TIPOSPUESTOSTRABAJO?
+        Public Overridable Property IDSEXONavigation As ENUMERACIONES
+        'Public Overridable Property IDSITUACIONACTUALIRPFNavigation As SITUACIONACTUALIRPF?
+        'Public Overridable Property IDSITUACIONADMINISTRATIVARPTNavigation As SITUACION
+        Public Overridable Property IDSITUACIONENRPTNavigation As ENUMERACIONES
+        Public Overridable Property IDSITUACIONFAMILIARNavigation As ENUMERACIONES
+        Public Overridable Property IDSITUACIONLABORALNavigation As ENUMERACIONES
+        Public Overridable Property IDTIPOEMPLEADORPTNavigation As ENUMERACIONES
+        Public Overridable Property IDTIPONavigation As ENUMERACIONES
+
+        'Public Overridable Property INCIDENCIAS As ICollection(Of INCIDENCIAS) = New List(Of INCIDENCIAS)()
+        'Public Overridable Property MAPEOSUSUARIOS As ICollection(Of MAPEOSUSUARIOS) = New List(Of MAPEOSUSUARIOS)()
+        'Public Overridable Property MATERNIDADES As ICollection(Of MATERNIDADES) = New List(Of MATERNIDADES)()
+        'Public Overridable Property NOMINATRABAJADORCABECERA As ICollection(Of NOMINATRABAJADORCABECERA) = New List(Of NOMINATRABAJADORCABECERA)()
+        'Public Overridable Property OTRASRETRIBUCIONES As ICollection(Of OTRASRETRIBUCIONES) = New List(Of OTRASRETRIBUCIONES)()
+        'Public Overridable Property PERMISOSSINRETRIBUCION As ICollection(Of PERMISOSSINRETRIBUCION) = New List(Of PERMISOSSINRETRIBUCION)()
+        'Public Overridable Property PERSONASLEGISLATURAS As ICollection(Of PERSONASLEGISLATURAS) = New List(Of PERSONASLEGISLATURAS)()
+        'Public Overridable Property PICADAS As ICollection(Of PICADAS) = New List(Of PICADAS)()
+        'Public Overridable Property PRESTAMOS As ICollection(Of PRESTAMOS) = New List(Of PRESTAMOS)()
+        'Public Overridable Property PRODUCTIVIDAD As ICollection(Of PRODUCTIVIDAD) = New List(Of PRODUCTIVIDAD)()
+        Public Overridable Property PUESTOSIDPERSONALNavigation As ICollection(Of PUESTOS) = New List(Of PUESTOS)()
+        Public Overridable Property PUESTOSTITULARNavigation As ICollection(Of PUESTOS) = New List(Of PUESTOS)()
+        'Public Overridable Property PUESTOSTRABAJO As ICollection(Of PUESTOSTRABAJO) = New List(Of PUESTOSTRABAJO)()
+        'Public Overridable Property REDUCCIONDEJORNADA As ICollection(Of REDUCCIONDEJORNADA) = New List(Of REDUCCIONDEJORNADA)()
+        'Public Overridable Property RETENCIONJUDICIAL As ICollection(Of RETENCIONJUDICIAL) = New List(Of RETENCIONJUDICIAL)()
+        'Public Overridable Property TARJETAS As ICollection(Of TARJETAS) = New List(Of TARJETAS)()
+        'Public Overridable Property TIPOSDOCACTOSADMINPREP As ICollection(Of TIPOSDOCACTOSADMINPREP) = New List(Of TIPOSDOCACTOSADMINPREP)()
+        'Public Overridable Property TIPOSSESIONES As ICollection(Of TIPOSSESIONES) = New List(Of TIPOSSESIONES)()
+        'Public Overridable Property TITULACIONES As ICollection(Of TITULACIONES) = New List(Of TITULACIONES)()
+        'Public Overridable Property TRABAJADORTIEMPOPARCIAL As ICollection(Of TRABAJADORTIEMPOPARCIAL) = New List(Of TRABAJADORTIEMPOPARCIAL)()
+        'Public Overridable Property TRIENIOS As ICollection(Of TRIENIOS) = New List(Of TRIENIOS)()
+        'Public Overridable Property VEHICULOS As ICollection(Of VEHICULOS) = New List(Of VEHICULOS)()
+        Public Overridable Property VIDA_ADMINISTRATIVA As ICollection(Of VIDA_ADMINISTRATIVA) = New List(Of VIDA_ADMINISTRATIVA)()
+    End Class
+    Partial Public Class RETRIBUCIONBASICA
+        Public Property IDRETRIBUCION As Integer
+        Public Property COMCARRA1T1 As Decimal
+        Public Property COMCARRA2T1 As Decimal
+        Public Property COMCARRBT1 As Decimal
+        Public Property COMCARRC1T1 As Decimal
+        Public Property COMCARRC2T1 As Decimal
+        Public Property COMCARRET1 As Decimal
+        Public Property SUELDOA1 As Decimal
+        Public Property SUELDOA1X As Decimal
+        Public Property SUELDOA2 As Decimal
+        Public Property SUELDOA2X As Decimal
+        Public Property SUELDOB As Decimal
+        Public Property SUELDOBX As Decimal
+        Public Property SUELDOC1 As Decimal
+        Public Property SUELDOC1X As Decimal
+        Public Property SUELDOC2 As Decimal
+        Public Property SUELDOC2X As Decimal
+        Public Property SUELDOE As Decimal
+        Public Property SUELDOEX As Decimal
+        Public Property TRIADMA1 As Decimal
+        Public Property TRIADMA1X As Decimal
+        Public Property TRIADMA2 As Decimal
+        Public Property TRIADMA2X As Decimal
+        Public Property TRIADMB As Decimal
+        Public Property TRIADMBX As Decimal
+        Public Property TRIADMC1 As Decimal
+        Public Property TRIADMC1X As Decimal
+        Public Property TRIADMC2 As Decimal
+        Public Property TRIADMC2X As Decimal
+        Public Property TRIADME As Decimal
+        Public Property TRIADMEX As Decimal
+        Public Property TRICAMA1 As Decimal
+        Public Property TRICAMA1X As Decimal
+        Public Property TRICAMA2 As Decimal
+        Public Property TRICAMA2X As Decimal
+        Public Property TRICAMB As Decimal
+        Public Property TRICAMBX As Decimal
+        Public Property TRICAMC1 As Decimal
+        Public Property TRICAMC1X As Decimal
+        Public Property TRICAMC2 As Decimal
+        Public Property TRICAMC2X As Decimal
+        Public Property TRICAME As Decimal
+        Public Property TRICAMEX As Decimal
+        Public Property IDRPT As Integer?
+        Public Property COMCARRA1T2 As Decimal
+        Public Property COMCARRA2T2 As Decimal
+        Public Property COMCARRBT2 As Decimal
+        Public Property COMCARRC1T2 As Decimal
+        Public Property COMCARRC2T2 As Decimal
+        Public Property COMCARRET2 As Decimal
+        Public Property COMCARRA1T3 As Decimal
+        Public Property COMCARRA2T3 As Decimal
+        Public Property COMCARRBT3 As Decimal
+        Public Property COMCARRC1T3 As Decimal
+        Public Property COMCARRC2T3 As Decimal
+        Public Property COMCARRET3 As Decimal
+        Public Property COMCARRA1T4 As Decimal
+        Public Property COMCARRA2T4 As Decimal
+        Public Property COMCARRBT4 As Decimal
+        Public Property COMCARRC1T4 As Decimal
+        Public Property COMCARRC2T4 As Decimal
+        Public Property COMCARRET4 As Decimal
+        Public Property COMCARRA1T5 As Decimal
+        Public Property COMCARRA2T5 As Decimal
+        Public Property COMCARRBT5 As Decimal
+        Public Property COMCARRC1T5 As Decimal
+        Public Property COMCARRC2T5 As Decimal
+        Public Property COMCARRET5 As Decimal
+        Public Overridable Property IDRPTNavigation As RPT
+    End Class
+
+End Namespace

.codex-links/WebIntranet/Models/UtilAntifraude.vb

@@ -0,0 +1,40 @@
+Imports Microsoft.Extensions.Configuration
+Imports Microsoft.IdentityModel.Clients.ActiveDirectory
+Imports Newtonsoft.Json
+Imports System.Net.Http
+Imports System.Net.Http.Headers
+Imports System.Threading.Tasks
+
+Public Class UtilAntifraude
+
+    Private Shared Property Conf As IConfiguration
+    Public Shared Function CheckCred() As Boolean
+        If HttpContext.Current.Session("persona") IsNot Nothing Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+    Public Shared Async Function ObtenerObjeto(Of T)(ByVal cliente As HttpClient, ByVal uri As String) As Task(Of T)
+        Dim response = Await cliente.GetAsync(uri)
+
+        If response.IsSuccessStatusCode Then
+            Dim resultContent = Await response.Content.ReadAsStringAsync()
+            Return JsonConvert.DeserializeObject(Of T)(resultContent)
+        Else
+            Return Nothing
+        End If
+    End Function
+    Public Shared Function ObtenerCliente(ByVal token As String, ByVal clientFactory As IHttpClientFactory) As HttpClient
+        Dim client = clientFactory.CreateClient()
+        client.BaseAddress = New Uri(urlSwagger())
+        client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", token)
+        client.DefaultRequestHeaders.Accept.Add(New MediaTypeWithQualityHeaderValue("application/json"))
+        Return client
+    End Function
+    Public Shared Function urlSwagger() As String
+        'Conf = New ConfigurationBuilder().AddJsonFile("appsettings.json").Build()
+        Dim swagger As String = ConfigurationManager.AppSettings("SwaggerVB")
+        Return swagger
+    End Function
+End Class