Option Explicit On Option Strict On Imports System.Data Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Contabilidad2_RepBalanceGeneral Inherits ClsPaginas #Region " P R O P I E D A D E S - B A L A N C E - G E N E R A L" 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 TotalActivoActual As Double Get TotalActivoActual = ViewState("TotalActivoActual").ToString.ToDouble End Get Set(value As Double) ViewState("TotalActivoActual") = value End Set End Property Private Property TotalActivoAnterior As Double Get TotalActivoAnterior = ViewState("TotalActivoAnterior").ToString.ToDouble End Get Set(value As Double) ViewState("TotalActivoAnterior") = value End Set End Property Private Property TotalPasivoActual As Double Get TotalPasivoActual = ViewState("TotalPasivoActual").ToString.ToDouble End Get Set(value As Double) ViewState("TotalPasivoActual") = value End Set End Property Private Property TotalPasivoAnterior As Double Get TotalPasivoAnterior = ViewState("TotalPasivoAnterior").ToString.ToDouble End Get Set(value As Double) ViewState("TotalPasivoAnterior") = value End Set End Property Private Property TotalPatrimonioActual As Double Get TotalPatrimonioActual = ViewState("TotalPatrimonioActual").ToString.ToDouble End Get Set(value As Double) ViewState("TotalPatrimonioActual") = value End Set End Property Private Property TotalPatrimonioAnterior As Double Get TotalPatrimonioAnterior = ViewState("TotalPatrimonioAnterior").ToString.ToDouble End Get Set(value As Double) ViewState("TotalPatrimonioAnterior") = value End Set End Property Private Property TotalPasivoPatrimonioActual As Double Get TotalPasivoPatrimonioActual = ViewState("TotalPasivoPatrimonioActual").ToString.ToDouble End Get Set(value As Double) ViewState("TotalPasivoPatrimonioActual") = value End Set End Property Private Property TotalPasivoPatrimonioAnterior As Double Get TotalPasivoPatrimonioAnterior = ViewState("TotalPasivoPatrimonioAnterior").ToString.ToDouble End Get Set(value As Double) ViewState("TotalPasivoPatrimonioAnterior") = value End Set End Property Private Property FechaInicioActual As Date Get FechaInicioActual = ViewState("FechaInicioActual").ToString.ToDate End Get Set(value As Date) ViewState("FechaInicioActual") = value End Set End Property Private Property FechaFinActual As Date Get FechaFinActual = ViewState("FechaFinActual").ToString.ToDate End Get Set(value As Date) ViewState("FechaFinActual") = value End Set End Property Private Property FechaInicioAnterior As Date Get FechaInicioAnterior = ViewState("FechaInicioAnterior").ToString.ToDate End Get Set(value As Date) ViewState("FechaInicioAnterior") = value End Set End Property Private Property FechaFinAnterior As Date Get FechaFinAnterior = ViewState("FechaFinAnterior").ToString.ToDate End Get Set(value As Date) ViewState("FechaFinAnterior") = value End Set End Property #End Region '#Region " PROPIEDADES MENSUAL " ' Private Property DtDatosMensual As DataTable ' Get ' DtDatosMensual = DirectCast(ViewState("DtDatosMensual"), DataTable) ' End Get ' Set(ByVal value As DataTable) ' ViewState("DtDatosMensual") = value ' End Set ' End Property '#End Region '#Region " PROPIEDADES - ANUAL " ' Private Property DtDatosAnual As DataTable ' Get ' DtDatosAnual = DirectCast(ViewState("DtDatosAnual"), DataTable) ' End Get ' Set(ByVal value As DataTable) ' ViewState("DtDatosAnual") = 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 #Region " PROPIEDADES" Private Property TipoReporte As Integer Get TipoReporte = ViewState("TipoReporte").ToString.ToEntero End Get Set(value As Integer) ViewState("TipoReporte") = value End Set End Property #End Region Dim CuentaResultados As Integer 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 'SI NO USA AC If TipoReporte > 0 Then LtlTituloHacienda.Text = "CAPITAL" LtlTotalHacienda.Text = "Total Capital:" LtlTotalPasivoPatrimonio.Text = "Total del Pasivo y Capital:" GvActivo.Columns(2).Visible = False GvActivoNoCirculante.Columns(2).Visible = False GvActivoDiferido.Columns(2).Visible = False GvPasivo.Columns(2).Visible = False GvPasivoNoCirculante.Columns(2).Visible = False GvPasivoDiferido.Columns(2).Visible = False GvPatrimonio.Columns(2).Visible = False GvUtilidad.Columns(2).Visible = False GvPatrimonioGenerado.Visible = False GvPatrimonioActualizacion.Visible = False TdTotalActivoAnterior.Visible = False TdTotalPasivoAnterior.Visible = False TdTotalPasivo.Visible = False TdTotalPatrimonio.Visible = False Else GvUtilidad.Visible = False GvActivoDiferido.Visible = False GvPasivoDiferido.Visible = False End If CargaDatosGenerales() DdlEjercicio.SelectedValue = Now.Year.ToString ''Anual 'Anos = 0 'Normal InicializaValores() 'TabContainer_ActiveTabChanged(Tabs, EventArgs.Empty) End If End Sub Private Sub CargaDatosGenerales() Dim ClsConta As New ClsContabilidad If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then DdlEjercicio.DataSource = ClsConta.DtResultados Else DdlEjercicio.DataSource = Nothing End If DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1) DdlSubproyecto.DataBind() ClsConta.Dispose() DdlEjercicio.DataBind() End Sub #Region " REPORTE NORMAL " Private Sub InicializaValores() TotalActivoActual = 0 TotalActivoAnterior = 0 TotalPasivoActual = 0 TotalPasivoAnterior = 0 TotalPatrimonioActual = 0 TotalPatrimonioAnterior = 0 TotalPasivoPatrimonioActual = 0 TotalPasivoPatrimonioAnterior = 0 End Sub Private Sub CargaDatos() 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim Anio As String = If(DdlEjercicio.SelectedValue <> "", DdlEjercicio.SelectedValue, Now.Year.ToString) Dim ObjConta As New ClsContabilidad Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), Anio) Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy") TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) If ObjConta.GetCuentas(-1, "00321", -1, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then DtDatos = ObjConta.DtResultados CuentaResultados = DtDatos.Rows(0)("CveCuenta").ToString.ToEntero End If Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString If ObjConta.GetSituacionFinanciera("01/01/1000".ToDate, FechaF.ToDate, UsuarioActual.CveEmpresa, CveSubProyecto, TipoReporte) Then DtDatos = ObjConta.DtResultados CargaGrids() SumaTotales() Else DtDatos = Nothing Alert("Ocurrio un error al cargar los datos del estado de situación financiera", TipoMensaje.MsgError) End If ObjConta.Dispose() End Sub Private Sub CargaGrids() 'ACTIVO Dim DtActivoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND (Sup = 'ACTIVO CIRCULANTE' OR Nombre = 'ACTIVO CIRCULANTE' OR Sup = 'CIRCULANTE' OR Nombre ='CIRCULANTE')") Dim DtActivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND (Sup = 'ACTIVO NO CIRCULANTE' OR Nombre = 'ACTIVO NO CIRCULANTE' OR Sup = 'FIJO' OR Nombre ='FIJO')") Dim DtActivoDiferido = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND (Sup = 'DIFERIDO' OR Nombre = 'DIFERIDO')") Dim Row As DataRow = DtActivoCirculante.NewRow If DtActivoCirculante.Rows.Count > 0 Then Row.Item("Nombre") = "   TOTAL ACTIVO CIRCULANTE" Row.Item("ImporteActual") = DtActivoCirculante.Rows(0)("ImporteActual").ToString Row.Item("ImporteAnterior") = DtActivoCirculante.Rows(0)("ImporteAnterior").ToString Row.Item("CtaMayor") = -1 DtActivoCirculante.Rows.RemoveAt(0) Else Row.Item("Nombre") = "   TOTAL ACTIVO CIRCULANTE" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAnterior") = "0.00" Row.Item("CtaMayor") = -1 End If DtActivoCirculante.Rows.Add(Row) Row = DtActivoNoCirculante.NewRow If DtActivoNoCirculante.Rows.Count > 0 Then Row.Item("Nombre") = "   TOTAL ACTIVO NO CIRCULANTE" Row.Item("ImporteActual") = DtActivoNoCirculante.Rows(0)("ImporteActual").ToString Row.Item("ImporteAnterior") = DtActivoNoCirculante.Rows(0)("ImporteAnterior").ToString Row.Item("CtaMayor") = -1 DtActivoNoCirculante.Rows.RemoveAt(0) Else Row.Item("Nombre") = "   TOTAL ACTIVO NO CIRCULANTE" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAnterior") = "0.00" Row.Item("CtaMayor") = -1 End If DtActivoNoCirculante.Rows.Add(Row) Row = DtActivoDiferido.NewRow If DtActivoDiferido.Rows.Count > 0 Then Row.Item("Nombre") = "   TOTAL ACTIVO DIFERIDO" Row.Item("ImporteActual") = DtActivoDiferido.Rows(0)("ImporteActual").ToString Row.Item("ImporteAnterior") = DtActivoDiferido.Rows(0)("ImporteAnterior").ToString Row.Item("CtaMayor") = -1 DtActivoDiferido.Rows.RemoveAt(0) Else Row.Item("Nombre") = "   TOTAL ACTIVO DIFERIDO" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAnterior") = "0.00" Row.Item("CtaMayor") = -1 End If DtActivoDiferido.Rows.Add(Row) GvActivo.DataSource = DtActivoCirculante GvActivo.DataBind() GvActivoNoCirculante.DataSource = DtActivoNoCirculante GvActivoNoCirculante.DataBind() GvActivoDiferido.DataSource = DtActivoDiferido GvActivoDiferido.DataBind() UpActivo.Update() 'PASIVO Dim DtPasivoCirculante = DtDatos.FiltraParametros("Tipo in ('D') AND (Sup = 'PASIVO CIRCULANTE' OR Sup = 'PASIVO' OR Sup = 'CIRCULANTE' OR Nombre = 'PASIVO CIRCULANTE' OR Sup = 'CORTO PLAZO' OR Nombre = 'CORTO PLAZO')") Dim DtPasivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('D') AND (Sup = 'PASIVO NO CIRCULANTE' OR Nombre = 'PASIVO NO CIRCULANTE' OR Sup = 'LARGO PLAZO' OR Nombre = 'LARGO PLAZO')") Dim DtPasivoDiferido = DtDatos.FiltraParametros("Tipo in ('D') AND (Sup = 'DIFERIDO' OR Nombre = 'DIFERIDO')") Row = DtPasivoCirculante.NewRow If DtPasivoCirculante.Rows.Count > 0 Then Row.Item("Nombre") = "   TOTAL PASIVO CIRCULANTE" Row.Item("ImporteActual") = DtPasivoCirculante.Rows(0)("ImporteActual").ToString Row.Item("ImporteAnterior") = DtPasivoCirculante.Rows(0)("ImporteAnterior").ToString Row.Item("CtaMayor") = -1 DtPasivoCirculante.Rows.RemoveAt(0) Else Row.Item("Nombre") = "   TOTAL PASIVO CIRCULANTE" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAnterior") = "0.00" Row.Item("CtaMayor") = -1 End If DtPasivoCirculante.Rows.Add(Row) Row = DtPasivoNoCirculante.NewRow If DtPasivoNoCirculante.Rows.Count > 0 Then Row.Item("Nombre") = "   TOTAL PASIVO NO CIRCULANTE" Row.Item("ImporteActual") = DtPasivoNoCirculante.Rows(0)("ImporteActual").ToString Row.Item("ImporteAnterior") = DtPasivoNoCirculante.Rows(0)("ImporteAnterior").ToString Row.Item("CtaMayor") = -1 DtPasivoNoCirculante.Rows.RemoveAt(0) Else Row.Item("Nombre") = "   TOTAL PASIVO NO CIRCULANTE" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAnterior") = "0.00" Row.Item("CtaMayor") = -1 End If DtPasivoNoCirculante.Rows.Add(Row) Row = DtPasivoDiferido.NewRow If DtPasivoDiferido.Rows.Count > 0 Then Row.Item("Nombre") = "   TOTAL PASIVO DIFERIDO" Row.Item("ImporteActual") = DtPasivoDiferido.Rows(0)("ImporteActual").ToString Row.Item("ImporteAnterior") = DtPasivoDiferido.Rows(0)("ImporteAnterior").ToString Row.Item("CtaMayor") = -1 DtPasivoDiferido.Rows.RemoveAt(0) Else Row.Item("Nombre") = "   TOTAL PASIVO DIFERIDO" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAnterior") = "0.00" Row.Item("CtaMayor") = -1 End If DtPasivoDiferido.Rows.Add(Row) GvPasivo.DataSource = DtPasivoCirculante GvPasivo.DataBind() GvPasivoNoCirculante.DataSource = DtPasivoNoCirculante GvPasivoNoCirculante.DataBind() GvPasivoDiferido.DataSource = DtPasivoDiferido GvPasivoDiferido.DataBind() UpPasivo.Update() 'PATRIMONIO Dim DtPatrimonioContribuido = DtDatos.FiltraParametros("Tipo in ('F') AND (Sup = 'PATRIMONIO CONTRIBUIDO' OR Nombre = 'PATRIMONIO CONTRIBUIDO' OR Sup = 'CAPITAL CONTABLE' OR Sup = 'CAPITAL' OR Nombre = 'CAPITAL CONTABLE' OR Nombre = 'CAPITAL')") Dim DtUtilidad = DtDatos.FiltraParametros("Tipo in ('F') AND (Codigo = '_UTILIDAD')") Dim DtPatrimonioGenerado = DtDatos.FiltraParametros("Tipo in ('F') AND (Sup = 'PATRIMONIO GENERADO' OR Nombre = 'PATRIMONIO GENERADO')") Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros("Tipo in ('F') AND (Sup = 'EXCESO O INSUFICIENCIA EN LA ACTUALIZACION D/PATRI' OR Nombre = 'EXCESO O INSUFICIENCIA EN LA ACTUALIZACION D/PATRI')") Row = DtPatrimonioContribuido.NewRow If DtPatrimonioContribuido.Rows.Count > 0 Then Row.Item("Nombre") = String.Format("   {0}", If(TipoReporte < 0, "TOTAL PATRIMONIO CONTRIBUIDO", "TOTAL CAPITAL")) Row.Item("ImporteActual") = DtPatrimonioContribuido.Rows(0)("ImporteActual").ToString Row.Item("ImporteAnterior") = DtPatrimonioContribuido.Rows(0)("ImporteAnterior").ToString Row.Item("CtaMayor") = -1 DtPatrimonioContribuido.Rows.RemoveAt(0) Else Row.Item("Nombre") = String.Format("   {0}", If(TipoReporte < 0, "TOTAL PATRIMONIO CONTRIBUIDO", "TOTAL CAPITAL")) Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAnterior") = "0.00" Row.Item("CtaMayor") = -1 End If DtPatrimonioContribuido.Rows.Add(Row) Row = DtPatrimonioGenerado.NewRow If DtPatrimonioGenerado.Rows.Count > 0 Then Row.Item("Nombre") = "   TOTAL PATRIMONIO GENERADO" 'El id = 87 es el id de la cuenta "RESULTADOS DEL EJERCICIO:(AHORRO/DESAHORRO)" If DtPatrimonioGenerado.FiltraParametros("CveCuenta = " & CuentaResultados).Rows.Count > 0 Then Row.Item("ImporteActual") = (DtPatrimonioGenerado.Rows(0)("ImporteActual").ToString.ToDouble + DtPatrimonioGenerado.FiltroPrimero("CveCuenta = " & CuentaResultados)("ImporteActual").ToString.ToDouble).ToString Row.Item("ImporteAnterior") = (DtPatrimonioGenerado.Rows(0)("ImporteAnterior").ToString.ToDouble + DtPatrimonioGenerado.FiltroPrimero("CveCuenta = " & CuentaResultados)("ImporteAnterior").ToString.ToDouble).ToString Else Row.Item("ImporteActual") = DtPatrimonioGenerado.Rows(0)("ImporteActual").ToString Row.Item("ImporteAnterior") = DtPatrimonioGenerado.Rows(0)("ImporteAnterior").ToString End If Row.Item("CtaMayor") = -1 DtPatrimonioGenerado.Rows.RemoveAt(0) Else Row.Item("Nombre") = "   TOTAL PATRIMONIO GENERADO" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAnterior") = "0.00" Row.Item("CtaMayor") = -1 End If DtPatrimonioGenerado.Rows.Add(Row) Row = DtPatrimonioActualizacion.NewRow If DtPatrimonioActualizacion.Rows.Count > 0 Then Row.Item("Nombre") = "   TOTAL EXCESO O INSUFICIENCIA EN LA ACTUALIZACION" Row.Item("ImporteActual") = DtPatrimonioActualizacion.Rows(0)("ImporteActual").ToString Row.Item("ImporteAnterior") = DtPatrimonioActualizacion.Rows(0)("ImporteAnterior").ToString Row.Item("CtaMayor") = -1 DtPatrimonioActualizacion.Rows.RemoveAt(0) Else Row.Item("Nombre") = "   TOTAL EXCESO O INSUFICIENCIA EN LA ACTUALIZACION" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAnterior") = "0.00" Row.Item("CtaMayor") = -1 End If DtPatrimonioActualizacion.Rows.Add(Row) GvPatrimonio.DataSource = DtPatrimonioContribuido GvPatrimonio.DataBind() GvUtilidad.DataSource = DtUtilidad GvUtilidad.DataBind() GvPatrimonioGenerado.DataSource = DtPatrimonioGenerado GvPatrimonioGenerado.DataBind() GvPatrimonioActualizacion.DataSource = DtPatrimonioActualizacion GvPatrimonioActualizacion.DataBind() UpPatrimonio.Update() End Sub Private Sub SumaTotales() TotalPasivoPatrimonioActual = TotalPasivoActual + TotalPatrimonioActual TotalPasivoPatrimonioAnterior = TotalPasivoAnterior + TotalPatrimonioAnterior 'Llena Lb´s Totales LbTotalActivoActual.Text = TotalActivoActual.ToString.FormatoNumero LbTotalActivoAnterior.Text = TotalActivoAnterior.ToString.FormatoNumero LbTotalPasivoActual.Text = TotalPasivoActual.ToString.FormatoNumero LbTotalPasivoAnterior.Text = TotalPasivoAnterior.ToString.FormatoNumero LbTotalPatrimonioActual.Text = TotalPatrimonioActual.ToString.FormatoNumero LbTotalPatrimonioAnterior.Text = TotalPatrimonioAnterior.ToString.FormatoNumero LbTotalPasivoPatrimonioActual.Text = TotalPasivoPatrimonioActual.ToString.FormatoNumero LbTotalPasivoPatrimonioAnterior.Text = TotalPasivoPatrimonioAnterior.ToString.FormatoNumero Dim Descuadre = False 'COLOREA ROJO SI NO CUADRAN TOTALES If TotalActivoActual <> TotalPasivoPatrimonioActual Then LbTotalActivoActual.ForeColor = Drawing.Color.Red LbTotalPasivoPatrimonioActual.ForeColor = Drawing.Color.Red Descuadre = True Else LbTotalActivoActual.ForeColor = Drawing.Color.Black LbTotalPasivoPatrimonioActual.ForeColor = Drawing.Color.Black End If If TotalActivoAnterior <> TotalPasivoPatrimonioAnterior Then LbTotalActivoAnterior.ForeColor = Drawing.Color.Red LbTotalPasivoPatrimonioAnterior.ForeColor = Drawing.Color.Red Descuadre = True Else LbTotalActivoAnterior.ForeColor = Drawing.Color.Black LbTotalPasivoPatrimonioAnterior.ForeColor = Drawing.Color.Black End If If Descuadre Then LbDescuadre.Text = "Las sumas de los totales están descuadradas." Else LbDescuadre.Text = "" End If End Sub #Region "GV´S ROW DATA BOUND" Protected Sub GvActivo_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then TotalActivoActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalActivoAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble e.Row.FCLabel("LbNombre").Font.Italic = True Else e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) End If If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red End If If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If End If End Sub Protected Sub GvPasivo_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then 'Totales If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then TotalPasivoActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalPasivoAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble e.Row.FCLabel("LbNombre").Font.Italic = True 'Cuentas Else e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) 'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString) End If 'Colorea NEGATIVOS If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red End If If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If End If End Sub Protected Sub GvPatrimonio_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.Header Then If e.Row.FCLabel("LbTitulo") IsNot Nothing Then e.Row.FCLabel("LbTitulo").Text = "CAPITAL CONTABLE" End If If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Or e.Row.DBCampo("CtaMayor").ToString.ToEntero = 2 Then TotalPatrimonioActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalPatrimonioAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble e.Row.FCLabel("LbNombre").Font.Italic = True 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.ForeColor = Drawing.Color.White 'e.Row.ControlStyle.Font.Bold = True Else e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) 'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString) End If If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red End If If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If End If End Sub #End Region #End Region '#Region " REPORTE MENSUAL " ' Private Sub CargaDatosMensual() ' 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) ' Dim ObjConta As New ClsContabilidad ' TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) ' Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString ' If ObjConta.GetBalanceGeneralMensual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, DdlSubtotales.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa) Then ' DtDatosMensual = ObjConta.DtResultados ' Else ' DtDatosMensual = Nothing ' Alert("Ocurrió un error al cargar los datos del balance general mensual", TipoMensaje.MsgError) ' End If ' ObjConta.Dispose() ' EscondeSubtotales() ' If DtDatosMensual IsNot Nothing Then ' CargaGridMensual() ' End If ' End Sub ' Private Sub EscondeSubtotales() ' 'Esconde Trimestral ' GvDatosMensual.Columns(4).Visible = False ' GvDatosMensual.Columns(9).Visible = False ' GvDatosMensual.Columns(14).Visible = False ' GvDatosMensual.Columns(18).Visible = False ' 'Esconde Cuatrimestral ' GvDatosMensual.Columns(6).Visible = False ' GvDatosMensual.Columns(12).Visible = False ' GvDatosMensual.Columns(19).Visible = False ' If DdlSubtotales.SelectedValue = "2" Then ' GvDatosMensual.Columns(4).Visible = True ' GvDatosMensual.Columns(9).Visible = True ' GvDatosMensual.Columns(14).Visible = True ' GvDatosMensual.Columns(18).Visible = True ' ElseIf DdlSubtotales.SelectedValue = "3" Then ' GvDatosMensual.Columns(6).Visible = True ' GvDatosMensual.Columns(12).Visible = True ' GvDatosMensual.Columns(19).Visible = True ' End If ' End Sub ' Private Sub CargaGridMensual() ' GvDatosMensual.DataSource = DtDatosMensual ' GvDatosMensual.DataBind() ' UpDatosMensual.Update() ' End Sub ' Protected Sub GvDatosMensual_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosMensual.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 ' e.Row.FCHyperLink("HLEnero").Text = "" ' e.Row.FCHyperLink("HLFebrero").Text = "" ' e.Row.FCHyperLink("HLMarzo").Text = "" ' e.Row.FCHyperLink("HLAbril").Text = "" ' e.Row.FCHyperLink("HLMayo").Text = "" ' e.Row.FCHyperLink("HLJunio").Text = "" ' e.Row.FCHyperLink("HLJulio").Text = "" ' e.Row.FCHyperLink("HLAgosto").Text = "" ' e.Row.FCHyperLink("HLSeptiembre").Text = "" ' e.Row.FCHyperLink("HLOctubre").Text = "" ' e.Row.FCHyperLink("HLNoviembre").Text = "" ' e.Row.FCHyperLink("HLDiciembre").Text = "" ' 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;") ' End If ' 'CUENTAS ' If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 1 Then ' e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;") ' e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/02/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("09/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/11/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLTrimestral1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLTrimestral2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLTrimestral3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLTrimestral4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLCuatrimestral1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLCuatrimestral2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' e.Row.FCHyperLink("HLCuatrimestral3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' 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 Region '#Region " REPORTE ANUAL " ' Private Sub CargaDatosAnual() ' 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) ' Dim ObjConta As New ClsContabilidad ' TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) ' Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString ' If ObjConta.GetBalanceGeneralAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, UsuarioActual.CveEmpresa, CveSubProyecto) 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(Date.Now) - DdlEjercicio.SelectedValue.ToEntero) + 1 ' 'Esconde todo ' For index = 1 To 20 ' GvDatosAnual.Columns(index).Visible = False ' Next ' For index = 1 To Anos ' GvDatosAnual.Columns(index).Visible = True ' GvDatosAnual.Columns(index).HeaderText = (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString ' Next ' If DtDatos IsNot Nothing Then ' CargaGridAnual() ' End If ' End Sub ' Private Sub CargaGridAnual() ' GvDatosAnual.DataSource = DtDatos ' GvDatosAnual.DataBind() ' UpDatosAnual.Update() ' End Sub ' Protected Sub GvDatosAnual_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAnual.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("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), String.Format("31/12/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), TipoReporte, DdlSubproyecto.SelectedValue) ' 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 Region Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) 'Nota: ' 0 = Normal ' 1 = Mensual ' 2 = Anual 'If Tabs.ActiveTabIndex = 0 Then TotalActivoActual = 0 TotalActivoAnterior = 0 TotalPasivoActual = 0 TotalPasivoAnterior = 0 TotalPatrimonioActual = 0 TotalPatrimonioAnterior = 0 TotalPasivoPatrimonioActual = 0 TotalPasivoPatrimonioAnterior = 0 CargaDatos() 'ElseIf Tabs.ActiveTabIndex = 1 Then ' CargaDatosMensual() 'ElseIf Tabs.ActiveTabIndex = 2 Then ' CargaDatosAnual() 'End If End Sub 'Protected Sub TabContainer_ActiveTabChanged(sender As Object, e As EventArgs) ' 'Nota: ' ' 0 = Normal ' ' 1 = Mensual ' ' 2 = Anual ' 'Esconde Todo de lo variable de Filtros ' TdSubTotales.Visible = False ' TdPeriodo.Visible = False ' If Tabs.ActiveTabIndex = 0 Then ' TdPeriodo.Visible = True ' ElseIf Tabs.ActiveTabIndex = 1 Then ' TdSubTotales.Visible = True ' ElseIf Tabs.ActiveTabIndex = 2 Then ' End If ' UpFiltros.Update() ' BtnConsultar_Click(BtnConsultar, EventArgs.Empty) 'End Sub Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click ImprimirReporte("Excel") End Sub Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy") 'If ChkFirma.Checked = True Then ' Dim Row As DataRow = DtDatos.NewRow ' Row.Item("Nombre") = String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de contabilidad", "") ' Row.Item("Sup") = String.Format("Lic. Juan Fortino Leon Robinson{0} Director General", "") ' Row.Item("ImporteActual") = "0" ' Row.Item("ImporteAnterior") = "0" ' Row.Item("Tipo") = "Firma" ' DtDatos.Rows.Add(Row) 'End If Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString If ObjConta.GetSituacionFinanciera("01/01/1000".ToDate, FechaF.ToDate, UsuarioActual.CveEmpresa, CveSubProyecto, TipoReporte) Then DtDatos = ObjConta.DtResultados For Each row As DataRow In DtDatos.Rows If row("Level").ToString = "0" Then row("Sup") = "" Else If row("Tipo").ToString = "A" OrElse row("Tipo").ToString = "B" OrElse row("Tipo").ToString = "C" Then If row("Sup").ToString = "ACTIVO CIRCULANTE" OrElse row("Nombre").ToString = "ACTIVO CIRCULANTE" OrElse row("Sup").ToString = "CIRCULANTE" OrElse row("Nombre").ToString = "CIRCULANTE" Then row("Sup") = "ACTIVO CIRCULANTE" Else If row("Sup").ToString = "ACTIVO NO CIRCULANTE" OrElse row("Nombre").ToString = "ACTIVO NO CIRCULANTE" OrElse row("Sup").ToString = "FIJO" OrElse row("Nombre").ToString = "FIJO" Then row("Sup") = "ACTIVO NO CIRCULANTE" Else If row("Sup").ToString = "DIFERIDO" OrElse row("Nombre").ToString = "DIFERIDO" Then row("Sup") = "DIFERIDO" Else row("Sup") = "" End If End If End If Else If row("Tipo").ToString = "D" Then If row("Sup").ToString = "PASIVO CIRCULANTE" OrElse row("Nombre").ToString = "PASIVO CIRCULANTE" OrElse row("Sup").ToString = "CIRCULANTE" OrElse row("Nombre").ToString = "CIRCULANTE" OrElse row("Sup").ToString = "PASIVO" OrElse row("Nombre").ToString = "PASIVO" OrElse row("Sup").ToString = "CORTO PLAZO" OrElse row("Nombre").ToString = "CORTO PLAZO" Then row("Sup") = "PASIVO CIRCULANTE" Else If row("Sup").ToString = "PASIVO NO CIRCULANTE" OrElse row("Nombre").ToString = "PASIVO NO CIRCULANTE" OrElse row("Sup").ToString = "LARGO PLAZO" OrElse row("Nombre").ToString = "LARGO PLAZO" Then row("Sup") = "PASIVO NO CIRCULANTE" Else If row("Sup").ToString = "DIFERIDO" OrElse row("Nombre").ToString = "DIFERIDO" Then row("Sup") = "DIFERIDO" Else row("Sup") = "" End If End If End If Else If row("Tipo").ToString = "F" Then ' If row("Sup").ToString = "CAPITAL" OrElse row("Nombre").ToString = "CAPITAL" OrElse row("Sup").ToString = "CAPITAL CONTABLEE" OrElse row("Nombre").ToString = "CAPITAL CONTABLE" OrElse row("Sup").ToString = "PATRIMONIO CONTRIBUIDO" OrElse row("Nombre").ToString = "PATRIMONIO CONTRIBUIDO" Then row("Sup") = "CAPITAL" Else row("Sup") = "" End If Else row("Sup") = "" End If End If End If End If Next DtDatos.AcceptChanges() ImprimirReporte() Else DtDatos = Nothing Alert("Ocurrio un error al cargar los datos del estado de situación financiera", TipoMensaje.MsgError) End If ObjConta.Dispose() End Sub Private Sub ImprimirReporte(Optional Formato As String = "PDF") Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy") 'nombre del archivo a generar Dim fileName As String = "BalanceGeneral" 'ubicacion del rdlc Dim reportpath As String = "Contabilidad/Reportes/RepBalanceGeneral.rdlc" 'parametros a enviar al reporte Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri)) params.Add(New ReportParameter("pFirma1", "")) params.Add(New ReportParameter("pFirma2", "")) params.Add(New ReportParameter("pFechaFin", FechaF)) ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) End Sub End Class