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.TipoContabilidad = 2 Then Response.Redirect($"/Contabilidad/RepBalanceGeneral.aspx") End If '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