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
OC/RepOCGuias.aspx.vb
View File

@@ -34,8 +34,8 @@ Partial Class OC_RepOCGuias
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
txtFechaI.Text = Now.AddDays(-10).ToShortDateString
txtFechaF.Text = Now.ToShortDateString
txtFechaI.Text = NowADS().AddDays(-10).ToShortDateString
txtFechaF.Text = NowADS().ToShortDateString
Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 1
@@ -139,10 +139,10 @@ Partial Class OC_RepOCGuias
'params.Add(New ReportParameter("FechaInicio", FechaI))
'params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas\Grales\Formatos\RepOCGuias.rdlc", DTDatos, params, $"RepOCGuias_{Now.ToString("yyyyMMddmmss")}", Formato:=Formato)
ImprimirPDF("Empresas\Grales\Formatos\RepOCGuias.rdlc", DTDatos, params, $"RepOCGuias_{NowADS().ToString("yyyyMMddmmss")}", Formato:=Formato)
End Sub
#End Region