Empresas Zona Horaria

2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/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))