SIG/Contabilidad/RepBalanceGeneralAnual.aspx.vb

Option Explicit On
Option Strict On

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


#Region "  PROPIEDADES  "
    Private Property DtDatos As DataTable
        Get
            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
        End Get

        Set(ByVal value As DataTable)
            ViewState("DtDatos") = value
        End Set
    End Property
    Private Property ReporteComplementario As Boolean
        Get
            ReporteComplementario = CBool(ViewState("ReporteComplementario").ToString)
        End Get
        Set(value As Boolean)
            ViewState("ReporteComplementario") = value
        End Set
    End Property
    Private Property TipoReporte As Integer
        Get
            TipoReporte = ViewState("TipoReporte").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("TipoReporte") = value
        End Set
    End Property
    Private Property Anos As Integer
        Get
            Anos = ViewState("Anos").ToString.ToEntero
        End Get
        Set(value As Integer)
            ViewState("Anos") = value
        End Set
    End Property
#End Region

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            If UsuarioActual.Empresa.UsaAC Then
                TipoReporte = -1
            Else
                tdTipoReporte.Visible = True
                TipoReporte = 1
            End If

            DdlEjercicio.SelectedValue = NowADS().Year.ToString

            Anos = 0
            CargaDatos()
        End If
    End Sub

    Private Sub CargaDatos()
        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
        TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)

        If ObjConta.GetBalanceGeneralAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte) Then
            DtDatos = ObjConta.DtResultados
        Else
            DtDatos = Nothing
            Alert("Ocurrio un error al cargar los datos del balance general anual", TipoMensaje.MsgError)
        End If
        ObjConta.Dispose()

        Anos = (Year(NowADS()) - DdlEjercicio.SelectedValue.ToEntero) + 1

        'Esconde todo
        For index = 1 To 20
            GvDatos.Columns(index).Visible = False
        Next

        For index = 1 To Anos
            GvDatos.Columns(index).Visible = True
            GvDatos.Columns(index).HeaderText = (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString
        Next

        If DtDatos IsNot Nothing Then
            CargaGrid()
        End If
    End Sub

    Private Sub CargaGrid()
        GvDatos.DataSource = DtDatos
        GvDatos.DataBind()
        UpDatos.Update()
    End Sub

    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
        CargaDatos()
    End Sub
    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 5 Or e.Row.DBCampo("CtaMayor").ToString.ToEntero = 4 Then
                For index = 1 To Anos
                    e.Row.FCHyperLink("HLAno" + index.ToString).Text = ""
                Next
            End If

            'AGRUPADOR DE CUENTAS
            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 4 Then
                e.Row.FCLabel("LbNombre").Font.Bold = True
            End If

            'TITULO DE CUENTAS
            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 5 Then
                e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 10px;")
                e.Row.FCLabel("LbNombre").Font.Italic = True
            End If

            'CUENTAS
            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 1 Then
                e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;")

                For index = 1 To Anos
                    e.Row.FCHyperLink("HLAno" + index.ToString).NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FI={1}&FF={2}&TP={3}", e.Row.DBCampo("Id"), String.Format("01/01/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), String.Format("31/12/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), TipoReporte)
                Next

            End If

            'TOTALES
            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
                e.Row.Attributes.Add("style", "border-top: 1px solid;")
                e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 10px;")
                e.Row.FCLabel("LbNombre").Font.Italic = True
            End If

            'SUMAS
            If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 6 Then
                e.Row.FCLabel("LbNombre").Font.Bold = True
            End If

        End If
    End Sub


End Class