Empresas Zona Horaria

Compras/RepProductosServicios.aspx.vb

@@ -156,8 +156,8 @@ Partial Class Compras_RepProductosServicios
         RowActivoFijo.Visible = True
 
         'Carga Fechas
-        txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
-        txtFechaF.Text = Now.ToShortDateString
+        txtFechaI.Text = FirstDayOfMonth(NowADS().AddMonths(-5)).ToShortDateString
+        txtFechaF.Text = NowADS().ToShortDateString
 
         TipoCambio = 1
         TCEspecifico = 0
@@ -390,7 +390,7 @@ Partial Class Compras_RepProductosServicios
         If RblTipoCambio.SelectedValue.ToEntero = 3 Then
             Dim TipoCambio As Double
             LiEspecifico.Visible = True
-            TipoCambio = GlobalTipoCambio(Now)
+            TipoCambio = GlobalTipoCambio(NowADS())
             TxtEspecifico.Text = TipoCambio.ToString
         Else
             LiEspecifico.Visible = False
@@ -416,7 +416,7 @@ Partial Class Compras_RepProductosServicios
 
     Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
         GeneraPDF("Excel")
-        'GvDatos.ExportToExcel("ReporteProductosServicios" & Now.ToShortDateString)
+        'GvDatos.ExportToExcel("ReporteProductosServicios" & NowADS().ToShortDateString)
     End Sub
 
     Protected Sub GeneraPDF(Optional Formato As String = "PDF")
@@ -439,7 +439,7 @@ Partial Class Compras_RepProductosServicios
         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", DateTime.Now.ToString()))
+        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString()))
 
         params.Add(New ReportParameter("Filtros", $"{Grupo}{Proveedor}{FechaInicio}{FechaFin}{TipoGasto}{Categoria}{Clasificacion}{PS}{Proyecto}{Estatus}{Usuario}{TipoAF}{SubTipoAF}{AF}"))
         'params.Add(New ReportParameter("Proveedor", DdlProveedor.SelectedItem.Text))