cambios en apidenuncias

.codex-links/WebIntranet/DatosAdministrativos/CarHor.aspx

@@ -0,0 +1,32 @@
+<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeBehind="CarHor.aspx.vb" Async="true" Inherits="WebIntranet.CarHor" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="Content" runat="server">
+        <div class="row pag">
+        <div id="navLateral" class="col-3">
+            <ul>
+                <li id='PuestosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Puestos.aspx">Puestos</a></li>
+                <li id='VidaAdminBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/vidaAdministrativa.aspx">Vida administrativa</a></li>
+                <li id='GradoPersBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/gradoPersonal.aspx">Grado personal</a></li>
+                <li id='FormacionBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/formacion.aspx">Formación</a></li>
+                 <li id='docenciaBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/docencia.aspx">Docencia</a></li>
+                <li id='IdiomasBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Idioma.aspx">Idiomas</a></li>
+                <li id='TrieniosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/trienios.aspx">Trienios</a></li>
+                <li id='CarreraHoriBL' class='obtListLat  listActivo'><a onclick="redirigir()" href="/DatosAdministrativos/carHor.aspx">Carrera horizontal</a></li>
+                <li id='TitulacionAcaOfiBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/titulaciones.aspx">Titulación académica oficial</a></li>
+            </ul>
+        </div>
+                <div id="Puestos" class="col">
+                     <p class="tituloMobile">Carrera horizontal</p>
+                        <div class="migasDePan">
+    <ul>      
+        <li class="migaActiva">/ Datos administrativos</li>
+        <li class="migaActiva">/ Carrera horizontal</li>
+    </ul>
+</div>
+         
+            <div style="margin-inline: 50px">
+            </div>
+            <div id="divTabla" runat="server" class="mt-4 divTablas"></div>
+
+        </div>
+    </div>
+</asp:Content>

.codex-links/WebIntranet/DatosAdministrativos/CarHor.aspx.designer.vb

@@ -0,0 +1,24 @@
+'------------------------------------------------------------------------------
+' <generado automáticamente>
+'     Este código fue generado por una herramienta.
+'
+'     Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
+'     se vuelve a generar el código. 
+' </generado automáticamente>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class CarHor
+
+    '''<summary>
+    '''Control divTabla.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents divTabla As Global.System.Web.UI.HtmlControls.HtmlGenericControl
+End Class

.codex-links/WebIntranet/DatosAdministrativos/CarHor.aspx.vb

@@ -0,0 +1,42 @@
+Imports System.Net.Http
+Imports System.Net.Http.Headers
+Imports WebIntranet.ClasesDatosAdmin
+
+Public Class CarHor
+    Inherits System.Web.UI.Page
+
+    Protected Async Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        'If (Session("persona") Is Nothing) Then
+        '    ("Default.aspx", False)
+        'Else
+
+        Dim token As String = Session("token")
+        Dim client As New HttpClient()
+        client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", token)
+        client.BaseAddress = New Uri(ConfigurationManager.AppSettings("SwaggerVB"))
+        Dim idPers = Session("persona").Personas(0).idPersona
+        Dim url As String = "/api/COMPLEMENTOSCARRERA/GruposEnumExtend/" & idPers
+        Dim puestosItems = Await UtilAntifraude.ObtenerObjeto(Of List(Of COMPLEMENTOSCARRERA))(client, url)
+        Dim htmlTabla = ""
+        If (puestosItems.Count > 0) Then
+            htmlTabla += "<table class='tablaPicadas'>" +
+    "<tr><th>Fecha inicio</th>" +
+    "<th>Fecha fin</th>" +
+    "<th>Grupo</th>" +
+    "<th>Tramo</th></tr>"
+            For Each itm As COMPLEMENTOSCARRERA In puestosItems
+                htmlTabla += "<tr>" +
+                    "<td>" + If(itm.FECHAINICIO IsNot Nothing, itm.FECHAINICIO.ToString.Substring(0, 10), "") + "</td>" +
+                        "<td>" + If(itm.FECHAFIN IsNot Nothing, itm.FECHAFIN.ToString.Substring(0, 10), "") + "</td>" +
+                        "<td>" + itm.IDGRUPONavigation.GRUPO1 + "</td>" +
+                        "<td>" + itm.IDTRAMONavigation.DESCRIPCION + "</td></tr>"
+            Next
+            htmlTabla += "</table>"
+        Else
+            htmlTabla += "<p style='color:red;font-weight:bold'>No se han encontrado resultados</p>"
+        End If
+        divTabla.InnerHtml = htmlTabla
+
+    End Sub
+
+End Class

.codex-links/WebIntranet/DatosAdministrativos/Formacion.aspx

@@ -0,0 +1,32 @@
+<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeBehind="Formacion.aspx.vb" Async="true" Inherits="WebIntranet.Formacion" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="Content" runat="server">
+    <div class="row pag">
+        <div id="navLateral" class="col-3">
+            <ul>
+                <li id='PuestosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Puestos.aspx">Puestos</a></li>
+                <li id='VidaAdminBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/vidaAdministrativa.aspx">Vida administrativa</a></li>
+                <li id='GradoPersBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/gradoPersonal.aspx">Grado personal</a></li>
+                <li id='FormacionBL' class='obtListLat listActivo'><a onclick="redirigir()" href="/DatosAdministrativos/formacion.aspx">Formación</a></li>
+                <li id='docenciaBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/docencia.aspx">Docencia</a></li>
+                <li id='IdiomasBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Idioma.aspx">Idiomas</a></li>
+                <li id='TrieniosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/trienios.aspx">Trienios</a></li>
+                <li id='CarreraHoriBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/carHor.aspx">Carrera horizontal</a></li>
+                <li id='TitulacionAcaOfiBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/titulaciones.aspx">Titulación académica oficial</a></li>
+            </ul>
+        </div>
+        <div id="Puestos" class="col">
+            <p class="tituloMobile">Formación</p>
+            <div class="migasDePan">
+                <ul>
+                    <li class="migaActiva">/ Datos administrativos</li>
+                    <li class="migaActiva">/ Formación</li>
+                </ul>
+            </div>
+            <div style="margin-inline: 50px">
+            </div>
+            <div id="divTabla" runat="server" class="mt-4 divTablas"></div>
+
+        </div>
+    </div>
+</asp:Content>

.codex-links/WebIntranet/DatosAdministrativos/Formacion.aspx.designer.vb

@@ -0,0 +1,24 @@
+'------------------------------------------------------------------------------
+' <generado automáticamente>
+'     Este código fue generado por una herramienta.
+'
+'     Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
+'     se vuelve a generar el código. 
+' </generado automáticamente>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class Formacion
+
+    '''<summary>
+    '''Control divTabla.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents divTabla As Global.System.Web.UI.HtmlControls.HtmlGenericControl
+End Class

.codex-links/WebIntranet/DatosAdministrativos/Formacion.aspx.vb

