From d66307431fd294aafe3980e808cbdd6dcff6369f Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 5 Aug 2024 10:15:52 -0700 Subject: [PATCH] CargaEventos.ashx cambio json serialiser en opcion contrato_transportes --- Ashx/CargaEventos.ashx | 23 ++++++++++++++++++----- 1 file changed, 18 insertions(+), 5 deletions(-) diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index cce796c97..dab9d8862 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -112,12 +112,25 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState FI = context.Request("start").ToDate FF = context.Request("end").ToDate - If Not GetContratos(context:=context) 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 = Newtonsoft.Json.JsonConvert.SerializeObject(events) + If Not GetContratos(context:=context) Then + 'Convierte el objeto de Eventos en JSON + 'Dim oSerializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer + + + 'Dim settings As New Newtonsoft.Json.JsonSerializerSettings With { + ' .NullValueHandling = Newtonsoft.Json.NullValueHandling.Ignore, + ' .Formatting = Newtonsoft.Json.Formatting.None + ' } + 'Dim sJSON As String = Newtonsoft.Json.JsonConvert.SerializeObject(events, settings) + 'context.Response.Write(sJSON) + + Dim serializer As New Newtonsoft.Json.JsonSerializer() + Using writer As New IO.StringWriter() + serializer.Serialize(writer, events) + context.Response.Write(writer.ToString()) + End Using + - context.Response.Write(sJSON) End If End If Exit Select