Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

App_Code/ClsCGame.vb

@@ -19,6 +19,7 @@ Public Class ClsCGame
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'REGISTRAR CONEXIÓN
     Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
 
     Public ReadOnly Property DtResultados() As DataTable
         Get
@@ -54,6 +55,7 @@ Public Class ClsCGame
         Else
             SqlConexion = TransaccionCompartida.Connection
             SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
@@ -71,7 +73,7 @@ Public Class ClsCGame
 #Region "Conexiones"
 
     Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
                 DataAdapter("PA_Sis_RegistrarConexion")
                 With SqlAdapter.SelectCommand.Parameters

App_Code/ClsClaseBase.vb

@@ -194,6 +194,10 @@ Public Class ClsClaseBase
             SqlAdapter.Dispose()
         End If
 
+        If DTSet IsNot Nothing Then
+            DTSet.Dispose()
+        End If
+
         GC.SuppressFinalize(Me)
 
     End Sub

App_Code/ClsContabilidad.vb

@@ -25,6 +25,7 @@ Public Class ClsContabilidad
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'REGISTRAR CONEXIONES ABIERTAS
     Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
     Public Property CvePrePolizaDetalle As Integer
 #End Region
 
@@ -97,6 +98,7 @@ Public Class ClsContabilidad
         Else
             SqlConexion = TransaccionCompartida.Connection
             SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
         Mensaje = New StringBuilder
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
@@ -115,7 +117,7 @@ Public Class ClsContabilidad
 #Region "Conexiones"
 
     Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
                 DataAdapter("PA_Sis_RegistrarConexion")
                 With SqlAdapter.SelectCommand.Parameters
@@ -1120,14 +1122,12 @@ Public Class ClsContabilidad
 
         If Empresa.TipoContabilizacion = 1 Then ' contabilidad en SIG
 