@@ -0,0 +1,56 @@
+Imports Newtonsoft.Json
+Imports System.Net.Http
+Imports System.Net.Http.Headers
+Imports WebIntranet.ClasesDatosAdmin
+
+Public Class Formacion
+    Inherits System.Web.UI.Page
+
+    Protected Async Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        Dim vidaAdministrativaItems As New List(Of WebIntranet.ClasesDatosAdmin.FORMACION)
+        Dim TiposActos As New List(Of TIPOAPTOSADMINISTRATIVOS)
+        Dim token As String = Session("token")
+        Dim client As New HttpClient()
+        client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", token)
+        client.BaseAddress = New Uri(ConfigurationManager.AppSettings("SwaggerVB"))
+        Dim idPers = Session("persona").Personas(0).idPersona
+        Dim response = Await client.GetAsync("/api/FORMACION/formacionespersona/" + idPers.ToString)
+
+        If response.IsSuccessStatusCode Then
+            Dim resultContent = Await response.Content.ReadAsStringAsync()
+            vidaAdministrativaItems = If(JsonConvert.DeserializeObject(Of List(Of WebIntranet.ClasesDatosAdmin.FORMACION))(resultContent), New List(Of WebIntranet.ClasesDatosAdmin.FORMACION)())
+            vidaAdministrativaItems = vidaAdministrativaItems.ToList()
+        Else
+            Console.WriteLine($"Error al cargar Vida Administrativa: {response.StatusCode}")
+        End If
+        Dim htmlTabla = ""
+        If vidaAdministrativaItems.Count > 0 Then
+
+
+            htmlTabla += "<table class='tablaPicadas'>" +
+                         "<tr><th>Nombre curso</th>" +
+                         "<th>Nombre</th>" +
+                         "<th>Fecha expedición</th>" +
+                         "<th>Duración</th>" +
+                         "<th>Aprovechamiento</th>" +
+                         "<th>Oficial</th></tr>"
+            For Each itm As WebIntranet.ClasesDatosAdmin.FORMACION In vidaAdministrativaItems
+                '/fichero.aspx?id=" + linAd.IDLINEAVIDAADMIN.ToString() + "&cl=" + tsl5.crypt.SHA1("M3Soft." & linAd.IDLINEAVIDAADMIN.ToString) + "&t=LINEAVIDAADMINISTRATIVA
+                Dim urlFich = "/fichero.aspx?id=" + itm.IDFORMACION.ToString() + "&cl=" + tsl5.crypt.SHA1("M3Soft." & itm.IDFORMACION.ToString) + "&t=FORMACION"
+                'Dim urlFich = "/Ficheros?tip=VerFrm&id=" + itm.ToString()
+                htmlTabla += "<tr>"
+                htmlTabla += "<td>" + If(itm.RUTA IsNot Nothing, "<a href='" + urlFich + "' target='_blank'>" + itm.NOMBRE_CURSO + "</a>", itm.NOMBRE_CURSO) + "</td>"
+                htmlTabla += "<td>" + itm.CENTRO + "</td>"
+                htmlTabla += "<td>" + If(itm.FECHA_EXPEDICION IsNot Nothing, itm.FECHA_EXPEDICION.ToString.Substring(0, 10), "") + "</td>"
+                htmlTabla += "<td style='text-align:center'>" + itm.DURACION.ToString() + "</td>"
+                htmlTabla += "<td style='text-align:center'>" + If(itm.APROVECHAMIENTO = True, "<i class=""fa fa-check""></i>", "") + "</td>"
+                htmlTabla += "<td style='text-align:center'>" + If(itm.OFICIAL = True, "<i class=""fa fa-check""></i>", "") + "</td>"
+            Next
+            htmlTabla += "</table>"
+        Else
+            htmlTabla += "<p style='color:red;font-weight:bold'>No se han encontrado resultados</p>"
+        End If
+        divTabla.InnerHtml = htmlTabla
+    End Sub
+
+End Class

.codex-links/WebIntranet/DatosAdministrativos/GradoPersonal.aspx

@@ -0,0 +1,33 @@
+<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeBehind="GradoPersonal.aspx.vb" Async="true" Inherits="WebIntranet.GradoPersonal" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="Content" runat="server">
+        
+    <div class="row pag">
+        <div id="navLateral" class="col-3">
+            <ul>
+                <li id='PuestosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Puestos.aspx">Puestos</a></li>
+                <li id='VidaAdminBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/vidaAdministrativa.aspx">Vida administrativa</a></li>
+                <li id='GradoPersBL' class='obtListLat listActivo'><a onclick="redirigir()" href="/DatosAdministrativos/gradoPersonal.aspx">Grado personal</a></li>
+                <li id='FormacionBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/formacion.aspx">Formación</a></li>
+                 <li id='docenciaBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/docencia.aspx">Docencia</a></li>
+                <li id='IdiomasBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Idioma.aspx">Idiomas</a></li>
+                <li id='TrieniosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/trienios.aspx">Trienios</a></li>
+                <li id='CarreraHoriBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/carHor.aspx">Carrera horizontal</a></li>
+                <li id='TitulacionAcaOfiBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/titulaciones.aspx">Titulación académica oficial</a></li>
+            </ul>
+        </div>
+                <div id="Puestos" class="col">
+                     <p class="tituloMobile">Grado personal</p>
+                        <div class="migasDePan">
+    <ul>      
+        <li class="migaActiva">/ Datos administrativos</li>
+        <li class="migaActiva">/ Grado personal</li>
+    </ul>
+</div>
+         
+            <div style="margin-inline: 50px">
+            </div>
+            <div id="divTabla" runat="server" class="mt-4 divTablas"></div>
+
+        </div>
+    </div>
+</asp:Content>

.codex-links/WebIntranet/DatosAdministrativos/GradoPersonal.aspx.designer.vb

@@ -0,0 +1,24 @@
+'------------------------------------------------------------------------------
+' <generado automáticamente>
+'     Este código fue generado por una herramienta.
+'
+'     Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
+'     se vuelve a generar el código. 
+' </generado automáticamente>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class GradoPersonal
+
+    '''<summary>
+    '''Control divTabla.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents divTabla As Global.System.Web.UI.HtmlControls.HtmlGenericControl
+End Class

.codex-links/WebIntranet/DatosAdministrativos/GradoPersonal.aspx.vb

@@ -0,0 +1,32 @@
+Imports System.Net.Http
+Imports System.Net.Http.Headers
+Imports WebIntranet.ClasesDatosAdmin
+
+Public Class GradoPersonal
+    Inherits System.Web.UI.Page
+
+    Protected Async Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        Dim token As String = Session("token")
+        Dim client As New HttpClient()
+        client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", token)
+        client.BaseAddress = New Uri(ConfigurationManager.AppSettings("SwaggerVB"))
+        Dim idPers = Session("persona").Personas(0).idPersona
+        Dim url As String = "/api/CONSOLIDACION_GRADO/GetWithIncludes/" & idPers
+        Dim puestosItems = Await UtilAntifraude.ObtenerObjeto(Of List(Of CONSOLIDACION_GRADO))(client, url)
+        Dim htmlTabla = ""
+        htmlTabla += "<table class='tablaPicadas'>" +
+"<tr><th>Nivel</th>" +
+"<th>Fecha efecto</th>" +
+"<th>Fecha resolución</th></tr>"
+
+        For Each itm As CONSOLIDACION_GRADO In puestosItems
+            htmlTabla += "<tr>" +
+                    "<td>" + itm.IDNIVELNavigation.DESCRIPCION + "</td>" +
+                    "<td>" + If(itm.FECHA_EFECTO IsNot Nothing, itm.FECHA_EFECTO.ToString.Substring(0, 10), "") + "</td>" +
+                    "<td>" + If(itm.FECHA_RESOLUCION IsNot Nothing, itm.FECHA_RESOLUCION.ToString.Substring(0, 10), "") + "</td></tr>"
+        Next
+        htmlTabla += "</table>"
+        divTabla.InnerHtml = htmlTabla
+    End Sub
+
+End Class

