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

8
RH/RepDocumentacionVencida.aspx.vb
View File

@@ -45,8 +45,8 @@ Partial Class RH_RepDocumentacionVencida
Private Sub RH_DocumentacionVencida_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CargaCombos()
TxtFechaI.Text = Now.AddMonths(-3).ToString("dd/MM/yyyy")
TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
TxtFechaI.Text = NowADS().AddMonths(-3).ToString("dd/MM/yyyy")
TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
LnkDescargarExcel.Visible = False
End If
'ExportaExcel()
@@ -194,7 +194,7 @@ Partial Class RH_RepDocumentacionVencida
Dim documento As ExcelFile
Dim ws As ExcelWorksheet
Dim NombreReporte As String = "REPORTE DE DOCUMENTACIÓN"
Dim TextoFecha As String = "Fecha: " & Now.ToString(" dd/MM/yyyy hh:mm:ss tt")
Dim TextoFecha As String = "Fecha: " & NowADS().ToString(" dd/MM/yyyy hh:mm:ss tt")
documento = New ExcelFile
ws = documento.Worksheets.Add("ReporteDocumentacion")
@@ -253,7 +253,7 @@ Partial Class RH_RepDocumentacionVencida
Response.Clear()
Response.ContentType = "application/force-download"
Response.AddHeader("content-disposition", "attachment; filename=" & NombreReporte & "_" & Now.ToString("yyyyMMddhhmmss") & ".xlsx")
Response.AddHeader("content-disposition", "attachment; filename=" & NombreReporte & "_" & NowADS().ToString("yyyyMMddhhmmss") & ".xlsx")
Response.BinaryWrite(bytesInStream)
Response.End()
memoryStream.Dispose()