cambios en apidenuncias

.codex-links/WebIntranet/Nominas.aspx.vb

@@ -0,0 +1,85 @@
+Imports System.Net
+Imports System.Net.Security
+
+Public Class Nominas
+    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
+
+    End Sub
+
+    Private Sub BuscarNominas_Click(sender As Object, e As EventArgs)
+        Dim sessionUsuario As String = HttpContext.Current.Session("usuario")
+        Dim Anno = inAnno.Value ' pedir año
+        'Dim Nif = Session("usuario") ' se obtiene de la identificacion
+        Dim nominas = NominasPersona(Anno) ' datos para el combo de nominas
+        Dim htmlLista = ""
+
+        For Each nomina As NominaTrabajador In nominas
+            htmlLista += "<li class=""d-flex align-items-center"" onclick=""mostrarPDF('" + nomina.idNominaTrabajador + "')""><p>" + nomina.Descripcion + "</p></li>"
+        Next
+        htmlLista += ""
+
+        lisNominasTrabajador.InnerHtml = htmlLista
+
+    End Sub
+
+
+    Private Function NominasPersona(anno As String) As List(Of NominaTrabajador)
+        Dim usuario As String = "tecnosis"
+        Dim contraseña As String = "patata2022"
+        Dim sessionUsuario As String = HttpContext.Current.Session("usuario")
+
+        ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(Function() True)
+        Dim url3 As String = ConfigurationManager.AppSettings("RutaRes").ToString + "/api/NominasTrabajadorAnno?Nif=" + sessionUsuario + "&Anno=" + anno
+        Dim clienteHTTP3 As New Net.WebClient()
+        clienteHTTP3.Encoding = System.Text.Encoding.UTF8
+        Dim respuesta3 As String = clienteHTTP3.DownloadString(url3)
+        Dim deserializador3 As New System.Web.Script.Serialization.JavaScriptSerializer()
+        deserializador3.MaxJsonLength = Integer.MaxValue
+        Dim listaNominas As List(Of NominaTrabajador) =
+        deserializador3.Deserialize(Of List(Of NominaTrabajador))(respuesta3)
+        Return listaNominas
+
+    End Function
+
+    <System.Web.Services.WebMethod()>
+    Public Shared Function ObtenerPdf(idNomina As String) As String
+        Dim sessionUsuario As String = HttpContext.Current.Session("usuario")
+        Dim nif = sessionUsuario
+        ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(Function() True)
+        Dim url3 As String = ConfigurationManager.AppSettings("RutaRes").ToString + "/api/NominaPdf?Nif=" + nif + "&Idnomina=" + idNomina
+        Dim credenciales3 As New Net.CredentialCache()
+        Dim clienteHTTP3 As New Net.WebClient()
+        clienteHTTP3.Encoding = System.Text.Encoding.UTF8
+        clienteHTTP3.Credentials = credenciales3
+        Dim respuesta3 As String = clienteHTTP3.DownloadString(url3)
+        Dim deserializador3 As New System.Web.Script.Serialization.JavaScriptSerializer()
+        deserializador3.MaxJsonLength = 50000000
+        Dim sRespuesta3 As String = deserializador3.Deserialize(Of String)(respuesta3)
+
+        Return "[{""nombre"":""" + nif + "_" + idNomina + ".pdf"",""base64String"":""" + sRespuesta3 + """}]"
+
+    End Function
+
+    Protected Sub Unnamed_ServerClick(sender As Object, e As EventArgs)
+        Dim sessionUsuario As String = HttpContext.Current.Session("usuario")
+        Dim Anno = inAnno.Value ' pedir año
+        'Dim Nif = Session("usuario") ' se obtiene de la identificacion
+        Dim nominas = NominasPersona(Anno) ' datos para el combo de nominas
+        Dim htmlLista = ""
+
+        For Each nomina As NominaTrabajador In nominas
+            htmlLista += "<li class=""d-flex align-items-center"" onclick=""mostrarPDF('" + nomina.idNominaTrabajador + "','" + nomina.Descripcion + "')""><p>" + nomina.Descripcion + "</p></li>"
+        Next
+        htmlLista += ""
+        If htmlLista = "" Then
+            htmlLista += "<p style=""text-align:center;color:red;font-weight:bold"">Este año no contiene nóminas</p>"
+        End If
+        lisNominasTrabajador.InnerHtml = htmlLista
+
+    End Sub
+End Class