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/asmx/WSSIGApp.asmx
+++ b/asmx/WSSIGApp.asmx
@@ -244,7 +244,7 @@ Public Class WSSIGApp
        Get
            If GlobalTipoCambio <= 0 Then
                'sino tiene dato lo recargo por si ya esta insertado
-                If Fecha = MinFecha Then Fecha = Now
+                If Fecha = MinFecha Then Fecha = ClsPaginas.NowADS()

                Dim ObjGral As New ClsGenerales
                If ObjGral.GetTipoCambio(-1, Fecha) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
@@ -660,7 +660,7 @@ Public Class WSSIGApp
                If dtVentas.Rows.Count > 0 Then
                    If UsuarioActual.TienePermisoIndicador(7) Then
                        Dim jdatosVentas = New JArray(From v In dtVentas
-                                                      Where (v("Mes").ToString().ToEntero() <= Now.Month)
+                                                      Where (v("Mes").ToString().ToEntero() <= ClsPaginas.NowADS().Month)
                                                      Select New JObject(
                                                             New JProperty("NombreMes", v("NombreMes").ToString()),
                                                             New JProperty("Importe", v("Importe").ToString().ToDouble())))
@@ -675,7 +675,7 @@ Public Class WSSIGApp
                If dtBancos.Rows.Count > 0 Then
                    If UsuarioActual.TienePermisoIndicador(8) Then
                        Dim jDatosBancos = New JArray(From v In dtBancos
-                                                      Where (v("Mes").ToString().ToEntero() <= Now.Month)
+                                                      Where (v("Mes").ToString().ToEntero() <= ClsPaginas.NowADS().Month)
                                                      Select New JObject(
                                                             New JProperty("NombreMes", v("NombreMes").ToString()),
                                                             New JProperty("Importe", v("Importe").ToString().ToDouble())))
@@ -1473,8 +1473,8 @@ Public Class WSSIGApp
        Ent = New WsFiltroEvento()
        Ent.CveEmpresa = 1
        Ent.CveUsuario = 1360
-        Ent.FechaI = Now.AddDays(-180)
-        Ent.FechaF = Now
+        Ent.FechaI = ClsPaginas.NowADS().AddDays(-180)
+        Ent.FechaF = ClsPaginas.NowADS()
        If Not IsNothing(Ent) Then
            Dim ObjOI As New ClsOIEventos
            If ObjOI.GetRepEventos(-1, 1, -1, "-1", "-1", -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, Ent.CveUsuario, Ent.CveEmpresa, Ent.FechaI, Ent.FechaF) Then
@@ -1860,15 +1860,15 @@ Public Class WSSIGApp
                Case 1
                    ObjFactura.TipoCambio = 1
                Case 2
-                    ObjFactura.TipoCambio = GlobalTipoCambio(Now).ToDecimal
+                    ObjFactura.TipoCambio = GlobalTipoCambio(ClsPaginas.NowADS()).ToDecimal
                Case Else
-                    ObjFactura.TipoCambio = GlobalTipoCambio(Now).ToDecimal
+                    ObjFactura.TipoCambio = GlobalTipoCambio(ClsPaginas.NowADS()).ToDecimal
            End Select
            ObjFactura.CveVendedor = -1

            'VALIDA PROMOCIONES Y EXISTENCIAS
            Dim ObjVentas As New ClsVentas
-            If ObjVentas.GetPromocionesPS(-1, Now, CveSubProyecto, CveCliente, ObjFactura.CveVendedor, 1, UsuarioActual.CveEmpresa) Then
+            If ObjVentas.GetPromocionesPS(-1, ClsPaginas.NowADS(), CveSubProyecto, CveCliente, ObjFactura.CveVendedor, 1, UsuarioActual.CveEmpresa) Then
                ObjFactura.DtPromociones = ObjVentas.DtResultados
            End If
            ObjVentas.Dispose()
