From 06098bec847416d8a190cad7f507e82c39bb7477 Mon Sep 17 00:00:00 2001
From: AbrahamCastilloV <abcastillo.yo@gmail.com>
Date: Wed, 27 Dec 2023 08:48:17 -0700
Subject: [PATCH] =?UTF-8?q?--Se=20cambi=C3=B3=20de=20posici=C3=B3n=20Carga?=
 =?UTF-8?q?rDatos()=20e=20InicializaCombos()=20para=20obtener=20la=20clave?=
 =?UTF-8?q?=20de=20la=20ruta=20y=20poder=20cargar=20los=20destinos=20aprop?=
 =?UTF-8?q?iados=20para=20cada=20ruta?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Transportes/Boletos.aspx          |  2 +-
 Transportes/Boletos.aspx.vb       | 17 +++++++++--------
 Transportes/ListadoBoletos.aspx   |  3 ++-
 Transportes/ListadoContratos.aspx |  3 ++-
 Transportes/ListadoViajes.aspx    |  3 ++-
 5 files changed, 16 insertions(+), 12 deletions(-)

diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx
index 3e88cdcee..715652dba 100644
--- a/Transportes/Boletos.aspx
+++ b/Transportes/Boletos.aspx
@@ -1,4 +1,4 @@
-<%@ Page Language="VB" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="Boletos.aspx.vb"
+<%@ Page Language="VB" Title="Transportes V&A - Comprar Boleto" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="Boletos.aspx.vb"
     Inherits="Boletos" EnableEventValidation="true" %>
 
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb
index 178694777..68f508010 100644
--- a/Transportes/Boletos.aspx.vb
+++ b/Transportes/Boletos.aspx.vb
@@ -47,10 +47,10 @@ Partial Class Boletos
             AsientoSeleccionado = ""
             CveRuta = 0
             CveViaje = Request.QueryString("CveViaje").ToEntero
-
-            DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
-            CargaDatos()
-            InicializaCombos()
+            If CveViaje > 0 Then
+                CargaDatos()
+                InicializaCombos()
+            End If
 
         End If
     End Sub
@@ -126,14 +126,16 @@ Partial Class Boletos
     End Sub
 
     Protected Sub OnLinkButtonClick(sender As Object, e As EventArgs)
-        Dim linkButton As LinkButton = DirectCast(sender, LinkButton)
-        Dim buttonID As String = linkButton.ID
-        linkButton.CssClass += " activo"
+        'quitamos la selección anterior, en caso de existir.
         If AsientoSeleccionado <> "" Then
             Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder)
             Dim lnk As LinkButton = CType(cph.FindControl(AsientoSeleccionado), LinkButton)
             lnk.CssClass = "disponible"
         End If
+
+        Dim linkButton As LinkButton = DirectCast(sender, LinkButton)
+        Dim buttonID As String = linkButton.ID
+        linkButton.CssClass += " activo"
         AsientoSeleccionado = buttonID
     End Sub
     Protected Sub AddBoleto(sender As Object, e As EventArgs)
@@ -152,7 +154,6 @@ Partial Class Boletos
 
             If retorno > 1 Then
                 ObjTransporte.Commit()
-                Alert("Boleto creado correctamente.")
             End If
         Catch ex As Exception
             Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError)
diff --git a/Transportes/ListadoBoletos.aspx b/Transportes/ListadoBoletos.aspx
index e8f178dbb..e855b1030 100644
--- a/Transportes/ListadoBoletos.aspx
+++ b/Transportes/ListadoBoletos.aspx
@@ -1,4 +1,5 @@
-<%@ Page Language="VB" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="ListadoBoletos.aspx.vb"
+<%@ Page Language="VB" Title="Transportes V&A - Boletos"  AutoEventWireup="false"
+    MasterPageFile="~/Site.master" CodeFile="ListadoBoletos.aspx.vb"
     Inherits="ListadoBoletos" EnableEventValidation="true" %>
 
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
diff --git a/Transportes/ListadoContratos.aspx b/Transportes/ListadoContratos.aspx
index b1a371334..9f37b10b0 100644
--- a/Transportes/ListadoContratos.aspx
+++ b/Transportes/ListadoContratos.aspx
@@ -1,4 +1,5 @@
-<%@ Page Language="VB" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="ListadoContratos.aspx.vb"
+<%@ Page Language="VB" AutoEventWireup="false" Title="Transportes V&A - Contratos" MasterPageFile="~/Site.master"
+    CodeFile="ListadoContratos.aspx.vb"
     Inherits="ListadoContratos" %>
 
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
diff --git a/Transportes/ListadoViajes.aspx b/Transportes/ListadoViajes.aspx
index 15e9c8174..791cbfd9e 100644
--- a/Transportes/ListadoViajes.aspx
+++ b/Transportes/ListadoViajes.aspx
@@ -1,4 +1,5 @@
-<%@ Page Language="VB" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="ListadoViajes.aspx.vb"
+<%@ Page Language="VB" Title="Transportes V&A - Viajes" AutoEventWireup="false" MasterPageFile="~/Site.master"
+    CodeFile="ListadoViajes.aspx.vb"
     Inherits="ListadoViajes" %>
 
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">