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