diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb
index b6cabeeb0..6705d9007 100644
--- a/App_Code/ClsTransportes.vb
+++ b/App_Code/ClsTransportes.vb
@@ -316,6 +316,24 @@ Public Class ClsTransportes
 
     End Function
 #End Region
+    Public Function GetDestinos(Optional CveRuta As Integer = 0) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Trans_DestinosGet")
+        If CveRuta <> 0 Then
+            With SqlAdapter.SelectCommand.Parameters
+                .Add("@CveRuta", SqlDbType.Int).Value = CveRuta
+            End With
+        End If
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los destino.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
 
 #Region "Tarifas"
     Public Function GetDestinosTarifas(CveDestinoOrigen As Integer, CveDestinoFinal As Integer) As Boolean