Empresas Zona Horaria

Compras/CatEstatusFactura.aspx.vb

@@ -153,7 +153,7 @@ Partial Class Compras_CatEstatusFactura
         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("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
 

Compras/CatProveedores.aspx.vb

@@ -213,7 +213,7 @@ Partial Class Compras_CatProveedores
 #End Region
 
     Private Sub ImgExcel2_Click(sender As Object, e As EventArgs) Handles ImgExcel2.Click
-        GvDatos.ExportToExcel("RepProveedores_" & Now.ToShortDateString)
+        GvDatos.ExportToExcel("RepProveedores_" & NowADS().ToShortDateString)
     End Sub
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
         Dim ObjProveedores As New ClsCompProveedores

Compras/CatTipoGasto.aspx.cs

@@ -87,7 +87,7 @@ public partial class Compras_CatTipoGasto : ClsPaginas
         ClsCompras ObjCompras = new ClsCompras();
         if (BtnAgregarTipoGasto.Text == "Agregar")
         {
-            if (ObjCompras.AddTipoGasto(TxtTipoGasto.Text,ChkEstatus.Checked,DateTime.Now.ToString(),UsuarioActual.CveUsuario,UsuarioActual.CveEmpresa))
+            if (ObjCompras.AddTipoGasto(TxtTipoGasto.Text,ChkEstatus.Checked,NowADS().ToString(),UsuarioActual.CveUsuario,UsuarioActual.CveEmpresa))
             {   
                 Alert("Se agregó el Tipo de Gasto correctamente");
             }

Compras/Compras.aspx.vb

@@ -1161,8 +1161,8 @@ Partial Class Compras_Compras
             ArrIE = New ArrayList()
             ArrIEFuncionariosEmpleados = New ArrayList()
             ClavesBorradas = New ArrayList()
-            TxtFecha.Text = Now.ToShortDateString
-            TxtFechaEjecucion.Text = Now.ToShortDateString
+            TxtFecha.Text = NowADS().ToShortDateString
+            TxtFechaEjecucion.Text = NowADS().ToShortDateString
             ViewState("CveFactura") = "0"
             ViewState("IdPoliza") = "0"
             ViewState("CveCompra") = -1
@@ -1585,7 +1585,7 @@ Partial Class Compras_Compras
     Private Function CargaFactura(CveFactura As Integer) As String
         Dim ObjeFacturas As New ClsCompras
         Dim RFC As String = ""
-        If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-4), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then
+        If ObjeFacturas.GetFacturas(CveFactura, "-1", NowADS().AddYears(-4), NowADS(), "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then
 
             Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador
             ViewState("CveTipoProveedor") = dr("CveTipoProveedor").ToString.ToEntero
@@ -1653,7 +1653,7 @@ Partial Class Compras_Compras
                         XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", "").Replace("o;?", ""))
                     Catch ex As Exception
                         Try
-                            Dim oReader as New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
+                            Dim oReader As New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
                             XMLDoc.Load(oReader)
                             oReader.Dispose()
                         Catch ex2 As Exception
@@ -5198,7 +5198,7 @@ Partial Class Compras_Compras
                                                         indice += 1
 
                                                         'agregamos la entrada
-                                                        If Not UsuarioActual.Empresa.UsaAC Then fecha = Now
+                                                        If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS()
 
                                                         folio = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
                                                         cvemovimientoentrada = ObjInventario.AddMovimiento(tcvealmacen, 2, 1, fecha, folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Comp/G4")
@@ -5285,7 +5285,7 @@ Partial Class Compras_Compras
                                                         indice += 1
 
                                                         Dim fecha As Date = TxtFecha.Text.ToDate
-                                                        If Not UsuarioActual.Empresa.UsaAC Then fecha = Now
+                                                        If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS()
 
                                                         CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2")
 
@@ -6064,13 +6064,13 @@ Partial Class Compras_Compras
                                                                         If importeMN <> 0 Then
 
 
-                                                                            If (TxtFecha.Text <> Now.ToString("dd/MM/yyyy")) And Not EntradaComoGastoConAlmacen Then
+                                                                            If (TxtFecha.Text <> NowADS().ToString("dd/MM/yyyy")) And Not EntradaComoGastoConAlmacen Then
 
                                                                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
                                                                                     ErrorPrepoliza = True
                                                                                 End If
 
-                                                                                Dim CvePrePoliza2Almacen As Integer = ObjConta.AddPrePolizas("Compras/Registrar/Almacen", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, Now, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
+                                                                                Dim CvePrePoliza2Almacen As Integer = ObjConta.AddPrePolizas("Compras/Registrar/Almacen", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, NowADS(), ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
 
                                                                                 If CvePrePoliza2Almacen > 0 Then
                                                                                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza2Almacen, True, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
@@ -7007,52 +7007,52 @@ Partial Class Compras_Compras
                                 End If
 
                                 If HdnVCveOC.Value <> "-1" AndAlso HdnCveEstatusOC.Value <> "-1" Then
-                                Dim ArrayCveOC As String() = HdnVCveOC.Value.Split(New Char() {","c})
-                                Dim ArrayCveEstatusOC As String() = HdnCveEstatusOC.Value.Split(New Char() {","c})
+                                    Dim ArrayCveOC As String() = HdnVCveOC.Value.Split(New Char() {","c})
+                                    Dim ArrayCveEstatusOC As String() = HdnCveEstatusOC.Value.Split(New Char() {","c})
 
-                                If ArrayCveEstatusOC.Count = ArrayCveOC.Count Then
-                                    For i As Integer = 0 To ArrayCveEstatusOC.Count - 1
-                                        If Not ObjOC.UpdateOrdenCompraCompletada(ArrayCveEstatusOC(i).ToEntero, ArrayCveOC(i).ToEntero, UsuarioActual.CveUsuario, "Se vinculó Compra", CveCompra) Then
-                                            ErrorOC = True
-                                            Exit For
+                                    If ArrayCveEstatusOC.Count = ArrayCveOC.Count Then
+                                        For i As Integer = 0 To ArrayCveEstatusOC.Count - 1
+                                            If Not ObjOC.UpdateOrdenCompraCompletada(ArrayCveEstatusOC(i).ToEntero, ArrayCveOC(i).ToEntero, UsuarioActual.CveUsuario, "Se vinculó Compra", CveCompra) Then
+                                                ErrorOC = True
+                                                Exit For
+                                            End If
+                                        Next
+                                    Else
+                                        ErrorOC = True
+                                    End If
+
+                                End If
+
+                                If ChkNCInvNC.Checked Then
+                                    For Each Gvr As GridViewRow In GVNCInv.Rows
+                                        If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
+                                            If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
+                                                ErrorMovInv = True
+                                                Exit For
+                                            End If
+                                        End If
+                                    Next
+
+                                    For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
+                                        If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
+                                            If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
+                                                ErrorMovInv = True
+                                                Exit For
+                                            End If
                                         End If
                                     Next
-                                Else
-                                    ErrorOC = True
                                 End If
 
-                            End If
-
-                            If ChkNCInvNC.Checked Then
-                                For Each Gvr As GridViewRow In GVNCInv.Rows
-                                    If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
-                                        If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
-                                            ErrorMovInv = True
-                                            Exit For
-                                        End If
+                                'GUARDA BITACORA TIPO CAMBIO OC
+                                If Not ErrorOC And TipoCambioOC > 0 Then
+                                    If Not ObjEventos.AddEventoBitacora(String.Format("La vinculación con la orden de compra fue con un tipo de cambio de ${0}", TipoCambioOC.ToString), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
+                                        ErrorOC = True
                                     End If
-                                Next
-
-                                For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
-                                    If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
-                                        If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
-                                            ErrorMovInv = True
-                                            Exit For
-                                        End If
-                                    End If
-                                Next
-                            End If
-
-                            'GUARDA BITACORA TIPO CAMBIO OC
-                            If Not ErrorOC And TipoCambioOC > 0 Then
-                                If Not ObjEventos.AddEventoBitacora(String.Format("La vinculación con la orden de compra fue con un tipo de cambio de ${0}", TipoCambioOC.ToString), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
-                                    ErrorOC = True
                                 End If
-                            End If
 
                                 'AGREGAR OTROS GASTOS A ORDEN DE CORTE
                                 'If CveOrdenCorte > 0 And UsuarioActual.CveEmpresa = 126 Then
-                                '    If ObjCGame.AddCorteGasto(CveOrdenCorte, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Now, 0, CveCompra) Then
+                                '    If ObjCGame.AddCorteGasto(CveOrdenCorte, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, NowADS(), 0, CveCompra) Then
                                 '        If Not ObjCGame.AddCorteGastoDetalle(ObjCGame.CveCorteGasto, 32, 1, TxtSubTotal.Text.ToDouble()) Then
                                 '            ErrorOtrosGastos = True
                                 '        End If
@@ -7063,263 +7063,263 @@ Partial Class Compras_Compras
 
                                 'CREDITO COMPRA
                                 Dim CvePrePolizaCredito As Integer = 0
-                            If RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue.ToEntero = 3 AndAlso DdlTipoCredito.SelectedValue.ToEntero = 1 AndAlso DdlCredito.SelectedValue.ToEntero > 0 Then
+                                If RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue.ToEntero = 3 AndAlso DdlTipoCredito.SelectedValue.ToEntero = 1 AndAlso DdlCredito.SelectedValue.ToEntero > 0 Then
 
-                                If Not ObjIE.UpdateCreditosCompra(DdlCredito.SelectedValue.ToEntero, CveCompra, UsuarioActual.CveEmpresa) Then
-                                    ErrorCreditosCompra = True
-                                End If
-
-                                If Not ErrorCreditosCompra Then
-
-                                    Dim CveConceptoPago As Integer = 17
-                                    If CveTipoConcepto = 2 Then CveConceptoPago = 308 'cuando es acreedor
-                                    If CveMoneda > 1 Then
-                                        Select Case CveConceptoPago
-                                            Case 17
-                                                CveConceptoPago = 312
-                                            Case 308
-                                                CveConceptoPago = 309
-                                            Case Else
-                                        End Select
+                                    If Not ObjIE.UpdateCreditosCompra(DdlCredito.SelectedValue.ToEntero, CveCompra, UsuarioActual.CveEmpresa) Then
+                                        ErrorCreditosCompra = True
                                     End If
 
-                                    If ObjIE.GetCreditos(DdlCredito.SelectedValue.ToEntero, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
-                                        CvePrePolizaCredito = ObjConta.AddPrePolizas("Compras/RegistrarCredito", -1, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 1, TxtFecha.Text.ToDate, "Vinculación crédito con factura", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                                        If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, CveConceptoPago, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 50, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
+                                    If Not ErrorCreditosCompra Then
+
+                                        Dim CveConceptoPago As Integer = 17
+                                        If CveTipoConcepto = 2 Then CveConceptoPago = 308 'cuando es acreedor
+                                        If CveMoneda > 1 Then
+                                            Select Case CveConceptoPago
+                                                Case 17
+                                                    CveConceptoPago = 312
+                                                Case 308
+                                                    CveConceptoPago = 309
+                                                Case Else
+                                            End Select
+                                        End If
+
+                                        If ObjIE.GetCreditos(DdlCredito.SelectedValue.ToEntero, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
+                                            CvePrePolizaCredito = ObjConta.AddPrePolizas("Compras/RegistrarCredito", -1, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 1, TxtFecha.Text.ToDate, "Vinculación crédito con factura", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                            If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, CveConceptoPago, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
+                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 50, "", "Vinculación crédito con factura", CveProveedor:=CveProveedor, CveCompra:=CveCompra) Then
+                                                    ErrorCreditosCompra = True
+                                                End If
+                                            Else
                                                 ErrorCreditosCompra = True
                                             End If
-                                        Else
-                                            ErrorCreditosCompra = True
-                                        End If
-
-                                        If Not ErrorCreditosCompra Then
-                                            ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCredito)
-                                        End If
-
-                                    End If
-                                End If
-
-                            End If
-
-                            'VALIDAR ERRORES
-                            If ErrorAC OrElse ErrorPrepoliza OrElse ErrorPrepolizaDescuadre OrElse ErrorDetalles OrElse ErrorMovDev OrElse ErrorMovtosCxP OrElse ErrorMovtosRetIVA OrElse ErrorMovtosRetISR OrElse ErrorMovtosEstimaciones OrElse ErrorMovtosIE OrElse ErrorMovtosIVA OrElse ErrorMovInv OrElse TieneError OrElse ErrorAF OrElse ErrorOC OrElse ErrorBitacora OrElse ErrorAddAcarreos OrElse ErrorCreditosCompra Then
-                                If ErrorDetalles Then
-                                    Alert("Ocurrió un Error al agregar un Producto o Servicio a la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovtosCxP Then
-                                    Alert("Ocurrió un Error al agregar las CxP.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovtosRetIVA Then
-                                    Alert("Ocurrió un Error al agregar las Retenciones de IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovtosRetISR Then
-                                    Alert("Ocurrió un Error al agregar las Retenciones de ISR.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovtosEstimaciones Then
-                                    Alert("Ocurrió un Error al agregar las Estimaciones.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovtosIE Then
-                                    Alert("Ocurrió un Error al agregar el movimiento bancario.<br />Revise sus datos y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovtosIVA Then
-                                    Alert("Ocurrió un Error al agregar el IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovInv Then
-                                    Alert("Ocurrió un Error al agregar el Producto o Servicio al Inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf TieneError Then
-                                    Alert("El total de los IMPORTES del FINANCIAMIENTO debe ser mayor que 0 y menor o igual al total de la compra", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorAF Then
-                                    Alert("Error al actualizar la vinculacion del Activo Fijo", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorAC Then
-                                    Alert("Ocurrió un Error al insertar los movimientos contables.", TipoMensaje.MsgError)
-                                    GuardaLog($" Error Compras  DESCRIPCIÓN DETALLADA {ErrorACMEnsaje.ToString} {vbCrLf}  Usuario={UsuarioActual.CveUsuario},  Empresa={UsuarioActual.CveEmpresa},  CveFactura={CveFactura},  CveProveedor={CveProveedor}")
-                                ElseIf ErrorPrepolizaDescuadre Then
-                                    Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
-                                ElseIf ErrorPrepoliza Then
-                                    Alert("Ocurrió un Error al verificar los movimientos contables", TipoMensaje.MsgError)
-                                ElseIf ErrorOC Then
-                                    Alert("Ocurrió un Error al vincular la Orden(es) de Compra. Por favor vuelva intentar.", TipoMensaje.MsgError)
-                                ElseIf ErrorBitacora Then
-                                    Alert("Ocurrió un Error al guardar la refacturación.", TipoMensaje.MsgError)
-                                ElseIf ErrorAddAcarreos Then
-                                    Alert("Ocurrio un Error al momento de agregar los acarreos.", TipoMensaje.MsgError)
-                                ElseIf ErrorCreditosCompra Then
-                                    Alert("Ocurrió un Error al vincular la compra con el crédito.", TipoMensaje.MsgError)
-                                ElseIf ErrorOtrosGastos Then
-                                    Alert("Ocurrió un Error al vincular la compra con la orden de corte.", TipoMensaje.MsgError)
-                                ElseIf ErrorSATPS Then
-                                    Alert("Ocurrió un Error al actualizar el producto/servicio SAT.", TipoMensaje.MsgError)
-                                ElseIf ErrorSaldosInvComp Then
-                                    Alert("Ocurrió un Error al validar la mercancía recibida por adelantado.", TipoMensaje.MsgError)
-                                End If
-
-                                ViewState("CveCompra") = -1
-                                ObjCompras.RollBack()
-                                If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
-                                CargaProveedor(CveProveedor, "-1")
-                            Else
-                                Dim MsgAccionAceptar As String = ""
-                                Dim Msg As New StringBuilder
-                                Msg.Append("La compra se registró correctamente")
-
-                                If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
-                                    If ObjConta.ValorPolizaDescuadre > 0 Then
-                                        GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                                        ErrorPrepolizaDescuadre = True
-                                    End If
-                                End If
-
-                                'ACTUALIZA CVEFACTURA
-                                If Request("CveFactura") IsNot Nothing Then
-
-                                    If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
-                                        TieneError = True
-                                    End If
-
-                                    If UsuarioActual.Empresa.UsaAC Then
-                                        MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
-                                    Else
-                                        MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
-                                    End If
-                                Else
-                                    MsgAccionAceptar = "location.href =""Compras.aspx"""
-                                End If
-
-                                'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
-                                If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
-                                    If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
-                                        Dim CvePreComprobacion As Integer
-                                        If ObjCompras.DtResultados.Rows.Count = 0 Then
-                                            'sino existe, creamos la comprobacion
-                                            Dim tConcepto As String = If(DdlPersonalReembolso.SelectedValue.ToEntero > 0, DdlPersonalReembolso.SelectedItem.Text, DdlCuentaCajaChicaReembolso.SelectedItem.Text)
-                                            tConcepto = String.Format("{0}-{1}", tConcepto, TxtNumeroReembolso.Text.Trim)
-
-                                            CvePreComprobacion = ObjConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
-                                            If ObjCompras.AddComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
 
+                                            If Not ErrorCreditosCompra Then
+                                                ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCredito)
                                             End If
-                                        Else
-                                            'si ya existe, obtenemos la prepóliza
-                                            CvePreComprobacion = ObjCompras.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
+
                                         End If
-
-                                        ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
-                                    End If
-                                End If
-
-                                'AJUSTA POLIZA
-                                If IdPoliza > 0 Then
-                                    PolizaFolio = ObjContaAC.Folio
-                                    ObjContaAC.AjustaPoliza(IdPoliza)
-                                    Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
-                                End If
-
-                                If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
-                                    Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>&nbsp;&nbsp; ", CvePrePoliza)
-                                    Dim TempParametros As String = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
-                                    Msg.Append($" <a class='Texto' target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={TempParametros}""> <i class='fa fa-file-pdf-o' aria-hidden='true'></i> Imprimir </a>")
-
-                                End If
-
-                                If CveMovimientoInventario > 0 Then
-                                    Dim TempParametros As String = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario))
-                                    Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"">Ver Movimiento de Almacen</a>", CveMovimientoInventario)
-                                    Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Entrada Almacen</a>", TempParametros)
-                                End If
-
-                                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                                    If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
-                                        TieneError = True
-                                    End If
-                                End If
-
-                                If EntregaDirecta Then
-                                    Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>")
-                                End If
-
-                                Dim AutoConta As Boolean = True
-                                If (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0 Or DdlTipoComprobante.SelectedValue = "Ant") Then
-                                    AutoConta = False
-                                End If
-
-                                If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4, AutoConta:=AutoConta) Then
-                                    TieneError = True
-                                    'If ObjConta.ValorPolizaDescuadre > 0 Then
-                                    '    GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                                    '    ErrorPrepolizaDescuadre = True
-                                    'End If
-                                End If
-
-                                If Not TieneError Then
-                                    ObjCompras.Commit()
-                                    If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
-
-                                    Dim CveEvaluacionProveedor As Integer = -1
-
-                                    If Me.RequiereEvaluacion Then
-                                        Dim ObjPro As New ClsCompProveedores()
-                                        CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, Now, "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa)
-                                        ObjPro.Dispose()
                                     End If
 
-                                    'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC
-                                    MandaCorreoOCVendedores(CveCompra)
-                                    If Not ErrorMovInv Then
-                                        For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen
-                                            MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen)
-                                        Next
+                                End If
+
+                                'VALIDAR ERRORES
+                                If ErrorAC OrElse ErrorPrepoliza OrElse ErrorPrepolizaDescuadre OrElse ErrorDetalles OrElse ErrorMovDev OrElse ErrorMovtosCxP OrElse ErrorMovtosRetIVA OrElse ErrorMovtosRetISR OrElse ErrorMovtosEstimaciones OrElse ErrorMovtosIE OrElse ErrorMovtosIVA OrElse ErrorMovInv OrElse TieneError OrElse ErrorAF OrElse ErrorOC OrElse ErrorBitacora OrElse ErrorAddAcarreos OrElse ErrorCreditosCompra Then
+                                    If ErrorDetalles Then
+                                        Alert("Ocurrió un Error al agregar un Producto o Servicio a la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovtosCxP Then
+                                        Alert("Ocurrió un Error al agregar las CxP.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovtosRetIVA Then
+                                        Alert("Ocurrió un Error al agregar las Retenciones de IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovtosRetISR Then
+                                        Alert("Ocurrió un Error al agregar las Retenciones de ISR.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovtosEstimaciones Then
+                                        Alert("Ocurrió un Error al agregar las Estimaciones.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovtosIE Then
+                                        Alert("Ocurrió un Error al agregar el movimiento bancario.<br />Revise sus datos y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovtosIVA Then
+                                        Alert("Ocurrió un Error al agregar el IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovInv Then
+                                        Alert("Ocurrió un Error al agregar el Producto o Servicio al Inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf TieneError Then
+                                        Alert("El total de los IMPORTES del FINANCIAMIENTO debe ser mayor que 0 y menor o igual al total de la compra", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorAF Then
+                                        Alert("Error al actualizar la vinculacion del Activo Fijo", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorAC Then
+                                        Alert("Ocurrió un Error al insertar los movimientos contables.", TipoMensaje.MsgError)
+                                        GuardaLog($" Error Compras  DESCRIPCIÓN DETALLADA {ErrorACMEnsaje.ToString} {vbCrLf}  Usuario={UsuarioActual.CveUsuario},  Empresa={UsuarioActual.CveEmpresa},  CveFactura={CveFactura},  CveProveedor={CveProveedor}")
+                                    ElseIf ErrorPrepolizaDescuadre Then
+                                        Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
+                                    ElseIf ErrorPrepoliza Then
+                                        Alert("Ocurrió un Error al verificar los movimientos contables", TipoMensaje.MsgError)
+                                    ElseIf ErrorOC Then
+                                        Alert("Ocurrió un Error al vincular la Orden(es) de Compra. Por favor vuelva intentar.", TipoMensaje.MsgError)
+                                    ElseIf ErrorBitacora Then
+                                        Alert("Ocurrió un Error al guardar la refacturación.", TipoMensaje.MsgError)
+                                    ElseIf ErrorAddAcarreos Then
+                                        Alert("Ocurrio un Error al momento de agregar los acarreos.", TipoMensaje.MsgError)
+                                    ElseIf ErrorCreditosCompra Then
+                                        Alert("Ocurrió un Error al vincular la compra con el crédito.", TipoMensaje.MsgError)
+                                    ElseIf ErrorOtrosGastos Then
+                                        Alert("Ocurrió un Error al vincular la compra con la orden de corte.", TipoMensaje.MsgError)
+                                    ElseIf ErrorSATPS Then
+                                        Alert("Ocurrió un Error al actualizar el producto/servicio SAT.", TipoMensaje.MsgError)
+                                    ElseIf ErrorSaldosInvComp Then
+                                        Alert("Ocurrió un Error al validar la mercancía recibida por adelantado.", TipoMensaje.MsgError)
                                     End If
 
-                                    If CveEvaluacionProveedor > 0 Then
-                                        Msg.Append("<br/><br/>El proveedor tiene evaluaciones pendientes<br/>")
-                                        Msg.Append("¿Desea realizar una evaluacion al proveedor?")
-                                        Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Compras/EvaluacionProveedor.aspx?CveEvaluacionProveedor={CveEvaluacionProveedor}"">Evaluar Proveedor.</a>")
-                                    End If
-
-                                    BtnGuardar.Enabled = False
-                                    UpFacturar.Update()
-
-                                    Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
-                                Else
+                                    ViewState("CveCompra") = -1
                                     ObjCompras.RollBack()
                                     If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
-                                    Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
+                                    CargaProveedor(CveProveedor, "-1")
+                                Else
+                                    Dim MsgAccionAceptar As String = ""
+                                    Dim Msg As New StringBuilder
+                                    Msg.Append("La compra se registró correctamente")
+
+                                    If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
+                                        If ObjConta.ValorPolizaDescuadre > 0 Then
+                                            GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                                            ErrorPrepolizaDescuadre = True
+                                        End If
+                                    End If
+
+                                    'ACTUALIZA CVEFACTURA
+                                    If Request("CveFactura") IsNot Nothing Then
+
+                                        If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
+                                            TieneError = True
+                                        End If
+
+                                        If UsuarioActual.Empresa.UsaAC Then
+                                            MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
+                                        Else
+                                            MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
+                                        End If
+                                    Else
+                                        MsgAccionAceptar = "location.href =""Compras.aspx"""
+                                    End If
+
+                                    'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
+                                    If UsuarioActual.CveEmpresa.Contiene(1, 119, 141, 172, 173, 174, 13, 83) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
+                                        If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
+                                            Dim CvePreComprobacion As Integer
+                                            If ObjCompras.DtResultados.Rows.Count = 0 Then
+                                                'sino existe, creamos la comprobacion
+                                                Dim tConcepto As String = If(DdlPersonalReembolso.SelectedValue.ToEntero > 0, DdlPersonalReembolso.SelectedItem.Text, DdlCuentaCajaChicaReembolso.SelectedItem.Text)
+                                                tConcepto = String.Format("{0}-{1}", tConcepto, TxtNumeroReembolso.Text.Trim)
+
+                                                CvePreComprobacion = ObjConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                                                If ObjCompras.AddComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
+
+                                                End If
+                                            Else
+                                                'si ya existe, obtenemos la prepóliza
+                                                CvePreComprobacion = ObjCompras.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
+                                            End If
+
+                                            ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
+                                        End If
+                                    End If
+
+                                    'AJUSTA POLIZA
+                                    If IdPoliza > 0 Then
+                                        PolizaFolio = ObjContaAC.Folio
+                                        ObjContaAC.AjustaPoliza(IdPoliza)
+                                        Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
+                                    End If
+
+                                    If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
+                                        Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>&nbsp;&nbsp; ", CvePrePoliza)
+                                        Dim TempParametros As String = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
+                                        Msg.Append($" <a class='Texto' target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={TempParametros}""> <i class='fa fa-file-pdf-o' aria-hidden='true'></i> Imprimir </a>")
+
+                                    End If
+
+                                    If CveMovimientoInventario > 0 Then
+                                        Dim TempParametros As String = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario))
+                                        Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"">Ver Movimiento de Almacen</a>", CveMovimientoInventario)
+                                        Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Entrada Almacen</a>", TempParametros)
+                                    End If
+
+                                    If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                                        If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
+                                            TieneError = True
+                                        End If
+                                    End If
+
+                                    If EntregaDirecta Then
+                                        Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>")
+                                    End If
+
+                                    Dim AutoConta As Boolean = True
+                                    If (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0 Or DdlTipoComprobante.SelectedValue = "Ant") Then
+                                        AutoConta = False
+                                    End If
+
+                                    If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4, AutoConta:=AutoConta) Then
+                                        TieneError = True
+                                        'If ObjConta.ValorPolizaDescuadre > 0 Then
+                                        '    GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                                        '    ErrorPrepolizaDescuadre = True
+                                        'End If
+                                    End If
+
+                                    If Not TieneError Then
+                                        ObjCompras.Commit()
+                                        If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
+
+                                        Dim CveEvaluacionProveedor As Integer = -1
+
+                                        If Me.RequiereEvaluacion Then
+                                            Dim ObjPro As New ClsCompProveedores()
+                                            CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, NowADS(), "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa)
+                                            ObjPro.Dispose()
+                                        End If
+
+                                        'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC
+                                        MandaCorreoOCVendedores(CveCompra)
+                                        If Not ErrorMovInv Then
+                                            For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen
+                                                MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen)
+                                            Next
+                                        End If
+
+                                        If CveEvaluacionProveedor > 0 Then
+                                            Msg.Append("<br/><br/>El proveedor tiene evaluaciones pendientes<br/>")
+                                            Msg.Append("¿Desea realizar una evaluacion al proveedor?")
+                                            Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Compras/EvaluacionProveedor.aspx?CveEvaluacionProveedor={CveEvaluacionProveedor}"">Evaluar Proveedor.</a>")
+                                        End If
+
+                                        BtnGuardar.Enabled = False
+                                        UpFacturar.Update()
+
+                                        Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
+                                    Else
+                                        ObjCompras.RollBack()
+                                        If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
+                                        Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
+                                    End If
+
                                 End If
 
+                            Else
+                                ObjCompras.RollBack()
+                                If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
+                                Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
                             End If
 
+
                         Else
+                            Alert("Debe seleccionar un Funcionario/Empleado o Caja Chica para Reembolsos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
                             ObjCompras.RollBack()
                             If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
-                            Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
                         End If
 
-
                     Else
-                        Alert("Debe seleccionar un Funcionario/Empleado o Caja Chica para Reembolsos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+                        Alert("Ocurrió un error al agregar el movimiento bancario.<br />Revise sus datos de pago y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
                         ObjCompras.RollBack()
-                        If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
                     End If
 
-                Else
-                    Alert("Ocurrió un error al agregar el movimiento bancario.<br />Revise sus datos de pago y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                    ObjCompras.RollBack()
                 End If
 
-                End If
-
-        Catch ex As Exception
-        ObjCompras.RollBack()
-        If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
-        Alert("Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgError)
-        GuardaLog($"Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico : {ex}")
-        ViewState("CveCompra") = -1
-        End Try
-        ObjAcar.Dispose()
-        ObjCompras.Dispose()
-        ObjConta.Dispose()
-        ObjIE.Dispose()
-        ObjInventario.Dispose()
-        ObjAF.Dispose()
-        ObjOC.Dispose()
-        ObjProveedores.Dispose()
-        ObjCGame.Dispose()
-        ObjProductosServicios.Dispose()
+            Catch ex As Exception
+                ObjCompras.RollBack()
+                If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
+                Alert("Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgError)
+                GuardaLog($"Ocurrió un error al registrar la compra. Cualquier detalle comuníquese a Soporte Técnico : {ex}")
+                ViewState("CveCompra") = -1
+            End Try
+            ObjAcar.Dispose()
+            ObjCompras.Dispose()
+            ObjConta.Dispose()
+            ObjIE.Dispose()
+            ObjInventario.Dispose()
+            ObjAF.Dispose()
+            ObjOC.Dispose()
+            ObjProveedores.Dispose()
+            ObjCGame.Dispose()
+            ObjProductosServicios.Dispose()
         End If
     End Sub
 
@@ -10040,7 +10040,7 @@ Partial Class Compras_Compras
     End Sub
     Private Sub SetValues()
         'Dim um As New ClsUnidadesMedida
-        TxtFecha.Text = Now.ToShortDateString()
+        TxtFecha.Text = NowADS().ToShortDateString()
         LblUsuarioCaptura.Text = UsuarioActual.Usuario
         DdlProveedor.Attributes.Add("onclick", "CargaProveedores();")
         'DdlFuncionarioEmpleado.Attributes.Add("onclick", "CargaFuncionariosEmpleados();")
@@ -12608,7 +12608,7 @@ Partial Class Compras_Compras
 
 
                             If ObjInventario.GetExistenciasProducto(Dr.DataKey("CvePS").ToString.ToEntero, Dr.DataKey("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, CveAlmacen,
-                                                                    FechaMovto:=TxtFecha.Text.ToDateTime.AddHours(Now.Hour).AddMinutes(Now.Minute).AddSeconds(Now.Second).ToString("yyyy/MM/dd HH:mm")) Then
+                                                                    FechaMovto:=TxtFecha.Text.ToDateTime.AddHours(NowADS().Hour).AddMinutes(NowADS().Minute).AddSeconds(NowADS().Second).ToString("yyyy/MM/dd HH:mm")) Then
 
                                 Dim Existencia As Decimal = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", CveAlmacen)).ToDecimal
 
@@ -12699,7 +12699,7 @@ Partial Class Compras_Compras
     '    Dim ObjInventario As New ClsInventarios()
     '    Dim cvecompra As Integer = 5221
     '    Dim subtotal As Double = TextBox1.Text.ToDouble
-    '    guardardevolucion(ObjInventario, cvecompra, subtotal, Now.ToDate)
+    '    guardardevolucion(ObjInventario, cvecompra, subtotal, NowADS().ToDate)
     'End Sub
     Protected Sub BtnVinculaDevolucion_Click(sender As Object, e As EventArgs)
         Try
@@ -15395,15 +15395,15 @@ Partial Class Compras_Compras
 #Region "   CIERRE PERIODO  "
     Private Function ValidaCierrePeriodo() As Boolean
         'solo se permiten, mes actual, mes anterior <= #dias
-        Dim mesesTrans As Integer = DateDiff(DateInterval.Month, TxtFecha.Text.ToDate, Now).ToEntero
+        Dim mesesTrans As Integer = DateDiff(DateInterval.Month, TxtFecha.Text.ToDate, NowADS()).ToEntero
 
-        If mesesTrans = 0 OrElse (mesesTrans = 1 AndAlso Day(Now) <= UsuarioActual.Empresa.Funcionalidad(123).ToEntero) Then
+        If mesesTrans = 0 OrElse (mesesTrans = 1 AndAlso Day(NowADS()) <= UsuarioActual.Empresa.Funcionalidad(123).ToEntero) Then
             Return True
         End If
         Return False
 
-        'Dim mesesTrans As Integer = DateDiff(DateInterval.Month, TxtFecha.Text.ToDate, Now).ToEntero
-        'If mesesTrans > 1 OrElse Day(Now) >= UsuarioActual.Empresa.Funcionalidad(123).ToEntero Then
+        'Dim mesesTrans As Integer = DateDiff(DateInterval.Month, TxtFecha.Text.ToDate, NowADS()).ToEntero
+        'If mesesTrans > 1 OrElse Day(NowADS()) >= UsuarioActual.Empresa.Funcionalidad(123).ToEntero Then
         '    Return True
         'End If
         'Return False
@@ -15495,7 +15495,7 @@ Partial Class Compras_Compras
         DtDatosDetalle.Rows.Add(Row)
 
         TxtSerieLote.Text = ""
-        TxtFechaCaducidad.Text = Now.ToShortDateString
+        TxtFechaCaducidad.Text = NowADS().ToShortDateString
 
         CargaSerie()
     End Sub
@@ -16450,7 +16450,7 @@ Partial Class Compras_Compras
                                 Autorizado = ObjCon.DtResultados.FiltraParametros($"CveClasificacion = {DdlClasificacion.SelectedValue.ToEntero} AND CveTipoGasto = {DdlTipoGasto.SelectedValue.ToEntero} AND Importe > 0").Rows(0)("Importe").ToString.ToDouble
                             End If
                         End If
-                        If ObjCon.GetPresupuestosRep(CvePresupuesto, DdlTipoGasto.SelectedValue.ToEntero, 1, $"01/09/{DateTime.Now.Year - 1}".ToDate, Now, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero,
+                        If ObjCon.GetPresupuestosRep(CvePresupuesto, DdlTipoGasto.SelectedValue.ToEntero, 1, $"01/09/{NowADS().Year - 1}".ToDate, NowADS(), UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero,
                                                       DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then
                             If ObjCon.DtResultados.Rows.Count > 0 Then
                                 Ejercido = ObjCon.DtResultados.Rows(0)("Ejercido").ToString.ToDouble
@@ -16600,7 +16600,7 @@ Partial Class Compras_Compras
             End If
 
             Dim CveCompraDetalleDesvicnualarAF As Integer = TmpDT.FiltroPrimeroValor("CveCompraDetalle", $"Consec={Index}").ToEntero
-            'If ObjAF.UpdateActivosFijosCompra(-1, CveCompraDetalleDesvicnualarAF, -1, 0, Now, Opcion:=2) Then
+            'If ObjAF.UpdateActivosFijosCompra(-1, CveCompraDetalleDesvicnualarAF, -1, 0, NowADS(), Opcion:=2) Then
 
             For Each dRow As DataRow In TmpDT.Rows
 
@@ -18057,7 +18057,7 @@ Partial Class Compras_Compras
                 For Each Row2 As DataRow In DT.Rows
 
                     ImporteMovimiento = DtTemporal.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
-                        ImporteAlmacen = DtTemporal.SUM("ImporteEnAlmacen", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
+                    ImporteAlmacen = DtTemporal.SUM("ImporteEnAlmacen", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
 
                     ImporteMovimiento = (ImporteMovimiento - ImporteAlmacen) * Multiplicador
                     importeMN = ImporteMovimiento * TipoCambioActual
@@ -18453,7 +18453,7 @@ Partial Class Compras_Compras
 
     Private Sub CargaModalFletesImportaciones()
 
-        TxtFechaModalImportacionesFletes.Text = Now.ToShortDateString
+        TxtFechaModalImportacionesFletes.Text = NowADS().ToShortDateString
         TxtDescripcionModalFletesImportacion.Text = ""
         TxtPedimento.Text = ""
         RblTipo.SelectedValue = "1"
@@ -18532,7 +18532,7 @@ Partial Class Compras_Compras
                 Case 240
                     DdlImportaciones.SelectedValueExist(CveImportacion)
             End Select
-            TxtFechaModalImportacionesFletes.Text = Now.ToShortDateString
+            TxtFechaModalImportacionesFletes.Text = NowADS().ToShortDateString
             TxtDescripcionModalFletesImportacion.Text = ""
             TxtPedimento.Text = ""
             UpModalFletesImportaciones.Update()

Compras/EvaluacionProveedor.aspx.vb

@@ -85,7 +85,7 @@ Partial Class Compras_EvaluacionProveedor
         TxtSerieFolio.Text = ""
         TxtPS.Text = ""
         TxtCodigo.Text = ""
-        TxtFecha.Text = Now.ToString("dd/MM/yyyy")
+        TxtFecha.Text = NowADS().ToString("dd/MM/yyyy")
         TxtFirma.Text = UsuarioActual.Nombre
         TxtCalificacion.Text = ""
 
@@ -147,14 +147,14 @@ Partial Class Compras_EvaluacionProveedor
 
         TxtRS.Text = Row.DataKey("RazonSocial")
         TxtCodigo.Text = Row.DataKey("Codigo")
-        TxtFecha.Text = Now.ToString("dd/MM/yyyy")
+        TxtFecha.Text = NowADS().ToString("dd/MM/yyyy")
         UpEvaluacion.Update()
         RegistraScript("$('#DvEvaluacion').modal('show');IniciarCalculo();")
     End Sub
     Protected Sub BtnEvaluarProveedor_Click(sender As Object, e As EventArgs)
         CalcularCalificacion()
 
-        Dim Fecha = Now
+        Dim Fecha = NowADS()
 
         Dim Mes = Fecha.ToString("MMMM", New CultureInfo("es-MX"))
         Dim Obs = TxtObs.Text.Trim()
@@ -287,7 +287,7 @@ Partial Class Compras_EvaluacionProveedor
             Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
             Dim Documento As String = "CartaProveedor.docx"
             Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
-            Dim PathDestino As String = PathRoot & "Temp\" & Now.Ticks & Documento
+            Dim PathDestino As String = PathRoot & "Temp\" & NowADS().Ticks & Documento
 
             If File.Exists(PathDestino) Then
                 File.Delete(PathDestino)
@@ -321,7 +321,7 @@ Partial Class Compras_EvaluacionProveedor
             Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
             Dim Documento As String = "FormatoEvaluacionProveedor.docx"
             Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
-            Dim PathDestino As String = PathRoot & "Temp\" & Now.Ticks & Documento
+            Dim PathDestino As String = PathRoot & "Temp\" & NowADS().Ticks & Documento
 
             If File.Exists(PathDestino) Then
                 File.Delete(PathDestino)
@@ -354,7 +354,7 @@ Partial Class Compras_EvaluacionProveedor
         ListaTagsDocumentost.Add(New TagsDocumentos("{{Proveedor}}", Proveedor))
         ListaTagsDocumentost.Add(New TagsDocumentos("{{Dia}}", Dia))
         ListaTagsDocumentost.Add(New TagsDocumentos("{{Mes}}", Mes))
-        ListaTagsDocumentost.Add(New TagsDocumentos("{{Anio}}", Now.Year.ToString))
+        ListaTagsDocumentost.Add(New TagsDocumentos("{{Anio}}", NowADS().Year.ToString))
         ListaTagsDocumentost.Add(New TagsDocumentos("{{Calificacion}}", Calificacion))
         ListaTagsDocumentost.Add(New TagsDocumentos("{{Resultado}}", Resultado))
         'ListaTagsDocumentost.Add(New TagsDocumentos("{{Usuario}}", UsuarioActual.Nombre))

Compras/Importaciones.aspx.vb

@@ -65,7 +65,7 @@ Partial Class Compras_Importaciones
         DdlProveedores.SelectedText = "Todos"
         DdlProveedores.SelectedValue = "-1"
 
-        TxtFecha.Text = Now.ToShortDateString
+        TxtFecha.Text = NowADS().ToShortDateString
     End Sub
 #End Region
 

Compras/PopUpBuscarFolioC.aspx.vb

@@ -28,8 +28,8 @@ Partial Class Compras_PopUpBuscarFolioC
             'RegistraScript("$get('tdContenido').style.height='470px'")
 
             CargaProveedor()
-            txtFechaI.Text = Now.AddDays(-30).ToShortDateString
-            txtFechaI.Text = Now.AddYears(-1).ToShortDateString
+            txtFechaI.Text = NowADS().AddDays(-30).ToShortDateString
+            txtFechaI.Text = NowADS().AddYears(-1).ToShortDateString
 
             If Request("Opt") = "Fact" Then
                 ViewState("Opt") = "MandaCveCompra"

Compras/PopUpVerFactura.aspx.vb

@@ -1578,7 +1578,7 @@ Partial Class PopUpVerFactura
             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("AgrupoPor", $"{FechaCorte}{Usuario}"))
             params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
             Dim lrds As New List(Of ReportDataSource)
@@ -1692,7 +1692,7 @@ Partial Class PopUpVerFactura
         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("Contrato", $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} "))
         params.Add(New ReportParameter("Proveedor", If(ObjContratos.CveProveedor > 0, ObjContratos.RazonSocial.ToString, ObjContratos.NombreComercial.ToString)))
         params.Add(New ReportParameter("FechaInicio", ObjContratos.FechaInicial.ToShortDateString))
@@ -1748,13 +1748,13 @@ Partial Class PopUpVerFactura
                 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("EnvioContacto", EnvioContacto))
                 params.Add(New ReportParameter("SerieFolio", SerieFolio))
                 params.Add(New ReportParameter("PedidoContrato", PedidoContrato))
                 params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
                 params.Add(New ReportParameter("Guia", Guia))
-                ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
+                ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", NowADS().ToDateTime.ToShortDateString))
             End If
         End If
     End Sub
@@ -2066,7 +2066,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                 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("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
                 params.Add(New ReportParameter("SerieFolio", SerieFolio))
                 params.Add(New ReportParameter("DomicilioSucursal", DomicilioSucursal))
@@ -2093,7 +2093,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Ciudad", Ciudad))
                 params.Add(New ReportParameter("Licencia", Licencia))
 
-                ImprimirPDF($"Empresas/Grales/Formatos/{FormatoRDLC}", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
+                ImprimirPDF($"Empresas/Grales/Formatos/{FormatoRDLC}", Dt, params, String.Format("Carta Porte -{0}", NowADS().ToDateTime.ToShortDateString))
 
             End If
 
@@ -2525,7 +2525,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen))
                     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("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
                     params.Add(New ReportParameter("SerieFolio", SerieFolio))
                     params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
@@ -2736,12 +2736,12 @@ Partial Class PopUpVerFactura
             ObjFactura.Folio = Folio
             ObjFactura.Serie = "Tra"
             'ObjFactura.CveMesa = -1
-            ObjFactura.Fecha = Now
+            ObjFactura.Fecha = NowADS()
             ObjFactura.CvePrePoliza = -1
-            ObjFactura.FechaPago = Now
+            ObjFactura.FechaPago = NowADS()
             ObjFactura.MotivoDescuento = ""
             ObjFactura.Observaciones = ""
-            ObjFactura.FechaEjecucion = Now
+            ObjFactura.FechaEjecucion = NowADS()
             ObjFactura.UsuarioCreo = UsuarioActual.Usuario
             ObjFactura.CveCondicionEntrega = -1
             ObjFactura.CondicionEntrega = ""
@@ -2762,7 +2762,7 @@ Partial Class PopUpVerFactura
             ObjFactura.Amortizacion = 0
             ObjFactura.CveContrato = 0
             ObjFactura.CveVendedor = 0
-            ObjFactura.FechaVencimiento = Now
+            ObjFactura.FechaVencimiento = NowADS()
             ObjFactura.TipoEstatus = 0
             ObjFactura.Det_OrdenCompra = ""
             ObjFactura.Inv_CveEstatusEntrega = 0
@@ -3128,7 +3128,7 @@ Partial Class PopUpVerFactura
                         End If
                     End If
 
-                    If Vta.Version.ToEntero() = 4 AndAlso dr1("CodigoObjetoImpuesto").ToString() = "02" AndAlso Now.Date >= New DateTime(2022, 11, 1) AndAlso dr1("Descuento").ToString().ToDecimal().RoundSQL(2) = dr1("Total").ToString().ToDecimal().RoundSQL(2) Then
+                    If Vta.Version.ToEntero() = 4 AndAlso dr1("CodigoObjetoImpuesto").ToString() = "02" AndAlso NowADS().Date >= New DateTime(2022, 11, 1) AndAlso dr1("Descuento").ToString().ToDecimal().RoundSQL(2) = dr1("Total").ToString().ToDecimal().RoundSQL(2) Then
                         dr1("CodigoObjetoImpuesto") = "04"
                     End If
 
@@ -3602,7 +3602,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Concepto", "Inventario Inicial"))
                 params.Add(New ReportParameter("Almacen", Almacen))
                 params.Add(New ReportParameter("Fecha", Fecha))
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("Folio", Folio))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                 'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
@@ -3662,7 +3662,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Concepto", ConceptoFormato))
                         params.Add(New ReportParameter("Almacen", Almacen))
-                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
 
 
                         params.Add(New ReportParameter("Folio", Folio))
@@ -3714,7 +3714,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("Concepto", concepto))
                         params.Add(New ReportParameter("Almacen", Almacen))
                         params.Add(New ReportParameter("Fecha", Fecha))
-                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("Folio", Folio))
                         params.Add(New ReportParameter("FacturadoA", NombreCliente))
                         params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
@@ -3766,7 +3766,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN"))
                     params.Add(New ReportParameter("Almacen", Almacen))
                     params.Add(New ReportParameter("Fecha", Fecha))
-                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                    params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("Folio", Folio))
                     params.Add(New ReportParameter("FacturadoA", NombreCliente))
                     params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
@@ -3836,7 +3836,7 @@ Partial Class PopUpVerFactura
                             params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
                             params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
                             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                            params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                             params.Add(New ReportParameter("NombreEntrego", Capturo))
                             params.Add(New ReportParameter("NombreRecibio", Recibio))
 
@@ -3916,7 +3916,7 @@ Partial Class PopUpVerFactura
                             End If
 
                             params.Add(New ReportParameter("Concepto", concepto))
-                            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                            params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                             params.Add(New ReportParameter("Folio", Folio))
                             params.Add(New ReportParameter("Almacen", Almacen))
                             params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
@@ -3948,7 +3948,7 @@ Partial Class PopUpVerFactura
                             params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                             params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
                             params.Add(New ReportParameter("Observaciones", Observaciones))
-                            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                            params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                             params.Add(New ReportParameter("Folio", Folio))
                             params.Add(New ReportParameter("Descuentos", ""))
                             params.Add(New ReportParameter("IVA", ""))
@@ -3984,7 +3984,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                         params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
                         params.Add(New ReportParameter("Observaciones", Observaciones))
-                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("Folio", Folio))
                         params.Add(New ReportParameter("Descuentos", ""))
                         params.Add(New ReportParameter("IVA", ""))
@@ -4059,7 +4059,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Concepto", "Entrada por Desarmado de Paquete"))
                 params.Add(New ReportParameter("Almacen", Almacen))
                 params.Add(New ReportParameter("Fecha", Fecha))
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("Folio", Folio))
                 params.Add(New ReportParameter("Descuentos", ""))
                 params.Add(New ReportParameter("IVA", ""))
@@ -4083,7 +4083,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Concepto", "Salida por Armado de Paquete"))
                 params.Add(New ReportParameter("Almacen", Almacen))
                 params.Add(New ReportParameter("Fecha", Fecha))
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("Folio", Folio))
                 params.Add(New ReportParameter("Descuentos", ""))
                 params.Add(New ReportParameter("IVA", ""))
@@ -4126,7 +4126,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
                         params.Add(New ReportParameter("NombreProveedor", Proveedor))
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                     End If
 
                     ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
@@ -4198,7 +4198,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
                         params.Add(New ReportParameter("NombreProveedor", Proveedor))
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
 
                     End If
 
@@ -4359,7 +4359,7 @@ Partial Class PopUpVerFactura
                     If UsuarioActual.CveEmpresa = 140 Then
                         params.Add(New ReportParameter("Origen", Almacen))
                         params.Add(New ReportParameter("Destino", AlmacenDestino))
-                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("CantidadProductos", CantidadProductos.ToString()))
@@ -4369,7 +4369,7 @@ Partial Class PopUpVerFactura
                     ElseIf UsuarioActual.CveEmpresa = 153 Then
                         params.Add(New ReportParameter("Origen", Almacen))
                         params.Add(New ReportParameter("Destino", AlmacenDestino))
-                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
@@ -4388,7 +4388,7 @@ Partial Class PopUpVerFactura
                     End If
 
                     If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
-                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                         params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                         params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
@@ -4404,7 +4404,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                     params.Add(New ReportParameter("Origen", Almacen))
                     params.Add(New ReportParameter("Destino", AlmacenDestino))
-                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                    params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                     params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                     If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
@@ -4439,7 +4439,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
 
                     If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
-                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                         params.Add(New ReportParameter("AlmacenOrigen", Almacen))
                         params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
@@ -4451,7 +4451,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
                         params.Add(New ReportParameter("Destino", Almacen))
 
-                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
@@ -4460,7 +4460,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
                         params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
                         params.Add(New ReportParameter("Destino", Almacen))
-                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                     End If
@@ -4473,7 +4473,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("Origen", Almacen))
                     params.Add(New ReportParameter("Destino", AlmacenDestino))
 
-                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                    params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                     params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                     ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
@@ -4544,7 +4544,7 @@ Partial Class PopUpVerFactura
                 End If
 
                 If UsuarioActual.CveEmpresa = 119 Then
-                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                    params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                 End If
                 'ObjInventarios.Dispose()
@@ -4660,7 +4660,7 @@ Partial Class PopUpVerFactura
                 End If
 
                 params.Add(New ReportParameter("Concepto", "Entrada por garantia"))
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("Folio", Folio))
                 params.Add(New ReportParameter("Fecha", Fecha))
                 params.Add(New ReportParameter("Almacen", Almacen))
@@ -4693,7 +4693,7 @@ Partial Class PopUpVerFactura
 
 
                 params.Add(New ReportParameter("Concepto", "Salida Garantía"))
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("Folio", Folio))
                 params.Add(New ReportParameter("Fecha", Fecha))
                 params.Add(New ReportParameter("Almacen", Almacen))
@@ -4740,7 +4740,7 @@ Partial Class PopUpVerFactura
                         CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                         DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                     End If
-                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                    params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("Folio", Folio))
                     params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
                     params.Add(New ReportParameter("Fecha", Fecha))
@@ -4752,7 +4752,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                     params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
                     params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
-                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                    params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
 
                     If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
@@ -4780,7 +4780,7 @@ Partial Class PopUpVerFactura
                         CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                         DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                     End If
-                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                    params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("Folio", Folio))
                     params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
                     params.Add(New ReportParameter("Fecha", Fecha))
@@ -4792,7 +4792,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                     params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
                     params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
-                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                    params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
 
                     ImprimirPDF("Empresas/Grales/Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
@@ -4810,7 +4810,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Concepto", "Armado de Paquete"))
                 params.Add(New ReportParameter("Almacen", Almacen))
                 params.Add(New ReportParameter("Fecha", Fecha))
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("Folio", Folio))
                 params.Add(New ReportParameter("Descuentos", ""))
                 params.Add(New ReportParameter("IVA", ""))
@@ -4835,7 +4835,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Concepto", "Desarmado de Paquete"))
                 params.Add(New ReportParameter("Almacen", Almacen))
                 params.Add(New ReportParameter("Fecha", Fecha))
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("Folio", Folio))
                 params.Add(New ReportParameter("Descuentos", ""))
                 params.Add(New ReportParameter("IVA", ""))
@@ -4861,7 +4861,7 @@ Partial Class PopUpVerFactura
                 End If
                 params.Add(New ReportParameter("Almacen", Almacen))
                 params.Add(New ReportParameter("Fecha", Fecha))
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("Folio", Folio))
                 params.Add(New ReportParameter("Descuentos", ""))
                 params.Add(New ReportParameter("IVA", ""))
@@ -4888,7 +4888,7 @@ Partial Class PopUpVerFactura
             '    params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
             '    params.Add(New ReportParameter("Almacen", Almacen))
             '    params.Add(New ReportParameter("Fecha", Fecha))
-            '    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+            '    params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
             '    params.Add(New ReportParameter("Folio", Folio))
             '    params.Add(New ReportParameter("Descuentos", ""))
             '    params.Add(New ReportParameter("IVA", ""))
@@ -4915,7 +4915,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
                     params.Add(New ReportParameter("Almacen", Almacen))
                     params.Add(New ReportParameter("Fecha", Fecha))
-                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                    params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("Folio", Folio))
                     params.Add(New ReportParameter("Descuentos", ""))
                     params.Add(New ReportParameter("IVA", ""))
@@ -4997,7 +4997,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Concepto", ConceptoReporte))
                 params.Add(New ReportParameter("Almacen", Almacen))
                 params.Add(New ReportParameter("Fecha", Fecha))
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("Folio", Folio))
                 params.Add(New ReportParameter("Proveedor", Proveedor))
                 params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
@@ -5037,7 +5037,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
                 params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("NombreEntrego", Capturo))
                 params.Add(New ReportParameter("NombreRecibio", Recibio))
                 params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
@@ -5057,7 +5057,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("Observaciones", Observaciones))
                     params.Add(New ReportParameter("Almacen", Almacen))
                     params.Add(New ReportParameter("NombreRecibio", Recibio))
-                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                    params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                     ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidaDemostracion.rdlc", DtMovimientos, params, String.Format("Salida por Demostración - {0}", Folio.ToString), RDSName:="DsInventarios")
                 End If
@@ -5100,7 +5100,7 @@ Partial Class PopUpVerFactura
                             params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
                             params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
                             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                            params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                             params.Add(New ReportParameter("NombreEntrego", Capturo))
                             params.Add(New ReportParameter("NombreRecibio", Recibio))
 
@@ -5184,7 +5184,7 @@ Partial Class PopUpVerFactura
                             End If
 
                             params.Add(New ReportParameter("Concepto", ConceptoReporte))
-                            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                            params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                             params.Add(New ReportParameter("Folio", Folio))
                             params.Add(New ReportParameter("Almacen", Almacen))
                             params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
@@ -5207,7 +5207,7 @@ Partial Class PopUpVerFactura
                         Else
                             If UsuarioActual.CveEmpresa = 140 Then
                                 params.Add(New ReportParameter("Concepto", ConceptoReporte))
-                                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                                 params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
                             End If
                             params.Add(New ReportParameter("Folio", Folio))
@@ -5230,7 +5230,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
                         params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                         params.Add(New ReportParameter("Observaciones", Observaciones))
-                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("Folio", Folio))
                         params.Add(New ReportParameter("Descuentos", ""))
                         params.Add(New ReportParameter("IVA", ""))
@@ -5306,7 +5306,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Sucursal", "Sucursal"))
                 params.Add(New ReportParameter("Cliente", NombreCliente))
                 params.Add(New ReportParameter("Folio", Folio))
-                params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy hh:mm tt")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy hh:mm tt")))
                 params.Add(New ReportParameter("Recibio", Recibio))
                 params.Add(New ReportParameter("Observaciones", Observaciones))
                 'params.Add(New ReportParameter("Observaciones", "Observaciones con un tamaño mas grande para ver como se ve en el ticket chico."))
@@ -5331,7 +5331,7 @@ Partial Class PopUpVerFactura
                     CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
                     DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
                 End If
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("Folio", Folio))
                 params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
                 params.Add(New ReportParameter("Fecha", Fecha))
@@ -5343,7 +5343,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                 params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
                 params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
-                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
 
                 ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
@@ -5479,7 +5479,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Año", dr("Año").ToString))
                 params.Add(New ReportParameter("TelefonoContacto", dr("TelefonoContacto").ToString))
 
-                params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                 params.Add(New ReportParameter("Condiciones", dr("Condiciones").ToString))
                 params.Add(New ReportParameter("FechaAtencion", If(dr("FechaInicio").ToString.Length > 0, dr("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy hh:mm tt"), "")))
@@ -5503,7 +5503,7 @@ Partial Class PopUpVerFactura
 
             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("LogoPath", RutaImagenLogo))
 
@@ -5976,7 +5976,7 @@ Partial Class PopUpVerFactura
             Tabla = ObjIE.DtResultados
 
             Dim params As New List(Of ReportParameter)
-            params.Add(New ReportParameter("Fecha", Now.ToDateTime.ToString))
+            params.Add(New ReportParameter("Fecha", NowADS().ToDateTime.ToString))
             params.Add(New ReportParameter("FechaIE", ObjIE.DtResultados(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
             params.Add(New ReportParameter("CuentaCaja", CuentaCaja))
             params.Add(New ReportParameter("CuentaDeposito", CuentaDeposito))
@@ -6105,7 +6105,7 @@ Partial Class PopUpVerFactura
         ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then
 
             Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
-            Dim FechaExpedicion As Date = Now
+            Dim FechaExpedicion As Date = NowADS()
             Dim Importe As Double
             Dim FormatoCheque As String = ""
 
@@ -6218,7 +6218,7 @@ Partial Class PopUpVerFactura
             'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS
             Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
             Dim Ruta As String = UsuarioActual.Empresa.Ruta
-            Dim FechaExpedicion As Date = Now
+            Dim FechaExpedicion As Date = NowADS()
             Dim Importe As Double
             Dim FormatoCheque As String = ""
 
@@ -6302,7 +6302,7 @@ Partial Class PopUpVerFactura
                 If UsuarioActual.CveEmpresa = 72 Then
                     params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                    params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+                    params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
                     params.Add(New ReportParameter("CveCajaChica", DtComprobacion.Rows(0)("CveCajaChica").ToString))
                     params.Add(New ReportParameter("CveFyE", "0")) '
 
@@ -6319,7 +6319,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("Numero", "")) '
                     params.Add(New ReportParameter("Anio", DtComprobacion.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
                     params.Add(New ReportParameter("Nombre", DtComprobacion.MAX("SubProyecto")))
-                    params.Add(New ReportParameter("Fecha", Now.Date.ToString))
+                    params.Add(New ReportParameter("Fecha", NowADS().Date.ToString))
                     params.Add(New ReportParameter("Elaboro", ""))
                     params.Add(New ReportParameter("Autorizo", ""))
                     params.Add(New ReportParameter("ElaboroPuesto", ""))
@@ -6329,7 +6329,7 @@ Partial Class PopUpVerFactura
             Else
                 params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
 
                 params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
                 params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
@@ -6382,7 +6382,7 @@ Partial Class PopUpVerFactura
                     Dim paramList As New List(Of ReportParameter)
                     With paramList
                         .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                        .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+                        .Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
                         .Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                         .Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True))
                         .Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToString("dd/MM/yyyy"), True))

Compras/Proveedores.aspx.vb

@@ -449,7 +449,7 @@ Partial Class Compras_Proveedores
     Private Property FechaLimite As Date
         Get
             If ViewState("FechaLimite") Is Nothing Then
-                Return Date.Now.AddDays(15)
+                Return NowADS().AddDays(15)
             Else
                 Return ViewState("FechaLimite").ToString.ToDate
             End If
@@ -546,7 +546,7 @@ Partial Class Compras_Proveedores
 
                 ImgAddObs.Visible = False
                 ChkEstado.Checked = True : ChkEstado.Enabled = False
-                LblFechaCaptura.Text = Now.ToShortDateString()
+                LblFechaCaptura.Text = NowADS().ToShortDateString()
                 LblUsuarioCapturo.Text = UsuarioActual.Usuario
                 ViewState("CveProveedor") = -1
                 DivSucursales.Visible = False
@@ -625,8 +625,8 @@ Partial Class Compras_Proveedores
 
             End If
 
-            TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString
-            TxtFechaFCredito.Text = Now.ToShortDateString
+            TxtFechaICredito.Text = NowADS().AddYears(-2).ToShortDateString
+            TxtFechaFCredito.Text = NowADS().ToShortDateString
 
             If UsuarioActual.Empresa.Funcionalidad(560) = "1" Then
                 TabEvaluacion.Visible = True
@@ -734,7 +734,7 @@ Partial Class Compras_Proveedores
     Private Function CargadeFactura(CveFactura As Integer) As Integer
 
         Dim ObjeFacturas As New ClsCompras
-        If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-2), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) Then
+        If ObjeFacturas.GetFacturas(CveFactura, "-1", NowADS().AddYears(-2), NowADS(), "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) Then
             Dim XMLDoc As New XmlDocument
 
             Try
@@ -2229,7 +2229,7 @@ Partial Class Compras_Proveedores
             Dim Para As String = TxtCorreoCobranza.Text.Trim
 
             Dim Liga As String = ObjParametro.Cadena1 & "LogIn.aspx"
-            Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
+            Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsuario & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & NowADS().Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
 
             Dim ObjMail As New ClsSisMail()
 
@@ -3730,7 +3730,7 @@ Partial Class Compras_Proveedores
             lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
             lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxP.SelectedItem.Text))
             lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI)))
