AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2024-06-19 20:33:36 -07:00
parent 477f8fa135
commit f8d0dc9375
5 changed files with 144 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
RH/Personal.aspx
View File

@@ -2433,6 +2433,11 @@
<asp:LinkButton ID="LbMail" Visible="False" runat="server" Height="22px" OnClick="LbMail_Click"><img alt="Enviar por Correo" src="/Imagenes/email_icon.gif" width="22"/></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:LinkButton ID="LbXML" runat="server" Height="22px" OnClick="LbXML_Click">XML</asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<ItemTemplate>
<asp:LinkButton ID="LbPDF" Visible="False" runat="server" Height="22px" OnClick="LbPDF_Click"><img alt="Descargar PDF" src="/Imagenes/PDF-Download2.gif" width="22"/></asp:LinkButton>
@@ -2450,6 +2455,7 @@
</div>
</div>
<div style="display:none"> <span class="ltlxml"><asp:Literal ID="LtlXml" runat="server"></asp:Literal></span></div>
</ContentTemplate>
</ajax:TabPanel>
@@ -5923,6 +5929,20 @@
<script>
function Savexml(filename, data) {
var blob = new Blob([data], { type: 'text/xml' });
if (window.navigator.msSaveOrOpenBlob) {
window.navigator.msSaveBlob(blob, filename);
}
else {
var elem = window.document.createElement('a');
elem.href = window.URL.createObjectURL(blob);
elem.download = filename;
document.body.appendChild(elem);
elem.click();
document.body.removeChild(elem);
}
}
function pageLoad() {
$(document).ready(function () {
$('#<%=GvPersonalAltas.ClientID%>').ADScroll({

37
RH/Personal.aspx.vb
View File

@@ -6,6 +6,7 @@ Imports System.IO
Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports System.Globalization
Imports System.Data.SqlTypes
Partial Class RH_Personal
Inherits ClsPaginas
@@ -3713,7 +3714,41 @@ Partial Class RH_Personal
Dim LB As LinkButton = CType(sender, LinkButton)
ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "recibo")
ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "recibo")
'ImprimirbytesPDF(GeneraPDFNomina(CvePersonal, LB.CommandArgument.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta), "recibo")
End Sub
Protected Sub LbXML_Click(sender As Object, e As EventArgs)
Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow)
If gvr.DataKey("SeTimbro") = "True" Then
Dim NombreComercial As String = UsuarioActual.Empresa.Empresa
Dim SerieFolio As String = gvr.DataKey("SerieFolio").ToString()
Dim Destinatario As String = gvr.DataKey("Correo").ToString()
Dim Personal As String = gvr.DataKey("Nombre").ToString()
Dim fechai As String = gvr.DataKey("FechaInicio").ToString().ToDate.ToShortDateString
Dim fechaf As String = gvr.DataKey("FechaFin").ToString().ToDate.ToShortDateString
Dim cvePeriodo As Integer = gvr.DataKey("CvePeriodo").ToString().ToEntero()
Dim Ruta = UsuarioActual.Empresa.Ruta
Dim PathXML = String.Format("{0}XML\Nomina\{1}.xml", Ruta, SerieFolio)
Dim Xmlname = SerieFolio
Dim script As String = ""
If Not String.IsNullOrEmpty(PathXML) AndAlso System.IO.File.Exists(PathXML) Then
LtlXml.Text = System.IO.File.ReadAllText(PathXML)
script = String.Format("Savexml(""{0} {1}.xml"", $('.ltlxml').html());", Xmlname, LtlPersonal.Text)
End If
If script.Trim().Length > 0 Then
RegistraScript(script)
Else
Alert($"No se encontró el archivo")
End If
End If
End Sub