@@ -1895,12 +1895,12 @@ Public Class WSSIGApp
            ObjFactura.TipoDocto = TipoDocto
            ObjFactura.RefDocto = ""
            'ObjFactura.CveMesa = -1
-            ObjFactura.Fecha = Now
+            ObjFactura.Fecha = ClsPaginas.NowADS()
            ObjFactura.CvePrePoliza = -1
-            ObjFactura.FechaPago = Now
+            ObjFactura.FechaPago = ClsPaginas.NowADS()
            ObjFactura.MotivoDescuento = ""
            ObjFactura.Observaciones = ""
-            ObjFactura.FechaEjecucion = Now
+            ObjFactura.FechaEjecucion = ClsPaginas.NowADS()
            ObjFactura.UsuarioCreo = UsuarioActual.Usuario
            ObjFactura.CveCondicionEntrega = -1
            ObjFactura.CondicionEntrega = ""
@@ -2415,7 +2415,7 @@ Public Class WSSIGApp
                        UsaAC = False
                        If UsaAC Then
                            Dim AC As New ClsAC
-                            Dim Ejercicio = DateTime.Now.Year
+                            Dim Ejercicio = ClsPaginas.NowADS().Year
                            If AC.GetPresupuestoEgresos(-1, True, Ejercicio, Ent.CveEmpresa, True) Then
                                DtPresupuestos = AC.DtResultados.Copy
                            End If
@@ -2792,7 +2792,7 @@ Public Class WSSIGApp
                 Key .Justificacion = "",
                 Key .Prioridad = -1,
                 Key .RequiereCotizacion = False,
-                 Key .FechaEstimadaEntrega = DateTime.Now,
+                 Key .FechaEstimadaEntrega = ClsPaginas.NowADS(),
                 Key .LugarEntrega = "",
                 Key .CveMoneda = -1,
                 Key .CveProveedor = -1,
@@ -3057,10 +3057,10 @@ Public Class WSSIGApp

        'verifico los permisos según el estatus
        'Const Sitio As String = "rm:90/"
-        Dim StrSupervisa As String = "" '= String.Format("http://{0}/OC/RegOp.aspx?p={1}", Sitio, Encripta(String.Format("Op=SUPERVISAR&Oc={0}&CveUsuario={1}&Fecha={2}", CveOrdenCompra, CveUsuario, Now)))
-        Dim StrAutoriza As String = "" '= String.Format("http://{0}/OC/RegOp.aspx?p={1}", Sitio, Encripta(String.Format("Op=AUTORIZAR&Oc={0}&CveUsuario={1}&Fecha={2}", CveOrdenCompra, CveUsuario, Now)))
-        Dim StrCancela As String = "" ' = String.Format("http://{0}/OC/RegOp.aspx?p={1}", Sitio, Encripta(String.Format("Op=CANCELAR&Oc={0}&CveUsuario={1}&Fecha={2}", CveOrdenCompra, UsuarioActual.CveUsuario, Now)))
-        Dim StrReqCotiza As String = "" '= String.Format("http://{0}/OC/RegOp.aspx?p={1}", Sitio, Encripta(String.Format("Op=REQCONTIZACION&Oc={0}&CveUsuario={1}&Fecha={2}", CveOrdenCompra, CveUsuario, Now)))
+        Dim StrSupervisa As String = "" '= String.Format("http://{0}/OC/RegOp.aspx?p={1}", Sitio, Encripta(String.Format("Op=SUPERVISAR&Oc={0}&CveUsuario={1}&Fecha={2}", CveOrdenCompra, CveUsuario, ClsPaginas.NowADS())))
+        Dim StrAutoriza As String = "" '= String.Format("http://{0}/OC/RegOp.aspx?p={1}", Sitio, Encripta(String.Format("Op=AUTORIZAR&Oc={0}&CveUsuario={1}&Fecha={2}", CveOrdenCompra, CveUsuario, ClsPaginas.NowADS())))
+        Dim StrCancela As String = "" ' = String.Format("http://{0}/OC/RegOp.aspx?p={1}", Sitio, Encripta(String.Format("Op=CANCELAR&Oc={0}&CveUsuario={1}&Fecha={2}", CveOrdenCompra, UsuarioActual.CveUsuario, ClsPaginas.NowADS())))
+        Dim StrReqCotiza As String = "" '= String.Format("http://{0}/OC/RegOp.aspx?p={1}", Sitio, Encripta(String.Format("Op=REQCONTIZACION&Oc={0}&CveUsuario={1}&Fecha={2}", CveOrdenCompra, CveUsuario, ClsPaginas.NowADS())))

        'si se acaba de solicitar y se necesita supervisar
        If pCveEstatus = 1 Then strOpciones.AppendFormat("                 <tr><td><a href=""{0}""><span style=""font-size: 15px""><strong>Supervisar</strong></span></a></td></tr> ", StrSupervisa)
