- traspaso

Transportes/RepBoletos.aspx.vb

@@ -31,7 +31,7 @@ Partial Class ListadoBoletos
                 Response.Redirect("/Transportes/RepViajes.aspx")
             End If
             CveViaje = Request.QueryString("CveViaje").ToEntero
-            Ruta = Request.QueryString("Ruta")
+            Ruta = IfNull(Request("Ruta"), "").ToString
 
             Prueba.Text = Ruta
 
@@ -46,43 +46,11 @@ Partial Class ListadoBoletos
 
     Private Sub CargaDatos()
         Dim ObjTransportes As New ClsTransportes
-
         If ObjTransportes.GetViajesPasajeros(CveViaje) Then
-
             GvBoletos.DataSource = ObjTransportes.DtResultados
-            ObjTransportes.Dispose()
-            GvBoletos.DataBind()
         End If
-    End Sub
-
-    Protected Sub ToggleViajesPasajeros(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim CveViajePasajero As String = GvRow.DataKey("CveViajePasajero")
-        Dim Estatus As String = GvRow.DataKey("Estatus")
-        Dim cambiarEstatus As Boolean = Not Estatus.ToBool
-        Dim ObjTransportes As New ClsTransportes
-
-        Try
-            ObjTransportes.IniciaTransacSQL()
-            If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=True, Estatus:=cambiarEstatus) Then
-
-                If cambiarEstatus Then
-                    Alert($"El boleto ha sido cancelado correctamente.")
-                Else
-                    Alert($"El boleto ha sido reactivado correctamente.")
-
-                End If
-            End If
-            ObjTransportes.Commit()
-
-        Catch ex As Exception
-            ObjTransportes.RollBack()
-            Alert($"No se pudo cambiar el estatus del boleto {ex}", TipoMensaje.MsgError)
-        Finally
-            ObjTransportes.Dispose()
-            CargaDatos()
-        End Try
-
+        ObjTransportes.Dispose()
+        GvBoletos.DataBind()
     End Sub
 
     Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
@@ -113,4 +81,29 @@ Partial Class ListadoBoletos
 
     End Sub
 
+
+    Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim CveViajePasajero As String = GvRow.DataKey("CveViajePasajero")
+        Dim Estatus As String = GvRow.DataKey("Estatus")
+        Dim cambiarEstatus As Boolean = Not Estatus.ToBool
+        Dim ObjTransportes As New ClsTransportes
+        ObjTransportes.IniciaTransacSQL()
+        Try
+            If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=cambiarEstatus, Estatus:=cambiarEstatus) Then
+                If Not cambiarEstatus Then
+                    Alert($"El boleto ha sido cancelado correctamente.")
+                Else
+                    Alert($"El boleto ha sido reactivado correctamente.")
+                End If
+            End If
+            ObjTransportes.Commit()
+        Catch ex As Exception
+            ObjTransportes.RollBack()
+            Alert($"No se pudo cambiar el estatus del boleto {ex}", TipoMensaje.MsgError)
+        Finally
+            ObjTransportes.Dispose()
+            CargaDatos()
+        End Try
+    End Sub
 End Class