-
             Retorno = ContabilizaDesContabilizaPrePoliza(CvePrePoliza, True, Empresa.CveEmpresa)
 
             If Retorno Then
                 Mensaje.Append(String.Format("<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, _ContaFolio))
             End If
 
-
         Else
             If CvePrePoliza <= 0 Then Return False
 

App_Code/ClsContratos.vb

@@ -18,6 +18,7 @@ Public Class ClsContratos
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'REGISTRAR CONEXIONES ABIERTAS
     Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
 #End Region
 
 #Region "Propiedades"
@@ -65,6 +66,7 @@ Public Class ClsContratos
         Else
             SqlConexion = TransaccionCompartida.Connection
             SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
@@ -85,7 +87,7 @@ Public Class ClsContratos
 #Region "Conexiones"
 
     Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
                 DataAdapter("PA_Sis_RegistrarConexion")
                 With SqlAdapter.SelectCommand.Parameters

App_Code/ClsEdocumentacion.vb

@@ -19,6 +19,7 @@ Public Class ClsEdocumentacion
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'REGISTRAR CONEXIONES ABIERTAS
     Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
 
     Private Sub SqlDataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand
@@ -56,6 +57,7 @@ Public Class ClsEdocumentacion
         Else
             SqlConexion = TransaccionCompartida.Connection
             SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
@@ -73,7 +75,7 @@ Public Class ClsEdocumentacion
 #Region "Conexiones"
 
     Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
                 DataAdapter("PA_Sis_RegistrarConexion")
                 With SqlAdapter.SelectCommand.Parameters

App_Code/ClsGenerales.vb

@@ -19,6 +19,7 @@ Public Class ClsGenerales
     Private disposedValue As Boolean = False
     'REGISTRAR CONEXIONES ABIERTAS
     Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
 #End Region
 
 #Region "Propiedades"
@@ -74,6 +75,7 @@ Public Class ClsGenerales
         Else
             SqlConexion = TransaccionCompartida.Connection
             SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
@@ -91,7 +93,7 @@ Public Class ClsGenerales
 #Region "Conexiones"
 
     Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
                 DataAdapter("PA_Sis_RegistrarConexion")
                 With SqlAdapter.SelectCommand.Parameters

App_Code/ClsInventarios.vb

@@ -18,6 +18,7 @@ Public Class ClsInventarios
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'REGISTRAR CONEXIONES ABIERTAS
     Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
 
 
 #End Region
@@ -151,6 +152,7 @@ Public Class ClsInventarios
         Else
             SqlConexion = TransaccionCompartida.Connection
             SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
 
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
@@ -169,7 +171,7 @@ Public Class ClsInventarios
 #Region "Conexiones"
 
     Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
                 DataAdapter("PA_Sis_RegistrarConexion")
                 With SqlAdapter.SelectCommand.Parameters

App_Code/ClsProductosServicios.vb

@@ -2042,6 +2042,7 @@ Public Class ClsProductosServicios
     ' This code added by Visual Basic to correctly implement the disposable pattern.
     Public Sub Dispose() Implements IDisposable.Dispose
         ' Do not change this code.  Put cleanup code in Dispose(disposing As Boolean) above.
+        ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
     End Sub

App_Code/ClsRH.vb

@@ -53,17 +53,24 @@ Public Class ClsRH
     End Property
 
 #End Region
-    Sub New()
+    Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
-        SqlConexion = New SqlConnection
-        SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
-        SqlAdapter = New SqlDataAdapter("", SqlConexion)
-        Try
-            SqlConexion.Open()
-            ConexionAdd()
-        Catch ex As Exception
-            OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
-        End Try
 
+        If TransaccionCompartida Is Nothing Then
+            SqlConexion = New SqlConnection
+            SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
+            Try
+                SqlConexion.Open()
+            Catch ex As Exception
+                OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
+            End Try
+        Else
+            SqlConexion = TransaccionCompartida.Connection
+            SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
+        End If
+
+        SqlAdapter = New SqlDataAdapter("", SqlConexion)
+        ConexionAdd()
     End Sub
     Private Sub DataAdapter(pStrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand
@@ -74,11 +81,13 @@ Public Class ClsRH
         Data = New DataTable
     End Sub
     Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
+
 
 #Region "Conexiones"
 
     Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
 
             'DataAdapter(String.Format("INSERT INTO Sis_Conexiones (Clase,Modulo)  VALUES ('ClsRH','{0}')", "RH/CatMotivosBaja"), CommandType.Text) ' pendiente de terminar parra registrar el cveconexion, falta el rarámetro de módulo
 
@@ -95,6 +104,7 @@ Public Class ClsRH
                 OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             End Try
 
+
         End If
     End Sub
 

App_Code/ClsSisNotificaciones.vb

@@ -2041,12 +2041,16 @@ Public Class ClsSisNotificaciones
 
         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)
+                response.Dispose()
+                content = Nothing
+                Url = Nothing
+                FormStuff = Nothing
             Catch ex As Exception
                 OnError("Ocurrió un error al obtener las direcciones", ex)
             End Try

App_Code/ClsVentas.vb

@@ -22,6 +22,8 @@ Public Class ClsVentas
 
     'Atributos de la clase
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
 
 #End Region
 
@@ -75,7 +77,7 @@ Public Class ClsVentas
     Public Sub RollBack()
         SqlTransacc.Rollback()
     End Sub
-    Private CveConexion As Integer = 0
+
     Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing)
 
         If TransaccionCompartida Is Nothing Then
@@ -89,6 +91,7 @@ Public Class ClsVentas
         Else
             SqlConexion = TransaccionCompartida.Connection
             SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
         ConexionAdd()
@@ -107,7 +110,7 @@ Public Class ClsVentas
 #Region "Conexiones"
 
     Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
                 DataAdapter("PA_Sis_RegistrarConexion")
                 With SqlAdapter.SelectCommand.Parameters
@@ -740,11 +743,13 @@ Public Class ClsVentas
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CvePAC", SqlDbType.SmallInt).Value = CvePAC
             .Add("@CveEstatusRefacturacion", SqlDbType.TinyInt).Value = CveEstatusRefacturacion
+            .Add("@Cancelada", SqlDbType.SmallInt).Direction = ParameterDirection.Output
         End With
 
         Try
             SqlAdapter.Fill(Data)
-            Retorno = True
+            Retorno = If(SqlAdapter.SelectCommand.Parameters("@Cancelada").Value.ToString.ToEntero = 1, True, False)
+
         Catch ex As Exception
             OnError("Ocurrió un error al Guardar el estatus de cancelacion Factura.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try

App_Code/Usuario.vb

@@ -247,6 +247,7 @@ Namespace ADSSession
             Dim resultado As String = ""
 
             Try
+
                 Dim request As Net.HttpWebRequest = CType(Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
                 request.Timeout = maxTimeMilliseconds
                 request.Method = "POST"
@@ -263,10 +264,15 @@ Namespace ADSSession
                     End Using
                 End Using
 
-                Dim response As Net.WebResponse = CType(request.GetResponse(), Net.WebResponse)
+                Using response As Net.WebResponse = CType(request.GetResponse(), Net.WebResponse)
-                Dim sr As IO.StreamReader = New IO.StreamReader(response.GetResponseStream())
+                    Using sr As IO.StreamReader = New IO.StreamReader(response.GetResponseStream())
-                resultado = sr.ReadToEnd()
+
-                sr.Close()
+                        resultado = sr.ReadToEnd()
+                        sr.Close()
+                    End Using
+
+                End Using
+                request = Nothing
             Catch ex As Exception
                 'Extenciones.ApplicationParameter.GuardaLogEx(ex, $"SOAPAction : {SOAPAction} XML : {xml}")
             End Try

Ashx/SIGWeb.ashx

@@ -96,7 +96,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             Retorno = 200
         End If
         ObjConta.Dispose()
-
+        Empresa = Nothing
         'context.Response.Write(CveUsuario.ToString())
         context.Response.StatusCode = Retorno
     End Sub
@@ -114,7 +114,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                 context.Response.WriteFile(FileInfo.FullName)
                 context.Response.End()
             End If
-
+            FileInfo = Nothing
+            Url = ""
         End If
     End Sub
 
@@ -127,6 +128,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         savepath = context.Server.MapPath(tempPath)
         Dim nombre As String = String.Format("{0}\{1}", savepath, context.Request("nombre"))
         File.Delete(nombre)
+        tempPath = ""
+        savepath = ""
         context.Response.StatusCode = 200
     End Sub
 
@@ -149,16 +152,18 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             If copyFile <> "" Then
                 Dim ext As Integer = copyFile.IndexOf(","c) + 1
 
-                Dim extncion As String = copyFile.Substring(5, ext - 5)
+                Dim extension As String = copyFile.Substring(5, ext - 5)
-                If extncion.Contains("image/") Then extncion = extncion.Replace("image/", "").Replace(";base64,", "")
+                If extension.Contains("image/") Then extension = extension.Replace("image/", "").Replace(";base64,", "")
                 'Dim extncion As String =
-                filename = String.Format("{0}-{1}.{2}", tick, Cve, extncion)
+                filename = String.Format("{0}-{1}.{2}", tick, Cve, extension)
 
                 Dim msf As New MemoryStream(Convert.FromBase64String(copyFile.Substring(ext)))
                 Dim stem As Stream = New FileStream(String.Format("{0}\{1}", savepath, filename), FileMode.Create)
                 msf.WriteTo(stem)
                 msf.Close()
                 stem.Close()
+                msf.Dispose()
+                stem.Dispose()
 
             End If
         Else
@@ -166,10 +171,13 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             postedFile = context.Request.Files(0)
             filename = String.Format("{0}-{1}", tick, postedFile.FileName)
 
-            postedFile.SaveAs((savepath & "\") + filename)
+            postedFile.SaveAs(String.Format("{0}\{1}", savepath, filename))
         End If
         context.Response.Write(tick)
         context.Response.StatusCode = 200
+        savepath = ""
+        tempPath = "" : filename = ""
+        postedFile = Nothing
     End Sub
 #End Region
 
@@ -206,9 +214,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             'End If
             'ObjClientes.Dispose()
 
-            Dim dt As DataTable = DirectCast(context.Application(AppNombre), DataTable).FiltraParametros($"CveEmpresa = {CveEmpresa}")
+            Dim dt As DataTable = DirectCast(context.Application(AppNombre), DataTable).FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa))
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-                DtRetorno = dt.FiltraParametros($"NombreComercial like '%{Name}%' OR Nombre like  '%{Name}%'  ")
+                DtRetorno = dt.FiltraParametros(String.Format("NombreComercial like '%{0}%' OR Nombre like  '%{0}%'  ", Name))
             End If
             dt.Dispose()
         End If
@@ -254,9 +262,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             '    DtRetorno = ObjProveedores.DtResultados
             'End If
             'ObjProveedores.Dispose()
-            Dim dt As DataTable = DirectCast(context.Application(AppNombre), DataTable).FiltraParametros($"CveEmpresa = {CveEmpresa}")
+            Dim dt As DataTable = DirectCast(context.Application(AppNombre), DataTable).FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa))
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-                DtRetorno = dt.FiltraParametros($"NombreCortoProveedor like  '%{Name}%'")
+                DtRetorno = dt.FiltraParametros(String.Format("NombreCortoProveedor like  '%{0}%'", Name))
             End If
             dt.Dispose()
         End If
@@ -321,6 +329,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
         Else
             context.Response.Write("[]")
         End If
+        DtPSRetorno.Dispose()
 
         Return retorno
     End Function
@@ -485,9 +494,9 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
                     If usuario.TienePermisoProceso(300) And usuario.TienePermisoProceso(301) Then
                         DTClasificacionesComprobaciones = ObjClasificaciones.DtResultados
-                    ElseIf usuario.TienePermisoProceso(300) Then  'TipoComprobacion 1 Biaticos
+                    ElseIf usuario.TienePermisoProceso(300) Then  'TipoComprobacion 1 Viaticos
                         DTClasificacionesComprobaciones = ObjClasificaciones.DtResultados.FiltraParametros("TipoComprobacion = 1")
-                    Else 'TipoComprobacion 2 Compreobacines
+                    Else 'TipoComprobacion 2 caja chica
                         DTClasificacionesComprobaciones = ObjClasificaciones.DtResultados.FiltraParametros("TipoComprobacion = 2")
                     End If
 
@@ -515,6 +524,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                     'no regresar datos  herror al consultar
                     DtPSRetorno.Clear()
                 End If
+                DTTmp.Dispose()
+                ObjClasificaciones.Dispose()
 
             End If
 
@@ -556,7 +567,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
 
 #Region "Funciones"
     Public Function GetJson(ByVal dt As DataTable) As String
-
+        Dim Retorno As String = ""
         Dim serializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer()
         Dim rows As New List(Of Dictionary(Of String, Object))
         Dim row As Dictionary(Of String, Object)
@@ -568,7 +579,11 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             Next
             rows.Add(row)
         Next
-        Return serializer.Serialize(rows)
+        If dt IsNot Nothing Then dt.Dispose()
+        Retorno = serializer.Serialize(rows)
+        rows = Nothing
+        serializer = Nothing
+        Return Retorno
     End Function
     ReadOnly Property UsuarioActual(ByVal context As HttpContext) As Usuario
         Get
@@ -631,6 +646,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             DtPSRetorno.Columns("ClaveNombre").ColumnName = "text"
             retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
             context.Response.Write(retorno)
+            DtPSRetorno.Dispose()
         Else
             context.Response.Write("[]")
         End If
@@ -738,6 +754,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                     Catch ex As Exception
                         DtPSRetorno = Nothing
                     End Try
+                    DTPS = Nothing
+
                 End If
 
             End If
@@ -745,6 +763,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                 DtPSRetorno.Columns("CvePS").ColumnName = "id"
                 DtPSRetorno.Columns("PSCodigo").ColumnName = "text"
                 retorno = JsonConvert.SerializeObject(DtPSRetorno).ToString
+                DtPSRetorno.Dispose()
                 context.Response.Write(retorno)
             Else
                 context.Response.Write("[]")
@@ -795,6 +814,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
             DtRetorno.Columns("CvePersonal").ColumnName = "id"
             DtRetorno.Columns("NombreCompleto").ColumnName = "text"
             retorno = JsonConvert.SerializeObject(DtRetorno).ToString
+            DtRetorno.Dispose()
             context.Response.Write(retorno)
         Else
             context.Response.Write("[]")

Bancos/IE.aspx.vb

@@ -707,6 +707,7 @@ Partial Class Bancos_IE
         Dim ObjIE2 As New ClsBancos()
         If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
             If ObjIE.DtResultados.Rows.Count > 0 Then
+                Dim NumComplementos As Integer
 
                 Try
                     Tipo = ObjIE.DtResultados.Rows(0)("Tipo").ToString
@@ -719,6 +720,7 @@ Partial Class Bancos_IE
                 Cuenta = ObjIE.DtResultados(0)("NumCuenta").ToString
 
                 CveIEDeposito2 = ObjIE.DtResultados(0)("CveIEDeposito2").ToString.ToEntero
+                NumComplementos = ObjIE.DtResultados(0)("NumComplementos").ToString.ToEntero
 
                 If UsuarioActual.TienePermisoProceso(99) Then
                     'BtnActualizar.Visible = True
@@ -887,10 +889,10 @@ Partial Class Bancos_IE
                             If UsuarioActual.TienePermisoProceso(85) Then LnkCancelar.Visible = True
 
                             'ELIMINAR IE SIN VALIDACIONES
-                            If UsuarioActual.TienePermisoProceso(80) Then LnkEliminar.Visible = True
+                            If UsuarioActual.TienePermisoProceso(80) AndAlso NumComplementos = 0 Then LnkEliminar.Visible = True
 
                             'ELIMINA IE CUANDO ES EL MISMO USUARIO QUE LO CREO Y QUE NO ESTE CONTABILIZADO NI CONCILIADO
-                            If UsuarioActual.TienePermisoProceso(154) AndAlso ObjIE.CveUsuario = UsuarioActual.CveUsuario And Not ObjIE.IDPoliza > 0 Then
+                            If UsuarioActual.TienePermisoProceso(154) AndAlso ObjIE.CveUsuario = UsuarioActual.CveUsuario And Not ObjIE.IDPoliza > 0 AndAlso NumComplementos = 0 Then
                                 LnkEliminar.Visible = True
                             End If
                         End If
@@ -906,10 +908,10 @@ Partial Class Bancos_IE
                         LblEstatus.ForeColor = Drawing.Color.Red
 
                         'ELIMINAR IE SIN VALIDACIONES
-                        If UsuarioActual.TienePermisoProceso(80) Then LnkEliminar.Visible = True
+                        If UsuarioActual.TienePermisoProceso(80) AndAlso NumComplementos = 0 Then LnkEliminar.Visible = True
 
                         'ELIMINA IE CUANDO ES EL MISMO USUARIO QUE LO CREO Y QUE NO ESTE CONTABILIZADO NI CONCILIADO
-                        If UsuarioActual.TienePermisoProceso(154) AndAlso ObjIE.CveUsuario = UsuarioActual.CveUsuario And Not ObjIE.IDPoliza > 0 Then
+                        If UsuarioActual.TienePermisoProceso(154) AndAlso ObjIE.CveUsuario = UsuarioActual.CveUsuario And Not ObjIE.IDPoliza > 0 AndAlso NumComplementos = 0 Then
                             LnkEliminar.Visible = True
                         End If
 
@@ -1089,7 +1091,7 @@ Partial Class Bancos_IE
 
             '2019-08-28 unificados vista de controles complemento  (Cancelado, conciliciado, Con complemento vigente, sin complemento vigente)
             Dim ExistenComplementosVigentes As Boolean = VerificaComplementos(True)
-            Dim ExistenComplementos As Boolean = VerificaComplementos(False)
+            'Dim ExistenComplementos As Boolean = VerificaComplementos(False)
 
             If Not ChkConciliado.Checked And ObjIE.CveEstatusIE <> 2 Then
 
@@ -3121,12 +3123,8 @@ Partial Class Bancos_IE
                                             MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                         End If
                                     End If
-
-
                                 End If
 
-
-
                                 If Opcion.Contiene("EGSSINFACT") AndAlso CveSolicitudViatico > 0 AndAlso MsgError = "" Then
                                     If Not ObjIE.UpdateSolicitudesViaticosIE(CveSolicitudViatico, CveIE) Then
                                         MsgError = "Ocurrió un error al vincular el egreso con la solicitud de viatico."
@@ -3136,23 +3134,6 @@ Partial Class Bancos_IE
                         End Select
 
                         'El movimiento 1 es el de Venta
-                        'Conta SIG
-                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then
-                            If CveCuentaBeneficiario > 0 And CveCuentaConta > 0 Then
-                                If ObjMov.ContabilizarPrePolizaSIG(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                                    IDPoliza = ObjMov.ContaIdPoliza
-                                Else
-                                    Alert("Ocurrio un error al contabilizar en SIG, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
-                                End If
-                            Else
-                                If CveCuentaConta < 1 Then
-                                    Alert("No se puede contabilizar la Prepoliza en SIG debido a que la cuenta de Bancos es invalida", TipoMensaje.MsgAdvertencia)
-                                End If
-                                If CveCuentaBeneficiario < 1 Then
-                                    Alert("No se puede contabilizar la Prepoliza en SIG debido a que las cuenta del Beneficiario es invalida", TipoMensaje.MsgAdvertencia)
-                                End If
-                            End If
-                        End If
 
                         'Conta ContPAQ
                         If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
@@ -4761,16 +4742,17 @@ Partial Class Bancos_IE
                 Alert("El documento seleccionado no se puede eliminar porque se encuentra conciliado.", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            Dim ObjGral As New ClsGenerales
+
+
+            Dim ObjAC As ClsContPAQi = Nothing
+            Dim Banc As New ClsBancos
+            Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL())
+            Dim ObjGral As New ClsGenerales(Banc.IniciaTransacSQL())
             If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Banco", TxtFolio.Text + " / " + Cuenta) Then
                 Borrar = True
             End If
-            ObjGral.Dispose()
-            If Borrar = True Then
-                Dim ObjAC As ClsContPAQi = Nothing
-                Dim Banc As New ClsBancos
-                Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL())
 
+            If Borrar = True Then
                 Dim ErrorCompra = False
 
                 'VERIFICA SI EL IES ESTA VINCULADO A UNA SOLICITUD VIATICO
@@ -4827,6 +4809,7 @@ Partial Class Bancos_IE
                 If ObjAC IsNot Nothing Then ObjAC.Dispose()
                 Banc.Dispose()
                 ObjConta.Dispose()
+                ObjGral.Dispose()
             End If
         Else
             Alert("Tiene que decir el motivo de su eliminacion.", TipoMensaje.MsgInformacion)

GPS/Rastreo.aspx.vb

@@ -1742,12 +1742,16 @@ Partial Class GPS_Rastreo
 
         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)
+                response.Dispose()
+                content = Nothing
+                Url = Nothing
+                FormStuff = Nothing
             Catch ex As Exception
                 OnError("Ocurrió un error al obtener las direcciones", ex)
             End Try
@@ -2214,12 +2218,16 @@ Partial Class GPS_Rastreo
 
         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)