@@ -3358,7 +3358,7 @@ Public Class WSSIGApp

 #Region "F U N C I O N E S"
    Private Function notcurrentdate(fecha As DateTime) As Boolean
-        Return Not (fecha > (DateTime.Now).AddMinutes(-15) And fecha < (DateTime.Now).AddMinutes(15))
+        Return Not (fecha > (ClsPaginas.NowADS()).AddMinutes(-15) And fecha < (ClsPaginas.NowADS()).AddMinutes(15))
    End Function
    Private Function ValorXML(n As System.Xml.XmlNode, Campo As String, Optional Retorno As String = "") As String
        Dim o As System.Xml.XmlNode = n.Attributes.Cast(Of System.Xml.XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
@@ -3370,7 +3370,7 @@ Public Class WSSIGApp
    End Function
    Private Function IsCurrentDate(StrFecha As String) As Boolean
        'Dim FechaServer As DateTime = ReturnTimeOnServer(StrFecha)
-        'Return (FechaServer > (DateTime.Now).AddMinutes(-15) And FechaServer < (DateTime.Now).AddMinutes(15))
+        'Return (FechaServer > (ClsPaginas.NowADS()).AddMinutes(-15) And FechaServer < (ClsPaginas.NowADS()).AddMinutes(15))
        Return True
    End Function
    Public Function ReturnTimeOnServer(clientString As String) As DateTime
@@ -3395,7 +3395,7 @@ Public Class WSSIGApp
    Public Function GetTipoCambio() As String
        Dim Retorno = "[]"
        Dim ObjTC As New ClsGenerales
-        If ObjTC.GetTipoCambio(-1, DateTime.Now) Then
+        If ObjTC.GetTipoCambio(-1, ClsPaginas.NowADS()) Then
            Retorno = JsonConvert.SerializeObject(ObjTC.DtResultados.Rows(0).DataRowToObject(Of WsTipoCambio))
        End If
        ObjTC.Dispose()
@@ -3484,7 +3484,7 @@ Public Class WSSIGApp
                 },
                .Respuestas = CreateListFromSingle(New With {.IDTempCveEmpresaCRM = -1, .CveEmpresaCRM = -1, .CveEncuesta = -1, .CveEncuestaAplicadaDetalle = -1, .CveEmpresa = -1, .CveUsuario = -1, .CvePregunta = -1, .CveRespuesta = -1, .Valor = ""}),
                .Contactos = CreateListFromSingle(New With {.IDTempCveEmpresaCRM = -1, .CveContacto = -1, .Nombre = "", .TelefonoOficina = "", .Celular = "", .Correo = "", .CveUsuarioIng = -1, .CveEmpresaCRM = -1}),
