36 lines
1.1 KiB
VB.net
36 lines
1.1 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports System.Linq
|
|
Imports Extensiones
|
|
Partial Class Contabilidad_RepPolizasCuadre
|
|
Inherits ClsPaginas
|
|
|
|
Private Sub Contabilidad_RepPolizasCuadre_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
CargaGrid()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CargaGrid()
|
|
Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa)
|
|
|
|
If ObjPolizas.GetPolizasCuadre() Then
|
|
GvDatos.DataSource = ObjPolizas.DtResultados()
|
|
End If
|
|
|
|
ObjPolizas.Dispose()
|
|
GvDatos.DataBind()
|
|
UpDatos.Update()
|
|
End Sub
|
|
|
|
Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
Dim Liga1 As String = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", e.Row.DBCampo("IdPoliza"))
|
|
e.Row.FCLiteral("LtNumPoliza").Text = String.Format("<a class='Texto' href='{0}' target='_blank'>{1}</a>", Liga1, e.Row.DBCampo("NumPol"))
|
|
|
|
End If
|
|
End Sub
|
|
End Class
|