Empresas Zona Horaria

Bancos/PopIEVentas.aspx.vb

@@ -311,7 +311,7 @@ Partial Class Bancos_PopIEVentas
             ArrIEFuncionariosEmpleados = New ArrayList()
             RFCCliente = "-1"
 
-            TxtFechaDocumento.Text = Now.ToShortDateString
+            TxtFechaDocumento.Text = NowADS().ToShortDateString
 
             If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero > 0 Then
                 CveVenta = Request("CveVenta").ToEntero
@@ -349,8 +349,8 @@ Partial Class Bancos_PopIEVentas
 
 
 
-            Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, Now.Day - 1, Now.Day)
-            Fecha = (dia.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString).ToDate
+            Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, NowADS().Day - 1, NowADS().Day)
+            Fecha = (dia.ToString + "/" + NowADS().Month.ToString + "/" + NowADS().Year.ToString).ToDate
 
             If CveMoneda = 2 Then
                 ChkPagarPesos.Visible = True
@@ -1389,7 +1389,7 @@ Partial Class Bancos_PopIEVentas
         TxtFolio.Text = ""
         TxtObservaciones.Text = ""
         TxtImporte.Text = ""
-        TxtFechaDocumento.Text = Now.ToShortDateString
+        TxtFechaDocumento.Text = NowADS().ToShortDateString
         ChkComplementoPago.Checked = False
 
         UpDatos.Update()
@@ -1408,7 +1408,7 @@ Partial Class Bancos_PopIEVentas
         'For i = 0 To CveVentas.Count - 1
         Dim ObjBancos As New ClsBancos
 
-        If ObjBancos.GetComplementoPagosRep(-1, Now.AddYears(-2), Now, CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
+        If ObjBancos.GetComplementoPagosRep(-1, NowADS().AddYears(-2), NowADS(), CveIE, -1, 1, UsuarioActual.CveEmpresa, -1) Then
             If Not ObjBancos.DtResultados.Rows.Count > 0 Then
                 ObjBancos.Dispose()
                 Alert("No se generaron complementos de pago porque no hay facturas con método de pago PPD", TipoMensaje.MsgAdvertencia)
@@ -1465,8 +1465,8 @@ Partial Class Bancos_PopIEVentas
 
 #End Region
     Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
-        RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
-        Calendario.EndDate = DateTime.Now
+        RVTxtFechaDocumento.MaximumValue = NowADS().ToShortDateString
+        Calendario.EndDate = NowADS()
 
     End Sub