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