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

6
Inventarios/RepEntregasForaneas.aspx.vb
View File

@@ -219,7 +219,7 @@ Partial Class Inventarios_RepEntregasForaneas
End Sub
Private Sub InicializaFechas()
Dim FI As New DateTime(DateTime.Now.Year, 1, 1)
Dim FI As New DateTime(NowADS().Year, 1, 1)
FechaInicio = FI.ToShortDateString
FechaFin = DateTime.Today.ToShortDateString
@@ -738,12 +738,12 @@ Partial Class Inventarios_RepEntregasForaneas
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", $" <b>Estado:</b>{Estatus} <b>Paqueteria:</b>{Paqueteria} <b>Tipo:</b>{Tipo}"))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF(RutaPDF, DTDatos, params, "RepEntregasForaneas" & Now.ToString("yyyyMMddhhmmss"), Formato)
ImprimirPDF(RutaPDF, DTDatos, params, "RepEntregasForaneas" & NowADS().ToString("yyyyMMddhhmmss"), Formato)
End Sub