+                response.Dispose()
+                content = Nothing
+                Url = Nothing
+                FormStuff = Nothing
             Catch ex As Exception
                 OnError("Ocurrió un error al obtener las direcciones", ex)
             End Try

GPS/TrayectoDetalle.aspx.vb

@@ -186,12 +186,16 @@ Partial Class GPS_TrayectoDetalle
 
         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)
+                response.Dispose()
+                content = Nothing
+                Url = Nothing
+                FormStuff = Nothing
             Catch ex As Exception
                 OnError("Ocurrió un error al obtener las direcciones", ex)
             End Try

Inicio.aspx.vb

@@ -560,6 +560,7 @@ Partial Class Inicio
         SBJSScript.AppendFormat("graficahighcharts2('{0}','{1}','{2}','{3}',[{4}],1,'{5}','{6}',[{8}],[{7}]);", divcontainer.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia, Promedio, SBPie1, SBPie2)
 
         RegistraScript(SBJSScript.ToString, Indicador)
+        DTDatos.Dispose()
     End Sub
     Private Sub MuestraGrafica(DTDatos As DataTable, ColTitle As String, ColValue As String, TipoDato As String, DivId As String)
         Dim Info As String = ""
@@ -928,7 +929,7 @@ Partial Class Inicio
                 Next
                 grafica.series.Add(serie)
             Next
