Empresas Zona Horaria

Compras/RepComprasAF.aspx.vb

@@ -56,7 +56,7 @@ Partial Class Compras_RepComprasAF
 #Region "CARGAS"
 
     Private Sub CargaCombos()
-        txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
+        txtFechaI.Text = $"01/{NowADS().Month}/{NowADS().Year}"
 
         DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
         DdlProveedores.DataBind()
@@ -199,10 +199,10 @@ Partial Class Compras_RepComprasAF
         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.ToDateTime.ToShortDateString))
+        params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
 
         params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-        ImprimirPDF("Empresas\Grales\Formatos\RepComprasAF.rdlc", DTDatos, params, "ReporteComprasAF_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
+        ImprimirPDF("Empresas\Grales\Formatos\RepComprasAF.rdlc", DTDatos, params, "ReporteComprasAF_" & NowADS().ToString("yyyyMMddmmss"), Formato:=Formato)
     End Sub
 
 #End Region
@@ -212,7 +212,7 @@ Partial Class Compras_RepComprasAF
         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