From 6eddb646c44820b398b273b3cc6e95085da858e6 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 9 Jan 2024 10:44:31 -0700
Subject: [PATCH] -

---
 App_Code/ClsTransportes.vb | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

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