.codex-links/WebIntranet/DatosAdministrativos/Idioma.aspx

@@ -0,0 +1,34 @@
+<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeBehind="Idioma.aspx.vb" Async="true" Inherits="WebIntranet.Idioma" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="Content" runat="server">
+    
+    <div class="row pag">
+        <div id="navLateral" class="col-3">
+            <ul>
+                <li id='PuestosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Puestos.aspx">Puestos</a></li>
+                <li id='VidaAdminBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/vidaAdministrativa.aspx">Vida administrativa</a></li>
+                <li id='GradoPersBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/gradoPersonal.aspx">Grado personal</a></li>
+                <li id='FormacionBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/formacion.aspx">Formación</a></li>
+                 <li id='docenciaBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/docencia.aspx">Docencia</a></li>
+                <li id='IdiomasBL' class='obtListLat listActivo'><a onclick="redirigir()" href="/DatosAdministrativos/Idioma.aspx">Idiomas</a></li>
+                <li id='TrieniosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/trienios.aspx">Trienios</a></li>
+                <li id='CarreraHoriBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/carHor.aspx">Carrera horizontal</a></li>
+                <li id='TitulacionAcaOfiBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/titulaciones.aspx">Titulación académica oficial</a></li>
+            </ul>
+        </div>
+                <div id="Puestos" class="col">
+                     <p class="tituloMobile">Idiomas</p>
+                        <div class="migasDePan">
+    <ul>      
+        <li class="migaActiva">/ Datos administrativos</li>
+        <li class="migaActiva">/ Idiomas</li>
+    </ul>
+</div>
+         
+            <div style="margin-inline: 50px">
+            </div>
+            <div id="divTabla" runat="server" class="mt-4 divTablas"></div>
+
+        </div>
+    </div>
+
+</asp:Content>

.codex-links/WebIntranet/DatosAdministrativos/Idioma.aspx.designer.vb

@@ -0,0 +1,24 @@
+'------------------------------------------------------------------------------
+' <generado automáticamente>
+'     Este código fue generado por una herramienta.
+'
+'     Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
+'     se vuelve a generar el código. 
+' </generado automáticamente>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class Idioma
+
+    '''<summary>
+    '''Control divTabla.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents divTabla As Global.System.Web.UI.HtmlControls.HtmlGenericControl
+End Class

.codex-links/WebIntranet/DatosAdministrativos/Idioma.aspx.vb

@@ -0,0 +1,43 @@
+Imports System.Net.Http
+Imports System.Net.Http.Headers
+Imports WebIntranet.ClasesDatosAdmin
+
+Public Class Idioma
+    Inherits System.Web.UI.Page
+
+    Protected Async Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+
+        'If (Session("persona") Is Nothing) Then
+        '    ("Default.aspx", False)
+        'Else
+
+        Dim token As String = Session("token")
+            Dim client As New HttpClient()
+            client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", token)
+            client.BaseAddress = New Uri(ConfigurationManager.AppSettings("SwaggerVB"))
+            Dim idPers = Session("persona").Personas(0).idPersona
+        Dim url As String = "/api/IDIOMAS/GetWithIncludes/" & idPers
+        Dim puestosItems = Await UtilAntifraude.ObtenerObjeto(Of List(Of IDIOMAS))(client, url)
+        Dim htmlTabla = ""
+        If (puestosItems.Count > 0) Then
+            htmlTabla += "<table class='tablaPicadas'>" +
+    "<tr><th>Idioma</th>" +
+    "<th>Nivel</th>" +
+    "<th>Centro de expedición</th>" +
+    "<th>Año</th></tr>"
+            For Each itm As IDIOMAS In puestosItems
+                htmlTabla += "<tr>" +
+                    "<td>" + itm.IDTIPOIDIOMANavigation?.DESCRIPCION + "</td>" +
+                        "<td>" + itm.IDNIVELNavigation.DESCRIPCION + "</td>" +
+                        "<td>" + itm.CENTROEXPEDICION + "</td>" +
+                        "<td>" + itm.ANNO.ToString + "</td></tr>"
+            Next
+        htmlTabla += "</table>"
+        Else
+            htmlTabla += "<p style='color:red;font-weight:bold'>No se han encontrado resultados</p>"
+        End If
+        divTabla.InnerHtml = htmlTabla
+        'End If
+    End Sub
+
+End Class

.codex-links/WebIntranet/DatosAdministrativos/Puestos.aspx

@@ -0,0 +1,33 @@
+<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeBehind="Puestos.aspx.vb" Async="true" Inherits="WebIntranet.Puestos" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="Content" runat="server">
+
+    <div class="row pag">
+        <div id="navLateral" class="col-3">
+            <ul>
+                <li id='PuestosBL' class='obtListLat listActivo'><a onclick="redirigir()" href="/DatosAdministrativos/Puestos.aspx">Puestos</a></li>
+                <li id='VidaAdminBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/vidaAdministrativa.aspx">Vida administrativa</a></li>
+                <li id='GradoPersBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/gradoPersonal.aspx">Grado personal</a></li>
+                <li id='FormacionBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/formacion.aspx">Formación</a></li>
+                 <li id='docenciaBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/docencia.aspx">Docencia</a></li>
+                <li id='IdiomasBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Idioma.aspx">Idiomas</a></li>
+                <li id='TrieniosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/trienios.aspx">Trienios</a></li>
+                <li id='CarreraHoriBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/carHor.aspx">Carrera horizontal</a></li>
+                <li id='TitulacionAcaOfiBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/titulaciones.aspx">Titulación académica oficial</a></li>
+            </ul>
+        </div>
+                <div id="Puestos" class="col">
+                     <p class="tituloMobile">Puestos</p>
+                        <div class="migasDePan">
+    <ul>      
+        <li class="migaActiva">/ Datos administrativos</li>
+        <li class="migaActiva">/ Puestos</li>
+    </ul>
+</div>
+         
+            <div style="margin-inline: 50px">
+            </div>
+            <div id="divTablaPuestos" runat="server" class="mt-4 divTablas"></div>
+
+        </div>
+    </div>
+</asp:Content>

.codex-links/WebIntranet/DatosAdministrativos/Puestos.aspx.designer.vb

@@ -0,0 +1,24 @@
+'------------------------------------------------------------------------------
+' <generado automáticamente>
+'     Este código fue generado por una herramienta.
+'
+'     Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
+'     se vuelve a generar el código. 
+' </generado automáticamente>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class Puestos
+
+    '''<summary>
+    '''Control divTablaPuestos.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents divTablaPuestos As Global.System.Web.UI.HtmlControls.HtmlGenericControl
+End Class

.codex-links/WebIntranet/DatosAdministrativos/Puestos.aspx.vb