-
+            data.Dispose()
         End If
         Return grafica
     End Function
@@ -1006,6 +1007,7 @@ Partial Class Inicio
                     grafica.series.Add(serie)
                 Next
             End If
+            data.Dispose()
         End If
         Return grafica
     End Function

Inventarios/EntradasSalidas.aspx.vb

@@ -3711,7 +3711,10 @@ Partial Class Inventarios_EntradasSalidas
                 Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUM("Total", "").ToDecimal.RoundSQL()
                 ValorSalida = tValorInventario
                 Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue))
-                If drA2 IsNot Nothing Then idCtaContableSalida = drA2("IdCtaContable").ToString.ToEntero
+                If drA2 IsNot Nothing Then
+                    idCtaContableSalida = drA2("IdCtaContable").ToString.ToEntero
+                    tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
+                End If
             Else
                 ErrorMovInv = True
                 Mensaje = "Ocurrió un error al validar los movimientos contables de salida"

OC/OC.aspx.vb

@@ -5182,7 +5182,7 @@ Partial Class OC
     Protected Function ActualizarCotizacion(ByRef ObjVentas As ClsVentas) As Boolean
         Dim OcurrioError As Boolean = False
         Try
-            Dim PorcentajeGanancia As Decimal = 0.1D
+            Dim PorcentajeGanancia As Decimal = 0.3D
             For Each Row As DataRow In DtDetalle.Rows
                 Dim CvePS As Integer = Row("CvePS").ToString.ToEntero
                 Dim DrPS = GlobalDTPS(CveEmpresaActual, CvePS:=CvePS).FiltroPrimero("")