-            lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF)))
+            lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", NowADS().ToShortDateString, FF)))
             lista.Add(New CrystalParametro("NombreProveedor", LtlProveedor.Text))
             lista.Add(New CrystalParametro("DireccionProveedor", TxtDireccion.Text))
             lista.Add(New CrystalParametro("ProveedorRFC", TxtRFC.Text))
@@ -3885,7 +3885,7 @@ Partial Class Compras_Proveedores
     '        '    ArchivoTemp.Delete()
 
     '        '    Dim Descargas As New StringBuilder()
-    '        '    Descargas.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Empresas/{0}/PDF/CxP-{1}.pdf?{2}"">Reporte</a></li>", UsuarioActual.CveEmpresa, CveProveedor, Now.Ticks)
+    '        '    Descargas.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Empresas/{0}/PDF/CxP-{1}.pdf?{2}"">Reporte</a></li>", UsuarioActual.CveEmpresa, CveProveedor, NowADS().Ticks)
     '        '    Dim Msg As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Descargas.ToString) 'TipoMensaje.MsgInformacion
     '        '    Msg.Alert(Msg, TipoMensaje.MsgInformacion)
     '        'Catch ex As Exception
@@ -4010,7 +4010,7 @@ Partial Class Compras_Proveedores
     '        '    ArchivoTemp.Delete()
 
     '        '    Dim Descargas As New StringBuilder()