@@ -0,0 +1,60 @@
+Imports System.Net.Http
+Imports System.Net.Http.Headers
+
+Imports WebIntranet.ClasesDatosAdmin
+
+Public Class Puestos
+    Inherits System.Web.UI.Page
+
+    Protected Async Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        'If (Session("persona") Is Nothing) Then
+        '    Response.Redirect("~/Default.aspx", False)
+        'Else
+        Dim token As String = Session("token")
+        Dim client As New HttpClient()
+        client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", token)
+        client.BaseAddress = New Uri(ConfigurationManager.AppSettings("SwaggerVB"))
+        Dim idPers = Session("persona").Personas(0).idPersona
+        Dim url As String = "/api/VIDA_ADMINISTRATIVA/puestospersona/" & idPers
+        Dim puestosItems = Await UtilAntifraude.ObtenerObjeto(Of List(Of PuestoPersona))(client, url)
+
+        Dim htmlTabla = ""
+        If (puestosItems.Count > 0) Then
+
+            htmlTabla += "<table class='tablaPicadas'>" +
+"<tr><th>Puesto de trabajo</th>" +
+"<th>Nivel</th>" +
+"<th>Clase personal</th>" +
+"<th>Grupo</th>" +
+"<th>Fecha inicio</th>" +
+"<th>Fecha fin</th>" +
+"<th>Caracter Ocupación</th>" +
+"<th>Años</th>" +
+"<th>Meses</th>" +
+"<th>Días</th></tr>"
+            For Each itm As PuestoPersona In puestosItems
+                htmlTabla += "<tr>" +
+                        "<td>" + itm.Puesto + "</td>" +
+                        "<td>" + itm.Nivel + "</td>" +
+                        "<td>" + itm.Adscripcion + "</td>" +
+                        "<td>" + itm.Grupo + "</td>" +
+                        "<td>" + If(Not itm.FechaToPo = Nothing, itm.FechaToPo.ToString("dd/MM/yyyy"), "") + "</td>" +
+                        "<td>" + If(Not itm.FechaCese = Nothing, itm.FechaCese.ToString("dd/MM/yyyy"), "") + "</td>" +
+                        "<td>" + itm.CaracterOcu + "</td>" +
+                        "<td>" + itm.AnosSer.ToString + "</td>" +
+                        "<td>" + itm.MesesSer.ToString + "</td>" +
+                        "<td>" + itm.DiasSer.ToString + "</td></tr>"
+            Next
+            htmlTabla += "</table>"
+        Else
+            htmlTabla += "<p style='color:red;font-weight:bold'>No se han encontrado resultados</p>"
+        End If
+        divTablaPuestos.InnerHtml = htmlTabla
+        'End If
+
+
+    End Sub
+
+
+
+End Class

.codex-links/WebIntranet/DatosAdministrativos/VidaAdministrativa.aspx

@@ -0,0 +1,33 @@
+<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeBehind="VidaAdministrativa.aspx.vb" Async="true" Inherits="WebIntranet.VidaAdministrativa" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="Content" runat="server">
+    
+    <div class="row pag">
+        <div id="navLateral" class="col-3">
+            <ul>
+                <li id='PuestosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Puestos.aspx">Puestos</a></li>
+                <li id='VidaAdminBL' class='obtListLat listActivo'><a onclick="redirigir()" href="/DatosAdministrativos/vidaAdministrativa.aspx">Vida administrativa</a></li>
+                <li id='GradoPersBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/gradoPersonal.aspx">Grado personal</a></li>
+                <li id='FormacionBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/formacion.aspx">Formación</a></li>
+                 <li id='docenciaBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/docencia.aspx">Docencia</a></li>
+                <li id='IdiomasBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Idioma.aspx">Idiomas</a></li>
+                <li id='TrieniosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/trienios.aspx">Trienios</a></li>
+                <li id='CarreraHoriBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/carHor.aspx">Carrera horizontal</a></li>
+                <li id='TitulacionAcaOfiBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/titulaciones.aspx">Titulación académica oficial</a></li>
+            </ul>
+        </div>
+                <div id="Puestos" class="col">
+                     <p class="tituloMobile">Vida administrativa</p>
+                        <div class="migasDePan">
+    <ul>      
+        <li class="migaActiva">/ Datos administrativos</li>
+        <li class="migaActiva">/ Vida administrativa</li>
+    </ul>
+</div>
+         
+            <div style="margin-inline: 50px">
+            </div>
+            <div id="divTabla" runat="server" class="mt-4 divTablas"></div>
+
+        </div>
+    </div>
+</asp:Content>

.codex-links/WebIntranet/DatosAdministrativos/VidaAdministrativa.aspx.designer.vb

@@ -0,0 +1,24 @@
+'------------------------------------------------------------------------------
+' <generado automáticamente>
+'     Este código fue generado por una herramienta.
+'
+'     Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
+'     se vuelve a generar el código. 
+' </generado automáticamente>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class VidaAdministrativa
+
+    '''<summary>
+    '''Control divTabla.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents divTabla As Global.System.Web.UI.HtmlControls.HtmlGenericControl
+End Class

.codex-links/WebIntranet/DatosAdministrativos/VidaAdministrativa.aspx.vb

