- unificación de cls

App_Code/ClsRutas.vb

@@ -129,26 +129,6 @@ Public Class ClsRutas
         GC.SuppressFinalize(Me)
     End Sub
 #End Region
-    Public Function GetRutas(CveRuta As Integer, CveUsuario As Integer, CveEmpresa As Integer, Ruta As String, Estatus As Boolean, FechaIng As DateTime) As Boolean
-        Dim Retorno As Boolean = False
-        DataAdapter("PA_Trans_RutasGet")
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
-            .Add("@Ruta", SqlDbType.VarChar).Value = Ruta
-            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
-            .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
 
-        End With
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener las rutas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
-
-        Return Retorno
-    End Function
 
 End Class

App_Code/ClsTransportes.vb

@@ -316,6 +316,8 @@ Public Class ClsTransportes
 
     End Function
 #End Region
+
+#Region "Destinos"
     Public Function GetDestinos(Optional CveRuta As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Trans_DestinosGet")
@@ -335,6 +337,32 @@ Public Class ClsTransportes
         Return Retorno
     End Function
 
+#End Region
+
+#Region "Rutas"
+    Public Function GetRutas(CveRuta As Integer, CveUsuario As Integer, CveEmpresa As Integer, Ruta As String, Estatus As Boolean, FechaIng As DateTime) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Trans_RutasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Ruta", SqlDbType.VarChar).Value = Ruta
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las rutas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
+
 #Region "Tarifas"
     Public Function GetDestinosTarifas(CveDestinoOrigen As Integer, CveDestinoFinal As Integer) As Boolean
         Dim Retorno As Boolean = False

Transportes/ListadoViajes.aspx.vb

@@ -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
+        If ObjRutas.GetDestinos() Then
-                DdlPartida.DataSource = ObjDestinos.DtResultados
+
+            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