diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 2dc3e9339..1cfd182a5 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -3741,6 +3741,126 @@ Public Class ClsContabilidad Return Retorno End Function + + Public Function GetSituacionFinanciera2(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean + + Dim Retorno = False + + 'SqlAdapter.SelectCommand.t + + DataAdapter("PA_Conta2_SituacionFinancieraGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Divisor", SqlDbType.Int).Value = Divisor + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + End With + + SqlAdapter.SelectCommand.CommandTimeout = 0 + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener el Estado de Situaci?n de Financiera", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + + Public Function GetSituacionFinancieraMensuallHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean + Dim Retorno = False + + 'SqlAdapter.SelectCommand.t + + DataAdapter("PA_Conta2_SituacionFinancieraMensualHorizontalGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Divisor", SqlDbType.Int).Value = Divisor + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + SqlAdapter.SelectCommand.CommandTimeout = 0 + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener la situacion financiera mensual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + + Public Function GetSituacionFinancieraAnualHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean + Dim Retorno = False + + 'SqlAdapter.SelectCommand.t + + DataAdapter("PA_Conta2_SituacionFinancieraAnualHorizontalGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Divisor", SqlDbType.Int).Value = Divisor + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + + End With + SqlAdapter.SelectCommand.CommandTimeout = 0 + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener la situacion financiera anual", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + + Public Function GetSituacionFinancieraSubProyectolHorizontal(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, Divisor As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional Tipo As Integer = 1) As Boolean + Dim Retorno = False + + 'SqlAdapter.SelectCommand.t + + DataAdapter("PA_Conta2_SituacionFinancieraSubproyectoHorizontalGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@Divisor", SqlDbType.Int).Value = Divisor + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + End With + SqlAdapter.SelectCommand.CommandTimeout = 0 + + Try + SqlAdapter.Fill(DSet) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener la situacion financiera por Sub Proyecto", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetAnexoCatalogo(IdCuenta As Integer, FechaI As Date, FechaF As Date, OpcionCuentas As Integer, CveSubProyecto As String, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1, Optional SAT As Integer = 0) As Boolean Dim Retorno = False diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index c8d07a432..f2783bffd 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4811,6 +4811,9 @@ Public Class ClsPaginas PaginaDict.Add("/Compras/RepCxPCaudillo.aspx".ToUpper(), -1) PaginaDict.Add("/Contabilidad2/RepEstadoResultadosHorizontal.aspx".ToUpper(), -1) + PaginaDict.Add("/Contabilidad2/RepBalanceGeneralHorizontal.aspx".ToUpper(), -1) + + 'ECOMMERCE PaginaDict.Add("/Ecommerce/Insignias.aspx".ToUpper(), 7002) @@ -5161,7 +5164,11 @@ Public Class ClsPaginas Dim ds As New DataSet For Each rpds As ReportDataSource In DataSource Dim dt As DataTable = DirectCast(rpds.Value, Data.DataTable) - dt = dt.Copy() + If dt Is Nothing Then + dt = New DataTable + Else + dt = dt.Copy() + End If dt.TableName = rpds.Name ds.Tables.Add(dt) Next diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index e66384a6e..131a8528e 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3572,7 +3572,7 @@ Partial Class PopUpVerFactura #Region "OP = 'CAN' - CANCELACION" Public Sub ImprimeCancelacion(CveVenta As Integer) Dim ObjVentas As New ClsVentas - If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then + If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then Dim drv As DataRow = ObjVentas.DtResultados.Rows(0) Dim FolioFiscal = drv("FolioFiscal").ToString Dim SelloCancelacion = drv("SelloCancelacion").ToString diff --git a/Contabilidad2/RepBalanceGeneralHorizontal.aspx b/Contabilidad2/RepBalanceGeneralHorizontal.aspx index e60c714aa..d43ed39fe 100644 --- a/Contabilidad2/RepBalanceGeneralHorizontal.aspx +++ b/Contabilidad2/RepBalanceGeneralHorizontal.aspx @@ -1,30 +1,37 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepBalanceGeneralHorizontal.aspx.vb" Inherits="Contabilidad_RepBalanceGeneralHorizontal" %> - - - - - - - - - - - - - - - - - - - -
-
-
- -
-
-
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepBalanceGeneralHorizontal.aspx.vb" Inherits="Contabilidad_RepBalanceGeneralHorizontal" %> + + + + + + + + + + + + + <%--
  • + Exporta Excel + +
    • +
  • + Imprimir +
    • --%> + +     + + + +
    +
    +
    + + "><%--class="expand"--%> + +
    +
    +
      @@ -33,12 +40,12 @@
    - + <%--
    -
    - +
    --%> +
    @@ -75,112 +82,541 @@
    -
    -
    -
    -
    - - - - +
    + + + +
    + +
    > + +
    +
    + + +
    + + + + + +
    + +
    + +
    + +
    + +
    + +
    +
    + +
    + +     +     +
    + + - + + + + + + + + +
    + +
    + + + + +
    +
    +

    ACTIVO

    + + + + + + + + + + + + + + + + + + + + <%----%> + + + + + + + <%----%> + + + + + <%----%> + + <%----%> + +
    +
    + + + + + + + + + + + + + + + + <%----%> + + + + + + + <%----%> + + + + + <%----%> + + <%----%> + +
    +
    + + + + + + + + + + + + + + + + <%----%> + + + + + + + <%----%> + + + + + <%----%> + + <%----%> + +     +     + +
    +
    +
    + +
    + + + + + + + + + + + + + +
    +
    +

    PASIVO

    + + + + + + + + + + + + + + + + + + + <%----%> + + + + + + + <%----%> + + + + + <%----%> + + <%----%> + +
    +
    + + + + + + + + + + + + + + + + <%----%> + + + + + + + <%----%> + + + + + <%----%> + + <%----%> + +
    +
    + + + + + + + + + + + + + + + + <%----%> + + + + + + + <%----%> + + + + + <%----%> + + <%----%> + + +     +     +
    + +
    + + + + + + + + +
    +

    Total del Pasivo:

    +     		+ + + +
    +     +     +
    + +
    +

    + +

    + + + + + + + + + + + + + + + + + + + + <%----%> + + + + + + + <%----%> + + + + + <%----%> + + <%----%> + + + + + + + + + + + + + <%----%> + + + + + + + <%----%> + + + + + <%----%> + + <%----%> + +
    +
    + + + + + + + + + + + + + + + + <%----%> + + + + + + + <%----%> + + + + + <%----%> + + <%----%> + +
    +
    + + + + + + + + + + + + + + + + <%----%> + + + + + + + <%----%> + + + + + <%----%> + + <%----%> + + +     +     +
    + +
    + + + + + + + + +
    +

    + +

    +     		+ + + +
    +     +     +
    +
    +
    +
    +
    +
    +
    +
    + +
    +
    + + +
    + + + + + + +
    +

    Total del Activo:

    +     		+ + + +
    +
    +     +     +
    + +
    + + +
    + + + + + + +
    +

    + +

    +     		+ + + +
    +
    +     +     +
    +
    +
    + +
    + +
    + + +
    + +     +     + - - - - - - - - -
    - - - - - - - - - - - - - - - - - - <%----%> - - - - - - - - <%----%> - - - - - - -
    -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     -     -
    - - - - - - - - - - -
    -

    Resultados del Ejercicio:

    -     		- - - -
    -     -     +     @@ -283,21 +719,14 @@ - <%-- - - - - - --%> - - <%----%> + - +
    @@ -409,7 +838,7 @@

    - + <%-- @@ -496,14 +925,6 @@ - <%-- - - - - - --%> - - <%-- --%> @@ -513,7 +934,7 @@ - + --%> @@ -760,7 +1181,7 @@ - + @@ -778,10 +1199,10 @@

    Resultados del Ejercicio:

    - + - + @@ -799,19 +1220,20 @@ - - + - - + + - + + @@ -870,6 +1292,7 @@

    + @@ -1014,11 +1437,9 @@     -     - - - - -     - - + + + + + + diff --git a/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb b/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb index 468e527ce..27be0dd30 100644 --- a/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb +++ b/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb @@ -2,59 +2,127 @@ Option Strict On Imports System.Data -Imports System.Drawing Imports Extensiones Imports Microsoft.Reporting.WebForms - Partial Class Contabilidad_RepBalanceGeneralHorizontal Inherits ClsPaginas #Region "PROPIEDADES" - - - Private Property DtDatosMes As DataTable + Private Property DtDatos As DataTable Get - DtDatosMes = DirectCast(ViewState("DtDatosMes"), DataTable) + DtDatos = DirectCast(ViewState("DtDatos"), DataTable) End Get Set(ByVal value As DataTable) - ViewState("DtDatosMes") = value + ViewState("DtDatos") = value End Set End Property - Private Property DtIngresosMes As DataTable + Private Property TotalActivoActual As Double Get - DtIngresosMes = DirectCast(ViewState("DtIngresosMes"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtIngresosMes") = value - End Set - End Property - Private Property DtGastosMes As DataTable - Get - DtGastosMes = DirectCast(ViewState("DtGastosMes"), DataTable) - End Get - - Set(ByVal value As DataTable) - ViewState("DtGastosMes") = value - End Set - End Property - Private Property TotalActualMes As Double - Get - TotalActualMes = ViewState("TotalActualMes").ToString.ToDouble + TotalActivoActual = ViewState("TotalActivoActual").ToString.ToDouble End Get Set(value As Double) - ViewState("TotalActualMes") = value + ViewState("TotalActivoActual") = value End Set End Property - Private Property TotalAnteriorMes As Double + Private Property TotalActivoAnterior As Double Get - TotalAnteriorMes = ViewState("TotalAnteriorMes").ToString.ToDouble + TotalActivoAnterior = ViewState("TotalActivoAnterior").ToString.ToDouble End Get Set(value As Double) - ViewState("TotalAnteriorMes") = value + 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 + 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 FechaIMes As String Get Return ViewState("FechaIMes").ToString @@ -72,15 +140,6 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal 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 - #End Region @@ -231,26 +290,35 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - - - TotalActualMes = 0 - TotalAnteriorMes = 0 - - 'TotalActualMes = 0 - 'TotalAnteriorMes = 0 + If Not Page.IsPostBack Then - 'TxtFechaInicio.Text = DateSerial(Year(Date.Now), 1, 1).ToShortDateString - 'TxtFechaFin.Text = Date.Now.ToShortDateString + If UsuarioActual.Empresa.UsaAC Then + TipoReporte = -1 + Else + TipoReporte = 1 + tdTipoReporte.Visible = True + LtTitulo.Text = "Balance General" + End If + + TotalActivoActual = 0 + TotalActivoAnterior = 0 + TotalPasivoActual = 0 + TotalPasivoAnterior = 0 + TotalPatrimonioActual = 0 + TotalPatrimonioAnterior = 0 + TotalPasivoPatrimonioActual = 0 + TotalPasivoPatrimonioAnterior = 0 + CargaEjercicios() DdlSubproyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) - DdlSubproyecto.DataBind() - - ' CargaDatos() + DdlSubproyecto.DataBind() + 'CargaDatos() End If End Sub + + Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs) If Tab.ActiveTabIndex = 0 Then @@ -260,8 +328,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal LiEjercicioDdl.Visible = True LiEjercicioLbl.Visible = True - LiEjercicioDdl2.Visible = False - LiEjercicioLbl2.Visible = False + 'LiEjercicioDdl2.Visible = False + 'LiEjercicioLbl2.Visible = False LiPeriodoDdl.Visible = True LiPeriodoLbl.Visible = True @@ -278,8 +346,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal LiEjercicioDdl.Visible = True LiEjercicioLbl.Visible = True - LiEjercicioDdl2.Visible = False - LiEjercicioLbl2.Visible = False + 'LiEjercicioDdl2.Visible = False + 'LiEjercicioLbl2.Visible = False LiPeriodoDdl.Visible = False LiPeriodoLbl.Visible = False @@ -298,8 +366,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal LiEjercicioDdl.Visible = True LiEjercicioLbl.Visible = True - LiEjercicioDdl2.Visible = True - LiEjercicioLbl2.Visible = True + 'LiEjercicioDdl2.Visible = True + 'LiEjercicioLbl2.Visible = True LiPeriodoDdl.Visible = False LiPeriodoLbl.Visible = False @@ -316,8 +384,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal LiEjercicioDdl.Visible = True LiEjercicioLbl.Visible = True - LiEjercicioDdl2.Visible = False - LiEjercicioLbl2.Visible = False + 'LiEjercicioDdl2.Visible = False + 'LiEjercicioLbl2.Visible = False LiPeriodoDdl.Visible = True LiPeriodoLbl.Visible = True @@ -331,32 +399,306 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Private Sub CargaEjercicios() 'Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim ClsConta As New ClsContabilidad - If ClsConta.GetEjercicios(UsuarioActual.CveEmpresa) Then - DdlEjercicio.DataSource = ClsConta.DtResultados - DdlEjercicio2.DataSource = ClsConta.DtResultados + Dim Clsconta As New ClsContabilidad + If Clsconta.GetEjercicios(UsuarioActual.CveEmpresa) Then + DdlEjercicio.DataSource = Clsconta.DtResultados Else DdlEjercicio.DataSource = Nothing - DdlEjercicio2.DataSource = Nothing End If - ClsConta.Dispose() + Clsconta.Dispose() DdlEjercicio.DataBind() - DdlEjercicio2.DataBind() - DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) - If DdlEjercicio.Items.Count = 0 Then - DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString)) - End If + DdlEjercicio.SelectedValue = Now.Year.ToString + + + + + 'DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) DdlPeriodo.SelectedValue = Now.Month.ToString + End Sub + + + Private Sub CargaDatos() + ''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 = FechaI.ToDate.LastDayOfMonth.ToShortDateString + TipoReporte = DdlTipoReporte.SelectedValue.ToEntero + + GvActivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue + GvActivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString + + GvPasivo.Columns(1).HeaderText = DdlEjercicio.SelectedValue + GvPasivo.Columns(2).HeaderText = (DdlEjercicio.SelectedValue.ToEntero - 1).ToString + + Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + + If ObjConta.GetSituacionFinanciera2("01/01/1900".ToDate, FechaF.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, TipoReporte) Then + DtDatos = ObjConta.DtResultados + + CargaGrids() + + If GvPatrimonio.HeaderRow IsNot Nothing Then + GvPatrimonio.HeaderRow.FCLabel("LbTitulo").Text = "CAPITAL CONTABLE" + End If + + 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() + + If Not ChkNivel.Checked Then + DtDatos = DtDatos.FiltraParametros("Level < 3") + End If + + Dim DtActivoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND TipoCuenta=1") + Dim DtActivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND TipoCuenta=2 ") + Dim DtActivoDiferido = DtDatos.FiltraParametros(" TipoCuenta=9 ") + + ' Dim DtActivoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND Orden LIKE '%/00011%' ") + ' Dim DtActivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('A','B','C') AND Orden LIKE '%/00012%' ") + Dim Row As DataRow = DtActivoCirculante.NewRow + + If DtActivoCirculante.Rows.Count > 0 Then + Row.Item("Nombre") = "   TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = DtActivoCirculante.SUM("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtActivoCirculante.SUM("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.SUM("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtActivoNoCirculante.SUM("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.SUM("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtActivoDiferido.SUM("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 TipoCuenta=3") + Dim DtPasivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('D') AND TipoCuenta=4") + + 'Dim DtPasivoCirculante = DtDatos.FiltraParametros("Tipo in ('D') AND Orden LIKE '%/00021%' ") + 'Dim DtPasivoNoCirculante = DtDatos.FiltraParametros("Tipo in ('D') AND Orden LIKE '%/00022%' ") + + Row = DtPasivoCirculante.NewRow + If DtPasivoCirculante.Rows.Count > 0 Then + Row.Item("Nombre") = "   TOTAL PASIVO CIRCULANTE" + Row.Item("ImporteActual") = DtPasivoCirculante.SUM("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtPasivoCirculante.SUM("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.SUM("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtPasivoNoCirculante.SUM("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) + + + GvPasivo.DataSource = DtPasivoCirculante + GvPasivo.DataBind() + GvPasivoNoCirculante.DataSource = DtPasivoNoCirculante + GvPasivoNoCirculante.DataBind() + UpPasivo.Update() + + + 'PATRIMONIO + Dim DtPatrimonioContribuido = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (5,6,8,7)") + Dim DtPatrimonioGenerado = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta in (6,8)") + Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=7") + Dim DtUtilidad = DtDatos.FiltraParametros("Tipo in ('F') AND TipoCuenta=5") + + 'Dim DtPatrimonioContribuido = DtDatos.FiltraParametros("Tipo in ('F') AND Orden LIKE '%/00031%' ") + 'Dim DtPatrimonioGenerado = DtDatos.FiltraParametros("Tipo in ('F') AND Orden LIKE '%/00032%' ") + 'Dim DtPatrimonioActualizacion = DtDatos.FiltraParametros("Tipo in ('F') AND Orden LIKE '%/00033%' ") + + Row = DtPatrimonioContribuido.NewRow + If DtPatrimonioContribuido.Rows.Count > 0 Then + Row.Item("Nombre") = "   TOTAL CAPITAL" + Row.Item("ImporteActual") = DtPatrimonioContribuido.SUM("ImporteActual").ToString + Row.Item("ImporteAnterior") = DtPatrimonioContribuido.SUM("ImporteAnterior").ToString + Row.Item("CtaMayor") = -1 + 'DtPatrimonioContribuido.Rows.RemoveAt(0) + Else + Row.Item("Nombre") = "   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)" + '' Row.Item("ImporteActual") = DtPatrimonioGenerado.SUM("ImporteActual").ToString + '' Row.Item("ImporteAnterior") = DtPatrimonioGenerado.SUM("ImporteAnterior").ToString + '' 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.SUM("ImporteActual").ToString + '' Row.Item("ImporteAnterior") = DtPatrimonioActualizacion.SUM("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() + 'GvPatrimonioGenerado.DataSource = DtPatrimonioGenerado + 'GvPatrimonioGenerado.DataBind() + 'GvPatrimonioActualizacion.DataSource = DtPatrimonioActualizacion + 'GvPatrimonioActualizacion.DataBind() + + 'GvUtilidad.DataSource = DtUtilidad + 'GvUtilidad.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 Math.Round(TotalActivoActual, 2) <> Math.Round(TotalPasivoPatrimonioActual, 2) 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 Math.Round(TotalActivoAnterior, 2) <> Math.Round(TotalPasivoPatrimonioAnterior, 2) 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 + + + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) - TotalActualMes = 0 - TotalAnteriorMes = 0 + TotalActivoActual = 0 + TotalActivoAnterior = 0 + TotalPasivoActual = 0 + TotalPasivoAnterior = 0 + TotalPatrimonioActual = 0 + TotalPatrimonioAnterior = 0 + TotalPasivoPatrimonioActual = 0 + TotalPasivoPatrimonioAnterior = 0 + 'Mes If Tab.ActiveTabIndex = 0 Then - CargaDatosMes() + CargaDatos() End If 'MES HORIZONTAL @@ -378,174 +720,100 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal End Sub -#Region "MES" - - - - - - Private Sub CargaDatosMes() - - - FechaIMes = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) - FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaIMes))).ToString("dd/MM/yyyy") - 'Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1) - Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero - - 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then - DtDatosMes = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") - Else - DtDatosMes = Nothing - Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) - End If - ObjConta.Dispose() - - If DtDatosMes IsNot Nothing Then - CargaGridsMes() - SumaTotales() - End If - - End Sub - Private Sub CargaGridsMes() - DtIngresosMes = DtDatosMes.FiltraParametros("Tipo ='H' ") - DtGastosMes = DtDatosMes.FiltraParametros("Tipo ='G' ") - Dim Row As DataRow = DtIngresosMes.NewRow - - - Dim TotalActual = 0.0, TotalAnterior = 0.0 - If DtIngresosMes.Rows.Count > 0 Then - - For Each dr As DataRow In DtIngresosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = TotalActual.ToString - Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = "100.00" - Row.Item("CtaMayor") = -1 - DtIngresosMes.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtIngresosMes.Rows.Add(Row) - End If - - Dim T1 = TotalActual, T2 = TotalAnterior - - TotalActual = 0 - TotalAnterior = 0 - - Row = DtGastosMes.NewRow - If DtGastosMes.Rows.Count > 0 Then - - For Each dr As DataRow In DtGastosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero - Row.Item("CtaMayor") = -1 - DtGastosMes.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtGastosMes.Rows.Add(Row) - End If - - - GvIngresosMes.DataSource = DtIngresosMes - GvIngresosMes.DataBind() - - GvGastosMes.DataSource = DtGastosMes - GvGastosMes.DataBind() - - UpDatos.Update() - - End Sub - - - - Private Sub SumaTotales() - 'Llena Lb´s Totales - LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero - - LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero - - LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) - - LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) - - - End Sub - #Region "GV´S ROW DATA BOUND" - Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs) + 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 - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White - e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales3" - e.Row.ControlStyle.Font.Bold = True + TotalActivoActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalActivoAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble + e.Row.FCLabel("LbNombre").Font.Italic = True + e.Row.FCLabel("LbNombre").Font.Bold = True + e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;") + Else + e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte) End If - If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").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("ImporteAcumulado").ToString.ToDouble < 0 Then + If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If + + If e.Row.DBCampo("Level").ToString = "2" Then + e.Row.FCLabel("LbNombre").Text = String.Format("   {0}", e.Row.DBCampo("Nombre").ToString) + ElseIf e.Row.DBCampo("Level").ToString = "1" Then + e.Row.FCLabel("LbNombre").Font.Bold = True + End If + End If End Sub - Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs) + 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 - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White - e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales" - e.Row.ControlStyle.Font.Bold = True + TotalPasivoActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalPasivoAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble + e.Row.FCLabel("LbNombre").Font.Italic = True + e.Row.FCLabel("LbNombre").Font.Bold = True + e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;") + 'Cuentas + Else + 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("CtaMayor").ToString.ToEntero > 0 Then - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) + + '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 + + If e.Row.DBCampo("Level").ToString = "2" Then + e.Row.FCLabel("LbNombre").Text = String.Format("   {0}", e.Row.DBCampo("Nombre").ToString) + ElseIf e.Row.DBCampo("Level").ToString = "1" Then + e.Row.FCLabel("LbNombre").Font.Bold = True + End If + + End If + End Sub + + Protected Sub GvPatrimonio_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + TotalPatrimonioActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalPatrimonioAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble + e.Row.FCLabel("LbNombre").Font.Italic = True + e.Row.FCLabel("LbNombre").Font.Bold = True + e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin;") + 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray + 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + 'e.Row.ControlStyle.Font.Bold = True + ElseIf e.Row.DBCampo("CveCuenta") <> "55276" Then + 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("ImporteAcumulado").ToString.ToDouble < 0 Then + If e.Row.DBCampo("ImporteAnterior").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red End If + + If e.Row.DBCampo("Level").ToString = "2" Then + e.Row.FCLabel("LbNombre").Text = String.Format("   {0}", e.Row.DBCampo("Nombre").ToString) + ElseIf e.Row.DBCampo("Level").ToString = "1" Then + e.Row.FCLabel("LbNombre").Font.Bold = True + End If + End If End Sub @@ -554,7 +822,25 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal -#End Region + 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 = "EdoSituacionFinanciera" + 'ubicacion del rdlc + Dim reportpath As String = "Contabilidad2/Reportes/RepSituacionFinanciera.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", If(ChkFirma.Checked, String.Format("{0}", vbCrLf), ""))) + params.Add(New ReportParameter("pFirma2", If(ChkFirma.Checked, String.Format("{0}l", vbCrLf), ""))) + params.Add(New ReportParameter("pFechaFin", FechaF)) + params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem.ToString, DdlEjercicio.SelectedItem.ToString))) + ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) + End Sub + @@ -563,14 +849,14 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Private Sub CargaDatosMesH() - FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" + FechaIMes = $"01/01/1900" FechaFMes = $"31/12/{DdlEjercicio.SelectedValue}" Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + If ObjConta.GetSituacionFinancieraMensuallHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatosMesH = Nothing @@ -579,8 +865,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal ObjConta.Dispose() If DtDatosMesH IsNot Nothing Then - CargaGridsMesH() - SumaTotalesMesH() + CargaGridsMesH() + Else End If @@ -588,152 +874,402 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal End Sub Private Sub CargaGridsMesH() - DtIngresosMesH = DtDatosMesH.FiltraParametros("Tipo ='H' ") - DtGastosMesH = DtDatosMesH.FiltraParametros("Tipo ='G' ") + 'DtIngresosMesH = DtDatosMesH.FiltraParametros("Tipo IN ('A', 'D', 'F')") + 'DtGastosMesH = DtDatosMesH.FiltraParametros("Tipo ='G' ") + DTTotalesMesH = DtDatosMesH.Clone() - Dim Row As DataRow = DtIngresosMesH.NewRow - + Dim DT_ACTIVO As DataTable = DtDatosMesH.Clone() + Dim DT_PASIVO As DataTable = DtDatosMesH.Clone() + Dim DT_TOTALES As DataTable = DtDatosMesH.Clone() + + Dim DT_ACTIVO_CIRCULANTE As DataTable = DtDatosMesH.FiltraParametros(" Sup = 'ACTIVO CIRCULANTE' ") + Dim DT_ACTIVO_FIJO As DataTable = DtDatosMesH.FiltraParametros(" Sup = 'ACTIVO FIJO' ") + Dim DT_ACTIVO_DIFERIDO As DataTable = DtDatosMesH.FiltraParametros(" Sup = 'ACTIVO DIFERIDO' ") + + Dim DT_PASIVO_CIRCULANTE As DataTable = DtDatosMesH.FiltraParametros(" Sup = 'PASIVO CIRCULANTE' ") + Dim DT_PASIVO_NO_CIRCULANTE As DataTable = DtDatosMesH.FiltraParametros(" Sup = 'PASIVO NO CIRCULANTE' ") + + Dim DT_CAPITAL_CONTABLE As DataTable = DtDatosMesH.FiltraParametros(" Sup = 'CAPITAL CONTABLE' ") + + Dim TotalActual = 0.0, TotalAnterior = 0.0 - If DtIngresosMesH.Rows.Count > 0 Then + Dim RowAF As DataRow = DT_ACTIVO_CIRCULANTE.NewRow + If DT_ACTIVO_CIRCULANTE.Rows.Count > 0 Then - For Each dr As DataRow In DtIngresosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows + For Each dr As DataRow In DT_ACTIVO_CIRCULANTE.FiltraParametros("NOT CtaMayor in (3,4)").Rows TotalActual += dr("ImporteActual").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble Next - Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)") - Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)") - Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)") - Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)") - Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)") - Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)") - Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)") - Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)") - Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)") - Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)") - Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)") - Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)") + RowAF.Item("Enero") = DT_ACTIVO_CIRCULANTE.SUM("Enero", "NOT CtaMayor in (3,4)") + RowAF.Item("Febrero") = DT_ACTIVO_CIRCULANTE.SUM("Febrero", "NOT CtaMayor in (3,4)") + RowAF.Item("Marzo") = DT_ACTIVO_CIRCULANTE.SUM("Marzo", "NOT CtaMayor in (3,4)") + RowAF.Item("Abril") = DT_ACTIVO_CIRCULANTE.SUM("Abril", "NOT CtaMayor in (3,4)") + RowAF.Item("Mayo") = DT_ACTIVO_CIRCULANTE.SUM("Mayo", "NOT CtaMayor in (3,4)") + RowAF.Item("Junio") = DT_ACTIVO_CIRCULANTE.SUM("Junio", "NOT CtaMayor in (3,4)") + RowAF.Item("Julio") = DT_ACTIVO_CIRCULANTE.SUM("Julio", "NOT CtaMayor in (3,4)") + RowAF.Item("Agosto") = DT_ACTIVO_CIRCULANTE.SUM("Agosto", "NOT CtaMayor in (3,4)") + RowAF.Item("Septiembre") = DT_ACTIVO_CIRCULANTE.SUM("Septiembre", "NOT CtaMayor in (3,4)") + RowAF.Item("Octubre") = DT_ACTIVO_CIRCULANTE.SUM("Octubre", "NOT CtaMayor in (3,4)") + RowAF.Item("Noviembre") = DT_ACTIVO_CIRCULANTE.SUM("Noviembre", "NOT CtaMayor in (3,4)") + RowAF.Item("Diciembre") = DT_ACTIVO_CIRCULANTE.SUM("Diciembre", "NOT CtaMayor in (3,4)") - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = TotalActual.ToString - Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = "100.00" - Row.Item("CtaMayor") = -1 - DtIngresosMesH.Rows.Add(Row) + RowAF.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + RowAF.Item("ImporteActual") = TotalActual.ToString + RowAF.Item("PorcentajeActual") = 100.0 + RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString + RowAF.Item("PorcentajeAcumulado") = 100.0 + RowAF.Item("CtaMayor") = -1 + DT_ACTIVO_CIRCULANTE.Rows.Add(RowAF) Else - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtIngresosMesH.Rows.Add(Row) + RowAF.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + RowAF.Item("ImporteActual") = 0.00 + RowAF.Item("ImporteAcumulado") = 0.00 + RowAF.Item("CtaMayor") = -1 + DT_ACTIVO_CIRCULANTE.Rows.Add(RowAF) End If - Dim T1 = TotalActual, T2 = TotalAnterior + TotalActual = 0 + TotalAnterior = 0 + + + RowAF = DT_ACTIVO_FIJO.NewRow + If DT_ACTIVO_FIJO.Rows.Count > 0 Then + For Each dr As DataRow In DT_ACTIVO_FIJO.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + RowAF.Item("Enero") = DT_ACTIVO_FIJO.SUM("Enero", "NOT CtaMayor in (3,4)") + RowAF.Item("Febrero") = DT_ACTIVO_FIJO.SUM("Febrero", "NOT CtaMayor in (3,4)") + RowAF.Item("Marzo") = DT_ACTIVO_FIJO.SUM("Marzo", "NOT CtaMayor in (3,4)") + RowAF.Item("Abril") = DT_ACTIVO_FIJO.SUM("Abril", "NOT CtaMayor in (3,4)") + RowAF.Item("Mayo") = DT_ACTIVO_FIJO.SUM("Mayo", "NOT CtaMayor in (3,4)") + RowAF.Item("Junio") = DT_ACTIVO_FIJO.SUM("Junio", "NOT CtaMayor in (3,4)") + RowAF.Item("Julio") = DT_ACTIVO_FIJO.SUM("Julio", "NOT CtaMayor in (3,4)") + RowAF.Item("Agosto") = DT_ACTIVO_FIJO.SUM("Agosto", "NOT CtaMayor in (3,4)") + RowAF.Item("Septiembre") = DT_ACTIVO_FIJO.SUM("Septiembre", "NOT CtaMayor in (3,4)") + RowAF.Item("Octubre") = DT_ACTIVO_FIJO.SUM("Octubre", "NOT CtaMayor in (3,4)") + RowAF.Item("Noviembre") = DT_ACTIVO_FIJO.SUM("Noviembre", "NOT CtaMayor in (3,4)") + RowAF.Item("Diciembre") = DT_ACTIVO_FIJO.SUM("Diciembre", "NOT CtaMayor in (3,4)") + + RowAF.Item("Nombre") = "TOTAL ACTIVO NO CIRCULANTE" + RowAF.Item("ImporteActual") = TotalActual.ToString + RowAF.Item("PorcentajeActual") = 100.0 + RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString + RowAF.Item("PorcentajeAcumulado") = 100.0 + RowAF.Item("CtaMayor") = -1 + DT_ACTIVO_FIJO.Rows.Add(RowAF) + + Else + + RowAF.Item("Nombre") = "TOTAL ACTIVO NO CIRCULANTE" + RowAF.Item("ImporteActual") = 0.00 + RowAF.Item("ImporteAcumulado") = 0.00 + RowAF.Item("CtaMayor") = -1 + DT_ACTIVO_FIJO.Rows.Add(RowAF) + + End If + + TotalActual = 0 + TotalAnterior = 0 + + RowAF = DT_ACTIVO_DIFERIDO.NewRow + If DT_ACTIVO_DIFERIDO.Rows.Count > 0 Then + + For Each dr As DataRow In DT_ACTIVO_DIFERIDO.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + RowAF.Item("Enero") = DT_ACTIVO_DIFERIDO.SUM("Enero", "NOT CtaMayor in (3,4)") + RowAF.Item("Febrero") = DT_ACTIVO_DIFERIDO.SUM("Febrero", "NOT CtaMayor in (3,4)") + RowAF.Item("Marzo") = DT_ACTIVO_DIFERIDO.SUM("Marzo", "NOT CtaMayor in (3,4)") + RowAF.Item("Abril") = DT_ACTIVO_DIFERIDO.SUM("Abril", "NOT CtaMayor in (3,4)") + RowAF.Item("Mayo") = DT_ACTIVO_DIFERIDO.SUM("Mayo", "NOT CtaMayor in (3,4)") + RowAF.Item("Junio") = DT_ACTIVO_DIFERIDO.SUM("Junio", "NOT CtaMayor in (3,4)") + RowAF.Item("Julio") = DT_ACTIVO_DIFERIDO.SUM("Julio", "NOT CtaMayor in (3,4)") + RowAF.Item("Agosto") = DT_ACTIVO_DIFERIDO.SUM("Agosto", "NOT CtaMayor in (3,4)") + RowAF.Item("Septiembre") = DT_ACTIVO_DIFERIDO.SUM("Septiembre", "NOT CtaMayor in (3,4)") + RowAF.Item("Octubre") = DT_ACTIVO_DIFERIDO.SUM("Octubre", "NOT CtaMayor in (3,4)") + RowAF.Item("Noviembre") = DT_ACTIVO_DIFERIDO.SUM("Noviembre", "NOT CtaMayor in (3,4)") + RowAF.Item("Diciembre") = DT_ACTIVO_DIFERIDO.SUM("Diciembre", "NOT CtaMayor in (3,4)") + + RowAF.Item("Nombre") = "TOTAL ACTIVO DIFERIDO" + RowAF.Item("ImporteActual") = TotalActual.ToString + RowAF.Item("PorcentajeActual") = 100.0 + RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString + RowAF.Item("PorcentajeAcumulado") = 100.0 + RowAF.Item("CtaMayor") = -1 + DT_ACTIVO_DIFERIDO.Rows.Add(RowAF) + Else + RowAF.Item("Nombre") = "TOTAL ACTIVO DIFERIDO" + RowAF.Item("ImporteActual") = 0.00 + RowAF.Item("ImporteAcumulado") = 0.00 + RowAF.Item("CtaMayor") = -1 + DT_ACTIVO_DIFERIDO.Rows.Add(RowAF) + End If + TotalActual = 0 TotalAnterior = 0 - Row = DtGastosMesH.NewRow - If DtGastosMesH.Rows.Count > 0 Then + RowAF = DT_PASIVO_CIRCULANTE.NewRow + If DT_PASIVO_CIRCULANTE.Rows.Count > 0 Then - For Each dr As DataRow In DtGastosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows + For Each dr As DataRow In DT_PASIVO_CIRCULANTE.FiltraParametros("NOT CtaMayor in (3,4)").Rows TotalActual += dr("ImporteActual").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - - Row.Item("Enero") = DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)") - Row.Item("Febrero") = DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)") - Row.Item("Marzo") = DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)") - Row.Item("Abril") = DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)") - Row.Item("Mayo") = DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)") - Row.Item("Junio") = DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)") - Row.Item("Julio") = DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)") - Row.Item("Agosto") = DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)") - Row.Item("Septiembre") = DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)") - Row.Item("Octubre") = DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)") - Row.Item("Noviembre") = DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)") - Row.Item("Diciembre") = DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)") + Next - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero - Row.Item("CtaMayor") = -1 - DtGastosMesH.Rows.Add(Row) + RowAF.Item("Enero") = DT_PASIVO_CIRCULANTE.SUM("Enero", "NOT CtaMayor in (3,4)") + RowAF.Item("Febrero") = DT_PASIVO_CIRCULANTE.SUM("Febrero", "NOT CtaMayor in (3,4)") + RowAF.Item("Marzo") = DT_PASIVO_CIRCULANTE.SUM("Marzo", "NOT CtaMayor in (3,4)") + RowAF.Item("Abril") = DT_PASIVO_CIRCULANTE.SUM("Abril", "NOT CtaMayor in (3,4)") + RowAF.Item("Mayo") = DT_PASIVO_CIRCULANTE.SUM("Mayo", "NOT CtaMayor in (3,4)") + RowAF.Item("Junio") = DT_PASIVO_CIRCULANTE.SUM("Junio", "NOT CtaMayor in (3,4)") + RowAF.Item("Julio") = DT_PASIVO_CIRCULANTE.SUM("Julio", "NOT CtaMayor in (3,4)") + RowAF.Item("Agosto") = DT_PASIVO_CIRCULANTE.SUM("Agosto", "NOT CtaMayor in (3,4)") + RowAF.Item("Septiembre") = DT_PASIVO_CIRCULANTE.SUM("Septiembre", "NOT CtaMayor in (3,4)") + RowAF.Item("Octubre") = DT_PASIVO_CIRCULANTE.SUM("Octubre", "NOT CtaMayor in (3,4)") + RowAF.Item("Noviembre") = DT_PASIVO_CIRCULANTE.SUM("Noviembre", "NOT CtaMayor in (3,4)") + RowAF.Item("Diciembre") = DT_PASIVO_CIRCULANTE.SUM("Diciembre", "NOT CtaMayor in (3,4)") + + RowAF.Item("Nombre") = "TOTAL PASIVO CIRCULANTE" + RowAF.Item("ImporteActual") = TotalActual.ToString + RowAF.Item("PorcentajeActual") = 100.0 + RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString + RowAF.Item("PorcentajeAcumulado") = 100.0 + RowAF.Item("CtaMayor") = -1 + DT_PASIVO_CIRCULANTE.Rows.Add(RowAF) Else - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtGastosMesH.Rows.Add(Row) + RowAF.Item("Nombre") = "TOTAL PASIVO CIRCULANTE" + RowAF.Item("ImporteActual") = 0.00 + RowAF.Item("ImporteAcumulado") = 0.00 + RowAF.Item("CtaMayor") = -1 + DT_PASIVO_CIRCULANTE.Rows.Add(RowAF) End If - If DtIngresosMesH.Rows.Count > 0 Then + TotalActual = 0 + TotalAnterior = 0 - Row = DTTotalesMesH.NewRow + RowAF = DT_PASIVO_NO_CIRCULANTE.NewRow + If DT_PASIVO_NO_CIRCULANTE.Rows.Count > 0 Then + + For Each dr As DataRow In DT_PASIVO_NO_CIRCULANTE.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + RowAF.Item("Enero") = DT_PASIVO_NO_CIRCULANTE.SUM("Enero", "NOT CtaMayor in (3,4)") + RowAF.Item("Febrero") = DT_PASIVO_NO_CIRCULANTE.SUM("Febrero", "NOT CtaMayor in (3,4)") + RowAF.Item("Marzo") = DT_PASIVO_NO_CIRCULANTE.SUM("Marzo", "NOT CtaMayor in (3,4)") + RowAF.Item("Abril") = DT_PASIVO_NO_CIRCULANTE.SUM("Abril", "NOT CtaMayor in (3,4)") + RowAF.Item("Mayo") = DT_PASIVO_NO_CIRCULANTE.SUM("Mayo", "NOT CtaMayor in (3,4)") + RowAF.Item("Junio") = DT_PASIVO_NO_CIRCULANTE.SUM("Junio", "NOT CtaMayor in (3,4)") + RowAF.Item("Julio") = DT_PASIVO_NO_CIRCULANTE.SUM("Julio", "NOT CtaMayor in (3,4)") + RowAF.Item("Agosto") = DT_PASIVO_NO_CIRCULANTE.SUM("Agosto", "NOT CtaMayor in (3,4)") + RowAF.Item("Septiembre") = DT_PASIVO_NO_CIRCULANTE.SUM("Septiembre", "NOT CtaMayor in (3,4)") + RowAF.Item("Octubre") = DT_PASIVO_NO_CIRCULANTE.SUM("Octubre", "NOT CtaMayor in (3,4)") + RowAF.Item("Noviembre") = DT_PASIVO_NO_CIRCULANTE.SUM("Noviembre", "NOT CtaMayor in (3,4)") + RowAF.Item("Diciembre") = DT_PASIVO_NO_CIRCULANTE.SUM("Diciembre", "NOT CtaMayor in (3,4)") + + RowAF.Item("Nombre") = "TOTAL PASIVO NO CIRCULANTE" + RowAF.Item("ImporteActual") = TotalActual.ToString + RowAF.Item("PorcentajeActual") = 100.0 + RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString + RowAF.Item("PorcentajeAcumulado") = 100.0 + RowAF.Item("CtaMayor") = -1 + DT_PASIVO_NO_CIRCULANTE.Rows.Add(RowAF) + Else + RowAF.Item("Nombre") = "TOTAL PASIVO NO CIRCULANTE" + RowAF.Item("ImporteActual") = 0.00 + RowAF.Item("ImporteAcumulado") = 0.00 + RowAF.Item("CtaMayor") = -1 + DT_PASIVO_NO_CIRCULANTE.Rows.Add(RowAF) + End If + + TotalActual = 0 + TotalAnterior = 0 - Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - Row.Item("Febrero") = DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - Row.Item("Marzo") = DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - Row.Item("Abril") = DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - Row.Item("Mayo") = DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - Row.Item("Junio") = DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - Row.Item("Julio") = DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - Row.Item("Agosto") = DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - Row.Item("Septiembre") = DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - Row.Item("Octubre") = DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - Row.Item("Noviembre") = DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - Row.Item("Diciembre") = DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") + RowAF = DT_CAPITAL_CONTABLE.NewRow + If DT_PASIVO_NO_CIRCULANTE.Rows.Count > 0 Then - Row.Item("Nombre") = "Resultados del Ejercicio:" - 'Row.Item("ImporteActual") = TotalActual.ToString - 'Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString - 'Row.Item("PorcentajeAcumulado") = "100.00" - 'Row.Item("CtaMayor") = -1 + For Each dr As DataRow In DT_CAPITAL_CONTABLE.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next - DTTotalesMesH.Rows.Add(Row) + RowAF.Item("Enero") = DT_CAPITAL_CONTABLE.SUM("Enero", "NOT CtaMayor in (3,4)") + RowAF.Item("Febrero") = DT_CAPITAL_CONTABLE.SUM("Febrero", "NOT CtaMayor in (3,4)") + RowAF.Item("Marzo") = DT_CAPITAL_CONTABLE.SUM("Marzo", "NOT CtaMayor in (3,4)") + RowAF.Item("Abril") = DT_CAPITAL_CONTABLE.SUM("Abril", "NOT CtaMayor in (3,4)") + RowAF.Item("Mayo") = DT_CAPITAL_CONTABLE.SUM("Mayo", "NOT CtaMayor in (3,4)") + RowAF.Item("Junio") = DT_CAPITAL_CONTABLE.SUM("Junio", "NOT CtaMayor in (3,4)") + RowAF.Item("Julio") = DT_CAPITAL_CONTABLE.SUM("Julio", "NOT CtaMayor in (3,4)") + RowAF.Item("Agosto") = DT_CAPITAL_CONTABLE.SUM("Agosto", "NOT CtaMayor in (3,4)") + RowAF.Item("Septiembre") = DT_CAPITAL_CONTABLE.SUM("Septiembre", "NOT CtaMayor in (3,4)") + RowAF.Item("Octubre") = DT_CAPITAL_CONTABLE.SUM("Octubre", "NOT CtaMayor in (3,4)") + RowAF.Item("Noviembre") = DT_CAPITAL_CONTABLE.SUM("Noviembre", "NOT CtaMayor in (3,4)") + RowAF.Item("Diciembre") = DT_CAPITAL_CONTABLE.SUM("Diciembre", "NOT CtaMayor in (3,4)") + + RowAF.Item("Nombre") = "TOTAL CAPITAL CONTABLE" + RowAF.Item("ImporteActual") = TotalActual.ToString + RowAF.Item("PorcentajeActual") = 100.0 + RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString + RowAF.Item("PorcentajeAcumulado") = 100.0 + RowAF.Item("CtaMayor") = -1 + DT_CAPITAL_CONTABLE.Rows.Add(RowAF) + Else + RowAF.Item("Nombre") = "TOTAL CAPITAL CONTABLE" + RowAF.Item("ImporteActual") = 0.00 + RowAF.Item("ImporteAcumulado") = 0.00 + RowAF.Item("CtaMayor") = -1 + DT_CAPITAL_CONTABLE.Rows.Add(RowAF) + End If + + + TotalActual = 0 + TotalAnterior = 0 + + DT_ACTIVO.Merge(DT_ACTIVO_CIRCULANTE) + DT_ACTIVO.Merge(DT_ACTIVO_FIJO) + DT_ACTIVO.Merge(DT_ACTIVO_DIFERIDO) + + DT_PASIVO.Merge(DT_PASIVO_CIRCULANTE) + DT_PASIVO.Merge(DT_PASIVO_NO_CIRCULANTE) + + + + RowAF = DT_ACTIVO.NewRow + If DT_ACTIVO.Rows.Count > 0 Then + + For Each dr As DataRow In DT_ACTIVO.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + RowAF.Item("Enero") = DT_ACTIVO.SUM("Enero", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Febrero") = DT_ACTIVO.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Marzo") = DT_ACTIVO.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Abril") = DT_ACTIVO.SUM("Abril", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Mayo") = DT_ACTIVO.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Junio") = DT_ACTIVO.SUM("Junio", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Julio") = DT_ACTIVO.SUM("Julio", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Agosto") = DT_ACTIVO.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Septiembre") = DT_ACTIVO.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Octubre") = DT_ACTIVO.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Noviembre") = DT_ACTIVO.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Diciembre") = DT_ACTIVO.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") + + RowAF.Item("Nombre") = "TOTAL ACTIVO" + RowAF.Item("ImporteActual") = TotalActual.ToString + RowAF.Item("PorcentajeActual") = 100.0 + RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString + RowAF.Item("PorcentajeAcumulado") = 100.0 + RowAF.Item("CtaMayor") = -1 + DT_ACTIVO.Rows.Add(RowAF) + Else + RowAF.Item("Nombre") = "TOTAL ACTIVO" + RowAF.Item("ImporteActual") = 0.00 + RowAF.Item("ImporteAcumulado") = 0.00 + RowAF.Item("CtaMayor") = -1 + DT_ACTIVO.Rows.Add(RowAF) + End If + + + TotalActual = 0 + TotalAnterior = 0 + + RowAF = DT_PASIVO.NewRow + If DT_PASIVO.Rows.Count > 0 Then + + For Each dr As DataRow In DT_PASIVO.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + RowAF.Item("Enero") = DT_PASIVO.SUM("Enero", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Febrero") = DT_PASIVO.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Marzo") = DT_PASIVO.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Abril") = DT_PASIVO.SUM("Abril", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Mayo") = DT_PASIVO.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Junio") = DT_PASIVO.SUM("Junio", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Julio") = DT_PASIVO.SUM("Julio", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Agosto") = DT_PASIVO.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Septiembre") = DT_PASIVO.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Octubre") = DT_PASIVO.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Noviembre") = DT_PASIVO.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Diciembre") = DT_PASIVO.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") + + RowAF.Item("Nombre") = "TOTAL PASIVO" + RowAF.Item("ImporteActual") = TotalActual.ToString + RowAF.Item("PorcentajeActual") = 100.0 + RowAF.Item("ImporteAcumulado") = TotalAnterior.ToString + RowAF.Item("PorcentajeAcumulado") = 100.0 + RowAF.Item("CtaMayor") = -1 + DT_PASIVO.Rows.Add(RowAF) + Else + RowAF.Item("Nombre") = "TOTAL PASIVO" + RowAF.Item("ImporteActual") = 0.00 + RowAF.Item("ImporteAcumulado") = 0.00 + RowAF.Item("CtaMayor") = -1 + DT_PASIVO.Rows.Add(RowAF) + End If + + DT_TOTALES.Merge(DT_ACTIVO) + DT_TOTALES.Merge(DT_PASIVO) + DT_TOTALES.Merge(DT_CAPITAL_CONTABLE) + + TotalActual = 0 + TotalAnterior = 0 + + RowAF = DT_TOTALES.NewRow + + If DT_ACTIVO.Rows.Count > 0 Then + + RowAF.Item("Enero") = DT_ACTIVO.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Enero", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Enero", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Febrero") = DT_ACTIVO.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Marzo") = DT_ACTIVO.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Marzo", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Abril") = DT_ACTIVO.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Abril", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Mayo") = DT_ACTIVO.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Mayo", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Junio") = DT_ACTIVO.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Junio", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Julio") = DT_ACTIVO.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Julio", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Julio", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Agosto") = DT_ACTIVO.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Septiembre") = DT_ACTIVO.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Septiembre", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Octubre") = DT_ACTIVO.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Noviembre") = DT_ACTIVO.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Noviembre", "NOT CtaMayor in (-1,3,4)") + RowAF.Item("Diciembre") = DT_ACTIVO.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") + + RowAF.Item("Nombre") = "Resultados del Ejercicio:" + RowAF.Item("CtaMayor") = -1 + RowAF.Item("ImporteAcumulado") = DT_ACTIVO.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString + DT_TOTALES.Rows.Add(RowAF) End If - GvIngresosMesH.DataSource = DtIngresosMesH - GvIngresosMesH.DataBind() - GvGastosMesH.DataSource = DtGastosMesH - GvGastosMesH.DataBind() - GvTotalesMesH.DataSource = DTTotalesMesH - GvTotalesMesH.DataBind() + GvIngresosMesH.DataSource = DT_TOTALES + GvIngresosMesH.DataBind() + UpDatosMesH.Update() End Sub - Private Sub SumaTotalesMesH() - ''Llena Lb´s Totales - ''********************************************************************************* - 'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero - 'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero - - 'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) - 'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) - - - End Sub + Protected Sub GvIngresosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then + + 'TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble + 'TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + e.Row.ControlStyle.Font.Bold = True ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then 'e.Row.CssClass = "SubTotales3" @@ -759,9 +1295,6 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").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("ImporteAcumulado").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red @@ -772,13 +1305,12 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Protected Sub GvGastosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + + 'TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble + 'TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + e.Row.ControlStyle.Font.Bold = True - ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales" + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then e.Row.ControlStyle.Font.Bold = True End If @@ -809,18 +1341,17 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal End If End Sub - Protected Sub GvTotalesMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) + 'Protected Sub GvTotalesMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.Header Then - e.Row.Attributes.Add("style", "display:none") - End If + ' If e.Row.RowType = DataControlRowType.Header Then + ' e.Row.Attributes.Add("style", "display:none") + ' End If - If e.Row.RowType = DataControlRowType.DataRow Then + ' If e.Row.RowType = DataControlRowType.DataRow Then + ' e.Row.Attributes.Add("style", "Font-weight: bold") + ' End If - e.Row.Attributes.Add("style", "Font-weight: bold") - End If - - End Sub + 'End Sub #End Region @@ -831,14 +1362,14 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Private Sub CargaDatosAnualH() - FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" - FechaFMes = $"31/12/{DdlEjercicio2.SelectedValue}" + FechaIMes = $"01/01/1900" + FechaFMes = $"31/12/{DdlEjercicio.SelectedValue}" Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero - 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + If ObjConta.GetSituacionFinancieraAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatosAnualH = Nothing @@ -859,183 +1390,333 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal DtGastosAnualH = DtDatosAnualH.FiltraParametros("Tipo ='G' ") DTTotalesAnualH = DtDatosAnualH.Clone() - Dim Row As DataRow = DtIngresosAnualH.NewRow + + + Dim DT_ACTIVO As DataTable = DtDatosAnualH.Clone() + Dim DT_PASIVO As DataTable = DtDatosAnualH.Clone() + Dim DT_TOTALES As DataTable = DtDatosAnualH.Clone() + + Dim DT_ACTIVO_CIRCULANTE As DataTable = DtDatosAnualH.FiltraParametros(" Sup = 'ACTIVO CIRCULANTE' ") + Dim DT_ACTIVO_FIJO As DataTable = DtDatosAnualH.FiltraParametros(" Sup = 'ACTIVO FIJO' ") + Dim DT_ACTIVO_DIFERIDO As DataTable = DtDatosAnualH.FiltraParametros(" Sup = 'ACTIVO DIFERIDO' ") + + Dim DT_PASIVO_CIRCULANTE As DataTable = DtDatosAnualH.FiltraParametros(" Sup = 'PASIVO CIRCULANTE' ") + Dim DT_PASIVO_NO_CIRCULANTE As DataTable = DtDatosAnualH.FiltraParametros(" Sup = 'PASIVO NO CIRCULANTE' ") + + Dim DT_CAPITAL_CONTABLE As DataTable = DtDatosAnualH.FiltraParametros(" Sup = 'CAPITAL CONTABLE' ") + + + Dim TotalActual = 0.0, TotalAnterior = 0.0 Dim IndexData As Integer = 0 Dim IndexGv As Integer = 1 - Dim IndexMax As Integer = 1 + Dim IndexMax As Integer = 11 - If DtIngresosAnualH.Rows.Count > 0 Then + For Each dCoumn As DataColumn In DtDatosAnualH.Columns + If IndexData >= 11 Then + If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio.SelectedValue.ToEntero Then + CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName + CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName - For Each dCoumn As DataColumn In DtIngresosAnualH.Columns + GvIngresosAnualH.Columns(IndexGv).Visible = True - If IndexData >= 13 Then + GvTotalesAnualH.Columns(IndexGv).Visible = True - If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then - - CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName - - - 'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - 'CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName - GvIngresosAnualH.Columns(IndexGv).Visible = True - - - CType(GvTotalesAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - CType(GvTotalesAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName - 'CType(GvTotalesAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - 'CType(GvTotalesAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName - GvTotalesAnualH.Columns(IndexGv).Visible = True - - IndexMax = IndexData - Else - GvIngresosAnualH.Columns(IndexGv).Visible = False - GvTotalesAnualH.Columns(IndexGv).Visible = False - End If - - - - IndexGv = IndexGv + 1 + IndexMax = IndexData + Else + GvIngresosAnualH.Columns(IndexGv).Visible = False + GvTotalesAnualH.Columns(IndexGv).Visible = False End If - IndexData = IndexData + 1 + IndexGv = IndexGv + 1 - Next + End If + IndexData = IndexData + 1 + Next - For Each dr As DataRow In DtIngresosAnualH.FiltraParametros("NOT CtaMayor in (3,4)").Rows + 'IndexData = 14 + 'Dim Row As DataRow = DT_ACTIVO_CIRCULANTE.NewRow + 'If DtDatosAnualH.Rows.Count > 0 Then - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + ' For IndexData = 13 To IndexMax + ' Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + ' Next - Next + ' Row.Item("Nombre") = "TOTAL INGRESOS " + ' Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") + ' Row.Item("PorcentajeActual") = 100.0 + ' Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + ' Row.Item("PorcentajeAcumulado") = 100.0 + ' Row.Item("CtaMayor") = -1 + ' DtIngresosAnualH.Rows.Add(Row) + 'Else + ' Row.Item("Nombre") = "TOTAL INGRESOS " + ' Row.Item("ImporteActual") = "0.00" + ' Row.Item("ImporteAcumulado") = "0.00" + ' Row.Item("CtaMayor") = -1 + ' DtIngresosAnualH.Rows.Add(Row) + 'End If - IndexData = 13 - For IndexData = 13 To IndexMax - Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") - Next - - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString - Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = "100.00" - Row.Item("CtaMayor") = -1 - DtIngresosAnualH.Rows.Add(Row) - Else - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" - Row.Item("CtaMayor") = -1 - DtIngresosAnualH.Rows.Add(Row) - End If - - Dim T1 = TotalActual, T2 = TotalAnterior + 'Dim T1 = TotalActual, T2 = TotalAnterior TotalActual = 0 TotalAnterior = 0 - Row = DtGastosAnualH.NewRow - - If DtGastosAnualH.Rows.Count > 0 Then - - - IndexData = 0 - IndexGv = 1 - IndexMax = 0 - - For Each dCoumn As DataColumn In DtGastosAnualH.Columns - - If IndexData >= 13 Then - - If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then - 'HyperLinkField - - CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName - 'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFields = {"CveCuenta", "FechaInicial", "FechaFActual", "CveSubProyecto"} - 'CType(GvGastosAnualH.Columns(IndexGv), HyperLinkField).DataNavigateUrlFormatString = "/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto{3}" - - 'CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - 'CType(GvGastosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName - - GvGastosAnualH.Columns(IndexGv).Visible = True - IndexMax = IndexData - Else - GvGastosAnualH.Columns(IndexGv).Visible = False - End If - - - - IndexGv = IndexGv + 1 - End If - - IndexData = IndexData + 1 + IndexData = 11 + Dim Row As DataRow = DT_ACTIVO_CIRCULANTE.NewRow + 'Row = DT_ACTIVO_CIRCULANTE.NewRow + If DT_ACTIVO_CIRCULANTE.Rows.Count > 0 Then + For IndexData = 11 To IndexMax + Row.Item(IndexData) = DT_ACTIVO_CIRCULANTE.SUM($"[{DT_ACTIVO_CIRCULANTE.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") Next - - For Each dr As DataRow In DtGastosAnualH.FiltraParametros("Not CtaMayor In (3,4)").Rows - TotalActual += dr("ImporteActual").ToString.ToDouble - TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble - Next - - IndexData = 13 - For IndexData = 13 To IndexMax - Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)") - Next - - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = DT_ACTIVO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DT_ACTIVO_CIRCULANTE.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 - DtGastosAnualH.Rows.Add(Row) + DT_ACTIVO_CIRCULANTE.Rows.Add(Row) Else - Row.Item("Nombre") = "TOTAL GASTOS" + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" Row.Item("ImporteActual") = "0.00" Row.Item("ImporteAcumulado") = "0.00" Row.Item("CtaMayor") = -1 - DtGastosAnualH.Rows.Add(Row) + DT_ACTIVO_CIRCULANTE.Rows.Add(Row) End If - If DtIngresosAnualH.Rows.Count > 0 Then + TotalActual = 0 + TotalAnterior = 0 + + IndexData = 11 + Row = DT_ACTIVO_FIJO.NewRow + If DT_ACTIVO_FIJO.Rows.Count > 0 Then + + For IndexData = 11 To IndexMax + Row.Item(IndexData) = DT_ACTIVO_FIJO.SUM($"[{DT_ACTIVO_FIJO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + Next + + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = DT_ACTIVO_FIJO.SUM("ImporteActual", "NOT CtaMayor in (3,4)") + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DT_ACTIVO_FIJO.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + DT_ACTIVO_FIJO.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DT_ACTIVO_FIJO.Rows.Add(Row) + End If + + TotalActual = 0 + TotalAnterior = 0 + + + IndexData = 11 + Row = DT_ACTIVO_DIFERIDO.NewRow + If DT_ACTIVO_DIFERIDO.Rows.Count > 0 Then + + For IndexData = 11 To IndexMax + Row.Item(IndexData) = DT_ACTIVO_DIFERIDO.SUM($"[{DT_ACTIVO_DIFERIDO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + Next + + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + DT_ACTIVO_DIFERIDO.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DT_ACTIVO_DIFERIDO.Rows.Add(Row) + End If + + TotalActual = 0 + TotalAnterior = 0 + + IndexData = 11 + Row = DT_PASIVO_CIRCULANTE.NewRow + If DT_PASIVO_CIRCULANTE.Rows.Count > 0 Then + + For IndexData = 11 To IndexMax + Row.Item(IndexData) = DT_PASIVO_CIRCULANTE.SUM($"[{DT_PASIVO_CIRCULANTE.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + Next + + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + DT_PASIVO_CIRCULANTE.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DT_PASIVO_CIRCULANTE.Rows.Add(Row) + End If + + TotalActual = 0 + TotalAnterior = 0 + + IndexData = 11 + Row = DT_PASIVO_NO_CIRCULANTE.NewRow + If DT_PASIVO_NO_CIRCULANTE.Rows.Count > 0 Then + + For IndexData = 11 To IndexMax + Row.Item(IndexData) = DT_PASIVO_NO_CIRCULANTE.SUM($"[{DT_PASIVO_NO_CIRCULANTE.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + Next + + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + DT_PASIVO_NO_CIRCULANTE.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DT_PASIVO_NO_CIRCULANTE.Rows.Add(Row) + End If + + TotalActual = 0 + TotalAnterior = 0 + + IndexData = 11 + Row = DT_CAPITAL_CONTABLE.NewRow + If DT_CAPITAL_CONTABLE.Rows.Count > 0 Then + + For IndexData = 11 To IndexMax + Row.Item(IndexData) = DT_CAPITAL_CONTABLE.SUM($"[{DT_CAPITAL_CONTABLE.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + Next + + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + DT_CAPITAL_CONTABLE.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DT_CAPITAL_CONTABLE.Rows.Add(Row) + End If + + TotalActual = 0 + TotalAnterior = 0 + + + + + DT_ACTIVO.Merge(DT_ACTIVO_CIRCULANTE) + DT_ACTIVO.Merge(DT_ACTIVO_FIJO) + DT_ACTIVO.Merge(DT_ACTIVO_DIFERIDO) + + DT_PASIVO.Merge(DT_PASIVO_CIRCULANTE) + DT_PASIVO.Merge(DT_PASIVO_NO_CIRCULANTE) + + IndexData = 11 + Row = DT_ACTIVO.NewRow + If DT_ACTIVO.Rows.Count > 0 Then + + For IndexData = 11 To IndexMax + Row.Item(IndexData) = DT_ACTIVO.SUM($"[{DT_ACTIVO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") + Next + + Row.Item("Nombre") = "TOTAL ACTIVO" + Row.Item("ImporteActual") = DT_ACTIVO.SUM("ImporteActual", "NOT CtaMayor in (3,4)") + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DT_ACTIVO.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + DT_ACTIVO.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL ACTIVO" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DT_ACTIVO.Rows.Add(Row) + End If + + + + IndexData = 11 + Row = DT_PASIVO.NewRow + If DT_PASIVO.Rows.Count > 0 Then + + For IndexData = 11 To IndexMax + Row.Item(IndexData) = DT_PASIVO.SUM($"[{DT_PASIVO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") + Next + + Row.Item("Nombre") = "TOTAL PASIVO" + Row.Item("ImporteActual") = DT_PASIVO.SUM("ImporteActual", "NOT CtaMayor in (-1,3,4)") + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DT_PASIVO.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + DT_PASIVO.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL PASIVO" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DT_PASIVO.Rows.Add(Row) + End If + + DT_TOTALES.Merge(DT_ACTIVO) + DT_TOTALES.Merge(DT_PASIVO) + DT_TOTALES.Merge(DT_CAPITAL_CONTABLE) + + Row = DT_TOTALES.NewRow + + If DT_TOTALES.Rows.Count > 0 Then Row = DTTotalesAnualH.NewRow - IndexData = 13 - For IndexData = 13 To IndexMax - Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") + IndexData = 11 + For IndexData = 11 To IndexMax + Row.Item(IndexData) = DT_ACTIVO.SUM($"[{DT_ACTIVO.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DT_PASIVO.SUM($"[{DT_PASIVO.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM($"[{DT_CAPITAL_CONTABLE.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") Next Row.Item("Nombre") = "Resultados del Ejercicio" - 'Row.Item("ImporteActual") = TotalActual.ToString - 'Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - 'Row.Item("PorcentajeAcumulado") = "100.00" - 'Row.Item("CtaMayor") = -1 + Row.Item("ImporteAcumulado") = DT_ACTIVO.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DT_PASIVO.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") + DTTotalesAnualH.Rows.Add(Row) End If - GvIngresosAnualH.DataSource = DtIngresosAnualH + GvIngresosAnualH.DataSource = DT_TOTALES GvIngresosAnualH.DataBind() - GvGastosAnualH.DataSource = DtGastosAnualH - GvGastosAnualH.DataBind() + 'GvGastosAnualH.DataSource = DtGastosAnualH + 'GvGastosAnualH.DataBind() - GvTotalesAnualH.DataSource = DTTotalesAnualH - GvTotalesAnualH.DataBind() + 'GvTotalesAnualH.DataSource = DTTotalesAnualH + 'GvTotalesAnualH.DataBind() UpDatosAnualH.Update() @@ -1049,13 +1730,12 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + + 'TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble + 'TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + e.Row.ControlStyle.Font.Bold = True ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales3" e.Row.ControlStyle.Font.Bold = True End If @@ -1068,13 +1748,17 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero Dim IndiceInicio As Integer = 1 Dim IndiceMax As Integer = 1 + CountDinamico + For IndiceInicio = 1 To IndiceMax - Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField + + Dim Anio As String = CType(GvIngresosAnualH.Columns(IndiceInicio), BoundField).DataField Dim Importe As String = e.Row.Cells(IndiceInicio).Text e.Row.Cells(IndiceInicio).Text = $"{Importe}" + Next IndiceInicio - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}" + e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/1900&ER=1&CveSubProyecto={CveSubProyecto}" + End If @@ -1088,13 +1772,12 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Protected Sub GvGastosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + + 'TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble + 'TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + e.Row.ControlStyle.Font.Bold = True ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales" e.Row.ControlStyle.Font.Bold = True End If @@ -1112,7 +1795,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal e.Row.Cells(IndiceInicio).Text = $"{Importe}" Next IndiceInicio - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}" + e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/1900&ER=1&CveSubProyecto={CveSubProyecto}" End If If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then @@ -1142,15 +1825,15 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Private Sub CargaDatosSubProyectoH() - FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" - FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" - FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy") + FechaIMes = $"01/01/1900" + FechaFMes = $"01/12/{DdlEjercicio.SelectedValue}" + 'FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy") Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + If ObjConta.GetSituacionFinancieraSubProyectolHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DTSubProyectosCabecerasH = ObjConta.DSResultados.Tables(0) DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else @@ -1161,7 +1844,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal If DtDatosSubProyectoH IsNot Nothing And DTSubProyectosCabecerasH IsNot Nothing Then CargaGridsSubProyectoH() - SumaTotalesSubProyectoH() + 'SumaTotalesSubProyectoH() End If End Sub @@ -1172,7 +1855,23 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal DtGastosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='G' ") DTTotalesSubProyectoH = DtDatosSubProyectoH.Clone() - Dim Row As DataRow = DtIngresosSubProyectoH.NewRow + + + Dim DT_ACTIVO As DataTable = DtDatosSubProyectoH.Clone() + Dim DT_PASIVO As DataTable = DtDatosSubProyectoH.Clone() + Dim DT_TOTALES As DataTable = DtDatosSubProyectoH.Clone() + + Dim DT_ACTIVO_CIRCULANTE As DataTable = DtDatosSubProyectoH.FiltraParametros(" Sup = 'ACTIVO CIRCULANTE' ") + Dim DT_ACTIVO_FIJO As DataTable = DtDatosSubProyectoH.FiltraParametros(" Sup = 'ACTIVO FIJO' ") + Dim DT_ACTIVO_DIFERIDO As DataTable = DtDatosSubProyectoH.FiltraParametros(" Sup = 'ACTIVO DIFERIDO' ") + + Dim DT_PASIVO_CIRCULANTE As DataTable = DtDatosSubProyectoH.FiltraParametros(" Sup = 'PASIVO CIRCULANTE' ") + Dim DT_PASIVO_NO_CIRCULANTE As DataTable = DtDatosSubProyectoH.FiltraParametros(" Sup = 'PASIVO NO CIRCULANTE' ") + + Dim DT_CAPITAL_CONTABLE As DataTable = DtDatosSubProyectoH.FiltraParametros(" Sup = 'CAPITAL CONTABLE' ") + + + Dim Row As DataRow Dim TotalActual = 0.0, TotalAnterior = 0.0 @@ -1182,192 +1881,345 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Dim IndexMax As Integer = 1 Dim IndexSubProyecto = 0 Dim IndexSubProyectoMAx As Integer = DTSubProyectosCabecerasH.Rows.Count - 1 - Dim IndexTotatles As Integer = 13 + IndexSubProyectoMAx - - If DtIngresosSubProyectoH.Rows.Count > 0 Then + Dim IndexTotatles As Integer = 11 + IndexSubProyectoMAx + For Each dCoumn As DataColumn In DT_ACTIVO_CIRCULANTE.Columns + If IndexData >= 11 Then - For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns + If IndexSubProyecto <= IndexSubProyectoMAx Then - If IndexData >= 13 Then + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName + GvIngresosSubProyectoH.Columns(IndexGv).Visible = True + + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName + GvTotalesSubProyectoH.Columns(IndexGv).Visible = True If IndexSubProyecto <= IndexSubProyectoMAx Then - - CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - GvIngresosSubProyectoH.Columns(IndexGv).Visible = True - - CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - GvTotalesSubProyectoH.Columns(IndexGv).Visible = True - - If IndexSubProyecto <= IndexSubProyectoMAx Then - CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString - CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString - CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString - End If - - Else - GvIngresosSubProyectoH.Columns(IndexGv).Visible = False - GvTotalesSubProyectoH.Columns(IndexGv).Visible = False + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString + CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString End If - IndexGv = IndexGv + 1 - IndexSubProyecto = IndexSubProyecto + 1 - IndexMax = IndexMax + 1 - + Else + GvIngresosSubProyectoH.Columns(IndexGv).Visible = False + GvTotalesSubProyectoH.Columns(IndexGv).Visible = False End If - IndexData = IndexData + 1 - Next + IndexGv = IndexGv + 1 + IndexSubProyecto = IndexSubProyecto + 1 + IndexMax = IndexMax + 1 - For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows + End If + IndexData = IndexData + 1 + Next + + Row = DT_ACTIVO_CIRCULANTE.NewRow + If DT_ACTIVO_CIRCULANTE.Rows.Count > 0 Then + + For Each dr As DataRow In DT_ACTIVO_CIRCULANTE.FiltraParametros("NOT CtaMayor in (3,4)").Rows TotalActual += dr("ImporteActual").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble Next - IndexData = 13 - For IndexData = 13 To IndexTotatles - Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + IndexData = 11 + For IndexData = 11 To IndexTotatles + Row.Item(IndexData) = DT_ACTIVO_CIRCULANTE.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") Next - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString - Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = "100.00" + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = DT_ACTIVO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DT_ACTIVO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 - DtIngresosSubProyectoH.Rows.Add(Row) + DT_ACTIVO_CIRCULANTE.Rows.Add(Row) Else - Row.Item("Nombre") = "TOTAL INGRESOS " - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" + Row.Item("Nombre") = "TOTAL ACTIVO CIRCULANTE" + Row.Item("ImporteActual") = 0.00 + Row.Item("ImporteAcumulado") = 0.00 Row.Item("CtaMayor") = -1 - DtIngresosSubProyectoH.Rows.Add(Row) + DT_ACTIVO_CIRCULANTE.Rows.Add(Row) End If - Dim T1 = TotalActual, T2 = TotalAnterior - TotalActual = 0 TotalAnterior = 0 - Row = DtGastosSubProyectoH.NewRow + Row = DT_ACTIVO_FIJO.NewRow + If DT_ACTIVO_FIJO.Rows.Count > 0 Then - If DtGastosSubProyectoH.Rows.Count > 0 Then - - - IndexData = 0 - IndexGv = 1 - IndexMax = 0 - IndexSubProyecto = 0 - - For Each dCoumn As DataColumn In DtIngresosSubProyectoH.Columns - If IndexData >= 13 Then - If IndexSubProyecto <= IndexSubProyectoMAx Then - CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - GvGastosSubProyectoH.Columns(IndexGv).Visible = True - CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName - GvTotalesSubProyectoH.Columns(IndexGv).Visible = True - Else - GvIngresosSubProyectoH.Columns(IndexGv).Visible = False - GvTotalesSubProyectoH.Columns(IndexGv).Visible = False - End If - - IndexGv = IndexGv + 1 - IndexSubProyecto = IndexSubProyecto + 1 - End If - IndexData = IndexData + 1 - Next - - - - For Each dr As DataRow In DtGastosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows + For Each dr As DataRow In DT_ACTIVO_FIJO.FiltraParametros("NOT CtaMayor in (3,4)").Rows TotalActual += dr("ImporteActual").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble Next - IndexData = 13 - For IndexData = 13 To IndexTotatles - Row.Item(IndexData) = DtGastosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + IndexData = 11 + For IndexData = 11 To IndexTotatles + Row.Item(IndexData) = DT_ACTIVO_FIJO.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") Next - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = TotalActual - Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero - Row.Item("ImporteAcumulado") = TotalAnterior.ToString - Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero + Row.Item("Nombre") = "TOTAL ACTIVO NO CIRCULANTE" + Row.Item("ImporteActual") = DT_ACTIVO_FIJO.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DT_ACTIVO_FIJO.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = 100.0 Row.Item("CtaMayor") = -1 - DtGastosSubProyectoH.Rows.Add(Row) + DT_ACTIVO_FIJO.Rows.Add(Row) Else - Row.Item("Nombre") = "TOTAL GASTOS" - Row.Item("ImporteActual") = "0.00" - Row.Item("ImporteAcumulado") = "0.00" + Row.Item("Nombre") = "TOTAL ACTIVO NO CIRCULANTE" + Row.Item("ImporteActual") = 0.00 + Row.Item("ImporteAcumulado") = 0.00 Row.Item("CtaMayor") = -1 - DtGastosSubProyectoH.Rows.Add(Row) + DT_ACTIVO_FIJO.Rows.Add(Row) End If - If DtIngresosSubProyectoH.Rows.Count > 0 Then + TotalActual = 0 + TotalAnterior = 0 - Row = DTTotalesSubProyectoH.NewRow + Row = DT_ACTIVO_DIFERIDO.NewRow + If DT_ACTIVO_DIFERIDO.Rows.Count > 0 Then - - - IndexData = 13 - For IndexData = 13 To IndexTotatles - Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") + For Each dr As DataRow In DT_ACTIVO_DIFERIDO.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble Next - Row.Item("Nombre") = "Totales:" - 'Row.Item("ImporteActual") = TotalActual.ToString - 'Row.Item("PorcentajeActual") = "100.00" - Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - 'Row.Item("PorcentajeAcumulado") = "100.00" + IndexData = 11 + For IndexData = 11 To IndexTotatles + Row.Item(IndexData) = DT_ACTIVO_DIFERIDO.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + Next + + Row.Item("Nombre") = "TOTAL ACTIVO DIFERIDO" + Row.Item("ImporteActual") = DT_ACTIVO_DIFERIDO.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DT_ACTIVO_DIFERIDO.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + DT_ACTIVO_DIFERIDO.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL ACTIVO DIFERIDO" + Row.Item("ImporteActual") = 0.00 + Row.Item("ImporteAcumulado") = 0.00 + Row.Item("CtaMayor") = -1 + DT_ACTIVO_DIFERIDO.Rows.Add(Row) + End If + + TotalActual = 0 + TotalAnterior = 0 + + Row = DT_PASIVO_CIRCULANTE.NewRow + If DT_PASIVO_CIRCULANTE.Rows.Count > 0 Then + + For Each dr As DataRow In DT_PASIVO_CIRCULANTE.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + IndexData = 11 + For IndexData = 11 To IndexTotatles + Row.Item(IndexData) = DT_PASIVO_CIRCULANTE.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + Next + + Row.Item("Nombre") = "TOTAL PASIVO CIRCULANTE" + Row.Item("ImporteActual") = DT_PASIVO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DT_PASIVO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + DT_PASIVO_CIRCULANTE.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL PASIVO CIRCULANTE" + Row.Item("ImporteActual") = 0.00 + Row.Item("ImporteAcumulado") = 0.00 + Row.Item("CtaMayor") = -1 + DT_PASIVO_CIRCULANTE.Rows.Add(Row) + End If + + TotalActual = 0 + TotalAnterior = 0 + + Row = DT_PASIVO_NO_CIRCULANTE.NewRow + If DT_PASIVO_NO_CIRCULANTE.Rows.Count > 0 Then + + For Each dr As DataRow In DT_PASIVO_NO_CIRCULANTE.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + IndexData = 11 + For IndexData = 11 To IndexTotatles + Row.Item(IndexData) = DT_PASIVO_NO_CIRCULANTE.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + Next + + Row.Item("Nombre") = "TOTAL PASIVO NO CIRCULANTE" + Row.Item("ImporteActual") = DT_PASIVO_NO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DT_PASIVO_NO_CIRCULANTE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + DT_PASIVO_NO_CIRCULANTE.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL PASIVO NO CIRCULANTE" + Row.Item("ImporteActual") = 0.00 + Row.Item("ImporteAcumulado") = 0.00 + Row.Item("CtaMayor") = -1 + DT_PASIVO_NO_CIRCULANTE.Rows.Add(Row) + End If + + TotalActual = 0 + TotalAnterior = 0 + + + Row = DT_CAPITAL_CONTABLE.NewRow + If DT_CAPITAL_CONTABLE.Rows.Count > 0 Then + + For Each dr As DataRow In DT_CAPITAL_CONTABLE.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + IndexData = 11 + For IndexData = 11 To IndexTotatles + Row.Item(IndexData) = DT_CAPITAL_CONTABLE.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") + Next + + Row.Item("Nombre") = "TOTAL CAPITAL CONTABLE" + Row.Item("ImporteActual") = DT_CAPITAL_CONTABLE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DT_CAPITAL_CONTABLE.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + DT_CAPITAL_CONTABLE.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL CAPITAL CONTABLE" + Row.Item("ImporteActual") = 0.00 + Row.Item("ImporteAcumulado") = 0.00 + Row.Item("CtaMayor") = -1 + DT_CAPITAL_CONTABLE.Rows.Add(Row) + End If + + TotalActual = 0 + TotalAnterior = 0 + + DT_ACTIVO.Merge(DT_ACTIVO_CIRCULANTE) + DT_ACTIVO.Merge(DT_ACTIVO_FIJO) + DT_ACTIVO.Merge(DT_ACTIVO_DIFERIDO) + + DT_PASIVO.Merge(DT_PASIVO_CIRCULANTE) + DT_PASIVO.Merge(DT_PASIVO_NO_CIRCULANTE) + + + Row = DT_ACTIVO.NewRow + If DT_ACTIVO.Rows.Count > 0 Then + + For Each dr As DataRow In DT_ACTIVO.FiltraParametros("NOT CtaMayor in (-1,3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + IndexData = 11 + For IndexData = 11 To IndexTotatles + Row.Item(IndexData) = DT_ACTIVO.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") + Next + + Row.Item("Nombre") = "TOTAL ACTIVO" + Row.Item("ImporteActual") = DT_ACTIVO.SUM("ImporteActual", "NOT CtaMayor in (-1,3,4)") 'TotalActual.ToString + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DT_ACTIVO.SUM("ImporteActual", "NOT CtaMayor in (-1,3,4)") 'TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + DT_ACTIVO.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL ACTIVO" + Row.Item("ImporteActual") = 0.00 + Row.Item("ImporteAcumulado") = 0.00 + Row.Item("CtaMayor") = -1 + DT_ACTIVO.Rows.Add(Row) + End If + + TotalActual = 0 + TotalAnterior = 0 + + Row = DT_PASIVO.NewRow + If DT_PASIVO.Rows.Count > 0 Then + + For Each dr As DataRow In DT_PASIVO.FiltraParametros("NOT CtaMayor in (-1,3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDouble + TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble + Next + + IndexData = 11 + For IndexData = 11 To IndexTotatles + Row.Item(IndexData) = DT_PASIVO.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") + Next + + Row.Item("Nombre") = "TOTAL PASIVO" + Row.Item("ImporteActual") = DT_PASIVO.SUM("ImporteActual", "NOT CtaMayor in (-1,3,4)") 'TotalActual.ToString + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DT_PASIVO.SUM("ImporteActual", "NOT CtaMayor in (-1,3,4)") 'TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + DT_PASIVO.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL PASIVO" + Row.Item("ImporteActual") = 0.00 + Row.Item("ImporteAcumulado") = 0.00 + Row.Item("CtaMayor") = -1 + DT_PASIVO.Rows.Add(Row) + End If + + TotalActual = 0 + TotalAnterior = 0 + + + DT_TOTALES.Merge(DT_ACTIVO) + DT_TOTALES.Merge(DT_PASIVO) + DT_TOTALES.Merge(DT_CAPITAL_CONTABLE) + + If DT_TOTALES.Rows.Count > 0 Then + + Row = DT_TOTALES.NewRow + + + IndexData = 11 + For IndexData = 11 To IndexTotatles + Row.Item(IndexData) = DT_ACTIVO.SUM($"[{DT_ACTIVO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM($"[{DT_PASIVO.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM($"[{DT_CAPITAL_CONTABLE.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") + Next + + Row.Item("Nombre") = "TOTALES:" + + Row.Item("ImporteAcumulado") = DT_ACTIVO.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DT_PASIVO.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DT_CAPITAL_CONTABLE.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") + Row.Item("CtaMayor") = -2 - DTTotalesSubProyectoH.Rows.Add(Row) + DT_TOTALES.Rows.Add(Row) End If - DtIngresosSubProyectoH.Merge(DtGastosSubProyectoH) - DtIngresosSubProyectoH.Merge(DTTotalesSubProyectoH) + 'DtIngresosSubProyectoH.Merge(DtGastosSubProyectoH) + 'DtIngresosSubProyectoH.Merge(DTTotalesSubProyectoH) - GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH + GvIngresosSubProyectoH.DataSource = DT_TOTALES GvIngresosSubProyectoH.DataBind() - 'GvGastosSubProyectoH.DataSource = DtGastosSubProyectoH - 'GvGastosSubProyectoH.DataBind() - - 'GvTotalesSubProyectoH.DataSource = DTTotalesSubProyectoH - 'GvTotalesSubProyectoH.DataBind() - UpDatosSubProyectoH.Update() End Sub - Private Sub SumaTotalesSubProyectoH() - ''Llena Lb´s Totales - ''********************************************************************************* - 'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero - 'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero - 'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) - 'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black) - - - End Sub Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then - TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + + 'TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble + 'TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + e.Row.ControlStyle.Font.Bold = True ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales3" e.Row.ControlStyle.Font.Bold = True ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then @@ -1378,7 +2230,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero - 'Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero + If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then @@ -1390,15 +2242,15 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal For IndiceInicio = 1 To IndiceMax - Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField + Dim CveSubProyectoIntermo As String = CType(GvIngresosSubProyectoH.Columns(IndiceInicio), BoundField).DataField Dim Importe As String = e.Row.Cells(IndiceInicio).Text - e.Row.Cells(IndiceInicio).Text = $"{Importe}" + e.Row.Cells(IndiceInicio).Text = $"{Importe}" Next IndiceInicio - e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={-1}" + e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/1900&ER=1&CveSubProyecto={-1}" End If @@ -1412,24 +2264,17 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then - TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble - TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble - 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray - 'e.Row.ControlStyle.ForeColor = Drawing.Color.White + + 'TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble + 'TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble + e.Row.ControlStyle.Font.Bold = True ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then - 'e.Row.CssClass = "SubTotales" + e.Row.ControlStyle.Font.Bold = True End If - 'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - ' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString) - ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").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("ImporteAcumulado").ToString.ToDouble < 0 Then e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red @@ -1440,7 +2285,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal Protected Sub GvTotalesSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.Header Then - ' e.Row.Attributes.Add("style", "display:none") + End If If e.Row.RowType = DataControlRowType.DataRow Then @@ -1453,4 +2298,5 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal #End Region + End Class diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index 137f024d4..80ddf6def 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -85,11 +85,7 @@ - - - - - + diff --git a/Empresas/140/Formatos/Traslado.rdlc b/Empresas/140/Formatos/Traslado.rdlc index 9cfc9c2ca..a7dbec927 100644 --- a/Empresas/140/Formatos/Traslado.rdlc +++ b/Empresas/140/Formatos/Traslado.rdlc @@ -540,7 +540,7 @@ - =Sum(Fields!Cantidad.Value, "DsInventarios") + =Sum(iif(Not Fields!Clasificacion.Value = "USADOS",CInt(Fields!Cantidad.Value),0),"DsInventarios") - =Sum(iif(Fields!Clasificacion.Value = "USADOS",Fields!Cantidad.Value,0),"DsInventarios") + =Sum(iif(Fields!Clasificacion.Value = "USADOS",CInt(Fields!Cantidad.Value),0),"DsInventarios") - - true - true - - - - - =Parameters!SubProyecto.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -849,7 +816,7 @@ - Origen 2: + Origen: @@ -911,7 +878,7 @@ 0.00711cm 0.6cm 14.27979cm - 8 + 7 @@ -930,7 +897,7 @@ 0.1121cm 2.53711cm 4.08574cm - 9 + 8 diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index c16252ec5..ca6ada751 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -1546,7 +1546,7 @@ - FACTURA + =UCase(Parameters!TipoDocumento.Value) + + + + + + +
  • + Agregar Tarea +
    • +     + + + + + + +
    + + + + + + + + + + + + + + +
    Para
    jorge caudillo
    Con copia para
    Julian Moreno
    + + + + + + + +
    +
    +
    + + Registro de actividades +
    +
    + +
    +
    + +
    + + <%--
    +
    Vencimiento de Licencia:
    +
    +
    + + + + +
    + + + + +
    +
    Fecha de Nacimiento:
    +
    +
    + + + + +
    + + + + +
    +
    +
    + +
    + +
    --%> + +
    + <%----%> + +
    +     + + + + + + + + diff --git a/OI/RepTareas2.aspx.cs b/OI/RepTareas2.aspx.cs new file mode 100644 index 000000000..6662bf5e9 --- /dev/null +++ b/OI/RepTareas2.aspx.cs @@ -0,0 +1,22 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using Extensiones; + +public partial class OI_RepTareas2 : System.Web.UI.Page +{ + public const string iddivAgregar = "divModalAgregarEvento"; + protected void Page_Load(object sender, EventArgs e) + { + + } + + protected void LnkAddEvento_Click(object sender, EventArgs e) + { + + this.RegistraScript(string.Format("$('#{0}').modal()", iddivAgregar)); + } +} \ No newline at end of file