@@ -0,0 +1,94 @@
+Imports System.Linq.Expressions
+Imports System.Net.Http
+Imports System.Net.Http.Headers
+Imports Newtonsoft.Json
+Imports WebIntranet.ClasesDatosAdmin
+Imports Serialize.Linq.Serializers
+Imports Serialize.Linq.Expressions
+Imports Serialize.Linq.Interfaces
+Imports Serialize.Linq.Factories
+
+Public Class VidaAdministrativa
+    Inherits System.Web.UI.Page
+
+    Protected Async Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        Dim vidaAdministrativaItems As New List(Of VIDA_ADMINISTRATIVA)
+        Dim TiposActos As New List(Of TIPOAPTOSADMINISTRATIVOS)
+        Dim token As String = Session("token")
+        Dim client As New HttpClient()
+        client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", token)
+        client.BaseAddress = New Uri(ConfigurationManager.AppSettings("SwaggerVB"))
+        Dim idPers = Session("persona").Personas(0).idPersona
+        Dim response = Await client.GetAsync("/api/VIDA_ADMINISTRATIVA/vidaspersona/" + idPers.ToString)
+
+        If response.IsSuccessStatusCode Then
+            Dim resultContent = Await response.Content.ReadAsStringAsync()
+            vidaAdministrativaItems = If(JsonConvert.DeserializeObject(Of List(Of VIDA_ADMINISTRATIVA))(resultContent), New List(Of VIDA_ADMINISTRATIVA)())
+            vidaAdministrativaItems = vidaAdministrativaItems.OrderByDescending(Function(x) x.FECHA).ThenBy(Function(x) x.NUM_REG).ThenBy(Function(x) x.IDMOTIVONavigation?.IDTIPOAPTOSNavigation?.DESCRIPCION).ToList()
+        Else
+            Console.WriteLine($"Error al cargar Vida Administrativa: {response.StatusCode}")
+        End If
+
+        Dim TiApAd = Await client.GetAsync("/api/TIPOAPTOSADMINISTRATIVOS")
+        Dim TiApAdContent = Await TiApAd.Content.ReadAsStringAsync()
+        If TiApAd.IsSuccessStatusCode Then
+            TiposActos = If(JsonConvert.DeserializeObject(Of List(Of TIPOAPTOSADMINISTRATIVOS))(TiApAdContent), New List(Of TIPOAPTOSADMINISTRATIVOS)())
+        End If
+        TiposActos = If(TiposActos?.OrderBy(Function(x) x.DESCRIPCION).ToList(), New List(Of TIPOAPTOSADMINISTRATIVOS)())
+        Dim htmlTabla = ""
+        If vidaAdministrativaItems.Count > 0 Then
+
+            htmlTabla += "<table class='tablaPicadas'>" +
+                     "<tr><th>Tiene documentos</th>" +
+                     "<th>Actos administrativos</th>" +
+                     "<th>Departamento</th>" +
+                     "<th>Causa</th>" +
+                     "<th>Observaciones</th>" +
+                     "<th>Descripción</th>" +
+                     "<th>Fecha efecto</th>" +
+                     "<th>Fecha resolución</th>" +
+                     "<th>Caracter ocupación</th></tr>"
+            For Each itm As VIDA_ADMINISTRATIVA In vidaAdministrativaItems
+                Dim descActo = TiposActos.FirstOrDefault(Function(x) x.IDTIPO = itm.IDMOTIVONavigation.IDTIPOAPTOS).DESCRIPCION
+                Dim linkVidaAd = "/DatosAdministrativos/desgVidaAdministrativa.aspx?idVi=" + itm.IDVIDA.ToString().Trim() + "&cl=" + tsl5.crypt.SHA1("M3Soft." & itm.IDVIDA)
+                htmlTabla += "<tr>"
+                htmlTabla += "<td>" + If(itm.TIENELINEAS = True, "<i class=""fa fa-check""></i>", "") + "</td>"
+                htmlTabla += "<td>" + "<a href='" + linkVidaAd + "'>" + descActo + "</td>"
+                htmlTabla += "<td>" + If(itm.IDPUESTONavigation?.IDRPTDESNavigation?.IDDEPARTAMENTONavigation?.DESCRIPCION IsNot Nothing, itm.IDPUESTONavigation?.IDRPTDESNavigation?.IDDEPARTAMENTONavigation?.DESCRIPCION, "") + "</td>"
+                htmlTabla += "<td></td>"
+                htmlTabla += "<td>" + If(itm.OBSERVACIONES IsNot Nothing, itm.OBSERVACIONES, "") + "</td>"
+                htmlTabla += "<td></td>"
+                htmlTabla += "<td>" + If(itm.FECHA IsNot Nothing, itm.FECHA.ToString.Substring(0, 10), "") + "</td>"
+                htmlTabla += "<td>" + If(itm.FECHARESOLUCION IsNot Nothing, itm.FECHARESOLUCION.ToString.Substring(0, 10), "") + "</td>"
+                htmlTabla += "<td>" + If(itm.OCUPACION_OLDNavigation?.DESCRIPCION IsNot Nothing, itm.OCUPACION_OLDNavigation.DESCRIPCION, "") + "</td></tr>"
+            Next
+            htmlTabla += "</table>"
+        Else
+            htmlTabla += "<p style='color:red;font-weight:bold'>No se han encontrado resultados</p>"
+        End If
+        divTabla.InnerHtml = htmlTabla
+    End Sub
+
+    Private Function CustomTypeResolver(typeName As String) As FactorySettings
+        If typeName <> "Microsoft.VisualBasic.CompilerServices.Operators" Then
+            Return Nothing
+        End If
+        Return Nothing
+    End Function
+
+    'Private Function genrarlink(idvida As Integer, idpersonas As Integer) As String
+
+    'End Function
+
+End Class
+Public Class CustomTypeResolver
+
+    Public Function Resolve(typeName As String) As Type
+        If typeName = "Microsoft.VisualBasic.CompilerServices.Operators" Then
+            Return Nothing
+        End If
+        Return Type.GetType(typeName)
+    End Function
+End Class
+
+

.codex-links/WebIntranet/DatosAdministrativos/desgVidaAdministrativa.aspx

@@ -0,0 +1,50 @@
+<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeBehind="desgVidaAdministrativa.aspx.vb" Async="true" Inherits="WebIntranet.desgVidaAdministrativa" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="Content" runat="server">
+        <div class="row pag">
+        <div id="infoVidaAdministrativa" class="col">
+             <p class="tituloMobile">Info vida administrativa</p>
+            <div class="migasDePan">
+                <ul>
+
+                    <li class="migaActiva">/ Datos administrativos</li>
+                    <li><a onclick="redirigir()" href="vidaAdministrativa.aspx">/ Vida administrativa</a></li>
+                    <li class="migaActiva">/ Info vida administrativa</li>
+                </ul>
+            </div>
+          
+            <div style="margin-inline: 50px">
+                <div class="row">
+                    <div class="col-md-4">
+                        <p class="labelPar">Acto administrativo</p>
+                        <input class="selectInHora" runat="server" type="text" readonly="true" id="actAdmVA" />
+                    </div>
+                    <div class="col-md-4">
+                        <p class="labelPar">Causa</p>
+                        <input class="selectInHora" runat="server" type="text" readonly="true" id="CausaVA" />
+                    </div>
+                    <div class="col-md-2">
+                        <p class="labelPar">Fecha de efecto</p>
+                        <input class="selectInHora" runat="server" type="text" readonly="true" id="fechaEfcVA" />
+                    </div>
+                    <div class="col-md-2">
+                        <p class="labelPar">Fecha de resolución</p>
+                        <input class="selectInHora" runat="server" type="text" readonly="true" id="fechaResVA" />
+                    </div>
+                    <div class="col-md-4">
+                        <p class="labelPar">NRP</p>
+                        <input class="selectInHora" runat="server" type="text" readonly="true" id="NRPVA" />
+                    </div>
+                    <div class="col-md-4">
+                        <p class="labelPar">Puesto</p>
+                        <input class="selectInHora" runat="server" type="text" readonly="true" id="PuestoVA" />
+                    </div>
+                    <div class="col-md-4">
+                        <p class="labelPar">Observaciones</p>
+                        <input class="selectInHora" runat="server" type="text" readonly="true" id="ObservacionesVA" />
+                    </div>
+                </div>
+            </div>
+            <div id="divTablaLiViAd" runat="server" class="mt-4 divTablas"></div>
+        </div>
+    </div>
+</asp:Content>

.codex-links/WebIntranet/DatosAdministrativos/desgVidaAdministrativa.aspx.designer.vb

@@ -0,0 +1,87 @@
+'------------------------------------------------------------------------------
+' <generado automáticamente>
+'     Este código fue generado por una herramienta.
+'
+'     Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
+'     se vuelve a generar el código. 
+' </generado automáticamente>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class desgVidaAdministrativa
+
+    '''<summary>
+    '''Control actAdmVA.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents actAdmVA As Global.System.Web.UI.HtmlControls.HtmlInputText
+
+    '''<summary>
+    '''Control CausaVA.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents CausaVA As Global.System.Web.UI.HtmlControls.HtmlInputText
+
+    '''<summary>
+    '''Control fechaEfcVA.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents fechaEfcVA As Global.System.Web.UI.HtmlControls.HtmlInputText
+
+    '''<summary>
+    '''Control fechaResVA.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents fechaResVA As Global.System.Web.UI.HtmlControls.HtmlInputText
+
+    '''<summary>
+    '''Control NRPVA.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents NRPVA As Global.System.Web.UI.HtmlControls.HtmlInputText
+
+    '''<summary>
+    '''Control PuestoVA.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents PuestoVA As Global.System.Web.UI.HtmlControls.HtmlInputText
+
+    '''<summary>
+    '''Control ObservacionesVA.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents ObservacionesVA As Global.System.Web.UI.HtmlControls.HtmlInputText
+
+    '''<summary>
+    '''Control divTablaLiViAd.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents divTablaLiViAd As Global.System.Web.UI.HtmlControls.HtmlGenericControl
+End Class

