-- faltabn dispose

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))