PortalGPS/Penske.aspx.vb

@@ -74,12 +74,16 @@ Partial Class PortalGPS_Penske
 
         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)
+                response.Dispose()
+                content = Nothing
+                Url = Nothing
+                FormStuff = Nothing
             Catch ex As Exception
                 OnError("Ocurrió un error al obtener las direcciones", ex)
             End Try

Sistemas/SessionesActivas.aspx

@@ -20,6 +20,10 @@
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+     <li>
+                <asp:LinkButton ID="LBGC" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i> GC"
+                    />
+            </li>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>

Sistemas/SessionesActivas.aspx.vb

@@ -196,4 +196,45 @@ Partial Class SessionesActivas
         Notificaciones.AlertaVentana(TxtMensaje.Text, lista, timeoutseconds:=0)
         RegistraScript($"$(""#DivMensaje"").modal('hide');console.log('{Decripta(Context.User.Identity.Name)}')")
     End Sub
+
+
+
+    Private Sub VerGC()
+
+        Dim myGCCol As MyGCCollectClass = New MyGCCollectClass()
+        Console.WriteLine("The highest generation is {0}", GC.MaxGeneration)
+        myGCCol.MakeSomeGarbage()
+        Console.WriteLine("Generation: {0}", GC.GetGeneration(myGCCol))
+        Console.WriteLine("Total Memory: {0}", GC.GetTotalMemory(False))
+        GC.Collect(0)
+        Console.WriteLine("Generation: {0}", GC.GetGeneration(myGCCol))
+        Console.WriteLine("Total Memory: {0}", GC.GetTotalMemory(False))
+        GC.Collect(2)
+        Console.WriteLine("Generation: {0}", GC.GetGeneration(myGCCol))
+        Console.WriteLine("Total Memory: {0}", GC.GetTotalMemory(False))
+        Console.Read()
+
+        GC.Collect()
+        GC.WaitForPendingFinalizers()
+
+    End Sub
+
+    Private Sub LBGC_Click(sender As Object, e As EventArgs) Handles LBGC.Click
+        GC.Collect()
+        GC.WaitForPendingFinalizers()
+    End Sub
+
+    Class MyGCCollectClass
+        Public Sub MakeSomeGarbage()
+            Dim vt As Version
+
+            For i As Integer = 0 To 1000 - 1
+                vt = New Version()
+            Next
+        End Sub
+
+    End Class
+
+
+
 End Class

