-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

Transportes/RepViajes.aspx.vb

@@ -36,7 +36,7 @@ Partial Class ListadoViajes
     End Sub
     Private Sub InicializaCombos()
         'Lista Rutas'
-        DdlRutas.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto in (12699,12700)")
+        DdlRutas.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto in (12699,12700)")
         DdlRutas.DataBind()
 
         Dim ObjRutas As New ClsTransportes()
@@ -72,7 +72,7 @@ Partial Class ListadoViajes
     End Sub
     Public Sub MostrarModal()
         'Generar Folio
-        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
         Dim ObjFolio As New ClsGralFolios
         If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then
             If ObjFolio.DtResultados.Rows.Count > 0 Then
@@ -92,7 +92,7 @@ Partial Class ListadoViajes
     End Sub
     Protected Sub AddViaje(sender As Object, e As EventArgs)
         'Generador de Viajes Masivos
-        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
         If IsMasivo.Checked = True Then
             If TxtFechaInicial.Text = "" Or TxtFrecuencia.Text = "" Then
                 Alert("Es necesario agregar la fecha inicial y la frecuencia", TipoMensaje.MsgAdvertencia)