Empresas Zona Horaria

Ventas/ClientesAbonar.aspx.vb

@@ -187,10 +187,10 @@ Partial Class Ventas_ClientesAbonar
                 DdlProveedorIntermediario.SelectedText = "Seleccione"
                 DdlProveedorIntermediario.SelectedValue = "-1"
 
-                FechaCorteIE = DateTime.Now
+                FechaCorteIE = NowADS()
 
-                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 UsuarioActual.Empresa.Funcionalidad(712) = "1" Then
                 '    PorletIntermediario.Visible = True
@@ -230,7 +230,7 @@ Partial Class Ventas_ClientesAbonar
                 RegistraScript($"TipoCambioActual = {GlobalTipoCambio(Fecha).FormatoNumero(4)}")
             End If
 
-            RVTxtFechaDocumento.MaximumValue = Now.ToString("dd/MM/yyyy")
+            RVTxtFechaDocumento.MaximumValue = NowADS().ToString("dd/MM/yyyy")
             If UsuarioActual.CveEmpresa.Contiene(13, 83, 158) Then
                 LnkAccionesModalSeleccionLayout.Visible = True
             End If
@@ -297,7 +297,7 @@ Partial Class Ventas_ClientesAbonar
                 CargaCuentas()
                 CargaTipoTransaccion()
 
-                TxtFechaDocumento.Text = Now.ToShortDateString.ToString
+                TxtFechaDocumento.Text = NowADS().ToShortDateString.ToString
 
                 TxtAboneA.Enabled = False
                 LbEncabezado.Text = String.Format("<a href='/Ventas/Clientes.aspx?CveCliente={0}' target='_blank' class='Texto'>{1}</a>", CveCliente, ObjCliente.NombreComercial)
@@ -355,7 +355,7 @@ Partial Class Ventas_ClientesAbonar
         Dim FechaI As String = IfNull(Request("FechaI"), "-1").ToString
         Dim FechaF As String = IfNull(Request("FechaF"), "-1").ToString
 
-        Dim FechaCorte As Date = DateTime.Now.AddYears(1).ToShortDateString.ToString.ToDate
+        Dim FechaCorte As Date = NowADS().AddYears(1).ToShortDateString.ToString.ToDate
 
         Dim SumDescuentoProntoPago As Double = 0.0
         If Mov.GetCxCClienteDetalle(ViewState("CveCliente").ToString.ToEntero, FechaI, FechaF, pCveMoneda, CveSubProyecto, UsuarioActual.CveEmpresa, CveClienteSucursal, FechaCorte:=FechaCorte) Then
@@ -1367,21 +1367,21 @@ Partial Class Ventas_ClientesAbonar
             Dim Serie As String = "-1"
 
             ObjFacturaDevolucion.CveEmpresa = UsuarioActual.CveEmpresa
-            ObjFacturaDevolucion.TipoCambio = If(Me.CveMoneda = 1, 1, GlobalTipoCambio(Now).FormatoNumero(4).ToDecimal())
+            ObjFacturaDevolucion.TipoCambio = If(Me.CveMoneda = 1, 1, GlobalTipoCambio(NowADS()).FormatoNumero(4).ToDecimal())
             ObjFacturaDevolucion.ConvertirPesos = False
             ObjFacturaDevolucion.CveMoneda = CveMoneda
             ObjFacturaDevolucion.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {CveMoneda}")
             ObjFacturaDevolucion.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {CveMoneda}")
             ObjFacturaDevolucion.Serie = Serie
             ObjFacturaDevolucion.Folio = Folio
-            ObjFacturaDevolucion.Fecha = Now
+            ObjFacturaDevolucion.Fecha = NowADS()
             ObjFacturaDevolucion.CvePrePoliza = -1
             ObjFacturaDevolucion.CveMetodoPago = 0
             ObjFacturaDevolucion.CondicionesPago = 0 ' 0 - Contado, 1 - Credito (CHECAR)
             ObjFacturaDevolucion.FormaPago = 0
 
             ObjFacturaDevolucion.TipoDocto = "Egs"
-            ObjFacturaDevolucion.Fecha = Now
+            ObjFacturaDevolucion.Fecha = NowADS()
 
             ObjFacturaDevolucion.Version = "4.0"
 
@@ -1458,7 +1458,7 @@ Partial Class Ventas_ClientesAbonar
                     ObjFacturaDevolucion.TipoDocumento = ""
             End Select
 
-            ObjFacturaDevolucion.FechaPago = Now
+            ObjFacturaDevolucion.FechaPago = NowADS()
 
             ObjFacturaDevolucion.CveCorte = -1
             'ObjFacturaDevolucion.CveMesa = -1
@@ -1959,12 +1959,12 @@ Partial Class Ventas_ClientesAbonar
         TxtObservaciones.Text = ""
         TxtImporte.Text = ""
         TxtTotal.Text = ""
-        TxtFechaDocumento.Text = Now.ToShortDateString
+        TxtFechaDocumento.Text = NowADS().ToShortDateString
         DdlCuenta.SelectedValue = "-1"
         DdlTipoTransaccion.SelectedValue = "-1"
 
         CFDIRelacionadoSustitucion = "-1"
-        FechaCorteIE = DateTime.Now.ToDate
+        FechaCorteIE = NowADS().ToDate
         IDPoliza = -1
         FolioIECancelado = ""
 
@@ -2204,7 +2204,7 @@ Partial Class Ventas_ClientesAbonar
         '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)
@@ -2586,8 +2586,8 @@ Partial Class Ventas_ClientesAbonar
     End Sub
 
     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