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/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -528,7 +528,7 @@ Partial Class Clientes
    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
@@ -820,7 +820,7 @@ Partial Class Clientes
                End If

                ImgAddObs.Visible = False
-                LblFechaCaptura.Text = Now.ToShortDateString()
+                LblFechaCaptura.Text = NowADS().ToShortDateString()
                LblUsuarioCapturo.Text = UsuarioActual.Usuario
                ViewState("CveCliente") = -1
                BtnEliminar.Visible = False
@@ -887,8 +887,8 @@ Partial Class Clientes

            InicializaDevolverDinero()

-            TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString()
-            TxtFechaFCredito.Text = Now.ToShortDateString()
+            TxtFechaICredito.Text = NowADS().AddYears(-2).ToShortDateString()
+            TxtFechaFCredito.Text = NowADS().ToShortDateString()

            If UsuarioActual.TienePermisoProceso(257) Then  'Falta agregar proceso
                DivMapAddSucursal.Visible = True
@@ -2598,7 +2598,7 @@ Partial Class Clientes
                'For Each gvr As GridViewRow In GvDocsVentas.Rows
                '    If gvr.FCCheckBox("ChkDoc").Checked Then

-                '        objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").Toentero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate())
+                '        objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").Toentero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, NowADS(), Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate())

                '    End If

@@ -2699,7 +2699,7 @@ Partial Class Clientes
                'For Each gvr As GridViewRow In GvDocsVentas.Rows
                '    'sino está registrada y se selecciona, se va a insertar
                '    If gvr.DataKey("CveDocumentacionElectronica").Toentero() <= 0 Then
-                '        objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").Toentero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate())
+                '        objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").Toentero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, NowADS(), Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate())
                '    Else
                '        ', Observacion2:=gvr.FCTextBox("TxtObs2").Text
                '        objDoc.DocumentacionElectronicaUpdate(gvr.DataKey("CveDocumentacionElectronica").Toentero(), gvr.DataKey("CveDocumentacion").Toentero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, gvr.DataKey("FechaLimite").ToDate(), Observacion2:=gvr.FCTextBox("TxtObs2").Text, FechaVigencia:=gvr.FCTextBox("TxtFechaVigencia").Text.ToDate())
@@ -3532,7 +3532,7 @@ Partial Class Clientes
                Liga = ObjParametro.Cadena1 & "AIMMGM/Portal.aspx"
            End If

-            Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsr & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks& & "&CveE=" & UsuarioActual.CveEmpresa)
+            Dim LigaActivar As String = Liga & "?p=" & Encripta("CveU=" & CveUsr & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & NowADS().Ticks& & "&CveE=" & UsuarioActual.CveEmpresa)

            If UsuarioActual.Empresa.CvePlataforma = 3 Then
                EnviaCorreoGPS(Liga, LigaActivar)
@@ -3599,7 +3599,7 @@ Partial Class Clientes
        Else
            ObjUsuario.Commit()

-            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)
            EnviaCorreo2(Liga, LigaActivar)

            LimpiaAgregarUsuarioPortal()
