From 65602085c62d410e1f0d3f6834bfdb0b0e5f324b Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Tue, 20 Feb 2024 23:17:06 -0700 Subject: [PATCH] =?UTF-8?q?--Se=20uniformaron=20estilos,=20se=20puso=20men?= =?UTF-8?q?saje=20informativo=20de=20apartado=20de=20boletos.=20Se=20agreg?= =?UTF-8?q?=C3=B3=20CveEmpresa=20al=20eliminar=20destino=20para=20segurida?= =?UTF-8?q?d.=20=20Se=20crearon=20los=20PA=20de=20agregar,=20actualizar=20?= =?UTF-8?q?y=20eliminar=20destinos=20y=20destinostarifas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsTransportes.vb | 7 +- Transportes/Boletos.aspx | 259 ++++++++++++------------ Transportes/Boletos.aspx.vb | 22 +- Transportes/CatRutas.aspx.vb | 2 +- Transportes/RepContratos.aspx | 13 +- Transportes/RepViajesCalendario.aspx.cs | 2 +- 6 files changed, 158 insertions(+), 147 deletions(-) diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb index 73fa483de..f79f45900 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -234,7 +234,7 @@ Public Class ClsTransportes With SqlAdapter.SelectCommand.Parameters .Add("@CveDestino", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@Destino", SqlDbType.VarChar).Value = Destino - .Add("@EsNacional", SqlDbType.VarChar).Value = Convert.ToBoolean(EsNacional) + .Add("@EsNacional", SqlDbType.Bit).Value = Convert.ToBoolean(EsNacional) .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa @@ -270,13 +270,14 @@ Public Class ClsTransportes Return Retorno End Function - Public Function RemoveDestino(CveDestino As Integer) As Boolean + Public Function RemoveDestino(CveDestino As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Trans_DestinosRemove") With SqlAdapter.SelectCommand.Parameters .Add("@CveDestino", SqlDbType.Int).Value = CveDestino + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try @@ -397,11 +398,11 @@ Public Class ClsTransportes DataAdapter("PA_Trans_DestinosTarifasAdd") With SqlAdapter.SelectCommand.Parameters + .Add("@CveDestinoTarifa", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal .Add("@Importe", SqlDbType.SmallMoney).Value = Importe - .Add("@CveDestinoTarifa", SqlDbType.Int).Direction = ParameterDirection.Output End With Try SqlAdapter.Fill(Data) diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx index b4afa5eac..b9b4a0920 100644 --- a/Transportes/Boletos.aspx +++ b/Transportes/Boletos.aspx @@ -13,7 +13,7 @@ } .mx-1 { - margin: 0 2rem; + margin: 0 5px 0 5px; } .disponible { @@ -88,157 +88,164 @@ -
- <%-- Boleto --%> -
- <%-- Datos del Cliente --%> -
-
-
-
-
-
- - Datos del Pasajero - -
- -
- - - - - -
-
-
-
-
-
-
- - - +
+ <%-- Boleto --%> +
+ <%-- Datos del Cliente --%> +
+
+
+
+
+
+ + Datos del Pasajero +
-
- -
-
- - +
+ + + + +
-
-
-
- - - - - - +
+
+
+
+ + + +
+ +
+ +
+
+ + +
-
-
- - - +
+
+
+ + + + + + +
+
+ +
+
+ + + +
-
-
- - - +
+ + + +
-
- <%-- Datos del Viaje y Destinos --%> -
-
-
-
-
- - Datos del Viaje -
-
-
- -
-
-
- - -
-
- -
-
- - - - - -
+ <%-- Datos del Viaje y Destinos --%> +
+
+
+
+
+ + Datos del Viaje
-
-
-
- - +
+
+
+
+ + +
+
+ +
+
+ + + + + +
-
-
- - - - +
+
+
+ + +
+
+ +
+
+ + + + +
-
-
- +
+

+ +
-
-
- <%-- Botón para Agregar Pasajero(Oculto) --%> -
- -
+ <%-- Botón para Agregar Pasajero(Oculto) --%> +
+

information: Los boletos están siendo apartados hasta finalizar su compra

 + + + +
<%-- Listado de Boletos --%>
@@ -519,7 +526,7 @@
-
+
@@ -527,14 +534,14 @@ diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 08998dd1c..47a199259 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -172,16 +172,18 @@ Partial Class Boletos ImporteR = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal.RoundSQL End If If ImporteR > 0 Then - ViewState("Importe") = ImporteR - LbCostos.Text = $"El precio de su boleto es ${ImporteR.FormatoNumero}" - LbCostos.Visible = True - BtnAgregarPasajero.Visible = True - Else - ViewState("Importe") = 0 - BtnAgregarPasajero.Visible = False - LbCostos.Visible = False - Alert("No se encontro una tarifa para estos destinos", TipoMensaje.MsgAdvertencia) - End If + ViewState("Importe") = ImporteR + LbCostos.Text = $"El precio de su boleto es ${ImporteR.FormatoNumero}" + LbCostos.Visible = True + BtnAgregarPasajero.Visible = True + LbAviso.Visible = True + + Else + ViewState("Importe") = 0 + BtnAgregarPasajero.Visible = False + LbCostos.Visible = False + Alert("No se encontro una tarifa para estos destinos", TipoMensaje.MsgAdvertencia) + End If ObjDestinos.Dispose() diff --git a/Transportes/CatRutas.aspx.vb b/Transportes/CatRutas.aspx.vb index c3d014729..c120747d0 100644 --- a/Transportes/CatRutas.aspx.vb +++ b/Transportes/CatRutas.aspx.vb @@ -232,7 +232,7 @@ Partial Class CatRutas Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim ObjDestino As New ClsTransportes - If ObjDestino.RemoveDestino(GvRow.DataKey("CveDestino").ToEntero) Then + If ObjDestino.RemoveDestino(GvRow.DataKey("CveDestino").ToEntero, UsuarioActual.CveEmpresa) Then Alert("Destino eliminado correctamente") CargaDatos() End If diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx index 7b03f97ed..e023b1602 100644 --- a/Transportes/RepContratos.aspx +++ b/Transportes/RepContratos.aspx @@ -243,7 +243,7 @@
-
-
-
@@ -278,7 +279,7 @@
- +
@@ -315,7 +316,7 @@
-