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