-    '        '    Descargas.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Empresas/{0}/PDF/Anticipos-{1}.pdf?{2}"">Reporte</a></li>", UsuarioActual.CveEmpresa, CveProveedor, Now.Ticks)
+    '        '    Descargas.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Empresas/{0}/PDF/Anticipos-{1}.pdf?{2}"">Reporte</a></li>", UsuarioActual.CveEmpresa, CveProveedor, NowADS().Ticks)
     '        '    Dim Msg As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Descargas.ToString) 'TipoMensaje.MsgInformacion
     '        '    Msg.Alert(Msg, TipoMensaje.MsgInformacion)
     '        'Catch ex As Exception
@@ -4081,7 +4081,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("FechaInicio", FI))
                 params.Add(New ReportParameter("FechaFin", FF))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
                 params.Add(New ReportParameter("NombreProveedor", LtlProveedor.Text))
                 params.Add(New ReportParameter("DireccionProveedor", TxtDireccion.Text))
                 params.Add(New ReportParameter("ProveedorRFC", TxtRFC.Text))
@@ -4482,7 +4482,7 @@ Partial Class Compras_Proveedores
                 params.Add(New ReportParameter("NombreProveedor", TxtRazonSocial.Text))
 
                 params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-                ImprimirPDF("Empresas/Grales/Formatos/ProveedorConciliacion.rdlc", ObjProveedores.DtResultados, params, String.Format("ProveedorConciliacion-{0}", Now.ToDateTime.ToShortDateString))
