AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

311
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -367,7 +367,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs)
If TAB.ActiveTabIndex = 0 Then
LblVistaPorcentaje.Visible = False
DVVistaPorcentaje.Visible = False
If Tab.ActiveTabIndex = 0 Then
'LiSubProyectoDdl.Visible = True
'LiSubProyectoLbl.Visible = True
@@ -387,7 +390,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
DVTri.Visible = False
End If
If TAB.ActiveTabIndex = 1 Then
If Tab.ActiveTabIndex = 1 Then
'LiSubProyectoDdl.Visible = True
'LiSubProyectoLbl.Visible = True
@@ -409,12 +412,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
LblTri.Visible = True
DVTri.Visible = True
LblVistaPorcentaje.Visible = True
DVVistaPorcentaje.Visible = True
End If
If TAB.ActiveTabIndex = 2 Then
If Tab.ActiveTabIndex = 2 Then
ValidaEjercicios()
@@ -438,9 +442,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
DdlPeriodo.SelectedValueExist(12)
LblVistaPorcentaje.Visible = True
DVVistaPorcentaje.Visible = True
End If
If TAB.ActiveTabIndex = 3 Then
If Tab.ActiveTabIndex = 3 Then
'LiSubProyectoDdl.Visible = True
'LiSubProyectoLbl.Visible = True
@@ -462,6 +469,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
LiPeriodoLbl.Visible = True
DdlPeriodo.SelectedValueExist(12)
LblVistaPorcentaje.Visible = True
DVVistaPorcentaje.Visible = True
End If
UpFiltros.Update()
@@ -516,9 +526,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
If DdlEjercicio.Items.Count = 0 Then
DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString))
DdlEjercicio.Items.Add(New ListItem(NowADS().Year.ToString, NowADS().Year.ToString))
End If
DdlPeriodo.SelectedValue = Now.Month.ToString
DdlPeriodo.SelectedValue = NowADS().Month.ToString
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
@@ -526,17 +536,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
TotalAnteriorMes = 0
'Mes
If TAB.ActiveTabIndex = 0 Then
If Tab.ActiveTabIndex = 0 Then
CargaDatosMes()
End If
'MES HORIZONTAL
If TAB.ActiveTabIndex = 1 Then
If Tab.ActiveTabIndex = 1 Then
CargaDatosMesH()
End If
'AÑO HORIZONTAL
If TAB.ActiveTabIndex = 2 Then
If Tab.ActiveTabIndex = 2 Then
If DdlEjercicio.SelectedValue.ToEntero > DdlEjercicio2.SelectedValue.ToEntero Then
Alert("El ejercicio inicio no debe ser mayor al ejercicio fin.", TipoMensaje.MsgAdvertencia)
@@ -546,7 +556,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End If
'SUBPROYECTO
If TAB.ActiveTabIndex = 3 Then
If Tab.ActiveTabIndex = 3 Then
CargaDatosSubProyectoH()
End If
@@ -596,9 +606,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Next
Row.Item("Nombre") = "TOTAL INGRESOS "
Row.Item("ImporteActual") = TotalActual.ToString
Row.Item("ImporteActual") = TotalActual
Row.Item("PorcentajeActual") = "100.00"
Row.Item("ImporteAcumulado") = TotalAnterior.ToString
Row.Item("ImporteAcumulado") = TotalAnterior
Row.Item("PorcentajeAcumulado") = "100.00"
Row.Item("CtaMayor") = -1
DtIngresosMes.Rows.Add(Row)
@@ -773,7 +783,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad
If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, VistaPorcentaje:=DdlvistaPorcentaje.SelectedValue.ToEntero) Then
DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else
DtDatosMesH = Nothing
@@ -847,25 +857,27 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("Cua2") = Cua2
Row.Item("Cua3") = Cua3
Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / TotalAnterior, 0)
Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / TotalAnterior, 0)
Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / TotalAnterior, 0)
Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / TotalAnterior, 0)
Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / TotalAnterior, 0)
Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / TotalAnterior, 0)
Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / TotalAnterior, 0)
Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / TotalAnterior, 0)
Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Enero), 0)
Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Febrero), 0)
Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Marzo), 0)
Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Abril), 0)
Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Mayo), 0)
Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Junio), 0)
Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Julio), 0)
Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Agosto), 0)
Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Septiembre), 0)
Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Octubre), 0)
Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Noviembre), 0)
Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Diciembre), 0)
Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Tri1), 0)
Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Tri2), 0)
Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Tri3), 0)
Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Tri4), 0)
Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Cua1), 0)
Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Cua2), 0)
Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Cua3), 0)
Row.Item("Nombre") = "TOTAL INGRESOS"
@@ -918,6 +930,26 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim Cua2 As Decimal = (DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Cua3 As Decimal = (DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)")).ToDecimal
Dim Ingreso_Enero As Decimal = (DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Julio As Decimal = (DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Noviembre As Decimal = (DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Diciembre As Decimal = (DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Tri1 As Decimal = (DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Tri2 As Decimal = (DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Tri3 As Decimal = (DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Tri4 As Decimal = (DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Cua1 As Decimal = (DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Row.Item("Enero") = Enero
Row.Item("Febrero") = Febrero
Row.Item("Marzo") = Marzo
@@ -938,25 +970,27 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("Cua2") = Cua2
Row.Item("Cua3") = Cua3
Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / TotalAnterior, 0)
Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / TotalAnterior, 0)
Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / TotalAnterior, 0)
Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / TotalAnterior, 0)
Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / TotalAnterior, 0)
Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / TotalAnterior, 0)
Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / TotalAnterior, 0)
Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / TotalAnterior, 0)
Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / TotalAnterior, 0)
Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Enero), 0)
Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Febrero), 0)
Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Marzo), 0)
Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Abril), 0)
Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Mayo), 0)
Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Junio), 0)
Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Julio), 0)
Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Agosto), 0)
Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Septiembre), 0)
Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Octubre), 0)
Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Noviembre), 0)
Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Diciembre), 0)
Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Tri1), 0)
Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Tri2), 0)
Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Tri3), 0)
Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Tri4), 0)
Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Cua1), 0)
Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Cua2), 0)
Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Cua3), 0)
Row.Item("Nombre") = "TOTAL GASTOS"
@@ -999,6 +1033,26 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)")).ToDecimal
Dim Ingreso_Enero As Decimal = (DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Julio As Decimal = (DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Noviembre As Decimal = (DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Diciembre As Decimal = (DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Tri1 As Decimal = (DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Tri2 As Decimal = (DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Tri3 As Decimal = (DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Tri4 As Decimal = (DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Cua1 As Decimal = (DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Dim Ingreso_Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
Row.Item("Enero") = Enero
Row.Item("Febrero") = Febrero
Row.Item("Marzo") = Marzo
@@ -1022,28 +1076,28 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("Nombre") = "Resultados del Ejercicio:"
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("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Enero), 0)
Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Enero), 0)
Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Febrero), 0)
Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Marzo), 0)
Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Abril), 0)
Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Mayo), 0)
Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Junio), 0)
Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Julio), 0)
Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Agosto), 0)
Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Septiembre), 0)
Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Octubre), 0)
Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Noviembre), 0)
Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Diciembre), 0)
Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / ImporteAcumuladoTotal, 0)
Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Tri1), 0)
Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Tri2), 0)
Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Tri3), 0)
Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Tri4), 0)
Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Cua1), 0)
Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Cua2), 0)
Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Cua3), 0)
DTTotalesMesH.Rows.Add(Row)
@@ -1554,7 +1608,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad
If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero, Periodo:=DdlPeriodo.SelectedValue.ToEntero) Then
If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero, Periodo:=DdlPeriodo.SelectedValue.ToEntero, VistaPorcentaje:=DdlvistaPorcentaje.SelectedValue.ToEntero) Then
DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else
DtDatosAnualH = Nothing
@@ -1650,9 +1704,21 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
IndexData = 13
For IndexData = 13 To IndexMax
Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
If DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") > 0 Then
Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
Dim TotalAnioIngreso As Decimal = DtIngresosAnualH.FiltroPrimeroValor($"{DtIngresosAnualH.Columns(IndexData).ColumnName}").ToDecimal
Dim TotalCuentaIngreso As Decimal = DtIngresosAnualH.SUMD("ImporteAcumulado", "NOT CtaMayor in (3,4)")
Row.Item(IndexData) = TotalAnioIngreso
If TotalAnioIngreso <> 0 Then
If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then
Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = TotalAnioIngreso * 100 / TotalCuentaIngreso
Else
Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = TotalAnioIngreso * 100 / TotalAnioIngreso
End If
Else
Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = "0"
End If
@@ -1730,17 +1796,26 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
IndexData = 13
For IndexData = 13 To IndexMax
Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
If DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") > 0 Then
Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtGastosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
Dim TotalAnioIngreso As Decimal = DtIngresosAnualH.FiltroPrimeroValor($"{DtIngresosAnualH.Columns(IndexData).ColumnName}").ToDecimal
Dim TotalAnioGasto As Decimal = DtGastosAnualH.SUMD($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
Dim TotalCuentaGasto As Decimal = DtGastosAnualH.SUMD("ImporteAcumulado", "NOT CtaMayor in (3,4)")
Row.Item(IndexData) = TotalAnioGasto
If TotalAnioGasto <> 0 Then
If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then
Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = TotalAnioGasto * 100 / TotalCuentaGasto
Else
Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = TotalAnioGasto * 100 / TotalAnioIngreso
End If
Else
Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = "0"
End If
Next
Row.Item("Nombre") = "TOTAL GASTOS"
@@ -1766,11 +1841,24 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
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)")
If DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") > 0 Then
Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
Dim TotalAnioIngreso As Decimal = DtIngresosAnualH.SUMD($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
Dim TotalAnioGasto As Decimal = DtGastosAnualH.SUMD($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
Dim TotalCuentaGasto As Decimal = DtGastosAnualH.SUMD("ImporteAcumulado", "NOT CtaMayor in (3,4)")
Row.Item(IndexData) = TotalAnioIngreso - TotalAnioGasto
If (TotalAnioIngreso - TotalAnioGasto) <> 0 Then
If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then
' Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = (TotalAnioIngreso - TotalAnioGasto) * 100 / TotalCuentaGasto
Else
Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = (TotalAnioIngreso - TotalAnioGasto) * 100 / TotalAnioIngreso
End If
Else
Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = "0"
End If
@@ -1967,7 +2055,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim ObjConta As New ClsContabilidad
If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, VistaPorcentaje:=DdlvistaPorcentaje.SelectedValue.ToEntero) Then
DTSubProyectosCabecerasH = ObjConta.DSResultados.Tables(0)
DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
'se limpian los subproyectos con importe cero
@@ -2022,8 +2110,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Dim IndexSubProyectoMax As Integer = DTSubProyectosCabecerasH.Rows.Count - 1
If IndexSubProyectoMAx > GvIngresosSubProyectoH.Columns.Count - 2 Then
IndexSubProyectoMAx = GvIngresosSubProyectoH.Columns.Count - 2
If IndexSubProyectoMax > GvIngresosSubProyectoH.Columns.Count - 2 Then
IndexSubProyectoMax = GvIngresosSubProyectoH.Columns.Count - 2
End If
Dim IndexTotales As Integer = 13 + IndexSubProyectoMax
If IndexTotales > DtIngresosSubProyectoH.Columns.Count - 2 Then
@@ -2085,6 +2173,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True
End If
If dColumn.ColumnName = "SinSubProyecto" Then
GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = False
End If
End If
listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
End If
@@ -2127,7 +2220,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
If DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") <> 0 Then
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
Else
Dim TotalProyectoIngreso As Decimal = DtIngresosSubProyectoH.FiltroPrimeroValor($"{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}").ToDecimal
Dim TotalCuentaIngreso As Decimal = DtIngresosSubProyectoH.SUMD($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = TotalCuentaIngreso * 100 / TotalProyectoIngreso
End If
Else
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0"
End If
@@ -2157,6 +2258,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
DtIngresosSubProyectoH.Rows.Add(Row)
End If
DtIngresosSubProyectoH.Rows.Add(DtIngresosSubProyectoH.NewRow())
Dim T1 = TotalActual, T2 = TotalAnterior
@@ -2172,12 +2274,24 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
IndexData = 13
For IndexData = 13 To IndexTotales
If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
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)")
'Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
Dim TotalProyectoIngreso As Decimal = DtIngresosSubProyectoH.FiltroPrimeroValor($"{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}").ToDecimal
Dim TotalProyectoEgreso As Decimal = DtGastosSubProyectoH.FiltroPrimeroValor($"{DtGastosSubProyectoH.Columns(IndexData).ColumnName}").ToDecimal
Row.Item(IndexData) = TotalProyectoIngreso - TotalProyectoEgreso
'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)")
If TotalProyectoIngreso <> 0 Or TotalProyectoEgreso <> 0 Then
If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then
'Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
Else
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / TotalProyectoIngreso
End If
If DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)").ToDecimal <> 0 Then
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
Else
Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0"
End If
@@ -2222,6 +2336,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.FCHyperLink("Hypgrafica").Visible = If(e.Row.DBCampo("Nombre").ToString.Length > 0, True, False)
If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
@@ -2375,14 +2492,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Private Sub Imprimir(Optional reporte As String = "PDF")
If TAB.ActiveTabIndex = 0 AndAlso GvIngresosMes.Rows.Count > 0 Then
If Tab.ActiveTabIndex = 0 AndAlso GvIngresosMes.Rows.Count > 0 Then
ExportToExcelG(GvIngresosMes, GvGastosMes, TMesT1, "Reporte_Mensual", UsuarioActual, "Mensual")
ElseIf TAB.ActiveTabIndex = 1 AndAlso GvIngresosMesH.Rows.Count > 0 Then
ElseIf Tab.ActiveTabIndex = 1 AndAlso GvIngresosMesH.Rows.Count > 0 Then
ExportToExcelG(GvIngresosMesH, GvGastosMesH, TMesT1, "Reporte_Mensual_Horizontal", UsuarioActual, "Mensual Horizontal", Gv3:=GvTotalesMesH)
ElseIf TAB.ActiveTabIndex = 2 AndAlso GvIngresosAnualH.Rows.Count > 0 Then
ElseIf Tab.ActiveTabIndex = 2 AndAlso GvIngresosAnualH.Rows.Count > 0 Then
ExportToExcelG(GvIngresosAnualH, GvGastosAnualH, TMesT1, "Reporte_Anual_Horizontal", UsuarioActual, "Anual Horizontal", Gv3:=GvTotalesAnualH)
ElseIf TAB.ActiveTabIndex = 3 AndAlso GvIngresosSubProyectoH.Rows.Count > 0 Then
ElseIf Tab.ActiveTabIndex = 3 AndAlso GvIngresosSubProyectoH.Rows.Count > 0 Then
ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True)
@@ -2556,7 +2673,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre
worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")
worksheet.Rows(IndexEndTable + 1).Cells(2).Value = NowADS().ToString("dd/MM/yyyy")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))