From e2e2a3df04c2fa150bbda55f145fb93965b26e0b Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 9 Jan 2024 10:44:11 -0700 Subject: [PATCH] -- faltabn dispose --- Transportes/Boletos.aspx.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 68f508010..9f3d7435d 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -85,7 +85,7 @@ Partial Class Boletos Protected Sub InicializaCombos() 'Lista Destinos''carga específicos - Dim ObjDestinos As New ClsDestinos() + Dim ObjDestinos As New ClsTransportes() If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then If ObjDestinos.DtResultados.Rows.Count > 0 Then @@ -99,6 +99,7 @@ Partial Class Boletos DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", "")) End If End If + ObjDestinos.Dispose() End Sub Protected Sub CotizarTarifa(sender As Object, e As EventArgs) @@ -107,6 +108,8 @@ Partial Class Boletos Dim ObjDestinos As New ClsTransportes() Dim retorno As Boolean = ObjDestinos.GetDestinosTarifas(DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero) Dim ImporteR As Decimal = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal + ObjDestinos.Dispose() + If retorno Then If ImporteR > 0 Then Dim redondeado As String = CStr(Math.Round(ImporteR, 2))