Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
73 lines (32 sloc) 1.7 KB
Imports System.Data
Partial Class TareasPendientes
Inherits cBase
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim NodoPadre As New TreeNode
Dim NodoEstado As New TreeNode
Dim NodoTexto As New TreeNode
Dim Control As New cRegistroTransferencia
Dim dsDatos As New DataSet
If Me.IsPostBack = False Then
dsDatos = Control.RecuperarTransferenciasPendientesPorPuntoTransferencia(Me.Session.Item("idPuntoTransferencia"))
NodoPadre.Text = "Tareas Pendientes ----- " & dsDatos.Tables(0).Rows.Count
NodoPadre.Value = ""
NodoEstado.Text = "Pendientes de realizar Transferencia ----- " & dsDatos.Tables(0).Rows.Count
NodoEstado.Value = "Pendiente"
NodoTexto.Text = "Detalle de pendiendes transferencias pendientes"
NodoTexto.Value = "Detalle de pendiendes transferencias pendientes"
Me.TreeView1.Nodes.Add(NodoPadre)
NodoPadre.ChildNodes.Add(NodoEstado)
NodoEstado.ChildNodes.Add(NodoTexto)
NodoEstado.Expanded = False
NodoEstado.SelectAction = TreeNodeSelectAction.Expand
NodoPadre.SelectAction = TreeNodeSelectAction.Expand
'NodoTexto.SelectAction = TreeNodeSelectAction.Select
Me.TreeView1.DataBind()
End If
End Sub
Protected Sub TreeView1_SelectedNodeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.SelectedNodeChanged
Me.Session.Item("TemaDetalle") = TreeView1.SelectedValue
Me.Response.Redirect("DetalleTareasPendientes.aspx")
End Sub
End Class