diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx index 254e8184c..011e520a4 100644 --- a/Transportes/Boletos.aspx +++ b/Transportes/Boletos.aspx @@ -33,11 +33,6 @@ color: #fff; } - { - background-color: #45b6af; - color: #fff; - } - .nodisponible { display: inline-block; width: 45px; @@ -74,8 +69,9 @@ - + + <%-- Datos de cliente y su viaje --%>
@@ -158,6 +154,7 @@
+
@@ -174,6 +171,7 @@
+
@@ -181,8 +179,8 @@
-
+
Destino:
-
-

@@ -209,14 +205,10 @@ ValidationGroup="GrpGuardar">
-
-
- - + - - + <%-- Asientos --%>
@@ -468,10 +460,8 @@
-
-
- +
diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 330e2cc09..379392af6 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -1,7 +1,4 @@ -Imports System.Data -Imports Extensiones - -Partial Class Boletos +Partial Class Boletos Inherits ClsPaginas #Region "Propiedades" Private Property AsientoSeleccionado As String @@ -156,9 +153,7 @@ Partial Class Boletos Try AsientoSeleccionado = AsientoSeleccionado.Replace("A", "") - Dim retorno As Integer = ObjTransporte.AddViajesPasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, AsientoSeleccionado.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - - If retorno > 1 Then + If ObjTransporte.AddViajesPasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, AsientoSeleccionado.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 1 Then Alert("Boleto generado correctamente") ObjTransporte.Commit() DdlPartida.SelectedValue = "" @@ -168,13 +163,14 @@ Partial Class Boletos TxtCelular.Text = "" TxtObservaciones.Text = "" AsientoSeleccionado = "" - upPanel.Update() End If Catch ex As Exception ObjTransporte.RollBack() Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError) Finally ObjTransporte.Dispose() + CargaDatos() + UpPanel.Update() End Try End Sub