+                ImprimirPDF("Empresas/Grales/Formatos/ProveedorConciliacion.rdlc", ObjProveedores.DtResultados, params, String.Format("ProveedorConciliacion-{0}", NowADS().ToDateTime.ToShortDateString))
 
             End If
             ObjProveedores.Dispose()
@@ -4949,7 +4949,7 @@ Partial Class Compras_Proveedores
             DtVencido = ObjProveedores.DtResultados
         End If
 
-        If ObjFinanzas.GetRotacionCarteraProveedores(TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate, UsuarioActual.CveEmpresa, 1, "-1", " -1", CveProveedor, Now) Then
+        If ObjFinanzas.GetRotacionCarteraProveedores(TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate, UsuarioActual.CveEmpresa, 1, "-1", " -1", CveProveedor, NowADS()) Then
             DtRotacion = ObjFinanzas.DtResultados
         End If
 
@@ -5377,7 +5377,7 @@ Partial Class Compras_Proveedores
         TxtSerieFolio.Text = ""
         TxtPS.Text = ""
         TxtCodigoE.Text = ""
-        TxtFechaE.Text = Now.ToString("dd/MM/yyyy")
+        TxtFechaE.Text = NowADS().ToString("dd/MM/yyyy")
         TxtFirma.Text = ""
         TxtCalificacion.Text = ""
 
