AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
asmx/WSApp.asmx
View File

@@ -358,7 +358,7 @@ Public Class WSApp
End Try
End Sub
Private Sub EnviarCorreoFactura(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario)
Dim Body = GeneraCorreoRemision(Retorno.CveVenta, Retorno.SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Factura.Observaciones, DateTime.Now)
Dim Body = GeneraCorreoRemision(Retorno.CveVenta, Retorno.SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Factura.Observaciones, ClsPaginas.NowADS())
Factura.Dispose()
Try
Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", Retorno.SerieFolio)
@@ -591,15 +591,15 @@ Public Class WSApp
Case 1
ObjFactura.TipoCambio = 1
Case 2
ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToDecimal
ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(ClsPaginas.NowADS()).ToDecimal
Case Else
ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToDecimal
ObjFactura.TipoCambio = ClsPaginas.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()
@@ -618,12 +618,12 @@ Public Class WSApp
ObjFactura.TipoDocto = "Rem"
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 = Observaciones
ObjFactura.FechaEjecucion = Now
ObjFactura.FechaEjecucion = ClsPaginas.NowADS()
ObjFactura.UsuarioCreo = UsuarioActual.Usuario
ObjFactura.CveCondicionEntrega = -1
ObjFactura.CondicionEntrega = ""
@@ -1568,8 +1568,8 @@ Namespace WebServiceAppModels2
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

16
asmx/WSGPSApp.asmx
View File

@@ -665,8 +665,8 @@ Public Class WSGPSApp
Dim Estructura = New With
{
Key .[CveDispositivo] = -1,
Key .[FechaI] = DateTime.Now,
Key .[FechaF] = DateTime.Now,
Key .[FechaI] = ClsPaginas.NowADS(),
Key .[FechaF] = ClsPaginas.NowADS(),
Key .[Ticks] = ""
}
Dim jsonParams As String = Decripta(params)
@@ -719,8 +719,8 @@ Public Class WSGPSApp
Dim Estructura = New With
{
Key .[CveDispositivo] = -1,
Key .[FechaI] = DateTime.Now,
Key .[FechaF] = DateTime.Now,
Key .[FechaI] = ClsPaginas.NowADS(),
Key .[FechaF] = ClsPaginas.NowADS(),
Key .[Ticks] = ""
}
Dim jsonParams As String = Decripta(params)
@@ -1004,8 +1004,8 @@ Public Class WSGPSApp
Dim Estructura = New With
{
Key .[CveCliente] = -1,
Key .[FechaI] = DateTime.Now,
Key .[FechaF] = DateTime.Now,
Key .[FechaI] = ClsPaginas.NowADS(),
Key .[FechaF] = ClsPaginas.NowADS(),
Key .[Ticks] = ""
}
Dim json As String = Decripta(encriptDatos)
@@ -1245,7 +1245,7 @@ Public Class WSGPSApp
dash.Panicos = ObjGPS.DtResultados(0)("BotonPanico").ToString.ToDouble
dash.DesconexionBateria = ObjGPS.DtResultados(0)("DesconexionBateria").ToString.ToDouble
End If
If ObjGPS.GetRalentiDashboard(CveCliente, FechaI.Add(Now.TimeOfDay).ToDateTime, FechaF.Add(Now.TimeOfDay).ToDateTime) AndAlso ObjGPS.DtResultados.Rows.Count > 0 Then
If ObjGPS.GetRalentiDashboard(CveCliente, FechaI.Add(ClsPaginas.NowADS().TimeOfDay).ToDateTime, FechaF.Add(ClsPaginas.NowADS().TimeOfDay).ToDateTime) AndAlso ObjGPS.DtResultados.Rows.Count > 0 Then
dash.Ralenti = ObjGPS.DtResultados(0)("Ralenti").ToString.ToDouble
End If
If ObjGPS.GetUnidadesReportando(CveCliente) AndAlso ObjGPS.DtResultados.Rows.Count > 0 Then
@@ -1347,7 +1347,7 @@ Public Class WSGPSApp
Return serializer.Serialize(rows)
End Function
Private Function IsCurrentDate(StrFecha As String) As Boolean
Return True '(ReturnTimeOnServer(StrFecha) > (DateTime.Now).AddMinutes(-15) And ReturnTimeOnServer(StrFecha) < (DateTime.Now).AddMinutes(15))
Return True '(ReturnTimeOnServer(StrFecha) > (ClsPaginas.NowADS()).AddMinutes(-15) And ReturnTimeOnServer(StrFecha) < (ClsPaginas.NowADS()).AddMinutes(15))
End Function
Public Function ReturnTimeOnServer(clientString As String) As DateTime
Dim format As String = "dd/MM/yyyy H:m:s zzz"

58
asmx/WSSIGApp.asmx
View File

@@ -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

2
asmx/WS_PuntoVenta.asmx
View File

@@ -851,7 +851,7 @@ Public Class WS_PuntoVenta
If objVentas.AddVenta(objVenta.TipoDocto, objVenta.FolioFact, objVenta.CveCliente, objVenta.CveClienteSucursal,
objVenta.SubTotal, objVenta.Descuento, objVenta.Amortizacion, objVenta.IVA, objVenta.RetIVA, objVenta.RetISR,
objVenta.Total, objVenta.CveMoneda, objVenta.TipoCambio, objVenta.CveMetodoPago, objVenta.CondicionesPago,
objVenta.FormaPago, Now, objVenta.Fecha, objVenta.MotivoDescuento, objVenta.Observaciones, objVenta.FechaEjecucion,
objVenta.FormaPago, ClsPaginas.NowADS(), objVenta.Fecha, objVenta.MotivoDescuento, objVenta.Observaciones, objVenta.FechaEjecucion,
objVenta.CveVendedor, If(objVenta.Alfa1 IsNot Nothing, objVenta.Alfa1, ""), If(objVenta.Alfa2 IsNot Nothing, objVenta.Alfa2, ""), If(objVenta.Alfa3 IsNot Nothing, objVenta.Alfa3, ""), objVenta.Num1,
objVenta.Num2, objVenta.Num3, Fech1, Fech2, Fech3, objVenta.CveCorte, If(objVenta.NumeroPersonas > 255, 255, objVenta.NumeroPersonas), CvePrePoliza, objVenta.CveUsuario, objVenta.CveEmpresa, objVenta.Propina, objVenta.CveVentaTerminal, CveSubProyecto:=objVenta.CveSubProyecto, CveSubProyectoEjecucion:=objVenta.CveSubProyecto) Then
objVenta.CveVenta = objVentas.CveVenta