--Se agrega la url de CatRutas a ClsPáginas, se agrega a módulos y se da permiso. Se crea la página de CatRutas y hace un panel con 3 pestañas para rutas, destinos e importes, se crea el listado en cada uno y se prepara para los métodos del CRUD.

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