Site.master.vb

@@ -381,7 +381,10 @@ Partial Class Site
         End If
         HeaderBar.AppendFormat("</li>{0}", ScriptColorGrupoModulo)
         BarraNavegacion.Text = HeaderBar.ToString
-        CargaMenu(MenuHTML)
+        'CargaMenu(MenuHTML)
+        Menu.Text = MenuHTML.ToString
+        MenuHTML.Clear()
+        HeaderBar.Clear()
     End Sub
 
 
@@ -413,9 +416,9 @@ Partial Class Site
         End Select
     End Function
 
-    Private Sub CargaMenu(Texto As StringBuilder)
+    'Private Sub CargaMenu(Texto As StringBuilder)
-        Menu.Text = Texto.ToString
+    '    Menu.Text = Texto.ToString
-    End Sub
+    'End Sub
 
 #Region "Notificaciones"
 
@@ -458,6 +461,7 @@ Partial Class Site
         'OC.Dispose()
 
         LtlMNotificaciones.Text = LtlMNotificaciones.Text & Notificaciones.ToString
+        Notificaciones.Clear()
     End Sub
 
 
@@ -474,7 +478,10 @@ Partial Class Site
 
                 Dim x509 As New X509Certificate2()
                 x509.Import(Data)
-                Return x509.NotAfter.ToShortDateString()
+                Dim Retorno = x509.NotAfter.ToShortDateString()
+                x509 = Nothing
+                Data = Nothing
+                Return Retorno
             End If
 
         Catch ex As Exception

Ventas/Ventas.aspx.vb

@@ -5956,15 +5956,17 @@ Partial Class Ventas
 
         If Not UsuarioActual.TienePermisoProceso(169) Then ' NO VALIDA EXISTENCIAS NI COSTO - PERMISO PARA NO VALIDAR
             Dim CvePS As Integer = DatarowPS("CvePS").ToString().ToEntero()
-            Dim CveUM As Integer = DatarowPS("CveUM").ToString().ToEntero()
+            Dim CveUM As Integer = GvPS.Rows(e.RowIndex).FCDropDownList("DdlUnidadMedida").SelectedValue.ToEntero() 'DatarowPS("CveUM").ToString().ToEntero()
             Dim CveTipoPS As Integer = DatarowPS("CveTipoPS").ToString().ToEntero()
 
-            CantidadInventario = GvPS.Rows(e.RowIndex).DataKey("CantidadInventario").ToString().ToDecimal
+            CantidadInventario = GvPS.Rows(e.RowIndex).DataKey("CantidadInventario").ToDecimal
+            Dim CveUMInicial As Integer = GvPS.Rows(e.RowIndex).DataKey("CveUM").ToEntero
 
             Dim ValidaExistencia As Boolean = True
             If (CantidadInventario > 0) OrElse (Cantidad <= CantidadOriginal) Then 'si ya hay algo surtido, que no valide existencia
                 ValidaExistencia = False
             End If
