From f048cdb4d5350ac9d8c9c7d4fb5b8f05e3e3223b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 28 Nov 2024 20:18:14 -0700 Subject: [PATCH] VyA viajes Correciones --- Transportes/Boletos.aspx | 16 ++++++++++++++-- Transportes/Boletos.aspx.vb | 4 ++-- Transportes/RepViajes.aspx.vb | 2 +- 3 files changed, 17 insertions(+), 5 deletions(-) diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx index c7720bf91..919378463 100644 --- a/Transportes/Boletos.aspx +++ b/Transportes/Boletos.aspx @@ -138,11 +138,23 @@
- + + <%----%> + +
+ + + + +
+ + + + - + <%----%>
diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 8fe42f08a..46bd7688c 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -176,7 +176,7 @@ Partial Class Boletos 'Lista Destinos''carga especĂ­ficos Dim ObjDestinos As New ClsTransportes() - If ObjDestinos.GetDestinosTarifas(CveSubProyecto, -1, -1) Then + If ObjDestinos.GetDestinosTarifas(CveSubProyecto, -1, -1, UsuarioActual.CveEmpresa) Then If ObjDestinos.DtResultados.Rows.Count > 0 Then DtDestinos = ObjDestinos.DtResultados DdlPartida.DataSource = DtDestinos.FiltraParametros("", DistinctColumns:={"CveDestinoOrigen", "Partida"}) : DataBind() @@ -194,7 +194,7 @@ Partial Class Boletos Dim ObjDestinos As New ClsTransportes() Dim CveSubProyecto As Integer = Contrato.Rows(0)("CveSubProyecto").ToString.ToEntero - If ObjDestinos.GetDestinosTarifas(CveSubProyecto, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero) Then + If ObjDestinos.GetDestinosTarifas(CveSubProyecto, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then Dim edad As Integer = CInt(DateDiff(DateInterval.Year, TxtFechaNacimiento.Text.ToDate, Date.Today)) Dim Mes As Integer = TxtFecha.Text.ToDate.Month diff --git a/Transportes/RepViajes.aspx.vb b/Transportes/RepViajes.aspx.vb index 6736d3178..e245ea10b 100644 --- a/Transportes/RepViajes.aspx.vb +++ b/Transportes/RepViajes.aspx.vb @@ -57,7 +57,7 @@ Partial Class ListadoViajes Dim ObjRutas As New ClsTransportes() - If ObjRutas.GetDestinos() Then + If ObjRutas.GetDestinos(-1, UsuarioActual.CveEmpresa) Then If ObjRutas.DtResultados.Rows.Count > 0 Then DdlPartida.DataSource = ObjRutas.DtResultados