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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-12-27 19:03:32 -07:00
parent 4c2aee3931 be42cc763d
commit 43a3909e39
5 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Transportes/Boletos.aspx
View File

@@ -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">

17
Transportes/Boletos.aspx.vb
View File

@@ -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)

3
Transportes/ListadoBoletos.aspx
View File

@@ -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">

3
Transportes/ListadoContratos.aspx
View File

@@ -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">

3
Transportes/ListadoViajes.aspx
View File

@@ -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">