+            If CveUM <> CveUMInicial Then ValidaExistencia = True
 
             'SOLO VALIDA EXISTENCIAS Y COSTO: SI USA INVENTARIOS, SOLO PRODUCTOS TIPO PRODUCTO, SOLO REMISIONES E INGRESOS
             If UsuarioActual.Empresa.UsaInventarios AndAlso CveTipoPS = 2 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA") Or (DdlTipoComprobante.SelectedValue.Contiene("Cot") And UsuarioActual.CveEmpresa.Contiene(119))) Then
@@ -6067,6 +6069,7 @@ Partial Class Ventas
 
 
                         Alert(String.Format(MensajeCosto.ToString()), TipoMensaje.MsgAdvertencia)
+                        MensajeCosto.Clear()
                         e.Cancel = True
                         Exit Sub
                     End If
@@ -6080,6 +6083,7 @@ Partial Class Ventas
                             MensajeCosto.AppendFormat("El precio indicado es: <b>${0:#,###.00}</b> ({1}% de ganancia) <br/>", PU.FormatoNumero, (If(Costo > 0, ((PU - Costo) * 100) / Costo, 0)).FormatoNumero)
                         End If
                         Alert(MensajeCosto.ToString(), TipoMensaje.MsgAdvertencia)
+                        MensajeCosto.Clear()
                         e.Cancel = True
                         Exit Sub
                     End If
@@ -6128,6 +6132,7 @@ Partial Class Ventas
                 PU = PU * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal)
 
                 TmpDT.Rows(e.RowIndex)("PorcentajeIEPS") = 0
+                DrPS = Nothing
             End If
 
             Dim TotalCalculableImpuestos As Decimal = ((Cantidad * PU) - (ObjDescuento.ImporteDescuento))
@@ -6700,6 +6705,7 @@ Partial Class Ventas
 
                 If MensajeCosto.ToString().Length > 1 Then
                     Alert(MensajeCosto.ToString(), TipoMensaje.MsgAdvertencia)
+                    MensajeCosto.Clear()
                     Exit Sub
                 End If
 
@@ -6816,6 +6822,7 @@ Partial Class Ventas
                 Next
                 Alert(str.ToString(), TipoMensaje.MsgAdvertencia)
                 dttsat.Dispose()
+                str.Clear()
                 Exit Sub
             End If
             dttsat.Dispose()
@@ -7417,6 +7424,7 @@ Partial Class Ventas
                         Dim Liga = If(UsuarioActual.CveRol = 1165 Or UsuarioActual.CveEmpresa = 119, "document.location.href=""/Ventas/Ventas.aspx?CveVenta=-1"";", If(CveEmpresaCRM > 0, $"document.location.href=""/CRM/EmpresaCRM.aspx?CveEmpresaCRM={CveEmpresaCRM}"";", $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}&Opt=3"";"))
                         Alert(MensajeAlert.ToString(), TipoMensaje.MsgInformacion, Liga)
 
+                        MensajeAlert.Clear()
 
                         'LIMPIA CONDICIONES DE PAGO - CONTADO
                         RBLPago.SelectedValue = "1"
@@ -7443,6 +7451,7 @@ Partial Class Ventas
                     ObjContr.Dispose()
                     ObjDocCliente.Dispose()
                     'ObjFolios.Dispose()
+                    ErrorList.Clear
                     ErrorList = Nothing
                     MensajeAlert = Nothing
                     If ObjContPaq IsNot Nothing Then ObjContPaq.Dispose()
@@ -7465,13 +7474,17 @@ Partial Class Ventas
                     ObjContr.Dispose()
                     ObjDocCliente.Dispose()
                     'ObjFolios.Dispose()
+                    ErrorList.Clear()
                     ErrorList = Nothing
                     MensajeAlert = Nothing
                     If ObjContPaq IsNot Nothing Then ObjContPaq.Dispose()
                     TmpDT = TmpDTError.Copy
 
                 End If
+                ObjFactura = Nothing
+                Obj2 = Nothing
             End If
+
         End If
     End Sub
 
@@ -16731,7 +16744,7 @@ Partial Class Ventas
 
             End If
         End If
-
+        TextoExistencia.Clear()
         Return TieneError
     End Function
     'Protected Sub LbVerInventario_Click(sender As Object, e As EventArgs) Handles LbVerInventario.Click
@@ -19200,7 +19213,7 @@ Partial Class Ventas
             Else
                 ResultadoMail = 0
             End If
-
+            sb.Clear()
         End If
         ObjVentas.Dispose()
     End Sub
@@ -19219,7 +19232,7 @@ Partial Class Ventas
         End If
 
         LbCancelarDescripcion.Text = SbCondiciones.ToString()
-
+        SbCondiciones.Clear()
         UpCancelarDocumento.Update()
     End Sub
 
@@ -19276,7 +19289,7 @@ Partial Class Ventas
 
             RegistraScript("$('#ModalCancelarDocumento').modal();")
             UpCancelarDocumento.Update()
-
+            sb.Clear()
         Else
             CancelarDocumento()
         End If
@@ -20710,7 +20723,7 @@ Partial Class Ventas
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')", "Error")
             Exit Sub
         End If
-
+        MensajeAlert.Clear()
 
         Dim MensajeSinExistencias As New StringBuilder
         Dim ObjInventarios As New ClsInventarios
@@ -20754,7 +20767,7 @@ Partial Class Ventas
         Else
             RegistraScript("playsonidito('beep-07.wav')", "Existo")
         End If
-
+        MensajeSinExistencias.Clear()
     End Sub
 
     Protected Sub GvSerie_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvSerie.RowDeleting
@@ -21833,13 +21846,12 @@ Partial Class Ventas
                     Cuerpo.AppendLine("</tr></table>")
                 End If
                 Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString())
