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-26 21:39:41 -07:00
parent 3cbec7b22a 2e11be2791
commit 1ea808bbc6
2 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Transportes/Boletos.aspx.vb
View File

@@ -47,10 +47,10 @@ Partial Class Boletos
AsientoSeleccionado = "" AsientoSeleccionado = ""
CveRuta = 0 CveRuta = 0
CveViaje = Request.QueryString("CveViaje").ToEntero CveViaje = Request.QueryString("CveViaje").ToEntero
If CveViaje > 0 Then
InicializaCombos() DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
CargaDatos() CargaDatos()
End If InicializaCombos()
End If End If
End Sub End Sub
@@ -126,16 +126,14 @@ Partial Class Boletos
End Sub End Sub
Protected Sub OnLinkButtonClick(sender As Object, e As EventArgs) Protected Sub OnLinkButtonClick(sender As Object, e As EventArgs)
'quitamos la selección anterior, en caso de existir. Dim linkButton As LinkButton = DirectCast(sender, LinkButton)
Dim buttonID As String = linkButton.ID
linkButton.CssClass += " activo"
If AsientoSeleccionado <> "" Then If AsientoSeleccionado <> "" Then
Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder) Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder)
Dim lnk As LinkButton = CType(cph.FindControl(AsientoSeleccionado), LinkButton) Dim lnk As LinkButton = CType(cph.FindControl(AsientoSeleccionado), LinkButton)
lnk.CssClass = "disponible" lnk.CssClass = "disponible"
End If End If
Dim linkButton As LinkButton = DirectCast(sender, LinkButton)
Dim buttonID As String = linkButton.ID
linkButton.CssClass += " activo"
AsientoSeleccionado = buttonID AsientoSeleccionado = buttonID
End Sub End Sub
Protected Sub AddBoleto(sender As Object, e As EventArgs) Protected Sub AddBoleto(sender As Object, e As EventArgs)
@@ -154,13 +152,13 @@ Partial Class Boletos
If retorno > 1 Then If retorno > 1 Then
ObjTransporte.Commit() ObjTransporte.Commit()
Alert("El Boleto se ha registrado. ", TipoMensaje.MsgInformacion) Alert("Boleto creado correctamente.")
End If End If
Catch ex As Exception Catch ex As Exception
Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError) Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError)
Finally Finally
ObjTransporte.Dispose() ObjTransporte.Dispose()
Response.Redirect($"/Transportes/Boletos.aspx?CveViaje={CveViaje}")
End Try End Try
End Sub End Sub

8
Transportes/ListadoBoletos.aspx.vb
View File

@@ -51,7 +51,13 @@ Partial Class ListadoBoletos
Try Try
ObjTransportes.IniciaTransacSQL() ObjTransportes.IniciaTransacSQL()
If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=True, Estatus:=cambiarEstatus) Then If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=True, Estatus:=cambiarEstatus) Then
Alert("El boleto ha sido cancelado correctamente.")
If cambiarEstatus Then
Alert($"El boleto ha sido cancelado correctamente.")
Else
Alert($"El boleto ha sido reactivado correctamente.")
End If
End If End If
ObjTransportes.Commit() ObjTransportes.Commit()