Option Explicit On
Option Strict On

Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports Extensiones
Partial Class AF_RepDepreciacion
    Inherits ClsPaginas

#Region "PROPIEDADES"


#End Region
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            txtFechaI.Text = Now.ToString
        End If
    End Sub

    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
        CargaDatos()
        If GvDatos.Rows.Count = 0 Then Alert("No se encontraron Registros con los filtros actuales.", TipoMensaje.MsgAdvertencia)
    End Sub

#Region " C A R G A - D A T O S "
    Public Sub CargaDatos()
        Dim ObjAF As New ClsAF

        If ObjAF.GetRepActivosFijosDepreciacion(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate) Then
            GvDatos.DataSource = ObjAF.DtResultados
            GvDatos.DataBind()
            UPDatos.Update()
        End If

        ObjAF.Dispose()
    End Sub
#End Region

#Region "G V - D A T O S "
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.DataKey("CveActivoFijo") = "0" Then
                e.Row.BackColor = Drawing.Color.LightGray
                e.Row.Font.Bold = True
                e.Row.Font.Size = 10
                e.Row.FCLiteral("LtlDepreciacion").Text = "%"
            End If
        End If
    End Sub
#End Region

#Region "CARGA COMBOS FILTRO"
#End Region

#Region "DDLS SELECTED INDEX CHANGED"
#End Region

End Class