83 lines
2.0 KiB
VB.net
83 lines
2.0 KiB
VB.net
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
|