.codex-links/WebIntranet/DatosAdministrativos/desgVidaAdministrativa.aspx.vb

@@ -0,0 +1,96 @@
+Imports System.Linq.Expressions
+Imports System.Net.Http
+Imports System.Net.Http.Headers
+Imports Newtonsoft.Json
+Imports Serialize.Linq.Serializers
+Imports WebIntranet.ClasesDatosAdmin
+
+Public Class desgVidaAdministrativa
+    Inherits System.Web.UI.Page
+
+    Protected Async Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+
+        If Session("Persona") Is Nothing Then
+            Response.Redirect("default.aspx")
+        End If
+        Dim sessionUsuario As String = Session("usuario")
+        Dim idVidaAd = Request.QueryString("idVi")
+        'Session.Add("idVi", idVidaAd)
+        Dim cl = Request.QueryString("cl")
+        Dim sCl2 = tsl5.crypt.SHA1("M3Soft." & idVidaAd.ToString)
+        If sCl2 <> cl Then
+            Response.Redirect("/default.aspx", False)
+        Else
+            Dim client As New HttpClient()
+            Dim token As String = Session("token")
+            client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", token)
+            client.BaseAddress = New Uri(ConfigurationManager.AppSettings("SwaggerVB"))
+            Dim VidaAdministrativaEnlazada As VIDA_ADMINISTRATIVA
+            Dim response = Await client.GetAsync("/api/VIDA_ADMINISTRATIVA/" + idVidaAd.ToString())
+            Dim responseContent = Await response.Content.ReadAsStringAsync()
+            VidaAdministrativaEnlazada = If(JsonConvert.DeserializeObject(Of VIDA_ADMINISTRATIVA)(responseContent), New VIDA_ADMINISTRATIVA())
+
+            '    Dim serializer = New ExpressionSerializer(New Serialize.Linq.Serializers.JsonSerializer())
+            '    Dim IDVIDA As Integer = VidaAdministrativaEnlazada.IDVIDA
+            '    Dim filtroPue As Expression(Of Func(Of LINEASVIDAADMINISTRATIVA, Boolean)) = Function(x) x.IDVIDAADMIN = IDVIDA
+            'Dim PueExpression = serializer.SerializeText(filtroPue)
+            'Dim PuejsonContent = JsonConvert.SerializeObject(New With {
+            '    .Expression = PueExpression})
+            'Dim Puecontent = New StringContent(PuejsonContent, Encoding.UTF8, "application/json")
+            Dim lineasVidaAdministrativaEnlazada As List(Of LINEASVIDAADMINISTRATIVA)
+
+            Dim response1 = Await client.GetAsync("/api/LINEASVIDAADMINISTRATIVA/LineasVidaAdminGridbyId/" + idVidaAd)
+            Dim responseContent1 = Await response1.Content.ReadAsStringAsync()
+            lineasVidaAdministrativaEnlazada = If(JsonConvert.DeserializeObject(Of List(Of LINEASVIDAADMINISTRATIVA))(responseContent1), New List(Of LINEASVIDAADMINISTRATIVA)())
+
+
+
+            actAdmVA.Value = VidaAdministrativaEnlazada.IDMOTIVONavigation.DESCRIPCION.Trim()
+            CausaVA.Value = VidaAdministrativaEnlazada.IDMOTIVONavigation.DESCRIPCION
+            'If VidaAdministrativaEnlazada.FECHA IsNot Nothing Then
+
+            'End If
+            fechaEfcVA.Value = If(VidaAdministrativaEnlazada.FECHA.HasValue, CDate(VidaAdministrativaEnlazada.FECHA).ToString("dd/MM/yyyy"), "")
+            fechaResVA.Value = If(VidaAdministrativaEnlazada.FECHARESOLUCION.HasValue, CDate(VidaAdministrativaEnlazada.FECHARESOLUCION).ToString("dd/MM/yyyy"), "")
+            NRPVA.Value = VidaAdministrativaEnlazada.NRP
+            PuestoVA.Value = VidaAdministrativaEnlazada.IDPUESTONavigation?.DESPUESCOM
+            ObservacionesVA.Value = VidaAdministrativaEnlazada.OBSERVACIONES
+
+            Dim htmlTabla = ""
+
+            htmlTabla += "<table class='tablaPicadas'><tr>" +
+                            "<th>Código</th>" +
+                            "<th>Descripción</th>" +
+                            "<th>Tipo Documento</th>" +
+                            "<th>Fecha</th>" +
+                            "<th>Fichero</th>" +
+                            "</tr>"
+            For Each linAd As LINEASVIDAADMINISTRATIVA In lineasVidaAdministrativaEnlazada
+                htmlTabla += "<tr>" +
+                                "<td>" + linAd.IDLINEAVIDAADMIN.ToString + "</td>" +
+                                "<td>" + linAd.DESCRIPCION + "</td>" +
+                                "<td>" + linAd.IDTIPONavigation?.DESCRIPCION + "</td>" +
+                                "<td>" + CDate(linAd.FECHASUBIDA).ToString("dd/MM/yyyy") + "</td>"
+
+                Dim ruta = "/fichero.aspx?id=" + linAd.IDLINEAVIDAADMIN.ToString() + "&cl=" + tsl5.crypt.SHA1("M3Soft." & linAd.IDLINEAVIDAADMIN.ToString) + "&t=LINEAVIDAADMINISTRATIVA"
+
+                If linAd.RUTA IsNot Nothing Then
+                    htmlTabla += "<td><a href='" + ruta + "' style='color:blue;cursor:pointer' target='_blanck'>Visualizar</a></td>" +
+                               "</tr>"
+                Else
+                    htmlTabla += "<td></td>" +
+                               "</tr>"
+                End If
+
+            Next
+
+            htmlTabla += "</table>"
+
+            divTablaLiViAd.InnerHtml = htmlTabla
+        End If
+
+    End Sub
+
+
+
+End Class

.codex-links/WebIntranet/DatosAdministrativos/docencia.aspx

@@ -0,0 +1,32 @@
+<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeBehind="docencia.aspx.vb" Inherits="WebIntranet.docencia" Async="true" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="Content" runat="server">
+    <div class="row pag">
+        <div id="navLateral" class="col-3">
+            <ul>
+                <li id='PuestosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Puestos.aspx">Puestos</a></li>
+                <li id='VidaAdminBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/vidaAdministrativa.aspx">Vida administrativa</a></li>
+                <li id='GradoPersBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/gradoPersonal.aspx">Grado personal</a></li>
+                <li id='FormacionBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/formacion.aspx">Formación</a></li>
+                <li id='docenciaBL' class='obtListLat  listActivo'><a onclick="redirigir()" href="/DatosAdministrativos/docencia.aspx">Docencia</a></li>
+                <li id='IdiomasBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Idioma.aspx">Idiomas</a></li>
+                <li id='TrieniosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/trienios.aspx">Trienios</a></li>
+                <li id='CarreraHoriBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/carHor.aspx">Carrera horizontal</a></li>
+                <li id='TitulacionAcaOfiBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/titulaciones.aspx">Titulación académica oficial</a></li>
+            </ul>
+        </div>
+        <div id="Puestos" class="col">
+            <p class="tituloMobile">Formación</p>
+            <div class="migasDePan">
+                <ul>
+                    <li class="migaActiva">/ Datos administrativos</li>
+                    <li class="migaActiva">/ Docencia</li>
+                </ul>
+            </div>
+            <div style="margin-inline: 50px">
+            </div>
+            <div id="divTabla" runat="server" class="mt-4 divTablas"></div>
+
+        </div>
+    </div>
+
+</asp:Content>