@@ -6050,7 +6050,7 @@ Partial Class Compras_Proveedores
             params.Add(New ReportParameter("AgrupadoPor", "Proveedor: " & LtlProveedor.Text))
 
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
+            ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & NowADS().ToString("yyyyMMddhhmmss"), Formato:=Formato)
         Else
             Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)
         End If

Compras/ProveedoresAuxiliar.aspx.vb

@@ -70,8 +70,8 @@ Partial Class Compras_ProveedoresAuxiliar
         'DdlConceptosContables.Items.Insert(0, New ListItem("Todos", "-1"))
 
 
-        txtFechaI.Text = Now.AddDays(-30).ToString("dd/MM/yyyy")
-        txtFechaF.Text = Now.ToString("dd/MM/yyyy")
+        txtFechaI.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
+        txtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
 
     End Sub
 
@@ -123,7 +123,7 @@ Partial Class Compras_ProveedoresAuxiliar
         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.ToString))
+        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString))
         params.Add(New ReportParameter("Filtros", $"<b>Filtros:</b> {Proveedor}{FechaIn}{FechaFn}{OpcionP}{TipoProv}{ContaP}"))
         params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
         ImprimirPDF("Empresas/Grales/Formatos/AuxiliarProveedor.rdlc", DtDatos, params, "AuxiliarProveedor", Opcion)

Compras/Reembolsos.aspx.vb

@@ -443,7 +443,7 @@ Partial Class Compras_Reembolsos
         TxtFolio.Text = ""
         TxtObservaciones.Text = ""
         TxtImporte.Text = ""
-        TxtFechaDocumento.Text = Date.Now.ToShortDateString
+        TxtFechaDocumento.Text = NowADS().ToShortDateString
         'DdlCuenta.SelectedValue = "-1"
         DdlTipoTransaccion.SelectedValue = "-1"
         DdlTipoTransaccionDiferencia_SelectedIndexChanged(DdlTipoTransaccion, EventArgs.Empty)
@@ -500,7 +500,7 @@ Partial Class Compras_Reembolsos
         DDlCheques.Items.Insert(0, New ListItem("Expedir Cheque", "-1"))
 
         If GvCxP.Rows.Count > 0 Then
-            TxtFechaDocumento.Text = Now.ToShortDateString
+            TxtFechaDocumento.Text = NowADS().ToShortDateString
             BtnIEGuardar.Enabled = True
 
             If Not DdlPersonal.SelectedValue = "-2" Then

Compras/ReembolsosComprobaciones.aspx.vb

@@ -123,7 +123,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
             If UsuarioActual.CveEmpresa = 119 Then ChkReembolsarSinBancos.Visible = True
 
-            TxtFechaPrePoliza.Text = Date.Now.ToShortDateString
+            TxtFechaPrePoliza.Text = NowADS().ToShortDateString
 
         End If
 
@@ -886,7 +886,7 @@ Partial Class Compras_ReembolsosComprobaciones
         TxtObservaciones.Text = ""
         TxtImporte.Text = ""
         TxtImporteVinculado.Text = ""
-        TxtFechaDocumento.Text = Date.Now.ToShortDateString
+        TxtFechaDocumento.Text = NowADS().ToShortDateString
         'DdlCuenta.SelectedValue = "-1"
         DdlTipoTransaccion.SelectedValue = "-1"
         DdlTipoTransaccionDiferencia_SelectedIndexChanged(DdlTipoTransaccion, EventArgs.Empty)
@@ -1004,7 +1004,7 @@ Partial Class Compras_ReembolsosComprobaciones
         DDlCheques_SelectedIndexChanged(DDlCheques, EventArgs.Empty)
 
         If GvCxP.Rows.Count > 0 Then
-            TxtFechaDocumento.Text = Now.ToShortDateString
+            TxtFechaDocumento.Text = NowADS().ToShortDateString
 
             'Valida Proceso 120 para ROL Administrador de obra - Si tiene el proceso no puede guardar
             If Not UsuarioActual.TienePermisoProceso(120) Then
@@ -1161,7 +1161,7 @@ Partial Class Compras_ReembolsosComprobaciones
             If UsuarioActual.CveEmpresa = 72 Then
                 params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+                params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
                 params.Add(New ReportParameter("CveCajaChica", CveCajaChica.ToString))
                 params.Add(New ReportParameter("CveFyE", CvePersonal.ToString))
                 params.Add(New ReportParameter("CajaChica", If(DdlCajaChica.SelectedValue.ToEntero > 0, "Caja chica: " & DdlCajaChica.SelectedItem.Text, "Funcionario/Empleado: " & DdlPersonal.SelectedItem.Text)))
@@ -1171,7 +1171,7 @@ Partial Class Compras_ReembolsosComprobaciones
                 params.Add(New ReportParameter("Numero", NumeroReembolso))
                 params.Add(New ReportParameter("Anio", DtDatos.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
                 params.Add(New ReportParameter("Nombre", DtDatos.MAX("SubProyecto")))
-                params.Add(New ReportParameter("Fecha", Now.Date.ToString))
+                params.Add(New ReportParameter("Fecha", NowADS().Date.ToString))
                 params.Add(New ReportParameter("Elaboro", ""))
                 params.Add(New ReportParameter("Autorizo", ""))
                 params.Add(New ReportParameter("ElaboroPuesto", ""))
@@ -1181,7 +1181,7 @@ Partial Class Compras_ReembolsosComprobaciones
         Else
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+            params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
 
             params.Add(New ReportParameter("CajaChica", If(DdlCajaChica.SelectedValue.ToEntero > 0, "Caja chica: " & DdlCajaChica.SelectedItem.Text, "Funcionario/Empleado: " & DdlPersonal.SelectedItem.Text)))
 
@@ -1242,8 +1242,8 @@ Partial Class Compras_ReembolsosComprobaciones
 #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
 End Class

Compras/RepAnt-NC-EXC.aspx.cs

@@ -115,7 +115,7 @@ public partial class Compras_RepAnt_NC_EXC : ClsPaginas
             List<ReportParameter> para = new List<ReportParameter>();
             para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
             para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
-            para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+            para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
             para.Add(new ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Proveedor}{Sucursal}{FechaI}{FechaF}{FechaICorte}{FechaFCorte}"));
             if (Imagen.Exists)
             {
@@ -181,7 +181,7 @@ public partial class Compras_RepAnt_NC_EXC : ClsPaginas
         if (TipoCambio == 3)
         {
             LiEspecifico.Visible = true;
-            TCEspecifico = get_GlobalTipoCambio(DateTime.Now).ToString().ToDouble();
+            TCEspecifico = get_GlobalTipoCambio(NowADS()).ToString().ToDouble();
             TxtEspecifico.Text = TCEspecifico.ToString();
         }
         else

Compras/RepAnt-NC-EXCDetalle.aspx.cs

@@ -59,8 +59,8 @@ public partial class Compras_RepAnt_NC_EXCDetalle : ClsPaginas
         DdlSucursal.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].ToString());
         DdlTipo.SelectedValueExist(Request["Tipo"] == null ? "-1" : Request["Tipo"].ToString());
         CveMoneda = Request["CveMoneda"] == null ? -1 : Request["CveMoneda"].ToString().ToEntero();
-        txtFechaI.Text = Request["FechaI"] == null ? DateTime.Now.ToString() : Request["FechaI"].ToString();
-        txtFechaF.Text = Request["FechaF"] == null ? DateTime.Now.ToString() : Request["FechaF"].ToString();
+        txtFechaI.Text = Request["FechaI"] == null ? NowADS().ToString() : Request["FechaI"].ToString();
+        txtFechaF.Text = Request["FechaF"] == null ? NowADS().ToString() : Request["FechaF"].ToString();
         TipoCambio = Request["TipoCambio"] == null ? 1 : Request["TipoCambio"].ToString().ToEntero();
         TCEspecifico = Request["TCEspecifico"] == null ? -1 : Request["TCEspecifico"].ToString().ToDouble();
         RblTipoCambio.SelectedValue = TipoCambio.ToString();
@@ -152,7 +152,7 @@ public partial class Compras_RepAnt_NC_EXCDetalle : ClsPaginas
             List<ReportParameter> para = new List<ReportParameter>();
             para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
             para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
-            para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToString()));
+            para.Add(new ReportParameter("FechaImpresion", NowADS().ToString()));
             para.Add(new ReportParameter("Tipo", Tipo.ToString()));
             para.Add(new ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Proveedor}{Sucursal}{ConSaldo}{Tipo2}{FechaI}{FechaF}{FechaICorte}{FechaFCorte}"));
             if (Imagen.Exists)
@@ -252,7 +252,7 @@ public partial class Compras_RepAnt_NC_EXCDetalle : ClsPaginas
         if (TipoCambio == 3)
         {
             LiEspecifico.Visible = true;
-            TCEspecifico = get_GlobalTipoCambio(DateTime.Now).ToString().ToDouble();
+            TCEspecifico = get_GlobalTipoCambio(NowADS()).ToString().ToDouble();
             TxtEspecifico.Text = TCEspecifico.ToString();
         }
         else

Compras/RepComplementoPago.aspx.vb

@@ -33,8 +33,8 @@ Partial Class Compras_RepComplementoPago
 #Region "  INICIALIZA VALORES  "
     Private Sub InicializaValores()
 
-        TxtFiltrosFechaInicio.Text = Now.FirstDayOfMonth.ToShortDateString
-        TxtFiltrosFechaFin.Text = Now.ToShortDateString
+        TxtFiltrosFechaInicio.Text = NowADS().FirstDayOfMonth.ToShortDateString
+        TxtFiltrosFechaFin.Text = NowADS().ToShortDateString
 
         DdlProveedores.setEsWebService(True)
         DdlProveedores.Attributes.Add("data-metodo", "getproveedores")

Compras/RepCompras.aspx.vb

@@ -65,7 +65,7 @@ Partial Class Compras_RepCompras
     End Sub
 
     Private Sub CargaCombos()
-        txtFechaI.Text = $"01/01/{Now.Year}"
+        txtFechaI.Text = $"01/01/{NowADS().Year}"
 
         'Carga Tipo Centro de Costo
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
@@ -114,7 +114,7 @@ Partial Class Compras_RepCompras
         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
