-

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