Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
63 lines (40 sloc) 2.11 KB
Imports System.Data
Partial Class DetalleTareasPendientes
Inherits cBase
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim Control As New cRegistroTransferencia
Dim dsDatos As New DataSet
Me.lblTemaTareasPendientes.Text = Me.Session.Item("TemaDetalle")
If Me.IsPostBack = False Then
dsDatos = Control.RecuperarTransferenciasPendientesPorPuntoTransferencia(Me.Session.Item("IdPuntoTransferencia"))
If dsDatos.Tables(0).Rows.Count > 0 Then
Me.dgDAtos.Columns.Clear()
Me.dgDAtos.DataSource = dsDatos.Tables(0)
Dim btnSel As New CommandField
btnSel.ShowSelectButton = True
btnSel.SelectText = "Seleccionar"
Me.dgDAtos.Columns.Add(btnSel)
Dim IdPuntoTransferencia As New BoundField
IdPuntoTransferencia.DataField = "IdRegistroTransferencia"
IdPuntoTransferencia.HeaderText = "Codigo de Tranferencia"
Me.dgDAtos.Columns.Add(IdPuntoTransferencia)
Dim NombreCliente As New BoundField
NombreCliente.DataField = "NombreCliente"
NombreCliente.HeaderText = "Nombre del Cliente"
Me.dgDAtos.Columns.Add(NombreCliente)
Dim FechaRegistro As New BoundField
FechaRegistro.DataField = "FechaRegistro"
FechaRegistro.HeaderText = "Fecha de Registro"
Me.dgDAtos.Columns.Add(FechaRegistro)
Dim NombreTipo As New BoundField
NombreTipo.DataField = "NombreTipo"
NombreTipo.HeaderText = "Nombre Tipo de Ingreso"
Me.dgDAtos.Columns.Add(NombreTipo)
Me.dgDAtos.DataBind()
End If
End If
End Sub
Protected Sub dgDAtos_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgDAtos.SelectedIndexChanged
Me.Response.Redirect("RegTransferencia.aspx?Transferencia=" & dgDAtos.SelectedRow.Cells(1).Text)
End Sub
End Class