-- cambios stringbuilder, performance

asmx/WsTSoft.asmx

@@ -19,8 +19,8 @@ Public Class WsTSoft
     Inherits System.Web.Services.WebService
 
     <WebMethod()>
-    Public Function AddRemision(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicial As String, GeoCarga As String, GeoEntrega As String, Fecha As String) As String
-        Dim retorno As String = ""
+    Public Function AddRemision(FolioRemision As String, NoEconomico As String, CveEstatus As Integer, GeoInicial As String, GeoCarga As String, GeoEntrega As String, Fecha As String) As String
+        Dim retorno As String = ""
         Dim objTsoft As New ClsTSoft
         objTsoft.IniciaTransacSQL()
         Dim Continuar As Boolean = objTsoft.AddRemisiones(FolioRemision, NoEconomico, CveEstatus, GeoInicial, GeoCarga, GeoEntrega, Fecha)
@@ -34,9 +34,10 @@ Public Class WsTSoft
             objRem.CveRemision = 0
             objRem.CurrentError = objTsoft.MyCurrentError
         End If
-        objTsoft.Dispose()
-        retorno = JsonConvert.SerializeObject(objRem)
-        Return retorno.ToString
+        objTsoft.Dispose()
+        retorno = JsonConvert.SerializeObject(objRem)
+        objRem = Nothing
+        Return retorno
     End Function
 
     <WebMethod()>
@@ -53,8 +54,9 @@ Public Class WsTSoft
             objRem.CurrentError = objTsoft.MyCurrentError
         End If
         objTsoft.Dispose()
-        retorno = JsonConvert.SerializeObject(objRem)
-        Return retorno.ToString
+        retorno = JsonConvert.SerializeObject(objRem)
+        objRem = Nothing
+        Return retorno
     End Function
     <WebMethod()>
     Public Function GetUltimaPosicion(DevID As String) As String
@@ -85,8 +87,9 @@ Public Class WsTSoft
             ObjPos.CurrentError = "No se pudo obtener la posición."
         End If
         ObjGPS.Dispose()
-        retorno = JsonConvert.SerializeObject(ObjPos)
-        Return retorno.ToString
+        retorno = JsonConvert.SerializeObject(ObjPos)
+        ObjPos = Nothing
+        Return retorno
     End Function
     <WebMethod()>
     Public Function TerminoRemision(FolioRemision As String, NoEconomico As String) As String
@@ -102,8 +105,9 @@ Public Class WsTSoft
             objRem.CurrentError = objTsoft.MyCurrentError
         End If
         objTsoft.Dispose()
-        retorno = JsonConvert.SerializeObject(objRem)
-        Return retorno.ToString
+        retorno = JsonConvert.SerializeObject(objRem)
+        objRem = Nothing
+        Return retorno
     End Function
     <WebMethod()>
     Public Function GetRemisionHistorial(FolioRemision As String, NoEconomico As String) As String
@@ -136,8 +140,9 @@ Public Class WsTSoft
             objRem.CurrentError = objTsoft.MyCurrentError
         End If
         objTsoft.Dispose()
-        retorno = JsonConvert.SerializeObject(objRem)
-        Return retorno.ToString
+        retorno = JsonConvert.SerializeObject(objRem)
+        retorno = Nothing
+        Return retorno
     End Function
     <WebMethod()>
     Public Function GetInfoEventos(FechaInicio As String, FechaFin As String) As String
@@ -167,7 +172,7 @@ Public Class WsTSoft
         End If
         objTsoft.Dispose()
 
-        Return retorno.ToString
+        Return retorno
     End Function
     <WebMethod()>
     Public Function TieneRemisionesActivas(NoEconomico As String) As String
@@ -183,7 +188,8 @@ Public Class WsTSoft
             .CurrentError = ObjTSoft.MyCurrentError
         }
         ObjTSoft.Dispose()
-        retorno = JsonConvert.SerializeObject(objRem)
+        retorno = JsonConvert.SerializeObject(objRem)
+        objRem = Nothing
         Return retorno
     End Function
 
@@ -203,12 +209,16 @@ Public Class WsTSoft
 
         Using wc As New HttpClient()
             Try
-                Dim Url = New Uri($"{ClsPaginas.UrlDirecciones}nominatim/reverseMultiple.php")
+                Dim Url = New Uri(String.Format("{0}nominatim/reverseMultiple.php", ClsPaginas.UrlDirecciones))
                 Dim FormStuff = String.Format("formato=json&posiciones={0}", Base64array)
                 Dim content = New StringContent(FormStuff, Encoding.UTF8, "application/x-www-form-urlencoded")
                 Dim response = wc.PostAsync(Url, content).Result
                 Dim result = response.Content.ReadAsStringAsync().Result
-                retorno = JArray.Parse(result)
+                retorno = JArray.Parse(result)
+                response.Dispose()
+                content = Nothing
+                Url = Nothing
+                FormStuff = Nothing
             Catch ex As Exception
                 OnError("Ocurrió un error al obtener las direcciones", ex)
             End Try