.codex-links/WebIntranet/DatosAdministrativos/docencia.aspx.designer.vb

@@ -0,0 +1,24 @@
+'------------------------------------------------------------------------------
+' <generado automáticamente>
+'     Este código fue generado por una herramienta.
+'
+'     Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
+'     se vuelve a generar el código. 
+' </generado automáticamente>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class docencia
+
+    '''<summary>
+    '''Control divTabla.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents divTabla As Global.System.Web.UI.HtmlControls.HtmlGenericControl
+End Class

.codex-links/WebIntranet/DatosAdministrativos/docencia.aspx.vb

@@ -0,0 +1,54 @@
+Imports Newtonsoft.Json
+Imports System.Net.Http
+Imports System.Net.Http.Headers
+Imports WebIntranet.ClasesDatosAdmin
+Public Class docencia
+    Inherits System.Web.UI.Page
+
+    Protected Async Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        Dim vidaAdministrativaItems As New List(Of WebIntranet.ClasesDatosAdmin.DOCENCIA)
+        Dim TiposActos As New List(Of TIPOAPTOSADMINISTRATIVOS)
+        Dim token As String = Session("token")
+        Dim client As New HttpClient()
+        client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", token)
+        client.BaseAddress = New Uri(ConfigurationManager.AppSettings("SwaggerVB"))
+        Dim idPers = Session("persona").Personas(0).idPersona
+        Dim response = Await client.GetAsync("/api/DOCENCIA/docenciaspersona/" + idPers.ToString)
+
+        If response.IsSuccessStatusCode Then
+            Dim resultContent = Await response.Content.ReadAsStringAsync()
+            vidaAdministrativaItems = If(JsonConvert.DeserializeObject(Of List(Of WebIntranet.ClasesDatosAdmin.DOCENCIA))(resultContent), New List(Of WebIntranet.ClasesDatosAdmin.DOCENCIA)())
+            vidaAdministrativaItems = vidaAdministrativaItems.ToList()
+        Else
+            Console.WriteLine($"Error al cargar Vida Administrativa: {response.StatusCode}")
+        End If
+        Dim htmlTabla = ""
+        If vidaAdministrativaItems.Count > 0 Then
+
+
+            htmlTabla += "<table class='tablaPicadas'>" +
+                         "<tr><th>Denominación</th>" +
+                         "<th>Centro</th>" +
+                         "<th>Fecha</th>" +
+                         "<th>Duración</th>" +
+                         "<th>Tipo de docencia</th></tr>"
+            For Each itm As WebIntranet.ClasesDatosAdmin.DOCENCIA In vidaAdministrativaItems
+                '/fichero.aspx?id=" + linAd.IDLINEAVIDAADMIN.ToString() + "&cl=" + tsl5.crypt.SHA1("M3Soft." & linAd.IDLINEAVIDAADMIN.ToString) + "&t=LINEAVIDAADMINISTRATIVA
+                Dim urlFich = "/fichero.aspx?id=" + itm.IDDOCENCIA.ToString() + "&cl=" + tsl5.crypt.SHA1("M3Soft." & itm.IDDOCENCIA.ToString) + "&t=DOCENCIA"
+                'Dim urlFich = "/Ficheros?tip=VerFrm&id=" + itm.ToString()
+                htmlTabla += "<tr>"
+                htmlTabla += "<td>" + If(itm.RUTA IsNot Nothing, "<a href='" + urlFich + "' target='_blank'>" + itm.DENOMINACION + "</a>", itm.DENOMINACION) + "</td>"
+                htmlTabla += "<td>" + itm.CENTRO + "</td>"
+                htmlTabla += "<td>" + If(itm.FECHAEXPEDICION IsNot Nothing, itm.FECHAEXPEDICION.ToString.Substring(0, 10), "") + "</td>"
+                htmlTabla += "<td style='text-align:center'>" + itm.DURACION.ToString() + "</td>"
+                htmlTabla += "<td style='text-align:center'>" + itm.IDTIPODOCENCIANavigation.DESCRIPCION + "</td></tr>"
+                'htmlTabla += "<td style='text-align:center'>" + If(itm.OFICIAL = True, "<i class=""fa fa-check""></i>", "") + "</td>"
+            Next
+            htmlTabla += "</table>"
+        Else
+            htmlTabla += "<p style='color:red;font-weight:bold'>No se han encontrado resultados</p>"
+        End If
+        divTabla.InnerHtml = htmlTabla
+    End Sub
+
+End Class

.codex-links/WebIntranet/DatosAdministrativos/titulaciones.aspx

@@ -0,0 +1,32 @@
+<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeBehind="titulaciones.aspx.vb" Async="true" Inherits="WebIntranet.titulaciones" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="Content" runat="server">
+            <div class="row pag">
+        <div id="navLateral" class="col-3">
+            <ul>
+                <li id='PuestosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Puestos.aspx">Puestos</a></li>
+                <li id='VidaAdminBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/vidaAdministrativa.aspx">Vida administrativa</a></li>
+                <li id='GradoPersBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/gradoPersonal.aspx">Grado personal</a></li>
+                <li id='FormacionBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/formacion.aspx">Formación</a></li>
+                 <li id='docenciaBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/docencia.aspx">Docencia</a></li>
+                <li id='IdiomasBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Idioma.aspx">Idiomas</a></li>
+                <li id='TrieniosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/trienios.aspx">Trienios</a></li>
+                <li id='CarreraHoriBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/carHor.aspx">Carrera horizontal</a></li>
+                <li id='TitulacionAcaOfiBL' class='obtListLat listActivo'><a onclick="redirigir()" href="/DatosAdministrativos/titulaciones.aspx">Titulación académica oficial</a></li>
+            </ul>
+        </div>
+                <div id="Puestos" class="col">
+                     <p class="tituloMobile">Titulación académica oficial</p>
+                        <div class="migasDePan">
+    <ul>      
+        <li class="migaActiva">/ Datos administrativos</li>
+        <li class="migaActiva">/ Titulación académica oficial</li>
+    </ul>
+</div>
+         
+            <div style="margin-inline: 50px">
+            </div>
+            <div id="divTabla" runat="server" class="mt-4 divTablas"></div>
+
+        </div>
+    </div>
+</asp:Content>

.codex-links/WebIntranet/DatosAdministrativos/titulaciones.aspx.designer.vb

@@ -0,0 +1,24 @@
+'------------------------------------------------------------------------------
+' <generado automáticamente>
+'     Este código fue generado por una herramienta.
+'
+'     Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
+'     se vuelve a generar el código. 
+' </generado automáticamente>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class titulaciones
+
+    '''<summary>
+    '''Control divTabla.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents divTabla As Global.System.Web.UI.HtmlControls.HtmlGenericControl
+End Class

.codex-links/WebIntranet/DatosAdministrativos/titulaciones.aspx.vb

