+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Transportes/CatRutas.aspx.vb b/Transportes/CatRutas.aspx.vb
new file mode 100644
index 000000000..a58e3da56
--- /dev/null
+++ b/Transportes/CatRutas.aspx.vb
@@ -0,0 +1,82 @@
+Option Explicit On
+Option Strict On
+Partial Class CatRutas
+ Inherits ClsPaginas
+ Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+ If Not IsPostBack Then
+ InicializaCalendar()
+ CargaDatos()
+ End If
+
+ End Sub
+ Private Sub CargaDatos()
+ 'Lista Rutas'
+ Dim ObjRutas As New ClsTransportes()
+ If ObjRutas.GetRutas(-1, -1, -1, "", True, DateTime.Now) Then
+
+ If ObjRutas.DtResultados.Rows.Count > 0 Then
+ GvRutas.DataSource = ObjRutas.DtResultados
+ GvRutas.DataBind()
+ End If
+ End If
+ 'Lista Destinos'
+ If ObjRutas.GetDestinos() Then
+
+ If ObjRutas.DtResultados.Rows.Count > 0 Then
+ GvDestinos.DataSource = ObjRutas.DtResultados
+ GvDestinos.DataBind()
+ End If
+ End If
+ 'Lista Importes'
+ If ObjRutas.GetDestinosTarifas(-1, -1) Then
+ If ObjRutas.DtResultados.Rows.Count > 0 Then
+ GvImportes.DataSource = ObjRutas.DtResultados
+ GvImportes.DataBind()
+ End If
+ End If
+ End Sub
+
+ Private Sub InicializaCalendar()
+
+ End Sub
+
+#Region "Rutas"
+ Protected Sub AddRuta(sender As Object, e As EventArgs)
+
+ End Sub
+ Protected Sub UpdateRuta(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub RemoveRuta(sender As Object, e As EventArgs)
+
+ End Sub
+#End Region
+
+#Region "Destinos"
+ Protected Sub AddDestino(sender As Object, e As EventArgs)
+
+ End Sub
+ Protected Sub UpdateDestino(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub RemoveDestino(sender As Object, e As EventArgs)
+
+ End Sub
+#End Region
+
+#Region "Importes"
+ Protected Sub AddImporte(sender As Object, e As EventArgs)
+
+ End Sub
+ Protected Sub UpdateImporte(sender As Object, e As EventArgs)
+
+ End Sub
+
+ Protected Sub RemoveImporte(sender As Object, e As EventArgs)
+
+ End Sub
+#End Region
+
+End Class