@@ -298,7 +298,7 @@ Partial Class Compras_RepCompras
 
 #Region "I M P R I M I R"
     Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-        GvDatos.ExportToExcel("ReporteCompras" & Now.ToShortDateString)
+        GvDatos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)
     End Sub
 
     Private Sub GenerarPDF()
@@ -328,7 +328,7 @@ Partial Class Compras_RepCompras
             params.Add(New ReportParameter("FechaFin", FechaF))
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            params.Add(New ReportParameter("FechaImpresion", Now.ToString))
+            params.Add(New ReportParameter("FechaImpresion", NowADS().ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{Proveedor}{Capturo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{FechaICaptura}{FechaFCaptura}{TipoDocto}"))
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
             ImprimirPDF("Empresas/Grales/Formatos/RepCompras.rdlc", DtCompras, params, "ReporteCompras")

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

Compras/RepComprasAFDetalle.aspx.vb

@@ -304,7 +304,7 @@ Partial Class Compras_RepComprasAFDetalle
         GenerarPDF()
     End Sub
     Private Sub LnkExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles LnkExcelPersonalizado.Click
-        GvDatos.ExportToExcel("ComprasDetalle_" + DdlPS.txtValue.Value + Now.ToShortDateString)
+        GvDatos.ExportToExcel("ComprasDetalle_" + DdlPS.txtValue.Value + NowADS().ToShortDateString)
     End Sub
 
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
@@ -331,10 +331,10 @@ Partial Class Compras_RepComprasAFDetalle
         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(RutaPDF, DTDatos, params, "ReporteComprasAFDetalle_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
+        ImprimirPDF(RutaPDF, DTDatos, params, "ReporteComprasAFDetalle_" & NowADS().ToString("yyyyMMddmmss"), Formato:=Formato)
 
 
     End Sub
@@ -344,7 +344,7 @@ Partial Class Compras_RepComprasAFDetalle
         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

Compras/RepComprasDetalle.aspx.vb

@@ -229,7 +229,7 @@ Partial Class Compras_RepComprasDetalle
         Dim SubProyectos As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
         Dim TipoGasto As String = IIf(DdlTipoGasto.GetSelectedValuesM = "", "-1", DdlTipoGasto.GetSelectedValuesM).ToString
 
-        If ObjCompras.GetRepComprasDetalle(DdlGrupo.SelectedValue.ToEntero, IfNull(Request("Anio"), Now.Year).ToString.ToEntero, IfNull(Request("Mes"), "-1").ToString.ToEntero, AnioMes, IfNull(Request("Fecha"), "-1").ToString(),
+        If ObjCompras.GetRepComprasDetalle(DdlGrupo.SelectedValue.ToEntero, IfNull(Request("Anio"), NowADS().Year).ToString.ToEntero, IfNull(Request("Mes"), "-1").ToString.ToEntero, AnioMes, IfNull(Request("Fecha"), "-1").ToString(),
                                            DdlProveedores.SelectedValue.ToEntero, CveMoneda, DdlUsuario.SelectedValue.ToEntero, FechaI, FechaF, DDlUsuarioCaptura.SelectedValue.ToEntero,
                                            IfNull(Request("NumeroRemesa"), "-1").ToString.ToEntero, IfNull(Request("CveUsuarioRemesa"), "-1").ToString.ToEntero, FechaICaptura, FechaFCaptura, IfNull(Request("FechaCaptura"), "-1").ToString,
                                            SubProyectos, DdlTipoDocto.SelectedValue, UsuarioActual.CveEmpresa,
@@ -264,7 +264,7 @@ Partial Class Compras_RepComprasDetalle
         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
@@ -317,7 +317,7 @@ Partial Class Compras_RepComprasDetalle
         params.Add(New ReportParameter("Numero", NumeroRemesa))
         params.Add(New ReportParameter("Anio", DtDatos.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
         params.Add(New ReportParameter("Nombre", DtDatos.MAX("SubProyecto")))
-        params.Add(New ReportParameter("Fecha", Now.Date.ToString))
+        params.Add(New ReportParameter("Fecha", NowADS().Date.ToString))
         params.Add(New ReportParameter("Elaboro", Elaboro))
         params.Add(New ReportParameter("Autorizo", ""))
         params.Add(New ReportParameter("ElaboroPuesto", ""))
@@ -325,7 +325,7 @@ Partial Class Compras_RepComprasDetalle
         ImprimirPDF(String.Format("{0}Formatos\Remesa.rdlc", UsuarioActual.Empresa.Ruta), DtDatos.FiltraParametros("CveCompra > 0"), params, "Remesa", RDSName:="DsCompras")
     End Sub
     Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-        'GvDatos.ExportToExcel("ReporteComprasDetalles" & Now.ToShortDateString)
+        'GvDatos.ExportToExcel("ReporteComprasDetalles" & NowADS().ToShortDateString)
         GenerarPDF("EXCEL")
     End Sub
 
@@ -374,7 +374,7 @@ Partial Class Compras_RepComprasDetalle
             params.Add(New ReportParameter("FechaFin", FechaF))
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            params.Add(New ReportParameter("FechaImpresion", Now.ToString))
+            params.Add(New ReportParameter("FechaImpresion", NowADS().ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{Proveedor}{Capturo}{FechaIn}{FechaFn}{FechaCIn}{FechaCFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{TipoDocto}"))
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
             ImprimirPDF("Empresas/Grales/Formatos/RepComprasDetalle.rdlc", DtDatos, params, "ReporteComprasDetalles", Opcion)

Compras/RepComprasG.aspx.vb

@@ -27,8 +27,8 @@ Partial Class Compras_RepComprasG
         DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
         DdlProveedores.DataBind()
 
-        'TxtFechaICaptura.Text = Now.AddMonths(-1).FirstDayOfMonth.ToShortDateString
-        'TxtFechaFCaptura.Text = Now.ToShortDateString
+        'TxtFechaICaptura.Text = NowADS().AddMonths(-1).FirstDayOfMonth.ToShortDateString
+        'TxtFechaFCaptura.Text = NowADS().ToShortDateString
 
         DDlUsuarioCaptura.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
         DDlUsuarioCaptura.DataBind()
@@ -89,7 +89,7 @@ Partial Class Compras_RepComprasG
         End If
     End Sub
     Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        GvDatos.ExportToExcel("ReporteCompras" & Now.ToShortDateString)
+        GvDatos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)
     End Sub
 
 End Class

Compras/RepComprasInventarios.aspx.cs

@@ -37,10 +37,10 @@ public partial class Compras_RepComprasInventarios : ClsPaginas
 
     protected void InicializaDatos()
     {
-        txtFechaIC.Text = new DateTime(DateTime.Now.Year, DateTime.Now.Month - 1, DateTime.Now.Day).ToShortDateString();
-        txtFechaFC.Text = DateTime.Now.ToShortDateString();
-        txtFechaI.Text = new DateTime(DateTime.Now.Year, DateTime.Now.Month - 1, DateTime.Now.Day).ToShortDateString();
-        txtFechaF.Text = DateTime.Now.ToShortDateString();
+        txtFechaIC.Text = new DateTime(NowADS().Year, NowADS().Month - 1, NowADS().Day).ToShortDateString();
+        txtFechaFC.Text = NowADS().ToShortDateString();
+        txtFechaI.Text = new DateTime(NowADS().Year, NowADS().Month - 1, NowADS().Day).ToShortDateString();
+        txtFechaF.Text = NowADS().ToShortDateString();
 
         CargaCombos();
 
@@ -63,9 +63,9 @@ public partial class Compras_RepComprasInventarios : ClsPaginas
         ClsCompras ObjCompras = new ClsCompras();
 
         DateTime FechaIC = (txtFechaIC.Text.ToString() != "" ? txtFechaIC.Text.ToDateTime() : MinFecha);
-        DateTime FechaFC = (txtFechaFC.Text.ToString() != "" ? txtFechaFC.Text.ToDateTime() : DateTime.Now);
+        DateTime FechaFC = (txtFechaFC.Text.ToString() != "" ? txtFechaFC.Text.ToDateTime() : NowADS());
         DateTime FechaI = (txtFechaI.Text.ToString() != "" ? txtFechaI.Text.ToDateTime() : MinFecha);
-        DateTime FechaF = (txtFechaF.Text.ToString() != "" ? txtFechaF.Text.ToDateTime() : DateTime.Now);
+        DateTime FechaF = (txtFechaF.Text.ToString() != "" ? txtFechaF.Text.ToDateTime() : NowADS());
 
         if (ObjCompras.GetRepComprasInventarios(FechaIC, FechaFC, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero(), DdlProveedor.SelectedValue.ToEntero()))
         {

Compras/RepComprasPeriodo.aspx.vb

@@ -124,7 +124,7 @@ Partial Class Compras_RepComprasPeriodo
         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
@@ -208,7 +208,7 @@ Partial Class Compras_RepComprasPeriodo
 
 #Region "IMPRIMIR"
     Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles LnkExportar.Click
-        GvDatos.ExportToExcel("ReporteComprasPeriodo_" & Now.ToShortDateString)
+        GvDatos.ExportToExcel("ReporteComprasPeriodo_" & NowADS().ToShortDateString)
     End Sub
     Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
         Dim ObjCompras As New ClsCompras()
@@ -252,7 +252,7 @@ Partial Class Compras_RepComprasPeriodo
             params.Add(New ReportParameter("FechaFin", FechaF))
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            params.Add(New ReportParameter("FechaImpresion", Now.ToString))
+            params.Add(New ReportParameter("FechaImpresion", NowADS().ToString))
             params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Proveedor}{Capturo}{Grupo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}"))
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
             ImprimirPDF("Empresas/Grales/Formatos/RepComprasPeriodo.rdlc", dt, params, "RepComprasPeriodo")

Compras/RepComprasPersonal.aspx.vb

@@ -197,10 +197,10 @@ Partial Class Compras_RepComprasPersonal
         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\RepComprasPersonal.rdlc", DTDatos, params, "ReporteComprasPersonal_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
+        ImprimirPDF("Empresas\Grales\Formatos\RepComprasPersonal.rdlc", DTDatos, params, "ReporteComprasPersonal_" & NowADS().ToString("yyyyMMddmmss"), Formato:=Formato)
     End Sub
 
 #End Region
@@ -210,7 +210,7 @@ Partial Class Compras_RepComprasPersonal
         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

Compras/RepComprasPersonalDetalle.aspx.vb

@@ -329,12 +329,12 @@ Partial Class Compras_RepComprasPersonalDetalle
         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\RepComprasPersonalDetalle.rdlc", DTDatos, params, "ReporteComprasPersonalDetalle_" & Now.ToString("yyyyMMddmmss"), Formato:=Formato)
+        ImprimirPDF("Empresas\Grales\Formatos\RepComprasPersonalDetalle.rdlc", DTDatos, params, "ReporteComprasPersonalDetalle_" & NowADS().ToString("yyyyMMddmmss"), Formato:=Formato)
 
 
     End Sub
@@ -347,7 +347,7 @@ Partial Class Compras_RepComprasPersonalDetalle
         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

Compras/RepCxP.aspx.vb

@@ -165,7 +165,7 @@ Partial Class Compras_RepCxP
         DdlUsuarioRegistro.DataBind()
         DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        txtCorteA.Text = $"31/12/{Now.Year}"
+        txtCorteA.Text = $"31/12/{NowADS().Year}"
 
         'Dim ObjSisUsuarios As New ClsSisUsuarios()
 
@@ -557,7 +557,7 @@ Partial Class Compras_RepCxP
                 FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
                 FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
                 FechaVI = If(IsDate(txtFechaVI.Text.Trim()), txtFechaVI.Text.Trim(), "-1")
-                FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), Date.Now.ToShortDateString)
+                FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), NowADS().ToShortDateString)
                 If DdlGrupo.SelectedValue.ToEntero = 11 Then
                     If e.Row.DBCampo("CveSubProyecto") = "-1" Then
                         e.Row.CssClass = "Totales"
@@ -1499,7 +1499,7 @@ Partial Class Compras_RepCxP
             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("Grupo", DdlGrupo.SelectedItem.Text))
             params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{Clasificacion}{FechaIn}{FechaFn}{Registro}{Responsable}{Proyecto}{Sucursal}{TipoMoneda}{FVI}{FVF}"))
             params.Add(New ReportParameter("CantColumnas", CantidadColumnas.ToString))
@@ -1519,7 +1519,7 @@ Partial Class Compras_RepCxP
         If RblTipoCambio.SelectedValue = "3" Then
             Dim TipoCambio As Double
             LiEspecifico.Visible = True
-            TipoCambio = GlobalTipoCambio(Now)
+            TipoCambio = GlobalTipoCambio(NowADS())
             TxtEspecifico.Text = TipoCambio.ToString
         Else
             LiEspecifico.Visible = False

Compras/RepCxPDetalle.aspx.vb

@@ -286,8 +286,8 @@ Partial Class RepCxPDetalle
         FechaFin = IfNull(Request("FechaF"), "-1").ToString
         FechaVInicio = IfNull(Request("FechaVI"), "-1").ToString
         FechaVFin = IfNull(Request("FechaVF"), "-1").ToString
-        FechaCorte = IfNull(Request("FechaCorte"), Now.ToDate.ToString).ToString
-        txtCorteA.Text = $"31/12/{Now.Year}"
+        FechaCorte = IfNull(Request("FechaCorte"), NowADS().ToDate.ToString).ToString
+        txtCorteA.Text = $"31/12/{NowADS().Year}"
 
         If Request("FechaI") <> "-1" AndAlso IsDate(Request("FechaI")) Then txtFechaI.Text = Request("FechaI")
         If Request("FechaF") <> "-1" AndAlso IsDate(Request("FechaF")) Then txtFechaF.Text = Request("FechaF")
@@ -653,10 +653,10 @@ Partial Class RepCxPDetalle
 
     Protected Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click
         'GvVsh.Visible = True
-        'GvVsh.ExportToExcel("DetalleVentas_" & Now.ToShortDateString)
+        'GvVsh.ExportToExcel("DetalleVentas_" & NowADS().ToShortDateString)
         'GvVsh.Visible = False
-        GvDatos.ExportToExcel("DetalleCompras_" & Now.ToShortDateString & ".xls")
-        'GvDatos.ExportToExcelG("DetalleVentas_" & Now.ToShortDateString & ".xlsx")
+        GvDatos.ExportToExcel("DetalleCompras_" & NowADS().ToShortDateString & ".xls")
+        'GvDatos.ExportToExcelG("DetalleVentas_" & NowADS().ToShortDateString & ".xlsx")
     End Sub
 
 
@@ -684,7 +684,7 @@ Partial Class RepCxPDetalle
         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))
         'PARA  REPORTE
         Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
         Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedores.SelectedText}")
@@ -714,7 +714,7 @@ Partial Class RepCxPDetalle
         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

Compras/RepCxPPeriodo.aspx.cs

@@ -85,7 +85,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
         DdlUsuarioRegistro.DataBind();
         DdlUsuarioRegistro.Items.Insert(0, new ListItem("Todos", "-1"));
 
-        txtCorteA.Text = $"31/12/{DateTime.Now.Year}";
+        txtCorteA.Text = $"31/12/{NowADS().Year}";
     }
 
     private void Consulta()
@@ -122,7 +122,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
         if (TipoCambio == 3)
         {
             LiEspecifico.Visible = true;
-            TCEspecifico = get_GlobalTipoCambio(DateTime.Now);
+            TCEspecifico = get_GlobalTipoCambio(NowADS());
             TxtEspecifico.Text = TCEspecifico.ToString();
         }
         else
@@ -285,7 +285,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
         List<ReportParameter> para = new List<ReportParameter>();
         para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
         para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
-        para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
+        para.Add(new ReportParameter("FechaImpresion", NowADS().ToShortDateString()));
         para.Add(new ReportParameter("Filtros", StrFiltro.ToString()));
         if (Imagen.Exists)
         {
@@ -295,7 +295,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
         {
             para.Add(new ReportParameter("LogoPath", ""));
         }
-        ImprimirPDF(RutaPDF, DtDatos, para, "RepCxPPeriodo" + DateTime.Now.ToString("yyyyMMddhhmmss"), Opcion);
+        ImprimirPDF(RutaPDF, DtDatos, para, "RepCxPPeriodo" + NowADS().ToString("yyyyMMddhhmmss"), Opcion);
     }
     protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e)
     {

Compras/RepDocumentacionProveedor.aspx.vb

@@ -164,7 +164,7 @@ Partial Class Proveedores_RepDocumentacionProveedor
     Private Property FechaLimite As Date
         Get
             If ViewState("FechaLimite") Is Nothing Then
-                Return Date.Now.AddDays(15)
+                Return NowADS().AddDays(15)
             Else
                 Return ViewState("FechaLimite").ToString.ToDate
             End If
@@ -195,8 +195,8 @@ Partial Class Proveedores_RepDocumentacionProveedor
         If Not Page.IsPostBack Then
             CargaCombos()
 
-            'TxtFechaI.Text = Now.AddMonths(-3).ToString("dd/MM/yyyy")
-            'TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
+            'TxtFechaI.Text = NowADS().AddMonths(-3).ToString("dd/MM/yyyy")
+            'TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
 
             TxtFechaI.Text = ""
             TxtFechaF.Text = ""

Compras/RepEvaluacionProveedor.aspx.vb

@@ -13,7 +13,7 @@ Partial Class RepEvaluacionProveedor
             DdlProveedor.DataBind()
             DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
-            Dim dNow As Date = Now
+            Dim dNow As Date = NowADS()
             TxtFechaF.Text = dNow.ToString("dd/MM/yyyy")
             dNow = dNow.AddDays(-30)
             TxtFechaI.Text = dNow.ToString("dd/MM/yyyy")

Compras/RepEvaluacionesProveedores.aspx.vb

@@ -27,7 +27,7 @@ Partial Class RepEvaluacionesProveedores
         DdlProveedor.DataBind()
         DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        Dim dNow As Date = Now
+        Dim dNow As Date = NowADS()
         TxtFechaF.Text = dNow.ToString("dd/MM/yyyy")
         dNow = dNow.AddDays(-30)
         TxtFechaI.Text = dNow.ToString("dd/MM/yyyy")
@@ -65,6 +65,6 @@ Partial Class RepEvaluacionesProveedores
     End Sub
 
     Public Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-        GV.ExportToExcel("Evaluaciones de Proveedores" & Now.ToShortDateString & ".xls")
+        GV.ExportToExcel("Evaluaciones de Proveedores" & NowADS().ToShortDateString & ".xls")
     End Sub
 End Class

Compras/RepGastos.aspx.vb

@@ -33,8 +33,8 @@ Partial Class RepGastos
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            TxtPA_VfechaInicio.Text = FirstDayOfMonth(Now).ToShortDateString
-            TxtPA_VfechaFin.Text = LastDayOfMonth(Now).ToShortDateString
+            TxtPA_VfechaInicio.Text = FirstDayOfMonth(NowADS()).ToShortDateString
+            TxtPA_VfechaFin.Text = LastDayOfMonth(NowADS()).ToShortDateString
 
             CargaPA_Vta_ReporteGastosCentroCostoGet()
         End If

Compras/RepGastosFijos.aspx.cs

@@ -96,8 +96,8 @@ public partial class Compras_RepGastosFijos : ClsPaginas
 
     protected void InicializaDatos()
     {
-        DateTime FI = new DateTime(DateTime.Now.Year, DateTime.Now.Month, 1);
-        DateTime FF = new DateTime(DateTime.Now.Year, DateTime.Now.Month, DateTime.DaysInMonth(DateTime.Now.Year, DateTime.Now.Month));
+        DateTime FI = new DateTime(NowADS().Year, NowADS().Month, 1);
+        DateTime FF = new DateTime(NowADS().Year, NowADS().Month, DateTime.DaysInMonth(NowADS().Year, NowADS().Month));
         FechaInicio = FI.ToShortDateString();
         FechaFin = FF.ToShortDateString();
         TxtFechaI.Text = FechaInicio;
@@ -236,7 +236,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
         @params.Add(new ReportParameter("FechaFin", FechaFinal));
 
         @params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
-        @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
+        @params.Add(new ReportParameter("FechaImpresion", NowADS().ToShortDateString()));
 
         if (Imagen.Exists)
         {
@@ -247,7 +247,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas
             @params.Add(new ReportParameter("LogoPath", ""));
         }
 
-        ImprimirPDF(RutaPDF, DTDatos, @params, "RepGastosFijos " + DateTime.Now.ToString("yyyy-MM-dd"), Formato);
+        ImprimirPDF(RutaPDF, DTDatos, @params, "RepGastosFijos " + NowADS().ToString("yyyy-MM-dd"), Formato);
     }
 
     #endregion

Compras/RepGastosSemanal.aspx.cs

@@ -40,8 +40,8 @@ public partial class Compras_RepGastosSemanal : ClsPaginas
         if (!IsPostBack)
         {
             InicializaValores();
-        }
-    }
+        }
+    }
 
     #region CARGAS
 