@@ -4053,7 +4053,7 @@ Partial Class Clientes
            lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text))
            lista.Add(New CrystalParametro("NombreCliente", LtlCliente.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("UsuarioImprimio", UsuarioActual.Nombre))
            lista.Add(New CrystalParametro("DireccionCliente", String.Format("Calle {0} #{1} Colonia {2}", TxtDireccion.Text, If(TxtNoExt.Text = "", "S/N", TxtNoExt.Text), TxtColonia.Text)))
            lista.Add(New CrystalParametro("ClienteCP", TxtCP.Text))
@@ -4156,7 +4156,7 @@ Partial Class Clientes
            lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text))
            lista.Add(New CrystalParametro("NombreCliente", LtlCliente.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("UsuarioImprimio", UsuarioActual.Nombre))
            lista.Add(New CrystalParametro("DireccionCliente", String.Format("Calle {0} #{1} Colonia {2}", TxtDireccion.Text, If(TxtNoExt.Text = "", "S/N", TxtNoExt.Text), TxtColonia.Text)))
            lista.Add(New CrystalParametro("ClienteCP", TxtCP.Text))
@@ -5136,7 +5136,7 @@ Partial Class Clientes

                Dim CveCaracteristicaOpcion As Integer = -1
                Dim CaracteristicaValor As String = ""
-                Dim CaracteristicaValorDate As Date = Now
+                Dim CaracteristicaValorDate As Date = NowADS()
                Dim CaracteristicaValorInt As Integer = -1

                Dim AgregaCaracteristica As Boolean = False
@@ -5236,7 +5236,7 @@ Partial Class Clientes

                Dim CveCaracteristicaOpcion As Integer = -1
                Dim CaracteristicaValor As String = ""
-                Dim CaracteristicaValorDate As Date = Now
+                Dim CaracteristicaValorDate As Date = NowADS()
                Dim CaracteristicaValorInt As Integer = -1

                Select Case _CveCaracteristicaTipo
@@ -5489,7 +5489,7 @@ Partial Class Clientes
        RowSucursal("CveVendedorSucursal") = DdlVendedorSucursal.SelectedValue.ToEntero()
        RowSucursal("CveMetodoPago") = DdlMetodoPagoSucursal.SelectedValue.ToEntero()
        RowSucursal("CveUsuario") = UsuarioActual.CveUsuario
-        RowSucursal("FechaIng") = Now.ToShortDateString()
+        RowSucursal("FechaIng") = NowADS().ToShortDateString()
        RowSucursal("Usuario") = UsuarioActual.Usuario

        RowSucursal("CveUsoCFDI") = DdlSucursalUsoCFDI.SelectedValue.ToEntero()
@@ -6000,12 +6000,12 @@ Partial Class Clientes
    Private Sub SetValues()
        ViewState("Orden") = ""
        ViewState("OrdenUsuarios") = ""
-        TxtFechaPago.Text = Now.ToShortDateString()
-        txtFechaI.Text = Now.ToShortDateString()
-        txtFechaF.Text = Now.ToShortDateString()
-        TxtFechaImportarSaldos.Text = Now.ToShortDateString()
-        TxtFechaIUsados.Text = Now.FirstDayOfMonth.ToShortDateString()
-        TxtFechaFUsados.Text = Now.LastDayOfMonth.ToShortDateString()
+        TxtFechaPago.Text = NowADS().ToShortDateString()
+        txtFechaI.Text = NowADS().ToShortDateString()
+        txtFechaF.Text = NowADS().ToShortDateString()
+        TxtFechaImportarSaldos.Text = NowADS().ToShortDateString()
+        TxtFechaIUsados.Text = NowADS().FirstDayOfMonth.ToShortDateString()
+        TxtFechaFUsados.Text = NowADS().LastDayOfMonth.ToShortDateString()
        CobranzaTelefono = ""
        CodigoCliente = ""

@@ -6217,7 +6217,7 @@ Partial Class Clientes
            Dim Mensaje As String = ""
            Select Case UsuarioActual.CveEmpresa
                Case 4
-                    Mensaje = $"Cliente de VSH Seguridad su saldo pendiente es de $ {StrSaldo} fecha limite 25/{Now.ToString("MM/yyyy")} llamar al 6622106400 #REFERENCIA {CodigoCliente} "
+                    Mensaje = $"Cliente de VSH Seguridad su saldo pendiente es de $ {StrSaldo} fecha limite 25/{NowADS().ToString("MM/yyyy")} llamar al 6622106400 #REFERENCIA {CodigoCliente} "
            End Select

            Dim ObjSMS As New ClsTecnoMovil
@@ -6665,10 +6665,10 @@ Partial Class Clientes
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("AgrupadoPor", String.Format("<b>Cliente: </b>{0}", TxtNombreComercial.Text)))
-        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\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
+        ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & NowADS().ToString("yyyyMMddhhmmss"), Formato:=Formato)


    End Sub
@@ -7385,7 +7385,7 @@ Partial Class Clientes
            Dim estado As String = ""
            Dim Telefono As String = ""
            Dim mesArray = New String() {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}
-            Dim hoy As DateTime = DateTime.Now
+            Dim hoy As DateTime = NowADS()
            Dim fechaConFormato As String = String.Format("{0} de {1} del {2}", hoy.Day, mesArray(hoy.Month), hoy.Year)
            Dim cpCliente As String = ""

@@ -7602,7 +7602,7 @@ Partial Class Clientes
            Try
                Dim objDoc As New clsGemBoxDocument(pathDesti)
                Dim objRH As New ClsRH
-                Dim FechaActual As String = Now.Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
+                Dim FechaActual As String = NowADS().Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & NowADS().Year.ToString()


                objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(-1, UsuarioActual.CveEmpresa)) ' Pendiente
@@ -7667,7 +7667,7 @@ Partial Class Clientes
            For Each gvr As GridViewRow In GvDocsVentas.Rows
                If gvr.FCCheckBox("ChkDoc").Checked Then

-                    If objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").ToEntero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text) <= 0 Then HuboError = True
+                    If objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").ToEntero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, NowADS(), Observacion2:=gvr.FCTextBox("TxtObs2").Text) <= 0 Then HuboError = True

                End If

@@ -7677,7 +7677,7 @@ Partial Class Clientes
            For Each gvr As GridViewRow In GvDocsVentas.Rows
                'sino está registrada y se selecciona, se va a insertar
                If gvr.DataKey("CveDocumentacionElectronica").ToEntero() <= 0 AndAlso gvr.FCCheckBox("ChkDoc").Checked Then
