AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
RH/RepPersonalInconsistencias.aspx.vb
View File

@@ -205,15 +205,15 @@ Partial Class RH_RepPersonalInconsistencias
GenerarPDF(2)
End Sub
Protected Sub ImgExcel0_Click(sender As Object, e As EventArgs) Handles ImgExcel0.Click
'GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString)
'GvDatos.ExportToExcel("ReporteVentas" & NowADS().ToShortDateString)
GenerarPDF(0, "Excel")
End Sub
Protected Sub ImgExcel1_Click(sender As Object, e As EventArgs) Handles ImgExcel1.Click
'GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString)
'GvDatos.ExportToExcel("ReporteVentas" & NowADS().ToShortDateString)
GenerarPDF(1, "Excel")
End Sub
Protected Sub ImgExcel2_Click(sender As Object, e As EventArgs) Handles ImgExcel2.Click
'GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString)
'GvDatos.ExportToExcel("ReporteVentas" & NowADS().ToShortDateString)
GenerarPDF(2, "Excel")
End Sub
@@ -254,11 +254,11 @@ Partial Class RH_RepPersonalInconsistencias
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF($"Empresas/Grales/Formatos/{rdlc}", DT, params, String.Format("{0}-{1}", NombreReporte, Now.ToDateTime.ToShortDateString), Formato:=Formato)
ImprimirPDF($"Empresas/Grales/Formatos/{rdlc}", DT, params, String.Format("{0}-{1}", NombreReporte, NowADS().ToDateTime.ToShortDateString), Formato:=Formato)
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
@@ -299,15 +299,15 @@ Partial Class RH_RepPersonalInconsistencias
Protected Sub BtnConsultarCumpleanios_Click(sender As Object, e As EventArgs)
Dim FechaInicio As Date = Now
Dim FechaFin As Date = Now
Dim FechaInicio As Date = NowADS()
Dim FechaFin As Date = NowADS()
Dim MesajeError As String = ""
Try
If txtFechaI.Text.Length = 5 Then
FechaInicio = Date.Parse($"{txtFechaI.Text}/{Now.Year}")
FechaInicio = Date.Parse($"{txtFechaI.Text}/{NowADS().Year}")
Else
MesajeError = "Fecha inicio formato incorrecto. "
End If
@@ -318,7 +318,7 @@ Partial Class RH_RepPersonalInconsistencias
Try
If txtFechaF.Text.Length = 5 Then
FechaFin = Date.Parse($"{txtFechaF.Text}/{Now.Year}")
FechaFin = Date.Parse($"{txtFechaF.Text}/{NowADS().Year}")
Else
MesajeError = $"{MesajeError }Fecha fin formato incorrecto"
End If