Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
247
Ashx/CargaEventos.ashx
Normal file
247
Ashx/CargaEventos.ashx
Normal file
@@ -0,0 +1,247 @@
|
||||
<%@ WebHandler Language="VB" Class="CargaEventos" %>
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System
|
||||
Imports System.Web
|
||||
Imports System.Collections
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Web.SessionState
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
|
||||
Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
|
||||
|
||||
Public Property events As List(Of CalendarEvent)
|
||||
|
||||
Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
|
||||
context.Response.ContentType = "text/plain"
|
||||
|
||||
Dim CveUsuario = -1
|
||||
Dim CveEmpresa = -1
|
||||
Dim FI As Date
|
||||
Dim FF As Date
|
||||
|
||||
If context.Request("U").ToEntero > 0 Then
|
||||
CveUsuario = context.Request("U").ToEntero
|
||||
CveEmpresa = context.Request("E").ToEntero
|
||||
FI = context.Request("start").ToDate
|
||||
|
||||
FF = context.Request("end").ToDate
|
||||
End If
|
||||
|
||||
|
||||
If Not GetEventos(CveUsuario, CveEmpresa, FI, FF) Then
|
||||
'Convierte el objeto de Eventos en JSON
|
||||
Dim oSerializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer
|
||||
Dim sJSON As String = oSerializer.Serialize(events)
|
||||
|
||||
context.Response.Write(sJSON)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
|
||||
Get
|
||||
Return False
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
Private Function GetEventos(CveUsuario As Integer, CveEmpresa As Integer, pFI As Date, pFF As Date) As Boolean
|
||||
Dim ObjEventos As New ClsOIEventos
|
||||
Dim ErrorEventos = False
|
||||
If ObjEventos.GetEventos(-1, -1, -1, "-1", "-1", -1, CveUsuario, CveUsuario, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, CveUsuario, CveUsuario, CveUsuario, CveEmpresa, pFI, pFF) Then
|
||||
|
||||
If ObjEventos.DtResultados.Rows.Count > 0 Then
|
||||
events = New List(Of CalendarEvent)
|
||||
Try
|
||||
For Each dr As DataRow In ObjEventos.DtResultados.Rows
|
||||
Dim cevent As CalendarEvent = New CalendarEvent()
|
||||
cevent.id = dr("CveEvento").ToString.ToEntero
|
||||
cevent.title = dr("Asunto").ToString
|
||||
cevent.description = dr("Descripcion").ToString
|
||||
cevent.start = String.Format("{0:s}", dr("FechaInicio").ToString.ToDateTime)
|
||||
cevent.end = String.Format("{0:s}", dr("FechaFin").ToString.ToDateTime)
|
||||
cevent.allDay = False
|
||||
cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
|
||||
cevent.cveagendatipo = dr("CveAgendaTipo").ToString
|
||||
cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
|
||||
cevent.backgroundColor = dr("BackGroundColor").ToString
|
||||
cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
|
||||
cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
|
||||
cevent.diassemana = dr("DiasSemana").ToString
|
||||
cevent.dia = dr("Dia").ToString.ToEntero
|
||||
cevent.mes = dr("Mes").ToString.ToEntero
|
||||
cevent.recurrenciafin = dr("RecurrenciaFin").ToString
|
||||
cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
|
||||
cevent.Prospecto = dr("Prospecto").ToString
|
||||
cevent.CveTipoEvento = dr("Prospecto").ToString.ToEntero
|
||||
|
||||
'11/05/2018 - Evento Gasto Recurrente
|
||||
cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
|
||||
If cevent.CveTipoEvento = 10 Then
|
||||
cevent.Importe = dr("Importe").ToString.ToDouble
|
||||
End If
|
||||
|
||||
If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
|
||||
cevent.backgroundColor = "#1BBC9B"
|
||||
End If
|
||||
|
||||
'VERIFICAMOS SI TIENE O NO RECURRENCIA
|
||||
If Not cevent.recurrenciatipo > 0 Then
|
||||
|
||||
'AGREGAMOS CUANDO NO ES RECURRENTE
|
||||
Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, Date.Now)
|
||||
'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)
|
||||
End If
|
||||
Else
|
||||
|
||||
'EMPIEZA METODO PARA AGREGAR CUANDO SI ES RECURRENTE
|
||||
|
||||
Dim FinRecurrencia = cevent.recurrenciafin.ToEntero
|
||||
Dim FI As DateTime, FF As DateTime, FT As DateTime
|
||||
Dim DiasSemana = cevent.diassemana.Split(","c)
|
||||
FI = cevent.start.ToDateTime
|
||||
FF = cevent.end.ToDateTime
|
||||
|
||||
'OBTENEMOS LA FECHA TERMINO (FT) DE LA RECURRENCIA
|
||||
Select Case FinRecurrencia
|
||||
Case -1
|
||||
FT = DateAdd(DateInterval.Year, 2, dr("FechaInicio").ToString.ToDateTime)
|
||||
Case 0
|
||||
FT = dr("RecurrenciaFin").ToString.ToDate
|
||||
Case Is > 0
|
||||
FinRecurrencia -= 1
|
||||
Select Case cevent.recurrenciatipo
|
||||
Case 1
|
||||
FT = DateAdd(DateInterval.Hour, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
|
||||
Case 2
|
||||
FT = DateAdd(DateInterval.Day, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
|
||||
Case 3
|
||||
FT = DateAdd(DateInterval.WeekOfYear, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
|
||||
FT = DateAdd(DateInterval.Day, (7 - Weekday(FT)).ToString.ToDouble, FT)
|
||||
Case 4
|
||||
FT = DateAdd(DateInterval.Month, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
|
||||
Case 5
|
||||
FT = DateAdd(DateInterval.Year, FinRecurrencia * cevent.frecuencia, dr("FechaInicio").ToString.ToDateTime)
|
||||
End Select
|
||||
End Select
|
||||
|
||||
'SI ES TIPO SEMANAL Y DIASSEMANA TIENE VALORES CHECKEA ESTOS VALORES
|
||||
Do
|
||||
If DiasSemana.Length > 0 AndAlso DiasSemana(0) <> "" Then
|
||||
For Each drDias As String In DiasSemana
|
||||
Dim FIT = FI, FFT = FF
|
||||
|
||||
FIT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FI)).ToString.ToDouble, FI)
|
||||
FFT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FF)).ToString.ToDouble, FF)
|
||||
|
||||
cevent = New CalendarEvent()
|
||||
cevent.id = dr("CveEvento").ToString.ToEntero
|
||||
cevent.title = dr("Asunto").ToString
|
||||
cevent.description = dr("Descripcion").ToString
|
||||
cevent.start = String.Format("{0:s}", FIT)
|
||||
cevent.end = String.Format("{0:s}", FFT)
|
||||
cevent.allDay = False
|
||||
cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
|
||||
cevent.cveagendatipo = dr("CveAgendaTipo").ToString
|
||||
cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
|
||||
cevent.backgroundColor = dr("BackGroundColor").ToString
|
||||
|
||||
cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
|
||||
cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
|
||||
cevent.diassemana = dr("DiasSemana").ToString
|
||||
cevent.dia = dr("Dia").ToString.ToEntero
|
||||
cevent.mes = dr("Mes").ToString.ToEntero
|
||||
cevent.recurrenciafin = dr("RecurrenciaFin").ToString
|
||||
cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
|
||||
cevent.Prospecto = dr("Prospecto").ToString
|
||||
|
||||
'11/05/2018 - Evento Gasto Recurrente
|
||||
cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
|
||||
If cevent.CveTipoEvento = 10 Then
|
||||
cevent.Importe = dr("Importe").ToString.ToDouble
|
||||
End If
|
||||
|
||||
If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
|
||||
cevent.backgroundColor = "#1BBC9B"
|
||||
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
|
||||
events.Add(cevent)
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
cevent = New CalendarEvent()
|
||||
cevent.id = dr("CveEvento").ToString.ToEntero
|
||||
cevent.title = dr("Asunto").ToString
|
||||
cevent.description = dr("Descripcion").ToString
|
||||
cevent.start = String.Format("{0:s}", FI)
|
||||
cevent.end = String.Format("{0:s}", FF)
|
||||
cevent.allDay = False
|
||||
cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero
|
||||
cevent.cveagendatipo = dr("CveAgendaTipo").ToString
|
||||
cevent.prioridad = dr("CvePrioridad").ToString.ToEntero
|
||||
cevent.backgroundColor = dr("BackGroundColor").ToString
|
||||
|
||||
cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero
|
||||
cevent.frecuencia = dr("Frecuencia").ToString.ToEntero
|
||||
cevent.diassemana = dr("DiasSemana").ToString
|
||||
cevent.dia = dr("Dia").ToString.ToEntero
|
||||
cevent.mes = dr("Mes").ToString.ToEntero
|
||||
cevent.recurrenciafin = dr("RecurrenciaFin").ToString
|
||||
cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero
|
||||
cevent.Prospecto = dr("Prospecto").ToString
|
||||
|
||||
'11/05/2018 - Evento Gasto Recurrente
|
||||
cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero
|
||||
If cevent.CveTipoEvento = 10 Then
|
||||
cevent.Importe = dr("Importe").ToString.ToDouble
|
||||
End If
|
||||
|
||||
If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then
|
||||
cevent.backgroundColor = "#1BBC9B"
|
||||
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
|
||||
events.Add(cevent)
|
||||
End If
|
||||
End If
|
||||
|
||||
Select Case cevent.recurrenciatipo
|
||||
Case 1
|
||||
FI = DateAdd(DateInterval.Hour, cevent.frecuencia, FI)
|
||||
FF = DateAdd(DateInterval.Hour, cevent.frecuencia, FF)
|
||||
Case 2
|
||||
FI = DateAdd(DateInterval.Day, cevent.frecuencia, FI)
|
||||
FF = DateAdd(DateInterval.Day, cevent.frecuencia, FF)
|
||||
Case 3
|
||||
FI = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FI)
|
||||
FF = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FF)
|
||||
Case 4
|
||||
FI = DateAdd(DateInterval.Month, cevent.frecuencia, FI)
|
||||
FF = DateAdd(DateInterval.Month, cevent.frecuencia, FF)
|
||||
Case 5
|
||||
FI = DateAdd(DateInterval.Year, cevent.frecuencia, FI)
|
||||
FF = DateAdd(DateInterval.Year, cevent.frecuencia, FF)
|
||||
End Select
|
||||
|
||||
Loop Until FI > FT
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
GuardaLog(ex.ToString())
|
||||
End Try
|
||||
End If
|
||||
|
||||
End If
|
||||
ObjEventos.Dispose()
|
||||
Return ErrorEventos
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user