diff --git a/Transportes/CrearViaje.aspx b/Transportes/CrearViaje.aspx
new file mode 100644
index 000000000..6dd2878c9
--- /dev/null
+++ b/Transportes/CrearViaje.aspx
@@ -0,0 +1,124 @@
+<%@ Page Language="VB" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="CrearViaje.aspx.vb"
+ Inherits="CrearViaje" %>
+
+
+
+ Crear Viaje
+
+
+
+
+
+
+
+
+
diff --git a/Transportes/CrearViaje.aspx.vb b/Transportes/CrearViaje.aspx.vb
new file mode 100644
index 000000000..c64594b95
--- /dev/null
+++ b/Transportes/CrearViaje.aspx.vb
@@ -0,0 +1,65 @@
+Partial Class CrearViaje
+ Inherits ClsPaginas
+
+ Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
+ If Not IsPostBack Then
+ CargaDatos()
+ End If
+ End Sub
+
+ Private Sub CargaDatos()
+ 'Lista Activos Fijos'
+ Dim ObjAF As New ClsAF()
+ If ObjAF.GetActivosFijos(-1, 13, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
+ If ObjAF.DtResultados.Rows.Count > 0 Then
+ DdlTransporte.DataSource = ObjAF.DtResultados
+ DdlTransporte.DataBind()
+
+ DdlTransporte.Items.Insert(0, New ListItem("<--Seleccione Transporte-->", ""))
+ End If
+ End If
+ ObjAF.Dispose()
+
+ 'Lista Rutas'
+ Dim ObjRutas As New ClsRH()
+ If ObjRutas.GetRutas(7) Then
+ Page.Response.Write("")
+
+ If ObjRutas.DtResultados.Rows.Count > 0 Then
+ DdlRutas.DataSource = ObjRutas.DtResultados
+ DdlRutas.DataBind()
+ DdlRutas.Items.Insert(0, New ListItem("<--Seleccione Ruta-->", ""))
+
+ DdlPartida.DataSource = ObjRutas.DtResultados
+ DdlPartida.DataBind()
+ DdlPartida.Items.Insert(0, New ListItem("<--Seleccione Partida-->", ""))
+
+ DdlDestino.DataSource = ObjRutas.DtResultados
+ DdlDestino.DataBind()
+ DdlDestino.Items.Insert(0, New ListItem("<--Seleccione Destino-->", ""))
+
+ End If
+ End If
+ ObjRutas.Dispose()
+
+ 'Lista Chofer'
+ 'GlobalDTRHPersonal()'
+ 'CvePersonal - Text Nombre COmpleto'
+ Dim ObjAcar As New ClsAcarreos()
+ If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, 1, -1) Then
+ DdlChofer.DataSource = ObjAcar.DtResultados
+ DdlChofer.DataBind()
+ DdlChofer.Items.Insert(0, New ListItem("<--Seleccione Chofer-->", ""))
+ End If
+ ObjAcar.Dispose()
+ End Sub
+
+ Protected Sub AddViaje(sender As Object, e As EventArgs)
+ 'Dónde están los PA para agregar viajes?'
+ 'Dónde están los PA para consultar Destinos y rutas viajes?'
+ 'Por qué siempre cambia el aside de Transportes V&A?'
+ Page.Response.Write("")
+ End Sub
+
+End Class
\ No newline at end of file