AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- faltabn dispose

Browse Source
This commit is contained in:
rrene
2024-01-09 10:44:11 -07:00
parent 3d7d7f2b5c
commit e2e2a3df04
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Transportes/Boletos.aspx.vb
View File

@@ -85,7 +85,7 @@ Partial Class Boletos
Protected Sub InicializaCombos() Protected Sub InicializaCombos()
'Lista Destinos''carga específicos 'Lista Destinos''carga específicos
Dim ObjDestinos As New ClsDestinos() Dim ObjDestinos As New ClsTransportes()
If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then
If ObjDestinos.DtResultados.Rows.Count > 0 Then If ObjDestinos.DtResultados.Rows.Count > 0 Then
@@ -99,6 +99,7 @@ Partial Class Boletos
DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", "")) DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", ""))
End If End If
End If End If
ObjDestinos.Dispose()
End Sub End Sub
Protected Sub CotizarTarifa(sender As Object, e As EventArgs) Protected Sub CotizarTarifa(sender As Object, e As EventArgs)
@@ -107,6 +108,8 @@ Partial Class Boletos
Dim ObjDestinos As New ClsTransportes() Dim ObjDestinos As New ClsTransportes()
Dim retorno As Boolean = ObjDestinos.GetDestinosTarifas(DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero) Dim retorno As Boolean = ObjDestinos.GetDestinosTarifas(DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero)
Dim ImporteR As Decimal = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal Dim ImporteR As Decimal = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal
ObjDestinos.Dispose()
If retorno Then If retorno Then
If ImporteR > 0 Then If ImporteR > 0 Then
Dim redondeado As String = CStr(Math.Round(ImporteR, 2)) Dim redondeado As String = CStr(Math.Round(ImporteR, 2))