Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
107 lines (70 sloc) 3.41 KB
Imports System.Data
Partial Class ConsultaComprobante
Inherits cBase
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.finSession()
Dim cControl As New cRegistroTransferencia
Dim dsDatos As New dataset
dsDatos = cControl.RecuperarTransfernciasGeneradas()
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 idRegistroTransferencia As New BoundField
idRegistroTransferencia.DataField = "idRegistroTransferencia"
idRegistroTransferencia.HeaderText = "No. Registro Transferencia"
Me.dgDatos.Columns.Add(idRegistroTransferencia)
Dim FechaRegistro As New BoundField
FechaRegistro.DataField = "FechaRegistro"
FechaRegistro.HeaderText = "Fecha de Registro"
Me.dgDatos.Columns.Add(FechaRegistro)
Dim TiempoIngreso As New BoundField
TiempoIngreso.DataField = "TiempoIngreso"
TiempoIngreso.HeaderText = "Tiempo de Ingreso"
Me.dgDatos.Columns.Add(TiempoIngreso)
Dim PesoBruto As New BoundField
PesoBruto.DataField = "PesoBruto"
PesoBruto.HeaderText = "Peso Bruto"
Me.dgDatos.Columns.Add(PesoBruto)
Dim PesoNeto As New BoundField
PesoNeto.DataField = "PesoNeto"
PesoNeto.HeaderText = "Peso Neto"
Me.dgDatos.Columns.Add(PesoNeto)
Dim NombreTipo As New BoundField
NombreTipo.DataField = "NombreTipo"
NombreTipo.HeaderText = "Tipo"
Me.dgDatos.Columns.Add(NombreTipo)
Dim NombrePuntoTransferencia As New BoundField
NombrePuntoTransferencia.DataField = "NombrePuntoTransferencia"
NombrePuntoTransferencia.HeaderText = "Punto de Tranferencia"
Me.dgDatos.Columns.Add(NombrePuntoTransferencia)
Dim NombreEstado As New BoundField
NombreEstado.DataField = "NombreEstado"
NombreEstado.HeaderText = "Estado"
Me.dgDatos.Columns.Add(NombreEstado)
Dim Transporte_idTransporte As New BoundField
Transporte_idTransporte.DataField = "Transporte_idTransporte"
Transporte_idTransporte.HeaderText = "Trasporte"
Me.dgDatos.Columns.Add(NombreEstado)
Dim Usuario As New BoundField
Usuario.DataField = "Usuario"
Usuario.HeaderText = "Usuario"
Me.dgDatos.Columns.Add(Usuario)
Me.dgDatos.DataBind()
Me.lblNum.Text = dsDatos.Tables(0).Rows.Count
dgDatos.DataBind()
End If
Dim i As Integer
For i = 0 To dgDatos.Rows.Count - 1
If Me.dgDatos.Rows(i).Cells(10).Text = Me.Session.Item("NombreUsuario") Then
Me.dgDatos.Rows(i).ForeColor = Drawing.Color.Navy
End If
Next
End Sub
Protected Sub dgDatos_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgDatos.SelectedIndexChanged
Me.Response.Redirect("DetalleComprobante.aspx?IdComprobante=" & Me.dgDatos.SelectedRow.Cells(1).Text)
End Sub
End Class