@@ -170,7 +170,7 @@ public partial class Compras_RepGastosSemanal : ClsPaginas
     protected void GenerarPDF(String Opcion)
     {
 
-        if (DtPagos.Rows.Count > 0 || DtPrestamo.Rows.Count > 0 || DtTraspaso.Rows.Count > 0 || DtFondo.Rows.Count > 0)
+        if (DtPagos.Rows.Count > 0 || DtPrestamo.Rows.Count > 0 || DtTraspaso.Rows.Count > 0 || DtFondo.Rows.Count > 0)
         {
             System.IO.FileInfo Imagen = new System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png");
             String logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa);

Compras/RepImportaciones.aspx.vb

@@ -26,8 +26,8 @@ Partial Class Compras_RepImportaciones
     End Sub
 
     Private Sub InicializaValores()
-        TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString
-        TxtFechaF.Text = Date.Now.ToShortDateString
+        TxtFechaI.Text = NowADS().AddDays(-NowADS().DayOfYear + 1).ToShortDateString
+        TxtFechaF.Text = NowADS().ToShortDateString
 
         DdlProveedores.setEsWebService(True)
         DdlProveedores.Attributes.Add("data-metodo", "getproveedores")

Compras/RepNotasCredito.aspx.vb

@@ -25,7 +25,7 @@ Partial Class Compras_RepNotasCredito
             DdlProveedores.SelectedText = "Todos"
             DdlProveedores.SelectedValue = "-1"
 
-            TxtFechaSaldar.Text = Now.ToShortDateString
+            TxtFechaSaldar.Text = NowADS().ToShortDateString
             CargaDatos()
         End If
     End Sub
@@ -61,7 +61,7 @@ Partial Class Compras_RepNotasCredito
     End Sub
 
     Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        GvDatos.ExportToExcel("RepNotasCredito." & Now.ToShortDateString)
+        GvDatos.ExportToExcel("RepNotasCredito." & NowADS().ToShortDateString)
 
     End Sub
 
@@ -90,11 +90,11 @@ Partial Class Compras_RepNotasCredito
             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("Filtros", StrFiltro.ToString))
 
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-            ImprimirPDF("Empresas/Grales/Formatos/RepNotasCredito.rdlc", DtDatos, params, String.Format("ReporteVentas-{0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
+            ImprimirPDF("Empresas/Grales/Formatos/RepNotasCredito.rdlc", DtDatos, params, String.Format("ReporteVentas-{0}", NowADS().ToDateTime.ToShortDateString), Formato:=Formato)
         Else
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If

Compras/RepPUESinPago.aspx.vb

@@ -24,8 +24,8 @@ Partial Class Compras_RepPUESinPago
     End Sub
 
     Private Sub InicializaValores()
-        TxtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString
-        TxtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
+        TxtFechaI.Text = FirstDayOfMonth(NowADS()).ToShortDateString
+        TxtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
 
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()

Compras/RepPagado.aspx.cs

@@ -67,11 +67,11 @@ public partial class Compras_RepPagado : ClsPaginas
 
         CargaCuentasBancarias();
 
-        txtFechaI.Text = $"01/{DateTime.Now.Month}/{DateTime.Now.Year}";
-        txtFechaF.Text = DateTime.Now.ToShortDateString();
+        txtFechaI.Text = $"01/{NowADS().Month}/{NowADS().Year}";
+        txtFechaF.Text = NowADS().ToShortDateString();
 
-        TxtFechaICompra.Text = MinFecha.ToShortDateString(); //$"01/01/{DateTime.Now.Year}";
-        TxtFechaFCompra.Text = DateTime.Now.ToShortDateString();
+        TxtFechaICompra.Text = MinFecha.ToShortDateString(); //$"01/01/{NowADS().Year}";
+        TxtFechaFCompra.Text = NowADS().ToShortDateString();
     }
 
 
@@ -250,7 +250,7 @@ public partial class Compras_RepPagado : ClsPaginas
         List<ReportParameter> para = new List<ReportParameter>();
         para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
         para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
-        para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
+        para.Add(new ReportParameter("FechaImpresion", NowADS().ToShortDateString()));
         para.Add(new ReportParameter("Filtros", StrFiltro.ToString()));
 
         if (Imagen.Exists)
@@ -262,7 +262,7 @@ public partial class Compras_RepPagado : ClsPaginas
             para.Add(new ReportParameter("LogoPath", ""));
         }
 
-        ImprimirPDF(RutaPDF,DtPagado, para, "RepPagado" + DateTime.Now.ToString("yyyyMMddhhmmss"), Opcion);
+        ImprimirPDF(RutaPDF,DtPagado, para, "RepPagado" + NowADS().ToString("yyyyMMddhhmmss"), Opcion);
     }
 
     protected void LnkVerGrafica_Click(object sender, EventArgs e)

Compras/RepPagadoDetalle.aspx.cs

@@ -71,8 +71,8 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
 
         CargaCuentasBancarias();
 
-        txtFechaI.Text = $"01/{DateTime.Now.Month}/{DateTime.Now.Year}";
-        txtFechaF.Text = DateTime.Now.ToShortDateString();
+        txtFechaI.Text = $"01/{NowADS().Month}/{NowADS().Year}";
+        txtFechaF.Text = NowADS().ToShortDateString();
         txtFechaI.Text = Request["FechaI"] == null ? "" : Request["FechaI"].ToString();
         txtFechaF.Text = Request["FechaF"] == null ? "" : Request["FechaF"].ToString();
         TxtFechaICompra.Text = Request["FechaICompra"] == null ? "" : Request["FechaICompra"].ToString();
@@ -245,7 +245,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
         List<ReportParameter> para = new List<ReportParameter>();
         para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
         para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
-        para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
+        para.Add(new ReportParameter("FechaImpresion", NowADS().ToShortDateString()));
         para.Add(new ReportParameter("Filtros", StrFiltro.ToString()));
         para.Add(new ReportParameter("TipoCentroCosto", UsuarioActual.Empresa.Tipo_CentroCosto.ToString()));
         if (Imagen.Exists)
@@ -256,6 +256,6 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
         {
             para.Add(new ReportParameter("LogoPath", ""));
         }
-        ImprimirPDF(RutaPDF, DtPagado, para, "RepPagadoDetalle" + DateTime.Now.ToString("yyyyMMddhhmmss"), Opcion);
+        ImprimirPDF(RutaPDF, DtPagado, para, "RepPagadoDetalle" + NowADS().ToString("yyyyMMddhhmmss"), Opcion);
     }
 }

Compras/RepPagadoPeriodo.aspx.cs

@@ -72,11 +72,11 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
 
         CargaCuentasBancarias();
 
-        txtFechaI.Text = $"01/{DateTime.Now.Month}/{DateTime.Now.Year}";
-        txtFechaF.Text = DateTime.Now.ToShortDateString();
+        txtFechaI.Text = $"01/{NowADS().Month}/{NowADS().Year}";
+        txtFechaF.Text = NowADS().ToShortDateString();
 
-        TxtFechaICompra.Text = MinFecha.ToShortDateString(); //'$"01/01/{DateTime.Now.Year}";
-        TxtFechaFCompra.Text = DateTime.Now.ToShortDateString();
+        TxtFechaICompra.Text = MinFecha.ToShortDateString(); //'$"01/01/{NowADS().Year}";
+        TxtFechaFCompra.Text = NowADS().ToShortDateString();
 
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:DivProyecto);
     }
@@ -252,7 +252,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
         List<ReportParameter> para = new List<ReportParameter>();
         para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
         para.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
-        para.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
+        para.Add(new ReportParameter("FechaImpresion", NowADS().ToShortDateString()));
         para.Add(new ReportParameter("Filtros", StrFiltro.ToString()));
         if (Imagen.Exists)
         {
@@ -262,7 +262,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
         {
             para.Add(new ReportParameter("LogoPath", ""));
         }
-        ImprimirPDF(RutaPDF, DtDatos, para, "RepPagadoPeriodo" + DateTime.Now.ToString("yyyyMMddhhmmss"), Opcion);
+        ImprimirPDF(RutaPDF, DtDatos, para, "RepPagadoPeriodo" + NowADS().ToString("yyyyMMddhhmmss"), Opcion);
     }
 
     protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e)
@@ -318,7 +318,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
         if (TipoCambio == 3)
         {
             LiEspecifico.Visible = true;
-            TCEspecifico = get_GlobalTipoCambio(DateTime.Now);
+            TCEspecifico = get_GlobalTipoCambio(NowADS());
             TxtEspecifico.Text = TCEspecifico.ToString();
         }
         else

Compras/RepProductosServicios.aspx.vb

@@ -156,8 +156,8 @@ Partial Class Compras_RepProductosServicios
         RowActivoFijo.Visible = True
 
         'Carga Fechas
-        txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
-        txtFechaF.Text = Now.ToShortDateString
+        txtFechaI.Text = FirstDayOfMonth(NowADS().AddMonths(-5)).ToShortDateString
+        txtFechaF.Text = NowADS().ToShortDateString
 
         TipoCambio = 1
         TCEspecifico = 0
@@ -390,7 +390,7 @@ Partial Class Compras_RepProductosServicios
         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
@@ -416,7 +416,7 @@ Partial Class Compras_RepProductosServicios
 
     Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
         GeneraPDF("Excel")
-        'GvDatos.ExportToExcel("ReporteProductosServicios" & Now.ToShortDateString)
+        'GvDatos.ExportToExcel("ReporteProductosServicios" & NowADS().ToShortDateString)
     End Sub
 
     Protected Sub GeneraPDF(Optional Formato As String = "PDF")
@@ -439,7 +439,7 @@ Partial Class Compras_RepProductosServicios
         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", DateTime.Now.ToString()))