-                    If objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").ToEntero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, Now, Observacion2:=gvr.FCTextBox("TxtObs2").Text) <= 0 Then HuboError = True
+                    If objDoc.DocumentacionElectronicaAdd(gvr.DataKey("CveDocumentacion").ToEntero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, NowADS(), Observacion2:=gvr.FCTextBox("TxtObs2").Text) <= 0 Then HuboError = True
                Else
                    ', Observacion2:=gvr.FCTextBox("TxtObs2").Text
                    If Not objDoc.DocumentacionElectronicaUpdate(gvr.DataKey("CveDocumentacionElectronica").ToEntero(), gvr.DataKey("CveDocumentacion").ToEntero(), -1, CveCliente, -1, 1, gvr.FCTextBox("TxtObs").Text, "", UsuarioActual.CveUsuario, gvr.DataKey("FechaLimite").ToDate(), Observacion2:=gvr.FCTextBox("TxtObs2").Text) Then HuboError = True
@@ -9457,7 +9457,7 @@ Partial Class Clientes
        ObjFactura.Folio = Folio
        ObjFactura.Serie = Serie

-        ObjFactura.Fecha = Now
+        ObjFactura.Fecha = NowADS()
        ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate()

        ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero()
@@ -9499,26 +9499,26 @@ Partial Class Clientes
                ObjFactura.TipoDocumento = ""
        End Select

-        ObjFactura.Fech1 = Now
-        ObjFactura.Fech2 = Now
-        ObjFactura.Fech3 = Now
+        ObjFactura.Fech1 = NowADS()
+        ObjFactura.Fech2 = NowADS()
+        ObjFactura.Fech3 = NowADS()


        'NUM 1- CARGO 2- BONIFICACION
        ObjFactura.Num1 = Tipo

-        ObjFactura.FechaPago = Now
+        ObjFactura.FechaPago = NowADS()


        ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero()
-        ObjFactura.Vigencia = Now
+        ObjFactura.Vigencia = NowADS()

        ObjFactura.CveVendedor = DdlVendedor.SelectedValue.ToEntero()
        If DdlVendedor.SelectedValue.ToEntero() > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
            DdlVendedor.Enabled = False
        End If

-        ObjFactura.FechaEjecucion = Now
+        ObjFactura.FechaEjecucion = NowADS()
        ObjFactura.CveSubProyecto = UsuarioActual.CveSubProyecto
        ObjFactura.CveSubProyectoCobranza = UsuarioActual.CveSubProyecto
        ObjFactura.CveSubProyectoEjecucion = UsuarioActual.CveSubProyecto
@@ -9634,7 +9634,7 @@ Partial Class Clientes
            params.Add(New ReportParameter("AgrupadoPor", "Cliente: " & LtlCliente.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
@@ -9643,7 +9643,7 @@ Partial Class Clientes
    Private Sub LnkUsadosReset_Click(sender As Object, e As EventArgs) Handles LnkUsadosReset.Click
        Dim Acum As New ClsAcumuladores
        Dim Puntos As Decimal = -GvUsadosResumen.Rows.Cast(Of GridViewRow).Where(Function(x) x.RowType = DataControlRowType.DataRow).FirstOrDefault(Function(gvr) gvr.RowIndex = 3).DataKey("Puntos").ToEntero()
-        If Acum.DistribuidorMovtosAdd(CveCliente, 1, 1, Puntos, 0, 0, 3, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Puntos, "Saldo Inicializado", Now) Then
+        If Acum.DistribuidorMovtosAdd(CveCliente, 1, 1, Puntos, 0, 0, 3, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Puntos, "Saldo Inicializado", NowADS()) Then
            Alert("Puntuación Inicializada")
        End If
        Acum.Dispose()
@@ -10219,7 +10219,7 @@ Partial Class Clientes
            End If
        Else
            If DdlTipoLineaAdicionalModal.SelectedValue = "2" Then
-                TxtFechaVencimientoLineaAdicionalModal.Text = Now.AddDays(TxtDiasVencimientoLineaAdicionalModal.Text.ToEntero()).ToString("dd/MM/yyyy")
+                TxtFechaVencimientoLineaAdicionalModal.Text = NowADS().AddDays(TxtDiasVencimientoLineaAdicionalModal.Text.ToEntero()).ToString("dd/MM/yyyy")
            End If

            If Not ObjVentas.AddLineasAdicionales(TxtLineaAdicionalModal.Text, CveCliente, DdlProveedorLineaAdicionalModal.SelectedValue.ToEntero, DdlTipoLineaAdicionalModal.SelectedValue.ToEntero, TxtImporteLineaAdicionalModal.Text.ToDecimal,