From f8d0dc9375d9656e2abb532cdd5015868c17620d Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Wed, 19 Jun 2024 20:33:36 -0700
Subject: [PATCH]

---
 App_Code/ClsNominas.vb | 20 ++++++++++++++
 Nomina/Nomina.aspx     | 62 +++++++++++++++++++++++++++++++++++++++++-
 Nomina/Nomina.aspx.cs  |  7 +++++
 RH/Personal.aspx       | 20 ++++++++++++++
 RH/Personal.aspx.vb    | 37 ++++++++++++++++++++++++-
 5 files changed, 144 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 9d19306d1..d29728f94 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -3265,6 +3265,26 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
+    Public Function GetMovtoPermanenteSaldos(CveEmpresa As Integer, CvePersonal As Integer, CveMovtoPermanente As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_GetMovtoPermanenteSaldos", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveMovtoPermanente", SqlDbType.Int).Value = CveMovtoPermanente
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch sqEx As SqlException
+            retorno = False
+            OnError("Ocurrió un error al obtener los Movtos Permanentes Saldos.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            retorno = False
+            OnError("Ocurrió un error al obtener los Movtos Permanentes Saldo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
     Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As Date, estatus As Boolean, CveCuenta As Integer, Optional CveIE As Integer = -1) As Integer
         Dim retorno As Integer = 0
         DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure)
diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx
index 2ffbc6633..81df2ceb8 100644
--- a/Nomina/Nomina.aspx
+++ b/Nomina/Nomina.aspx
@@ -1554,7 +1554,67 @@
                                                                         <div class="text-right"></div>
                                                                     </div>
                                                                 </asp:Panel>
-
+                                                                
+                                                                    <asp:GridView ID="GVMovtoPermanenteSaldos" runat="server" GridLines="None" CssClass ="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False"
+                                                                        datakeynames="CveTipo,Nombre,Concepto,CveMovtoPermanente,FechaFin,CvePeriodo,NoPagos,ImportePagos,Pagado,Total,Saldo,Fecha">
+                                                                        <Columns> 
+                                                                            <asp:TemplateField HeaderText="Nombre">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblnombre" runat="server" Text='<%# Eval("Nombre")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>
+                                                                            <%--<asp:TemplateField HeaderText="Concepto">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblconcepto" runat="server" Text='<%# Eval("Concepto")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>
+                                                                            <asp:TemplateField HeaderText="Cve Movto Permanente">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblcveMovtoPermanente" runat="server" Text='<%# Eval("CveMovtoPermanente")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>--%>
+                                                                            <%--<asp:TemplateField HeaderText="Fecha Fin">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblfechaFin" runat="server" Text='<%# Eval("FechaFin")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>--%>
+                                                                            <%--<asp:TemplateField HeaderText="Cve Periodo">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblcvePeriodo" runat="server" Text='<%# Eval("CvePeriodo")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>--%>
+                                                                            <asp:TemplateField HeaderText="Fecha">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblfecha" runat="server" Text='<%# Eval("Fecha")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>
+                                                                            <asp:TemplateField HeaderText="No Pagos">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblnoPagos" runat="server" Text='<%# Eval("NoPagos")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>
+                                                                            <asp:TemplateField HeaderText="Importe Pago">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblimportePagos" runat="server" Text='<%# Eval("ImportePagos","{0:N2}")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>
+                                                                            <asp:TemplateField HeaderText="Pagado">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblpagado" runat="server" Text='<%# Eval("Pagado","{0:N2}")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>
+                                                                            <asp:TemplateField HeaderText="Total">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lbltotal" runat="server" Text='<%# Eval("Total","{0:N2}")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>
+                                                                            <asp:TemplateField HeaderText="Saldo">
+                                                                                <ItemTemplate>
+                                                                                    <asp:Label ID="lblsaldo" runat="server" Text='<%# Eval("Saldo","{0:N2}")%>'> </asp:Label>
+                                                                                </ItemTemplate>
+                                                                            </asp:TemplateField>
+                                                                        </Columns>
+                                                                    </asp:GridView>
                                                             </div>
                                                             <div class="modal-footer">
                                                                 <asp:LinkButton ID="LnkAddMovto" OnClick="LnkAddMovto_Click" ValidationGroup="GrpGuardarMovyoPerma" CssClass="btn btn-primary" runat="server">Guardar</asp:LinkButton>
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index 190682ca2..5396a1bc7 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -7196,6 +7196,13 @@ public partial class Nomina_Nomina2 : ClsPaginas
             DdlTipo.SelectedValueExist(tipo);
             DdlTipo_SelectedIndexChanged(null, null);
         }
+        using (ClsNominas ObjMovt = new ClsNominas())
+        {
+            ObjMovt.GetMovtoPermanenteSaldos(UsuarioActual.CveEmpresa,SRCvePersonal, CcveMovtoPermanente);
+            GVMovtoPermanenteSaldos.DataSource = ObjMovt.DtResultados;
+            GVMovtoPermanenteSaldos.DataBind();
+        }
+        
         CargaConcepto();
         DdlConcepto.SelectedValueExist(cveConcepto);
         TxtDescripcion.Text = descripcion.ToString();
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 492e18832..c433299bf 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -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({
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 0c5440285..4b10b8342 100644
--- a/RH/Personal.aspx.vb
+++ b/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