RH/Personal.aspx.vb

@@ -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