cambios en apidenuncias
This commit is contained in:
132
.codex-links/WebIntranet/gestionTeletrabajoPers.aspx.vb
Normal file
132
.codex-links/WebIntranet/gestionTeletrabajoPers.aspx.vb
Normal file
@@ -0,0 +1,132 @@
|
||||
Imports System.Net
|
||||
Imports System.Net.Http
|
||||
Imports System.Net.Security
|
||||
Imports System.Threading.Tasks
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
Public Class gestionTeletrabajoPers
|
||||
Inherits System.Web.UI.Page
|
||||
|
||||
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||
If Session("usuario") = "" Then
|
||||
Response.Redirect("default.aspx")
|
||||
End If
|
||||
If Session("modo") = "PERSONAL" AndAlso Session("persona").Personas(0).Roll = "SUPERVISORDETODO" Then
|
||||
|
||||
Dim persons As List(Of Models.Personal) = Session("persona").Personas
|
||||
Dim listaPersonas As New List(Of Models.Personal)
|
||||
Dim listDni = Session("usuariosSeleccionados")
|
||||
For Each pers As String In listDni
|
||||
Dim per = persons.FirstOrDefault(Function(x) x.Dni = pers)
|
||||
listaPersonas.Add(per)
|
||||
Next
|
||||
Dim usuario = Session("persona").Personas(0)
|
||||
listaPersonas.Add(usuario)
|
||||
listaPersonas = listaPersonas.OrderBy(Function(x) x.Nombre).ToList
|
||||
Dim html = ""
|
||||
html += "<select id='selPer' class='selectIn w-100' onchange='obtenerTT()'>"
|
||||
For Each itm As Models.Personal In listaPersonas
|
||||
html += "<option value='" + itm.idPersona.ToString() + "'>" + itm.Nombre + "</option>"
|
||||
Next
|
||||
html += "</select>"
|
||||
selPerDiv.InnerHtml = html
|
||||
|
||||
'cbPersonas.DataSource = listaPersonas.OrderBy(Function(x) x.Nombre)
|
||||
'cbPersonas.DataBind()
|
||||
Else
|
||||
Response.Redirect("default.aspx")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
<System.Web.Services.WebMethod()>
|
||||
Public Shared Async Function AnadirEditarTT(idTT As String, Fei As String, Fef As String, motivo As String, idPers As String) As Task(Of String)
|
||||
|
||||
ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(Function() True)
|
||||
Dim clienteHTTP1 As New Net.WebClient()
|
||||
clienteHTTP1.Encoding = System.Text.Encoding.UTF8
|
||||
|
||||
Dim persons As List(Of Models.Personal) = HttpContext.Current.Session("persona").Personas
|
||||
Dim idp = idPers ' persons.FirstOrDefault(Function(x) x.Dni = idPers).idPersona
|
||||
If idp <> Nothing Then
|
||||
Dim objetoConsulta As New Models.TramoTeletrabajoExcepcion
|
||||
objetoConsulta.fechaInicio = New Date(Convert.ToInt64(Fei))
|
||||
objetoConsulta.fechaFin = New Date(Convert.ToInt64(Fef))
|
||||
objetoConsulta.idExcepTel = CInt(idTT)
|
||||
objetoConsulta.idPersona = idp
|
||||
objetoConsulta.motivo = motivo
|
||||
|
||||
|
||||
Dim jsonConsulta As String = JsonConvert.SerializeObject(objetoConsulta)
|
||||
Dim url As String = ConfigurationManager.AppSettings("RutaRes").ToString + "/api/AnadirEditarExcepcionTT"
|
||||
|
||||
|
||||
Dim clienteHTTP As New HttpClient
|
||||
Dim contenidoConsultaHTTP As New StringContent(jsonConsulta, Encoding.UTF8, "application/json")
|
||||
Dim respuestaHTTP As HttpResponseMessage = Await clienteHTTP.PostAsync(url, contenidoConsultaHTTP).ConfigureAwait(False)
|
||||
Dim sRespuesta As String = Await respuestaHTTP.Content.ReadAsStringAsync().ConfigureAwait(False)
|
||||
Dim settings As New Newtonsoft.Json.JsonSerializerSettings()
|
||||
settings.CheckAdditionalContent = True
|
||||
Dim objetoDatos As Models.resultadoEditarPicadasAnuladas =
|
||||
Newtonsoft.Json.JsonConvert.DeserializeObject(Of Models.resultadoEditarPicadasAnuladas)(sRespuesta, settings)
|
||||
Return sRespuesta
|
||||
Else
|
||||
Dim result = New Models.resultadoEditarPicadasAnuladas With {
|
||||
.resultado = 1,
|
||||
.mensaje = "La persona a la que corresponde esta excepción no es accesible en este momento"
|
||||
}
|
||||
Dim JsonResult = Newtonsoft.Json.JsonConvert.SerializeObject(result)
|
||||
Return JsonResult
|
||||
End If
|
||||
End Function
|
||||
<System.Web.Services.WebMethod()>
|
||||
Public Shared Async Function ObtTT(idPer As String, todas As Boolean) As Task(Of String)
|
||||
|
||||
ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(Function() True)
|
||||
Dim url3 As String = ConfigurationManager.AppSettings("RutaRes").ToString + "/api/listaExcepciones?id=" + idPer + "&todas=" + todas.ToString()
|
||||
Dim clienteHTTP3 As New Net.WebClient()
|
||||
clienteHTTP3.Encoding = System.Text.Encoding.UTF8
|
||||
Dim respuesta3 As String = clienteHTTP3.DownloadString(url3)
|
||||
Return respuesta3
|
||||
End Function
|
||||
<System.Web.Services.WebMethod()>
|
||||
Public Shared Async Function EliminarTT(idTT As Integer) As Task(Of String)
|
||||
|
||||
ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(Function() True)
|
||||
Dim url3 As String = ConfigurationManager.AppSettings("RutaRes").ToString + "/api/EliminarExcepcion?id=" + idTT.ToString()
|
||||
Dim clienteHTTP3 As New Net.WebClient()
|
||||
clienteHTTP3.Encoding = System.Text.Encoding.UTF8
|
||||
Dim respuesta3 As String = clienteHTTP3.DownloadString(url3)
|
||||
Return respuesta3
|
||||
End Function
|
||||
<System.Web.Services.WebMethod()>
|
||||
Public Shared Async Function TTbyId(idTT As Integer, idPer As String) As Task(Of String)
|
||||
|
||||
ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(Function() True)
|
||||
Dim url3 As String = ConfigurationManager.AppSettings("RutaRes").ToString + "/api/listaExcepciones?id=" + idPer + "&todas=true"
|
||||
Dim clienteHTTP3 As New Net.WebClient()
|
||||
clienteHTTP3.Encoding = System.Text.Encoding.UTF8
|
||||
Dim respuesta3 As String = clienteHTTP3.DownloadString(url3)
|
||||
Dim settings As New Newtonsoft.Json.JsonSerializerSettings()
|
||||
settings.CheckAdditionalContent = True
|
||||
Dim objetoDatos As Models.ResultadoListadoExcepciones =
|
||||
Newtonsoft.Json.JsonConvert.DeserializeObject(Of Models.ResultadoListadoExcepciones)(respuesta3, settings)
|
||||
Dim TT = objetoDatos.listado.FirstOrDefault(Function(x) x.idExcepTel = idTT)
|
||||
If TT IsNot Nothing Then
|
||||
Dim listaTT = New List(Of Models.TramoTeletrabajoExcepcion)
|
||||
listaTT.Add(TT)
|
||||
Dim resultado = New Models.ResultadoListadoExcepciones With {
|
||||
.listado = listaTT,
|
||||
.resultado = 0,
|
||||
.mensaje = ""
|
||||
}
|
||||
Return JsonConvert.SerializeObject(resultado)
|
||||
Else
|
||||
Dim resultado = New Models.ResultadoListadoExcepciones With {
|
||||
.resultado = 1,
|
||||
.mensaje = "No existe esta excepción"
|
||||
}
|
||||
Return JsonConvert.SerializeObject(resultado)
|
||||
End If
|
||||
Return respuesta3
|
||||
End Function
|
||||
End Class
|
||||
Reference in New Issue
Block a user