Empresas Zona Horaria

Contabilidad/FiltraPolizas.aspx.vb

@@ -38,9 +38,9 @@ Partial Class Contabilidad_FiltraPolizas
 
         If Not Page.IsPostBack Then
             ViewState("Orden") = ""
-            DdlPeriodo.SelectedValue = Now.Month.ToString
-            TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString
-            TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString
+            DdlPeriodo.SelectedValue = NowADS().Month.ToString
+            TxtFechaICredito.Text = NowADS().FirstDayOfMonth.ToShortDateString
+            TxtFechaFCredito.Text = NowADS().LastDayOfMonth.ToShortDateString
 
             If UsuarioActual.Empresa.UsaContabilidad OrElse UsuarioActual.Empresa.TipoContabilidad > 0 Then
 
@@ -227,7 +227,7 @@ Partial Class Contabilidad_FiltraPolizas
 
 
             params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+            params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Ejercicio", DdlEjercicio.SelectedItem.ToString))
             params.Add(New ReportParameter("Periodo", DdlPeriodo.SelectedItem.ToString))
 
@@ -295,7 +295,7 @@ Partial Class Contabilidad_FiltraPolizas
         Dim ObjIE As New ClsBancos()
         Dim pathPoliza As String = ""
         Dim TieneComprobante As String = ""
-        Tick = DateTime.Now.Ticks.ToString
+        Tick = NowADS().Ticks.ToString
         Dim ObjContabilidad As New ClsContabilidad
         Dim CvePrePoliza As Integer
         Dim PolizasSinComprobante As String = "Polizas sin comprobante: <br/>"