-                .Acercamientos = CreateListFromSingle(New With {.IDTemp = -1, .CveAcercamiento = -1, .CveEmpresaCRM = -1, .CveContactoPrincipal = -1, .CveTipoProceso = -1, .CveEtapaProcesoActual = -1, .CveVendedor = -1, .CveMedioCaptacion = -1, .CveRechazoMotivo = -1, .CveProbabilidadAcercamiento = -1, .FechaApertura = Now, .NombreAcercamiento = "", .Descripcion = "", .Importe = 0D, .Comision = 0D, .Prioridad = -1, .CveEmpresa = -1, .CveUsuarioIng = -1, .CveUsuarioMod = -1, .FechaCierre = Now, .CveEncuestaAplicadaProceso = -1}),
+                .Acercamientos = CreateListFromSingle(New With {.IDTemp = -1, .CveAcercamiento = -1, .CveEmpresaCRM = -1, .CveContactoPrincipal = -1, .CveTipoProceso = -1, .CveEtapaProcesoActual = -1, .CveVendedor = -1, .CveMedioCaptacion = -1, .CveRechazoMotivo = -1, .CveProbabilidadAcercamiento = -1, .FechaApertura = ClsPaginas.NowADS(), .NombreAcercamiento = "", .Descripcion = "", .Importe = 0D, .Comision = 0D, .Prioridad = -1, .CveEmpresa = -1, .CveUsuarioIng = -1, .CveUsuarioMod = -1, .FechaCierre = ClsPaginas.NowADS(), .CveEncuestaAplicadaProceso = -1}),
                .BitacorasAcercamientos = CreateListFromSingle(New With {.IDTempCveAcercamiento = -1, .CveEvento = -1, .Descripcion = "", .CveTipoProcesoCRM = -1, .CveEmpresa = -1, .CveUsuarioIng = -1, .CveAcercamiento = -1, .CveEtapaProcesoCRM = -1})
            }
        Dim ObjCRM As New ClsCRM
@@ -3680,7 +3680,7 @@ Public Class WSSIGApp
    <WebMethod>
    Public Function SyncAcercamiento(params As String) As Boolean
        Dim TieneError As Boolean = False
-        Dim Estructura = CreateListFromSingle(New With {.CveAcercamiento = -1, .CveEmpresaCRM = -1, .CveContactoPrincipal = -1, .CveTipoProceso = -1, .CveEtapaProcesoActual = -1, .CveVendedor = -1, .CveMedioCaptacion = -1, .CveRechazoMotivo = -1, .CveProbabilidadAcercamiento = -1, .FechaApertura = Now, .NombreAcercamiento = "", .Descripcion = "", .Importe = 0D, .Comision = 0D, .Prioridad = -1, .CveEmpresa = -1, .CveUsuarioIng = -1, .CveUsuarioMod = -1, .FechaCierre = Now, .CveEncuestaAplicadaProceso = -1})
+        Dim Estructura = CreateListFromSingle(New With {.CveAcercamiento = -1, .CveEmpresaCRM = -1, .CveContactoPrincipal = -1, .CveTipoProceso = -1, .CveEtapaProcesoActual = -1, .CveVendedor = -1, .CveMedioCaptacion = -1, .CveRechazoMotivo = -1, .CveProbabilidadAcercamiento = -1, .FechaApertura = ClsPaginas.NowADS(), .NombreAcercamiento = "", .Descripcion = "", .Importe = 0D, .Comision = 0D, .Prioridad = -1, .CveEmpresa = -1, .CveUsuarioIng = -1, .CveUsuarioMod = -1, .FechaCierre = ClsPaginas.NowADS(), .CveEncuestaAplicadaProceso = -1})
        Dim ObjCRM As New ClsCRM
        Try
            Dim JsonRequest = Decripta(params)
@@ -3689,7 +3689,7 @@ Public Class WSSIGApp
                If item.CveAcercamiento > 0 Then
                    TieneError = Not ObjCRM.UpdateAcercamiento(item.CveAcercamiento, item.CveContactoPrincipal, item.CveTipoProceso, item.CveEtapaProcesoActual, item.CveVendedor, item.CveMedioCaptacion, item.CveProbabilidadAcercamiento, item.NombreAcercamiento, item.Descripcion, item.Importe, item.Comision, item.Prioridad, item.CveUsuarioMod, item.CveRechazoMotivo, item.CveEncuestaAplicadaProceso, item.FechaApertura, item.FechaCierre)
                Else