+        params.Add(New ReportParameter("FechaImpresion", NowADS().ToString()))
 
         params.Add(New ReportParameter("Filtros", $"{Grupo}{Proveedor}{FechaInicio}{FechaFin}{TipoGasto}{Categoria}{Clasificacion}{PS}{Proyecto}{Estatus}{Usuario}{TipoAF}{SubTipoAF}{AF}"))
         'params.Add(New ReportParameter("Proveedor", DdlProveedor.SelectedItem.Text))

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -263,8 +263,8 @@ Partial Class Compras_RepProductosServiciosDetalle
         RowActivoFijo.Visible = True
 
         'Carga Fechas
-        txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
-        txtFechaF.Text = Now.ToShortDateString
+        txtFechaI.Text = FirstDayOfMonth(NowADS().AddMonths(-5)).ToShortDateString
+        txtFechaF.Text = NowADS().ToShortDateString
 
         TipoCambio = 1
         TCEspecifico = 0
@@ -461,7 +461,7 @@ Partial Class Compras_RepProductosServiciosDetalle
         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
@@ -520,7 +520,7 @@ Partial Class Compras_RepProductosServiciosDetalle
             '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("AgrupoPor", $"{Grupo}{Proyecto}{TipoGasto}{SubProyecto}{Categoria}{Clasificacion}{PS}{Proveedor}{Estatus}{TipoAF}{SubTipoAF}{FechaIn}{FechaFn}"))
 
             params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

Compras/RepProductosServiciosPeriodo.aspx.cs

@@ -192,7 +192,7 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
     protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
     {
         CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
-    }
+    }
 
     protected void RblTipoCambio_SelectedIndexChanged(object sender, EventArgs e)
     {
@@ -335,7 +335,7 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
             DataTable dt = DtDatos.FiltraParametros("", "Orden");
             string FechaI, FechaF;
             if (txtFechaI.Text == "" || txtFechaI.Text == "__/__/____") { FechaI = "-1"; } else { FechaI = txtFechaI.Text; }
-            if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = "-1"; } else { FechaF = txtFechaF.Text; }
+            if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = "-1"; } else { FechaF = txtFechaF.Text; }
             List<ReportParameter> para = new List<ReportParameter>();
             para.Add(new ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa));
             para.Add(new ReportParameter("FechaInicio", FechaI));
@@ -355,7 +355,7 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
             ImprimirPDF("Empresas/Grales/Formatos/RepComprasPeriodo.rdlc", dt, para, "RepComprasPeriodo");
         }
         else
-        {
+        {
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia);
         }
     }

Compras/RepRembolsoComprobaciones.aspx.vb

@@ -301,7 +301,7 @@ Partial Class Compras_RepRembolsoComprobaciones
             params.Add(New ReportParameter("Numero", NumeroReembolso))
             params.Add(New ReportParameter("Anio", DtDatos.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
             params.Add(New ReportParameter("Nombre", DtDatos.MAX("SubProyecto")))
-            params.Add(New ReportParameter("Fecha", Now.Date.ToString))
+            params.Add(New ReportParameter("Fecha", NowADS().Date.ToString))
             params.Add(New ReportParameter("Elaboro", ""))
             params.Add(New ReportParameter("Autorizo", ""))
             params.Add(New ReportParameter("ElaboroPuesto", ""))
@@ -309,7 +309,7 @@ Partial Class Compras_RepRembolsoComprobaciones
 
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+            params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
             params.Add(New ReportParameter("CveCajaChica", DtDatos.Rows(0)("CveCajaChica").ToString))
             params.Add(New ReportParameter("CveFyE", "0")) '
 
@@ -325,7 +325,7 @@ Partial Class Compras_RepRembolsoComprobaciones
         Else
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
+            params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToString))
             params.Add(New ReportParameter("FechaInicio", txtFechaI.Text))
             params.Add(New ReportParameter("FechaFin", txtFechaF.Text))
 

Compras/RepReqOCCompraInv.aspx.vb

@@ -53,8 +53,8 @@ Partial Class RepReqOCCompraInv
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            txtFechaI.Text = Now.ToShortDateString
-            txtFechaF.Text = Now.ToShortDateString
+            txtFechaI.Text = NowADS().ToShortDateString
+            txtFechaF.Text = NowADS().ToShortDateString
 
             CargaSucursal()
             CargaProveedor()
@@ -145,7 +145,7 @@ Partial Class RepReqOCCompraInv
     '        Else
     '            params.Add(New ReportParameter("LogoPath", ""))
     '        End If
-    '        ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato)
+    '        ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", NowADS().ToDateTime.ToShortDateString), Formato)
     '    Else
     '        Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
     '    End If

Compras/RepTopCompras.aspx

@@ -80,7 +80,7 @@
                     <asp:BoundField HeaderText="Grupo" DataField="GPO" ItemStyle-Width="40%" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField ItemStyle-Width="20%">
                         <HeaderTemplate>
-                            <asp:Literal runat="server" Text='<%# Now.Year %>'></asp:Literal>
+                            <asp:Literal runat="server" Text='<%# NowADS().Year %>'></asp:Literal>
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal runat="server" Text='<%# Eval("Anio1", "{0:N2}") %>'></asp:Literal>
@@ -88,7 +88,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="20%">
                         <HeaderTemplate>
-                            <asp:Literal runat="server" Text='<%# (Now.Year - 1) %>'></asp:Literal>
+                            <asp:Literal runat="server" Text='<%# (NowADS().Year - 1) %>'></asp:Literal>
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal runat="server" Text='<%# Eval("Anio2", "{0:N2}") %>'></asp:Literal>
@@ -96,7 +96,7 @@
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="20%">
                         <HeaderTemplate>
-                            <asp:Literal runat="server" Text='<%# (Now.Year - 2) %>'></asp:Literal>
+                            <asp:Literal runat="server" Text='<%# (NowADS().Year - 2) %>'></asp:Literal>
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal runat="server" Text='<%# Eval("Anio3", "{0:N2}") %>'></asp:Literal>

Compras/RepTopCompras.aspx.vb

@@ -49,7 +49,7 @@ Partial Class Compras_RepTopCompras
         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

Compras/eFacturas.aspx.vb

@@ -747,9 +747,9 @@ Partial Class Compras_eFacturas
 
             If UsuarioActual.CveEmpresa.Contiene(141, 152, 153, 160, 161, 162) Then System.Threading.Thread.Sleep(2000)
 
-            txtFechaI.Text = Now.AddMonths(-1).FirstDayOfMonth().ToShortDateString   ' String.Format("01/01/{0}", If(Now.Month > 6, Now.Year, Now.Year - 1))
+            txtFechaI.Text = NowADS().AddMonths(-1).FirstDayOfMonth().ToShortDateString   ' String.Format("01/01/{0}", If(NowADS().Month > 6, NowADS().Year, NowADS().Year - 1))
 
-            txtFechaF.Text = Now.ToShortDateString 'txtFechaI.Text.ToDate.AddMonths(1).AddDays(-1).ToShortDateString
+            txtFechaF.Text = NowADS().ToShortDateString 'txtFechaI.Text.ToDate.AddMonths(1).AddDays(-1).ToShortDateString
 
             Destino = String.Format("{0}Compras\", UsuarioActual.Empresa.Ruta)
             Ejecutable = "F:\Proyectos\wwwSIG\Utilerias\ADSUtilerias.exe"
@@ -763,8 +763,8 @@ Partial Class Compras_eFacturas
             DdlClasificacionProv.DataBind()
             DdlClasificacionProv.Items.Insert(0, New ListItem("Todos", "-1"))
 
-            TxtFechaBitInicio.Text = Now.ToString("dd/MM/yyyy")
-            TxtFechaBitFin.Text = Now.ToString("dd/MM/yyyy")
+            TxtFechaBitInicio.Text = NowADS().ToString("dd/MM/yyyy")
+            TxtFechaBitFin.Text = NowADS().ToString("dd/MM/yyyy")
 
             TxtFolio.Focus()
 
@@ -841,7 +841,7 @@ Partial Class Compras_eFacturas
             FechaI = MinFecha
             FechaF = MaxFecha
             txtFechaI.Text = MinFecha.ToString
-            txtFechaF.Text = Now.ToShortDateString
+            txtFechaF.Text = NowADS().ToShortDateString
         End If
 
         Dim DtPagos As DataTable = Nothing
@@ -1488,7 +1488,7 @@ Partial Class Compras_eFacturas
             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))
 
             If Imagen.Exists Then
                 params.Add(New ReportParameter("LogoPath", $"file//:{Imagen.FullName}"))
@@ -1499,9 +1499,9 @@ Partial Class Compras_eFacturas
 
             If Tab.ActiveTabIndex = 2 Then
 
-                ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", DTTraslados, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
+                ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", DTTraslados, params, $"FacturasBuzon_{NowADS().ToString("yyyyMMyyddmmss")}", Tipo)
             Else
-                ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", dt, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
+                ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", dt, params, $"FacturasBuzon_{NowADS().ToString("yyyyMMyyddmmss")}", Tipo)
             End If
 
 
@@ -1577,7 +1577,7 @@ Partial Class Compras_eFacturas
                 'ListaComprimidos.Add(filePath)
                 ''CREO DIRECTORIO ALEATORIO
                 'Dim Aleatorio As New Random
-                'Dim TempDirectorio As String = String.Format("{0}{1}\{2}{3}", UsuarioActual.Empresa.Ruta, "Temp\Facturas", Date.Now.Ticks, Aleatorio.Next(100, 999))
+                'Dim TempDirectorio As String = String.Format("{0}{1}\{2}{3}", UsuarioActual.Empresa.Ruta, "Temp\Facturas", NowADS().Ticks, Aleatorio.Next(100, 999))
                 'Directory.CreateDirectory(TempDirectorio)
                 'ListaDirectoriosTemporales.Add(TempDirectorio)
                 ''AGREGA DIRECTORIO A LA LISTA
@@ -1631,12 +1631,12 @@ Partial Class Compras_eFacturas
 
             Dim Correo As New ClsSisMail
 
-            'If Correo.SendMail(UsuarioActual.Empresa, "sig.buzon@gmail.com", "Facturas Efacturas " & Now.ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then
+            'If Correo.SendMail(UsuarioActual.Empresa, "sig.buzon@gmail.com", "Facturas Efacturas " & NowADS().ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then
 
 
 
 
-            If Correo.SendMail(UsuarioActual.Empresa, UsuarioActual.Empresa.Buzon_Mail, "Facturas Efacturas " & Now.ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then
+            If Correo.SendMail(UsuarioActual.Empresa, UsuarioActual.Empresa.Buzon_Mail, "Facturas Efacturas " & NowADS().ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then
 
                 sw.Stop()
                 swTiempo.AppendFormat("EnvioCorreo: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
@@ -1776,8 +1776,8 @@ Partial Class Compras_eFacturas
         Dim ArchivoW As StreamWriter
         Dim strLineaTMP As String
 
-        '  strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
-        strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString)
+        '  strLineaTMP = Chr(13) & Chr(10) & Day(NowADS()) & "/" & Month(NowADS()) & "/" & Year(NowADS()) & " " & Hour(NowADS()) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10)
+        strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, NowADS().ToShortDateString, NowADS().ToShortTimeString)
         Try
             ArchivoW = New StreamWriter(String.Format("{0}\Logefacturas.txt", ModExtensiones.DirectorioBaseEmpresas), True, System.Text.Encoding.UTF8)
         Catch ex As UnauthorizedAccessException
@@ -1957,7 +1957,7 @@ Partial Class Compras_eFacturas
             Catch exx As XmlException
                 Valor = Nothing
                 'Using file__1 As New System.IO.StreamWriter([String].Format("{0}\UtileriasLOG.txt", Path.GetDirectoryName(Application.StartupPath)), True, System.Text.Encoding.UTF8)
-                '    file__1.WriteLine("{DateTime.Now}: {exx.Message}")
+                '    file__1.WriteLine("{NowADS()}: {exx.Message}")
                 '    file__1.Close()
                 '    file__1.Dispose()
                 'End Using
@@ -2106,7 +2106,7 @@ Partial Class Compras_eFacturas
                     'Mensajes.AppendFormat("{0}|{1}|{2}|{3}|{4}|{5}{6}&", ValorXML(nodo, "serie"), ValorXML(nodo, "folio"), ValorXML(nodo, "fecha").ToDate().ToShortDateString(), Fact.EmisorNombre, ValorXML(nodo, "total").ToDouble().FormatoNumero(),
                     '"Factura no timbrada correctamente.", "")
                     'CargaMensaje(ValorXML(nodo, "serie"), ValorXML(nodo, "folio"), ValorXML(nodo, "fecha").ToDate(), Fact.EmisorNombre, ValorXML(nodo, "total").ToDouble(), "Factura no timbrada correctamente.",
-                    '"", DateTime.Now)
+                    '"", NowADS())
                 End If
 
                 'limpio los valores porque realmente no es una factura
@@ -2432,7 +2432,7 @@ Partial Class Compras_eFacturas
         Dim NombreArchivo As String = TmpArchivoPDF
         Dim CadenaOriginal As String = (Convert.ToString((Convert.ToString((Convert.ToString("||1.0|") & FolioFiscal) + "|" + FechaCertificacion.ToString("yyyy-MM-dd") + "T" + FechaCertificacion.ToString("HH:mm:ss") + "|") & SelloCFDi) + "|") & NoSerieCertificado) + "||"
         Dim RutaFormato As String = String.Format("{0}Empresas\Grales\Formatos\CFDI.rdlc", ModExtensiones.DirectorioBaseEmpresas)
-        'Dim ArchivoTempXLS As String = String.Format("{0}\GenSis{1}-{2}", Path.GetDirectoryName(ArchivoBaseXLS), Now.Ticks, Path.GetFileName(ArchivoBaseXLS))
+        'Dim ArchivoTempXLS As String = String.Format("{0}\GenSis{1}-{2}", Path.GetDirectoryName(ArchivoBaseXLS), NowADS().Ticks, Path.GetFileName(ArchivoBaseXLS))
 
         Dim Fiscal As String = String.Format("Domicilio Fiscal {0}{1} {2}{0}Col.{3}{0}CP. {4} {5},{6},{7}", vbCr, DomFisCalle, DomFisNoExt, DomFisCol, DomFisCP,
         DomFisMun, DomFisEst, DomFisPais)
@@ -4335,7 +4335,7 @@ Partial Class Compras_eFacturas
         'ModExtensiones.GuardaLog(" '--------PDF GenGoPdf Inicia ")
         Dim Respuesta As Boolean = False
 
-        Dim Inicio As DateTime = DateTime.Now
+        Dim Inicio As DateTime = NowADS()
         Dim goPdf As GoPdf.GoPdf = New GoPdf.GoPdf()
         Dim logotipo As Byte() = Nothing
 
@@ -4343,7 +4343,7 @@ Partial Class Compras_eFacturas
             Dim result = goPdf.ExportarPdf(XmlRutaArchivo, logotipo, "", RutaRDLC, New GoPdf.Modelos.DatosAdicionales() With {
             .DomicilioReceptor = ""
         })
-            Dim Fin As DateTime = DateTime.Now
+            Dim Fin As DateTime = NowADS()
 
             If result IsNot Nothing Then
                 File.WriteAllBytes(PDFRutaArchivo, result)