diff --git a/AC/CatPresupuestoEgresos.aspx.vb b/AC/CatPresupuestoEgresos.aspx.vb index 8a12fe595..7f3ada4ab 100644 --- a/AC/CatPresupuestoEgresos.aspx.vb +++ b/AC/CatPresupuestoEgresos.aspx.vb @@ -100,10 +100,17 @@ Partial Class AC_CatPresupuestoEgresos Else 'si es anteproyecto - If DtPresupuestoEgresos.Rows(0)("Bloqueado").ToString = "0" Then - 'AndAlso Ejercicio >= UsuarioActual.Empresa.EjercicioActual - BtnPresupuesto.Visible = True - End If + Dim Bloqueado As Boolean = True + For Each dbRow As DataRow In DtPresupuestoEgresos.Rows + If dbRow("Bloqueado").ToString() = "0" Then Bloqueado = False + Next + + BtnPresupuesto.Visible = True + + 'If DtPresupuestoEgresos.Rows(0)("Bloqueado").ToString = "0" Then + ' 'AndAlso Ejercicio >= UsuarioActual.Empresa.EjercicioActual + ' BtnPresupuesto.Visible = True + 'End If ' If Ejercicio = UsuarioActual.Empresa.EjercicioActual Then End If diff --git a/AC/PresupuestoEgresos.aspx.vb b/AC/PresupuestoEgresos.aspx.vb index 32ed41325..7ccb57d04 100644 --- a/AC/PresupuestoEgresos.aspx.vb +++ b/AC/PresupuestoEgresos.aspx.vb @@ -202,7 +202,7 @@ Partial Class AC_PresupuestoEgresos2 'Valida Ejercicio If objAC.GetEjerciciosPresupuestoEgresos(UsuarioActual.CveEmpresa) AndAlso objAC.DtResultados.Rows.Count > -1 Then Dim DtEjercicios = objAC.DtResultados.FiltraParametros(String.Format("Ejercicio = {0}", DdlEjercicio.SelectedValue)) - If DtEjercicios.Rows.Count > 0 AndAlso DtEjercicios.Rows(0)("Bloqueado").ToString = "1" AndAlso txtTotal.Text.ToDecimal > 0 Then + If DtEjercicios.Rows.Count > 0 AndAlso DtEjercicios.Rows(0)("Bloqueado").ToString = "1" Then Alert("El Presupuesto de Egresos del ejercicio seleccionado ya esta bloqueado, solo puede generar Presupuestos en ceros.", TipoMensaje.MsgAdvertencia) objAC.Dispose() Exit Sub @@ -234,6 +234,10 @@ Partial Class AC_PresupuestoEgresos2 Dim CveUnidadAdministrativa As Integer = CboUnidadAdministrativa.SelectedValue.ToString.ToEntero Dim CveClasificacionOG As Integer = CboClasificacionOG.SelectedValue.ToString.ToEntero + 'If txtTotal.Text.ToDecimal > 0 Then + ' Alert("El Presupuesto de Egresos del ejercicio seleccionado se generaro proyecto. Después de este proceso se tendrá que autorizar el presupuesto de esta partida.", TipoMensaje.MsgAdvertencia) + 'Else + If CvePresupuestoEgresos = 0 Then If objAC.AddPresupuestoEgresos(DdlEjercicio.SelectedValue.ToEntero, CveProgramaOperativo, CveFuenteFinanciamiento, CveTipoGasto, CveUnidadAdministrativa, CveClasificacionOG, Total, Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then Alert("El Presupuesto de Egreso se guardo Correctamente como Anteproyecto", TipoMensaje.MsgInformacion) '"document.location.href=""/AC/CatPresupuestoEgresos.aspx""" diff --git a/AC/RegEgresosModificaciones.aspx b/AC/RegEgresosModificaciones.aspx index 92445fc60..67f0dab0e 100644 --- a/AC/RegEgresosModificaciones.aspx +++ b/AC/RegEgresosModificaciones.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegEgresosModificaciones.aspx.vb" Inherits="AC_RegPEAmpRed" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" EnableEventValidation="true" CodeFile="RegEgresosModificaciones.aspx.vb" Inherits="AC_RegPEAmpRed" %> @@ -235,7 +235,7 @@ - + + + +
+ + - + + + + + + + + +
+ +
+ + + + +
+
+

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/OI/Circular.aspx b/OI/Circular.aspx index 1007eefbe..d3954852f 100644 --- a/OI/Circular.aspx +++ b/OI/Circular.aspx @@ -68,7 +68,7 @@ - diff --git a/OI/CircularDetalle.aspx b/OI/CircularDetalle.aspx index 1d9bbdec7..35ae4bcda 100644 --- a/OI/CircularDetalle.aspx +++ b/OI/CircularDetalle.aspx @@ -89,6 +89,15 @@
+
+
+ Archivo cargado: +
+
+ +
+
+
diff --git a/OI/CircularDetalle.aspx.vb b/OI/CircularDetalle.aspx.vb index c231670a5..ab460d3e9 100644 --- a/OI/CircularDetalle.aspx.vb +++ b/OI/CircularDetalle.aspx.vb @@ -2,6 +2,7 @@ Imports System.Linq Imports Extensiones Imports System.IO +Imports System.Text.RegularExpressions Partial Class OI_CircularDetalle Inherits ClsPaginas @@ -59,6 +60,12 @@ Partial Class OI_CircularDetalle TxtCorreoAdicional.Value = Circular.Item("CorreosExternos") TxtCircular.Value = Circular.Item("Circular") + If Circular.Item("ArchivoAdjunto") <> "" Then + archivosDiv.Visible = True + HkArchivo.NavigateUrl = String.Format("{0}Empresas\{1}\Formatos\{2}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, Circular.Item("ArchivoAdjunto")) + HkArchivo.Text = Circular.Item("ArchivoAdjunto") + End If + UpCliente.Update() End If ObjOI.Dispose() @@ -76,17 +83,25 @@ Partial Class OI_CircularDetalle Private Sub BtnGuardar_Click() Handles BtnGuardar.Click Dim ObjOI As New ClsOIEventos If CveCircular > 0 Then - If ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, TxtCorreoAdicional.Value, UsuarioActual.CveUsuario) Then + + Dim AdjuntoValidate As String = NombreArchivo().Split("-")(1) + + If ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, TxtCorreoAdicional.Value, AdjuntoValidate) Then + GuardarArchivo(CveCircular) Alert("Actualizado correctamente") End If Else Dim CorreoExtra As String = If(TxtCorreoAdicional.Value = "", "-1", TxtCorreoAdicional.Value) - Dim CircularInsertado As Integer = ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CorreoExtra) + + Dim AdjuntoValidate As String = NombreArchivo().Split("-")(1) + Dim CircularInsertado As Integer = ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario, + UsuarioActual.CveEmpresa, CorreoExtra, AdjuntoValidate) If CircularInsertado > 0 Then GuardarArchivo(CircularInsertado) Alert("Ingresado correctamente") End If End If + CargaDatos() End Sub Private Sub BtnEliminar_Click() Handles BtnEliminar.Click @@ -133,10 +148,35 @@ Partial Class OI_CircularDetalle UpCliente.Update() End Sub + Private Function NombreArchivo() As String + Dim Filesgral As List(Of Archivo) = TxtFileDocumentacion.getfiles().Archivos + Dim Filename As String = "-1" + For Each fileItem As Archivo In Filesgral + Try + Filename = fileItem.filename + Catch ex As Exception + Filename = "-1" + End Try + Next + Return Filename + End Function + + Private Function TituloAnterior() As String + Dim Directorio As New IO.DirectoryInfo(String.Format("{0}Empresas/{1}/Formatos/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) + Dim ArchivosArreglo As IO.FileInfo() = Directorio.GetFiles() + Dim patronRegEx As String = String.Format("^{0}_.*", CveCircular) + Dim archivoEncontrado As String = "" + For Each file As IO.FileInfo In ArchivosArreglo + If Regex.IsMatch(file.Name, patronRegEx) Then + archivoEncontrado = file.Name + End If + Next + Return archivoEncontrado + End Function + Private Function GuardarArchivo(CircularInsertado As Integer) As String Dim respuesta As String = "" - Dim FileExtension As String = "-1" Dim Filesgral As List(Of Archivo) = TxtFileDocumentacion.getfiles().Archivos Dim Filename As String = "" @@ -149,13 +189,15 @@ Partial Class OI_CircularDetalle tempArray = fileItem.filename.ToString().Split("-".ToCharArray()) Dim rutaDestino As String = UsuarioActual.Empresa.Ruta & "Formatos\" & CircularInsertado & "_" & fileItem.filenameO - 'Dim docAnterior As String = UsuarioActual.Empresa.Ruta & "Formatos\" & _CveDocumentacion & "_" & DocumentacionFormato - 'If DocumentacionFormato.Trim.Length > 0 Then - ' If File.Exists(docAnterior) Then - ' File.Delete(docAnterior) - ' End If - 'End If + Dim ArchivoAnterior As String = TituloAnterior() + + If ArchivoAnterior.Length > 0 Then + Dim docAnterior As String = String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, ArchivoAnterior) + If File.Exists(docAnterior) Then + File.Delete(docAnterior) + End If + End If If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "\Formatos") Then Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "\Formatos") diff --git a/PortalCliente/PortalCliente.aspx.vb b/PortalCliente/PortalCliente.aspx.vb index ca1eda77e..dbe6c9e10 100644 --- a/PortalCliente/PortalCliente.aspx.vb +++ b/PortalCliente/PortalCliente.aspx.vb @@ -543,7 +543,7 @@ Partial Class Ventas_PortalCliente #Region " PAGO PROSEPAGO " Private Sub InicializaProsepago() - If Not UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12) Then + If Not UsuarioActual.CveEmpresa.Contiene(1, 4, 7, 11, 12, 145) Then GvCxC.Columns(10).Visible = False LBPagar.Visible = False End If @@ -632,7 +632,7 @@ Partial Class Ventas_PortalCliente Dim uriString = "" Select Case UsuarioActual.CveEmpresa - Case 1, 4, 7, 11, 12 + Case 1, 4, 7, 11, 12, 145 uriString = "https://www.prosepago.com/tvirtual/tvds.aspx?ppost=1&t=123" ' VSH SEGURIDAD Case Else Alert("Sin terminal de pago configurada. Por favor comuniquese con su proveedor para verificar.", TipoMensaje.MsgAdvertencia) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 6b0fdf693..b17c251cb 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -28,8 +28,8 @@ - <%--
  • - PDF + <%--
  • + PDF
    • --%>
  • PDF @@ -376,11 +376,11 @@
    • - <%--
    - - - - + <%--
    + + + +
    --%>
    @@ -548,11 +548,11 @@ - <%--
    - - - - + <%--
    + + + +
    --%>
    @@ -797,10 +797,10 @@ CssClass="table table-hover table-advance Widthall" GridLines="None"> - <%-- - - > - + <%-- + + > + --%> @@ -813,10 +813,10 @@ - <%-- - - > - + <%-- + + > + --%> @@ -840,7 +840,7 @@
    - Cuentas Bancarias + Cuentas Bancarias
    @@ -852,61 +852,61 @@
    @@ -924,8 +924,8 @@ - - + + - @@ -1138,7 +1138,7 @@
    - Pagos Realizados + Pagos Realizados
    @@ -1166,28 +1166,28 @@ Cheque -   +   Monto Compra (Saldo Orig) -   +   Abonado -   +   % Pagado -   +   @@ -1538,7 +1538,7 @@
    - Registro de Nómina + Registro de Nómina
    @@ -1661,8 +1661,8 @@ <%--
    --%> @@ -2070,8 +2070,8 @@
    - - Solicitar Vacaciones + + Solicitar Vacaciones
    @@ -2221,7 +2221,7 @@
    - <%--Motivo + <%--Motivo --%> @@ -2415,9 +2415,9 @@ - <%-- - - + <%-- + + --%> @@ -2557,7 +2557,7 @@
    - Banco + Banco - # Suc + # Suc - Num Cuenta + Num Cuenta - CLABE + CLABE - SWIFT + SWIFT - Plaza + Plaza - CIE + CIE - Referencia + Referencia - Credi Prov + Credi Prov - Moneda + Moneda
    @@ -952,7 +952,7 @@ - <%----%> + <%----%> @@ -974,12 +974,12 @@ - <%----%> + <%----%> - <%----%> + <%----%>      +     
    - - + + @@ -1677,28 +1677,28 @@ - - + + - - + + - - + + - - + + - - + + - - + + Comandos
    - @@ -3501,7 +3501,7 @@ @@ -3565,9 +3565,9 @@
    - <%--
    - - Agregar + <%--
    + + Agregar
    --%>
    @@ -3688,8 +3688,8 @@
    - <%--
    - + <%--
    +
    --%> @@ -3788,12 +3788,12 @@
    - Periodo + Periodo
    - - + -
    @@ -3833,8 +3833,8 @@
    - <%--
    - + <%--
    +
    --%> @@ -3852,46 +3852,46 @@
    <%-- FIN MODAL SUBIR FACTURAS --%> - <%-- - -
    Saldo: $ + Saldo: $
    @@ -2585,7 +2585,7 @@ Cargo -   +   @@ -2593,7 +2593,7 @@ Abono -   +   @@ -2632,28 +2632,28 @@ Cheque -   +   Monto Compra (Saldo Orig) -   +   Abonado -   +   % Pagado -   +   @@ -2694,14 +2694,14 @@ Cargo -   +   Abono -   +   @@ -2806,35 +2806,35 @@ Importe(Saldo Orig) -   +   Comprobado -   +   % Comprobado -   +   Saldo -   +   % A Pagar -   +   @@ -2890,7 +2890,7 @@ - Factura + Factura @@ -2900,7 +2900,7 @@ - Producto + Producto @@ -2910,7 +2910,7 @@ - Unidad de medida + Unidad de medida @@ -2920,7 +2920,7 @@ - Cantidad + Cantidad @@ -2930,7 +2930,7 @@ - PU + PU @@ -2940,7 +2940,7 @@ - Total + Total @@ -3057,11 +3057,11 @@ - <%-- - - - + <%-- + + + --%> @@ -3378,7 +3378,7 @@ @@ -3464,8 +3464,8 @@ - <%-- - + <%-- + --%>
    Con copia para:
    - (Separar con: ;) + (Separar con: ;)
    - - - - - - - - - - - - - -
    Bitácora  -
    - - - - - - - -
    Bitácora/Observaciones
    - -
    -
    - - - - - - -
    - - -     + <%-- + + + --%> @@ -4447,54 +4447,54 @@ - - diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 6228b0e4d..4a1480b55 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -4961,6 +4961,11 @@ Partial Class RH_Personal FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") filemove = fileItem.filename + Dim yaExistente As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.jpg", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, CvePersonal) + If File.Exists(yaExistente) Then + File.Delete(yaExistente) + End If + If filemove <> "" Then filemove.FilesMove(CvePersonal.ToString, String.Format("Empresas\{0}\RH\Personal\", UsuarioActual.CveEmpresa)) End If diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index b495f0e2e..d9d67b00f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -11209,8 +11209,8 @@ Partial Class Ventas End If End If - - + Else + OcurrioError = True End If factura.Inv_CveMovimiento = CveMovimientoInventario factura.Inv_ValorInventario = ValorInventario @@ -11249,11 +11249,11 @@ Partial Class Ventas If factura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then 'Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL() - Dim IDPoliza As Integer = GenerarPolizaAC(ObjAC, factura) + Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, factura) - If IDPoliza > 0 Then + If IDPoliza.IdPoliza > 0 Then - If ObjVentas.UpdateVentaPrePoliza(IDPoliza, factura.CvePrePoliza, factura.CveVenta, factura.CveEmpresa) Then + If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, factura.CvePrePoliza, factura.CveVenta, factura.CveEmpresa) Then 'Si se facturó la cotización hay que vincular la venta Msgok.AppendFormat("Abono Registrado Correctamente.

    Ver Poliza", IDPoliza) @@ -15078,8 +15078,8 @@ Partial Class Ventas End If ObjVentas.Dispose() End Sub - Private Function GenerarPolizaAC(ObjAC As ClsContPAQi, factura As Modelos.Factura, Optional CancelacionIngreso As Boolean = False) As Integer - Dim Retorno As Integer = 0 + Private Function GenerarPolizaAC(ObjAC As ClsContPAQi, factura As Modelos.Factura, Optional CancelacionIngreso As Boolean = False) As RetornoPolizaConta + Dim Retorno As New Modelos.RetornoPolizaConta Dim IDPoliza As Integer = 0 Dim ErrorAC As Boolean = False @@ -15106,7 +15106,8 @@ Partial Class Ventas ' Dim NombreCliente As String = ViewState("NombreCliente").ToString If IDPoliza > 0 Then - + Retorno.IdPoliza = IDPoliza + Retorno.FolioPoliza = ObjAC.Folio 'Orden de PAGO If factura.TipoDocto = "OP" Then @@ -15186,7 +15187,7 @@ Partial Class Ventas If Not ErrorAC Then ObjAC.AjustaPoliza(IDPoliza) - Retorno = IDPoliza + ' Retorno = IDPoliza Else Alert("Error al agregar la Póliza de AC.", TipoMensaje.MsgError) @@ -15197,6 +15198,8 @@ Partial Class Ventas Return Retorno End Function + + Private Function GenerarPolizaAC(ObjAC As ClsContPAQi, Optional CancelacionIngreso As Boolean = False) As Integer Dim Retorno As Integer = 0 Dim IDPoliza As Integer = 0 diff --git a/vwd.webinfo b/vwd.webinfo index 6b76e11e1..c9e193dc4 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -50,8 +50,6 @@ - -