2023-05-11 09:59:16 -07:00
parent f095dfa790
commit 29686e8c9c
4 changed files with 62 additions and 60 deletions
--- a/RH/Asistencias.aspx.vb
+++ b/RH/Asistencias.aspx.vb
@@ -167,7 +167,11 @@ Partial Class RH_Asistencias
        lrds.Add(rds)
        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim rutardlc = "GPS/Asistencia.rdlc"
+        'Dim rutardlc = "GPS/Asistencia.rdlc"
+        Dim rutardlc As String = UsuarioActual.Empresa.Ruta & "Formatos/Asistencia.rdlc"
+        If Not System.IO.File.Exists(rutardlc) Then
+            rutardlc = "Empresas/Grales/Formatos/Asistencia.rdlc"
+        End If
        ImprimirPDF(rutardlc, lrds, params, "Lista de asistencia")
    End Sub