+                Cuerpo.Clear()
                 Exit Select
 
         End Select
 
 
-
-
     End Sub
     Private Sub GuardarBitacora(CveVenta As Integer, RutaAdjunto As String, Obser As String)
         Dim ObjEventos As New ClsOIEventos()
@@ -23580,6 +23592,7 @@ Partial Class Ventas
             DtCotizacionesPS = ObjClientes.DtResultados
         End If
         ObjClientes.Dispose()
+        Cves.Clear()
 
         If Not AgregaPSCotizacion() Then
             Alert("Ocurrió un error validar las partidas de las cotizaciones seleccionadas. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
@@ -23954,6 +23967,7 @@ Partial Class Ventas
                         sb.Remove(sb.Length - 1, 1)
 
                         CargaConceptosRemisionPorFacturar(sb.ToString(), If(ChkRemProductos.Checked, 2, 1))
+                        sb.Clear()
                 End Select
 
                 Dim CveTipoDocto = DdlTipoComprobante.SelectedValue
@@ -23999,7 +24013,10 @@ Partial Class Ventas
                     DdlContrato.DataSource = DtContratos.FiltraParametros($"CveContrato = {CveContrato}")
                     DdlContrato.DataBind()
                 End If
-
+                MensajeRemisiones.Clear()
+                ObsOC.Clear()
+                ObsPedido.Clear()
+                ObsInv.Clear()
             End If
         End If
 
@@ -24324,6 +24341,7 @@ Partial Class Ventas
             DtPedidos2PS = ObjVentas.DtResultados
         End If
         ObjVentas.Dispose()
+        Cves.Clear()
 
         If Not AgregaPSPedido2() Then
             Alert("Ocurrió un error validar las partidas de los pedidos seleccionadas. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
@@ -24356,6 +24374,10 @@ Partial Class Ventas
         TxtPedidoContrato.Text = If(ObsPedido.ToString().Length > 0, ObsPedido.ToString().Substring(0, ObsPedido.ToString().Length - 2), "")
         TxtObsAlmacen.Text = If(ObsInv.ToString().Length > 0, ObsInv.ToString().Substring(0, ObsInv.ToString().Length - 2), "")
 
+        MensajePedidos2.Clear()
+        ObsOC.Clear()
+        ObsPedido.Clear()
+        ObsInv.Clear()
 
         UpModalPedidos2.Update()
         UpFacturar.Update()
@@ -25394,6 +25416,7 @@ Partial Class Ventas
                         ErrorList.Add("Ocurrió un error al agregar la bitacora de Póliza Virtual.")
                     End If
                     ObjEventos.Dispose()
+                    Msg.Clear()
                 Else
                     Alert("No se envió la poliza virtual", TipoMensaje.MsgAdvertencia)
                 End If

asmx/WsTSoft.asmx

@@ -36,7 +36,8 @@ Public Class WsTSoft
         End If
         objTsoft.Dispose()
         retorno = JsonConvert.SerializeObject(objRem)
-        Return retorno.ToString
+        objRem = Nothing
+        Return retorno
     End Function
 
     <WebMethod()>
@@ -54,7 +55,8 @@ Public Class WsTSoft
         End If
         objTsoft.Dispose()
         retorno = JsonConvert.SerializeObject(objRem)
-        Return retorno.ToString
+        objRem = Nothing
+        Return retorno
     End Function
     <WebMethod()>
     Public Function GetUltimaPosicion(DevID As String) As String
@@ -86,7 +88,8 @@ Public Class WsTSoft
         End If
         ObjGPS.Dispose()
         retorno = JsonConvert.SerializeObject(ObjPos)
-        Return retorno.ToString
+        ObjPos = Nothing
+        Return retorno
     End Function
     <WebMethod()>
     Public Function TerminoRemision(FolioRemision As String, NoEconomico As String) As String
@@ -103,7 +106,8 @@ Public Class WsTSoft
         End If
         objTsoft.Dispose()
         retorno = JsonConvert.SerializeObject(objRem)
-        Return retorno.ToString
+        objRem = Nothing
+        Return retorno
     End Function
     <WebMethod()>
     Public Function GetRemisionHistorial(FolioRemision As String, NoEconomico As String) As String
@@ -137,7 +141,8 @@ Public Class WsTSoft
         End If
         objTsoft.Dispose()
         retorno = JsonConvert.SerializeObject(objRem)
-        Return retorno.ToString
+        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
@@ -184,6 +189,7 @@ Public Class WsTSoft
         }
         ObjTSoft.Dispose()
         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)
+                response.Dispose()
+                content = Nothing
+                Url = Nothing
+                FormStuff = Nothing
             Catch ex As Exception
                 OnError("Ocurrió un error al obtener las direcciones", ex)
             End Try