App_Code/ClsNominas.vb

@@ -1008,6 +1008,29 @@ Public Class ClsNominas
         Return Retorno
     End Function
 
+    Public Function GetNom_NominasDataXML(CveNomina As Integer, CvePersonal As Integer, CvePeriodo As Integer, CveNominaTipo As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Nom_NominasDataXMLGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("CveNomina", SqlDbType.Int).Value = CveNomina
+            .Add("CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("CvePeriodo", SqlDbType.Int).Value = CvePeriodo
+            .Add("CveNominaTipo", SqlDbType.Int).Value = CveNominaTipo
+            .Add("CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener La Nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function AutorizaNom_Nominas(CvePersonal As Integer, CvePeriodo As Integer, Optional Autorizado As Boolean = True) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Nom_Nominas_Autoriza")

App_Code/ClsPaginas.vb

@@ -6720,6 +6720,10 @@ Public Class ClsPaginas
                 DTPercepciones = Nothing
                 DTDeducciones = Nothing
             End If
+            Dim SalarioDiario As String
+            Dim SDI As String
+            Dim Departamento As String
+            Dim Puesto As String
             'DATOS DEL EMPLEADO 
             If ObjPersonal.GetPersonal(CvePersonal, CveEmpresa) Then
                 RptParametro.Add(New ReportParameter("NoEmpleado", ObjPersonal.Codigo))
@@ -6729,17 +6733,27 @@ Public Class ClsPaginas
                 RptParametro.Add(New ReportParameter("Regimen", ObjPersonal.RegimenContratacion))
                 RptParametro.Add(New ReportParameter("RiesgoPuesto", ObjPersonal.RiesgoPuesto))
                 RptParametro.Add(New ReportParameter("NSS", ObjPersonal.NumeroSS))
-                RptParametro.Add(New ReportParameter("Departamento", ObjPersonal.Departamento))
+                Departamento = ObjPersonal.Departamento
-                RptParametro.Add(New ReportParameter("Puesto", ObjPersonal.Puesto.ToString()))
+                Puesto = ObjPersonal.Puesto.ToString()
                 RptParametro.Add(New ReportParameter("FechaIngreso", ObjPersonal.FechaIngreso.ToString("dd/MM/yyyy")))
                 RptParametro.Add(New ReportParameter("Contrato", ObjPersonal.TipoContrato.ToString))
                 RptParametro.Add(New ReportParameter("Jornada", ObjPersonal.Jornada))
                 RptParametro.Add(New ReportParameter("Periodo", ObjNomina.TipoPeriodo))
-                RptParametro.Add(New ReportParameter("SalarioBase", ObjPersonal.SalarioDiario.ToString))
-                RptParametro.Add(New ReportParameter("SalarioDiarioInt", ObjPersonal.SDI.ToString))
                 RptParametro.Add(New ReportParameter("Banco", ObjPersonal.Banco))
                 RptParametro.Add(New ReportParameter("CLABE", ObjPersonal.CLABE))
-
+                SalarioDiario = ObjPersonal.SalarioDiario.ToString
+                SDI = ObjPersonal.SDI.ToString
+                If ObjNomina.GetNom_NominasDataXML(CveNomina, CvePersonal, CvePeriodo, 1, CveEmpresa) AndAlso ObjNomina.DtResultados.Rows.Count > 0 Then
+                    Dim drow As DataRow = ObjNomina.DtResultados.Rows(0)
+                    SalarioDiario = drow("SalarioDiario").ToString()
+                    SDI = drow("NomRSalarioDiarioIntegrado").ToString()
+                    Departamento = drow("NomRDepartamento").ToString()
+                    Puesto = drow("NomRPuesto").ToString()
+                End If
+                RptParametro.Add(New ReportParameter("SalarioBase", SalarioDiario))
+                RptParametro.Add(New ReportParameter("SalarioDiarioInt", SDI))
+                RptParametro.Add(New ReportParameter("Departamento", Departamento))
+                RptParametro.Add(New ReportParameter("Puesto", Puesto))
                 'DATOS NOMINA
                 If ObjNomina.GetNom_Nominas(CveNomina, CvePersonal, CvePeriodo, 1, CveEmpresa) Then
                         RptParametro.Add(New ReportParameter("ReciboNomina", ObjNomina.Folio.ToString))

Nomina/Nomina.aspx.cs

@@ -2776,8 +2776,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
         //NomAutorizado = gvrow.DataKey("NomAutorizado").ToUpper().Contiene(new string[] { "1", "TRUE" });
         SRCvePersonal = TxtCvePersonal.Text.ToEntero();
         showhideaccionesSR();
-        HypXmlSobreRecibo.Attributes.Add("onclick", string.Format("GETPDF({0},{1})", SRCvePersonal, CvePeriodoSeleccionado));
+        HypXmlSobreRecibo.Attributes.Add("onclick", string.Format("GETXML({0},{1})", SRCvePersonal, CvePeriodoSeleccionado));
-        HyppdfSobreRecibo.Attributes.Add("onclick", string.Format("GETXML({0},{1})", SRCvePersonal, CvePeriodoSeleccionado));
+        HyppdfSobreRecibo.Attributes.Add("onclick", string.Format("GETPDF({0},{1})", SRCvePersonal, CvePeriodoSeleccionado));
 
         DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal));
         string Nombre = "";