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

- unificación de cls

Browse Source
This commit is contained in:
rrene
2024-01-10 06:35:24 -07:00
parent 3b99b6ec61
commit ecb7ef15d4
3 changed files with 34 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Transportes/ListadoViajes.aspx.vb
View File

@@ -46,7 +46,7 @@ Partial Class ListadoViajes
ObjAF.Dispose()
'Lista Rutas'
Dim ObjRutas As New ClsRutas()
Dim ObjRutas As New ClsTransportes()
If ObjRutas.GetRutas(-1, -1, -1, "", True, DateTime.Now) Then
If ObjRutas.DtResultados.Rows.Count > 0 Then
@@ -55,18 +55,16 @@ Partial Class ListadoViajes
DdlRutas.Items.Insert(0, New ListItem("Seleccione Ruta", ""))
End If
End If
ObjRutas.Dispose()
'Lista Destinos'
Dim ObjDestinos As New ClsDestinos()
If ObjDestinos.GetDestinos() Then
If ObjDestinos.DtResultados.Rows.Count > 0 Then
DdlPartida.DataSource = ObjDestinos.DtResultados
If ObjRutas.GetDestinos() Then
If ObjRutas.DtResultados.Rows.Count > 0 Then
DdlPartida.DataSource = ObjRutas.DtResultados
DdlPartida.DataBind()
DdlPartida.Items.Insert(0, New ListItem("Seleccione Partida", ""))
DdlDestino.DataSource = ObjDestinos.DtResultados
DdlDestino.DataSource = ObjRutas.DtResultados
DdlDestino.DataBind()
DdlDestino.Items.Insert(0, New ListItem("Seleccione Destino", ""))
End If