@@ -0,0 +1,46 @@
+Imports System.Net.Http
+Imports System.Net.Http.Headers
+Imports WebIntranet.ClasesDatosAdmin
+
+Public Class titulaciones
+    Inherits System.Web.UI.Page
+
+    Protected Async Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        'If (Session("persona") Is Nothing) Then
+        '    ("Default.aspx", False)
+        'Else
+
+        Dim token As String = Session("token")
+        Dim client As New HttpClient()
+        client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", token)
+        client.BaseAddress = New Uri(ConfigurationManager.AppSettings("SwaggerVB"))
+        Dim idPers = Session("persona").Personas(0).idPersona
+        Dim url As String = "/api/TITULACIONES/GetWithIncludes/" & idPers
+        Dim puestosItems = Await UtilAntifraude.ObtenerObjeto(Of List(Of ClasesDatosAdmin.TITULACIONES))(client, url)
+        Dim htmlTabla = ""
+        If puestosItems.Count > 0 Then
+            htmlTabla += "<table class='tablaPicadas'>" +
+    "<tr><th>Descripción</th>" +
+    "<th>Centro</th>" +
+    "<th>Fecha expedición</th>" +
+    "<th>Fecha incripción provisional</th>" +
+    "<th>Fecha incripción definitiva</th></tr>"
+            For Each itm As ClasesDatosAdmin.TITULACIONES In puestosItems
+                Dim ruta = "/fichero.aspx?id=" + itm.IDTITULACION.ToString() + "&cl=" + tsl5.crypt.SHA1("M3Soft." & itm.IDTITULACION.ToString) + "&t=TITULACION"
+
+                htmlTabla += "<tr>" +
+                    "<td>" + If(itm.RUTA IsNot Nothing, "<a href='" + ruta + "' target='_blank'>" + itm.DESCRIPCION + "</a>", itm.DESCRIPCION) + "</td>" +
+                        "<td>" + itm.CENTRO + "</td>" +
+                        "<td>" + If(itm.FECHA_EXPEDICION IsNot Nothing, itm.FECHA_EXPEDICION.ToString.Substring(0, 10), "") + "</td>" +
+                        "<td>" + If(itm.FECHA_INSCRIPCION_PROVISIONAL IsNot Nothing, itm.FECHA_INSCRIPCION_PROVISIONAL.ToString.Substring(0, 10), "") + "</td>" +
+                        "<td>" + If(itm.FECHA_INSCRIPCION_DEFINITIVA IsNot Nothing, itm.FECHA_INSCRIPCION_DEFINITIVA.ToString.Substring(0, 10), "") + "</td></tr>"
+            Next
+            htmlTabla += "</table>"
+        Else
+            htmlTabla += "<p style='color:red;font-weight:bold'>No se han encontrado resultados</p>"
+        End If
+        divTabla.InnerHtml = htmlTabla
+
+    End Sub
+
+End Class

.codex-links/WebIntranet/DatosAdministrativos/trienios.aspx

@@ -0,0 +1,32 @@
+<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site.master" Async="true" CodeBehind="trienios.aspx.vb" Inherits="WebIntranet.trienios" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="Content" runat="server">
+                <div class="row pag">
+        <div id="navLateral" class="col-3">
+            <ul>
+                <li id='PuestosBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Puestos.aspx">Puestos</a></li>
+                <li id='VidaAdminBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/vidaAdministrativa.aspx">Vida administrativa</a></li>
+                <li id='GradoPersBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/gradoPersonal.aspx">Grado personal</a></li>
+                <li id='FormacionBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/formacion.aspx">Formación</a></li>
+                 <li id='docenciaBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/docencia.aspx">Docencia</a></li>
+                <li id='IdiomasBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/Idioma.aspx">Idiomas</a></li>
+                <li id='TrieniosBL' class='obtListLat listActivo'><a onclick="redirigir()" href="/DatosAdministrativos/trienios.aspx">Trienios</a></li>
+                <li id='CarreraHoriBL' class='obtListLat'><a onclick="redirigir()" href="/DatosAdministrativos/carHor.aspx">Carrera horizontal</a></li>
+                <li id='TitulacionAcaOfiBL' class='obtListLat '><a onclick="redirigir()" href="/DatosAdministrativos/titulaciones.aspx">Titulación académica oficial</a></li>
+            </ul>
+        </div>
+                <div id="Puestos" class="col">
+                     <p class="tituloMobile">Trienios</p>
+                        <div class="migasDePan">
+    <ul>      
+        <li class="migaActiva">/ Datos administrativos</li>
+        <li class="migaActiva">/ Trienios</li>
+    </ul>
+</div>
+         
+            <div style="margin-inline: 50px">
+            </div>
+            <div id="divTabla" runat="server" class="mt-4 divTablas"></div>
+
+        </div>
+    </div>
+</asp:Content>

.codex-links/WebIntranet/DatosAdministrativos/trienios.aspx.designer.vb

@@ -0,0 +1,24 @@
+'------------------------------------------------------------------------------
+' <generado automáticamente>
+'     Este código fue generado por una herramienta.
+'
+'     Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
+'     se vuelve a generar el código. 
+' </generado automáticamente>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Partial Public Class trienios
+
+    '''<summary>
+    '''Control divTabla.
+    '''</summary>
+    '''<remarks>
+    '''Campo generado automáticamente.
+    '''Para modificarlo, mueva la declaración del campo del archivo del diseñador al archivo de código subyacente.
+    '''</remarks>
+    Protected WithEvents divTabla As Global.System.Web.UI.HtmlControls.HtmlGenericControl
+End Class

.codex-links/WebIntranet/DatosAdministrativos/trienios.aspx.vb

@@ -0,0 +1,37 @@
+Imports System.Net.Http
+Imports System.Net.Http.Headers
+
+Public Class trienios
+    Inherits System.Web.UI.Page
+
+    Protected Async Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+
+        Dim token As String = Session("token")
+        Dim client As New HttpClient()
+        client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", token)
+        client.BaseAddress = New Uri(ConfigurationManager.AppSettings("SwaggerVB"))
+        Dim idPers = Session("persona").Personas(0).idPersona
+        Dim url As String = "/api/TRIENIOS/GetWithIncludes/" & idPers
+        Dim puestosItems = Await UtilAntifraude.ObtenerObjeto(Of List(Of ClasesDatosAdmin.TRIENIOS))(client, url)
+        Dim htmlTabla = ""
+        If (puestosItems.Count > 0) Then
+            htmlTabla += "<table class='tablaPicadas'>" +
+    "<tr><th>Grupo</th>" +
+    "<th>Trienios otras administraciones</th>" +
+    "<th>Trienios oficina</th></tr>"
+
+            For Each itm As ClasesDatosAdmin.TRIENIOS In puestosItems
+                htmlTabla += "<tr>" +
+                    "<td>" + itm.IDGRUPONavigation.DESCRIPCION + "</td>" +
+                        "<td>" + itm.TOA.ToString + "</td>" +
+                        "<td>" + itm.TC.ToString + "</td></tr>"
+
+            Next
+            htmlTabla += "</table>"
+        Else
+            htmlTabla += "<p style='color:red;font-weight:bold'>No se han encontrado resultados</p>"
+        End If
+        divTabla.InnerHtml = htmlTabla
+    End Sub
+
+End Class