From 548a4fa868f9b6955c7c0b7023b7487bd303ff15 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 24 Jun 2025 19:19:16 -0700
Subject: [PATCH] -

---
 App_Code/ClsPaginas.vb | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 75e9ec9a6..5753a6ec5 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1022,7 +1022,7 @@ Public Class ClsPaginas
 
                             For Each file As String In files
                                 Dim fi As IO.FileInfo = New IO.FileInfo(file)
-                                If fi.LastAccessTime <DateTime.Now.AddMonths(-6) Then fi.Delete()
+                                If fi.LastAccessTime < DateTime.Now.AddMonths(-6) Then fi.Delete()
                             Next
                         Next
                     End If
@@ -8521,12 +8521,10 @@ Public Class ClsPaginas
                             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
+                            SalarioDiario = ObjNomina.SalarioDiario.ToString
+                            SDI = ObjNomina.SDI.ToString
                             RptParametro.Add(New ReportParameter("ReciboNomina", ObjNomina.Folio.ToString))
                             RptParametro.Add(New ReportParameter("Serie", ObjNomina.Serie))
                             RptParametro.Add(New ReportParameter("Fecha", ObjNomina.Fecha.ToString))
@@ -8544,6 +8542,10 @@ Public Class ClsPaginas
                         Else
                             TieneError = True
                         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))
                     Else
                         TieneError = True
                     End If