Empresas Zona Horaria

Ventas/RepRecuperacion.aspx.vb

@@ -146,8 +146,8 @@ Partial Class Ventas_RepRecuperacion
         DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlClienteClasificacion.DataBind()
 
-        txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
-        txtFechaF.Text = Now.ToShortDateString
+        txtFechaI.Text = $"01/{NowADS().Month}/{NowADS().Year}"
+        txtFechaF.Text = NowADS().ToShortDateString
 
 
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -299,10 +299,10 @@ Partial Class Ventas_RepRecuperacion
             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", Now.ToDateTime.ToShortDateString))
+            params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            ImprimirPDF(RutaPDF, DtDatos, params, String.Format("ReporteRecuperacion-{0}", Now.ToDateTime.ToShortDateString), Formato)
+            ImprimirPDF(RutaPDF, DtDatos, params, String.Format("ReporteRecuperacion-{0}", NowADS().ToDateTime.ToShortDateString), Formato)
         Else
             Alert("No hay datos consultados.", TipoMensaje.MsgAdvertencia)
         End If
@@ -316,7 +316,7 @@ Partial Class Ventas_RepRecuperacion
         TipoCambio = RblTipoCambio.SelectedValue.ToEntero
         If TipoCambio = 3 Then
             LiEspecifico.Visible = True
-            TCEspecifico = GlobalTipoCambio(Now).ToDecimal
+            TCEspecifico = GlobalTipoCambio(NowADS()).ToDecimal
             TxtEspecifico.Text = TCEspecifico.ToString
         Else
             LiEspecifico.Visible = False