-                    Dim i As Integer = ObjCRM.AddAcercamiento(item.CveEmpresaCRM, item.CveContactoPrincipal, item.CveTipoProceso, item.CveEtapaProcesoActual, item.CveVendedor, item.CveMedioCaptacion, item.CveRechazoMotivo, item.CveProbabilidadAcercamiento, item.FechaApertura, item.NombreAcercamiento, item.Descripcion, item.Importe, item.Comision, item.Prioridad, item.CveEmpresa, item.CveUsuarioIng, Now)
+                    Dim i As Integer = ObjCRM.AddAcercamiento(item.CveEmpresaCRM, item.CveContactoPrincipal, item.CveTipoProceso, item.CveEtapaProcesoActual, item.CveVendedor, item.CveMedioCaptacion, item.CveRechazoMotivo, item.CveProbabilidadAcercamiento, item.FechaApertura, item.NombreAcercamiento, item.Descripcion, item.Importe, item.Comision, item.Prioridad, item.CveEmpresa, item.CveUsuarioIng, ClsPaginas.NowADS())
                    If i <= 0 Then TieneError = True
                End If
                If TieneError Then
@@ -4023,7 +4023,7 @@ Public Class WSSIGApp
                        If Not cevent.recurrenciatipo > 0 Then

                            'AGREGAMOS CUANDO NO ES RECURRENTE
-                            Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, Date.Now)
+                            Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS())
                            'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
                            If dr("FechaFin").ToString.ToDateTime > tFecha Or dr("FechaInicio").ToString.ToDateTime > tFecha Then
                                Events.Add(cevent)
@@ -4102,7 +4102,7 @@ Public Class WSSIGApp
                                        End If

                                        'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL Y/0 SI LA FECHA INICIAL DE LA RECURRENCIA ES MENOR A LA FECHA QUE SE CREO EL EVENTO NO LO AGREGA
-                                        If FIT > DateAdd(DateInterval.Month, -6, Date.Now) And FIT >= dr("FechaInicio").ToString.ToDateTime Then
+                                        If FIT > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) And FIT >= dr("FechaInicio").ToString.ToDateTime Then
                                            Events.Add(cevent)
                                        End If
                                    Next
@@ -4139,7 +4139,7 @@ Public Class WSSIGApp
                                    End If

                                    'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA
-                                    If FI > DateAdd(DateInterval.Month, -6, Date.Now) Then
+                                    If FI > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) Then
                                        Events.Add(cevent)
                                    End If
                                End If
@@ -4271,7 +4271,7 @@ Public Class WSSIGApp
        sb.Append($"           ({CveUsuario}")
        sb.Append($"           ,CAST('{Fecha.ToString("yyyy-MM-dd HH:mm:ss")}' AS DATETIME) ")
        sb.Append($"           ,geography::STPointFromText('{$"POINT({Longitud} {Latitud})"}',4326)")
-        sb.Append($"           ,CAST('{DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")}' AS DATETIME))")
+        sb.Append($"           ,CAST('{ClsPaginas.NowADS().ToString("yyyy-MM-dd HH:mm:ss")}' AS DATETIME))")

        Using ObjInventarios As New ClsInventarios
            retorno = ObjInventarios.GetQuery(sb.ToString)
@@ -4777,8 +4777,8 @@ Namespace WebServiceAppModels
            Total = 0
            IVA = 0
            SubTotal = 0
-            Fecha = DateTime.Now
-            FechaIng = DateTime.Now
+            Fecha = ClsPaginas.NowADS()
+            FechaIng = ClsPaginas.NowADS()
        End Sub

        Public Property IDTempVenta As Integer