@@ -81,6 +83,8 @@
+ <%-- --%>
+
@@ -94,8 +98,8 @@
Cuenta
-
@@ -105,20 +109,21 @@
-
Subcuenta de
-
+
Tipo de Cuenta
-
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -220,36 +289,20 @@
});
});
- function ValidaGuardar(SubCuentaAnterior) {
- $('.popover').remove();
- $("#C_Guardar").removeAttr("aria-describedby");
-
-
-
- if ($get('HdnSubCuentaDe').value != $get('Tsubcuenta').value) {
-
- setTimeout(
- function () {
- ;
- var Text = '';
-
- debugger;
- if ($("#Tsubcuenta").length) {
- Text += 'La cuenta sera reasignada a la cuenta padre: ' + $get('Tsubcuenta').value + ' con sus respectivos saldos Cuenta Mayor
-
+
Agrupador SAT
-
+
Moneda
-
+
-
Nombre en inglés
+ Nombre en ingles
-
+
+ Concepto
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ +
'; - } - - $('.popover-title').html(Text); - }, 10); - } - else { - - $('.popover-title').html('¿Esta seguro de guardar?'); - } - - - - + function Afectable(btn) { + debugger; + $('#C_nuevacuenta').attr('data-toggle', 'confirmation'); + $('#C_nuevacuenta').attr('data-popout', 'true'); + $('#C_nuevacuenta').attr('data-original-title', 'Verifique los datos para continuar.
@@ -83,8 +81,6 @@
- <%-- --%>
-
@@ -98,8 +94,8 @@
Cuenta
-
@@ -109,21 +105,20 @@
+
Subcuenta de
-
-
+
Tipo de Cuenta
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
@@ -289,20 +220,36 @@
});
});
- function Afectable(btn) {
- debugger;
- $('#C_nuevacuenta').attr('data-toggle', 'confirmation');
- $('#C_nuevacuenta').attr('data-popout', 'true');
- $('#C_nuevacuenta').attr('data-original-title', 'Verifique los datos para continuar. Cuenta Mayor
-
+
Agrupador SAT
-
+
Moneda
-
+
-
Nombre en ingles
+ Nombre en inglés
-
-
- Concepto
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
'; + } + + $('.popover-title').html(Text); + }, 10); + } + else { + + $('.popover-title').html('¿Esta seguro de guardar?'); + } + + + + } - function NoAfectable() { - debugger; - $('#C_nuevacuenta').attr('data-toggle', ''); - $('#C_nuevacuenta').attr('data-popout', ''); - $('#C_nuevacuenta').attr('data-original-title', ''); - $('#C_nuevacuenta').attr('data-btn-ok-label', ''); - } diff --git a/Contabilidad/CatCuentasCI.aspx.vb b/Contabilidad/CatCuentasCI.aspx.vb new file mode 100644 index 000000000..88afccfee --- /dev/null +++ b/Contabilidad/CatCuentasCI.aspx.vb @@ -0,0 +1,318 @@ +Imports System.Data +Imports Extensiones +Imports Microsoft.Reporting.WebForms +Partial Class Contabilidad_CatCuentas + Inherits ClsPaginas + +#Region "Propiedades" + + Private Property DtDatos As DataTable + Get + Return CType(ViewState("DtDatos"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtDatos") = value + End Set + End Property + Private Property IDSelected As Integer + Get + Return ViewState("idsel").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("idsel") = value + End Set + End Property + +#End Region + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + + If UsuarioActual.Empresa.TipoContabilizacion = 1 Then + Response.Redirect("/Contabilidad/CatCuentas.aspx") + Exit Sub + End If + + If UsuarioActual.Empresa.UsaContabilidad Then + CargaMonedas() + CargaAgrupadorSAT() + CargaDatos() + Else + Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia) + MEECuenta.Enabled = False + LnkPdf.Visible = False + End If + + End If + End Sub + + Private Sub CargaMonedas() + Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + + If ObjConta.GetMonedas() Then + DdlMoneda.DataSource = ObjConta.DtResultados + End If + ObjConta.Dispose() + DdlMoneda.DataBind() + End Sub + Private Sub CargaAgrupadorSAT() + Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + + If ObjConta.GetAgrupadoresSAT() Then + DdlAgrupadorSAT.DataSource = ObjConta.DtResultados + End If + + ObjConta.Dispose() + DdlAgrupadorSAT.DataBind() + DdlAgrupadorSAT.Items.Insert(0, New ListItem("Seleccione", "-1")) + End Sub + Private Sub CargaDatos() + Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + + If ObjConta.GetCuentas(-1, "-1", -1) Then + DtDatos = ObjConta.DtResultados + End If + 'para obtener la mascara, tomo el primer dato y reemplazo los numeros por cero + Dim Mascara As String = "####-####-###" + If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 AndAlso DtDatos.FiltraParametros("CtaInicial>0").Rows.Count > 0 Then + Mascara = DtDatos.FiltraParametros("CtaInicial>0").Rows(0)("CuentaFormato").ToString.Replace("1", "0").Replace("2", "0").Replace("3", "0").Replace("4", "0").Replace("5", "0").Replace("6", "0").Replace("7", "0").Replace("8", "0").Replace("9", "0") + End If + + MEECuenta.Mask = Mascara.Replace("0", "9") + MEECuenta.AutoComplete = True + MEECuenta.AutoCompleteValue = Mascara + + ArbolCuentas.DataSource = DtDatos + ArbolCuentas.nivel = "CtaInicial" + ArbolCuentas.nodoid = "id" + ArbolCuentas.padre = "IdPadre" + ArbolCuentas.titulo = "CtaCodigo" + updatos.Update() + ObjConta.Dispose() + End Sub + + 'Private Function getNodosHijos(nodo As Integer) As DataTable + ' Return DtDatos.FiltraParametros(String.Format("IdPadre = {0}", nodo)) + 'End Function + Private Function getNodospadreHijos(nodo As Integer) As DataTable + Return DtDatos.FiltraParametros(String.Format("Id = {0}", nodo)) + End Function + Protected Sub agregar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.addclick + LimpiarCampos() + Dim dt As New DataTable + 'IDSelected = HdnID.Value.ToEntero() "ul" + itempadre.Cve; + Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem) + IDSelected = obj.Cve + 'obj.FindControl(String.Format("ul{0}", obj.Cve)) + 'obj.Controls.Add(New TextBox()) + dt = getNodospadreHijos(IDSelected) + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Dim dr As DataRow = dt.Rows(0) + Tsubcuenta.Text = dr("CuentaFormato").ToString() + DTcuenta.SelectedValue = dr("Tipo").ToString() + DcuentaMayor.SelectedValue = dr("CtaMayor").ToString + LblSubCuenta.Text = dr("Nombre").ToString + End If + + Tcuenta.Enabled = True + nuevacuenta.Visible = True + updatos.Visible = True + updatos.Update() + + End Sub + Protected Sub editar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.editclick + LimpiarCampos() + Dim dt As DataTable + Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem) + IDSelected = obj.Cve + dt = getNodospadreHijos(IDSelected) + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Dim dr As DataRow = dt.Rows(0) + Tcuenta.Text = dr("CuentaFormato").ToString.Replace("-", "") + Tnombre.Text = dr("Nombre").ToString() + DTcuenta.SelectedValue = dr("Tipo").ToString() + DcuentaMayor.SelectedValue = dr("CtaMayor").ToString + DdlMoneda.SelectedValueExist(dr("IdMoneda").ToString) + + If dr("IdAgrupadorSAT").ToString.ToEntero = 0 Then + DdlAgrupadorSAT.SelectedValue = "-1" + Else + DdlAgrupadorSAT.SelectedValue = dr("IdAgrupadorSAT").ToString + End If + + + TxtDigAgrup.Text = dr("DigAgrup").ToString + TxtNomIngles.Text = dr("NomIdioma").ToString + + Dim Hijos As Integer = DtDatos.FiltraParametros(String.Format("IdPadre = {0}", IDSelected)).Rows.Count + + If Hijos = 0 Then BtnEliminar.Visible = True + + dt = getNodospadreHijos(dr("IdPadre").ToString.ToEntero) + If dt.Rows.Count > 0 Then + Dim drt As DataRow = dt.Rows(0) + Tsubcuenta.Text = drt("Codigo").ToString + LblSubCuenta.Text = drt("Nombre").ToString + HdnSubCuentaDe.Value = drt("Codigo").ToString + + Guardar.OnClientClick = $"ValidaGuardar('{drt("Codigo").ToString}');" + Guardar.Attributes.Add("data-toggle", "confirmation") + Guardar.Attributes.Add("data-popout", "true") + Guardar.Attributes.Add("data-original-title", "confirmar") + Guardar.Attributes.Add("data-btn-ok-label", "Guardar") + Guardar.Attributes.Add("data-html", "true") + End If + + End If + + + Guardar.Visible = True + updatos.Visible = True + updatos.Update() + + End Sub + Protected Sub Guardar_Click(sender As Object, e As EventArgs) Handles Guardar.Click + + If Tnombre.Text.Trim = "" Then Alert("Ingrese nombre de la cuenta", TipoMensaje.MsgError) : Exit Sub + + Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + + If ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then + + End If + ObjConta.Dispose() + + + Dim customerRow As Data.DataRow + customerRow = DtDatos.Select(String.Format("Id = {0}", IDSelected))(0) + customerRow("Nombre") = Tnombre.Text + DtDatos.AcceptChanges() + + CargaDatos() + ArbolCuentas.DataSource = DtDatos + ArbolCuentas.DataBind() + + Dim item As CheckBox = DirectCast(ArbolCuentas.FindControl(String.Format("chk{0}", IDSelected)), CheckBox) + item.Text = String.Format("{0} - {1}", customerRow("CuentaFormato").ToString, Tnombre.Text) + 'updatos.Visible = False + 'Guardar.Visible = False + LimpiarCampos() + updatos.Update() + + Alert("La cuenta se guardo correctamente") + + End Sub + Protected Sub nuevacuenta_Click(sender As Object, e As EventArgs) Handles nuevacuenta.Click + + If Tnombre.Text.Trim = "" Then Alert("Ingrese nombre de la cuenta", TipoMensaje.MsgError) : Exit Sub + + If Tcuenta.Text.Trim = "" Then Alert("Ingrese la cuenta", TipoMensaje.MsgError) : Exit Sub + + + Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + Dim CuentaEfectivo As Integer = 0 + + + ' [IPP] VIEJO | COMENTADO 9/MARZO/2018 + 'Dim Afectable As Integer = If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable + Dim Afectable = 1 + + Dim idnew = ObjConta.AddCuenta(Tcuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, CuentaEfectivo, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, TxtNomIngles.Text.Trim, Afectable, IDSelected.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero) + If idnew > 0 Then + + Dim dr As DataRow = DtDatos.NewRow + dr("id") = idnew + dr("CuentaFormato") = Tcuenta.Text + dr("Nombre") = Tnombre.Text + dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text) + dr("Tipo") = DTcuenta.SelectedValue.ToString + dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString + dr("IdPadre") = IDSelected + dr("Codigo") = Tnombre.Text + dr("IdMoneda") = DdlMoneda.SelectedValue.ToEntero + dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero + dr("NomIdioma") = TxtNomIngles.Text.Trim + DtDatos.Rows.Add(dr) + ArbolCuentas.DataSource = DtDatos + '.Attributes.Add("data-hijos","0"); + Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem) + item.Attributes.Item("data-hijos") = (item.Attributes.Item("data-hijos").ToEntero + 1).ToString + Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL) + If (IsNothing(objul)) Then + objul = New ADServerControl.DragableUL + objul.ID = String.Format("ul{0}", item.Cve) + item.Controls.Add(objul) + End If + ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)) + + 'updatos.Visible = False + 'nuevacuenta.Visible = False + LimpiarCampos() + updatos.Update() + CargaDatos() + Alert("La cuenta se guardo correctamente") + End If + + ObjConta.Dispose() + End Sub + Private Sub LimpiarCampos() + Tcuenta.Text = "" + Tnombre.Text = "" + DTcuenta.SelectedValue = "-1" + DcuentaMayor.SelectedValue = "-1" + DdlAgrupadorSAT.SelectedValue = "-1" + Tsubcuenta.Text = "" + Guardar.Visible = False + nuevacuenta.Visible = False + Tcuenta.Enabled = False + BtnEliminar.Visible = False + End Sub + Protected Sub borrar_Click(sender As Object, e As EventArgs) Handles borrar.Click + + End Sub + Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click + Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + ObjConta.IniciaTransacSQL() + + If ObjConta.RemoveCuenta(IDSelected.ToEntero) Then + ObjConta.Commit() + + Dim customerRow As Data.DataRow + customerRow = DtDatos.Select(String.Format("Id = {0}", IDSelected))(0) + customerRow("IdPadre") = "-5" + DtDatos.AcceptChanges() + + ArbolCuentas.DataSource = DtDatos + Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem) + Dim padre As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", item.CvePadre)), ADServerControl.DragableItem) + padre.Attributes.Item("data-hijos") = (padre.Attributes.Item("data-hijos").ToEntero - 1).ToString + ArbolCuentas.Controls.Remove(item) + RegistraScript(String.Format("$('#{0}').click();", editar.ClientID)) + + 'getNodospadreHijos(IDSelected).Rows(0).Delete() + 'RegistraScript(String.Format("$('li#{0}').remove();", IDSelected)) + LimpiarCampos() + upcuentas.Update() + Alert("La Cuenta ha sido eliminada", TipoMensaje.MsgInformacion) + Else + Alert("La Cuenta no pudo ser eliminada", TipoMensaje.MsgError) + ObjConta.RollBack() + End If + + ObjConta.Dispose() + + End Sub + Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + + + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString)) + + params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + + ImprimirPDF("Empresas/Grales/Formatos/CatCuentas.rdlc", DtDatos.FiltraParametros("", "Orden ASC"), params, String.Format("Catalogo Cuentas-{0}", NowADS().ToDateTime.ToShortDateString)) + End Sub +End Class \ No newline at end of file diff --git a/Contabilidad/LibroDiario.aspx b/Contabilidad/LibroDiarioCI.aspx similarity index 98% rename from Contabilidad/LibroDiario.aspx rename to Contabilidad/LibroDiarioCI.aspx index 1c7f57634..a2fd860ec 100644 --- a/Contabilidad/LibroDiario.aspx +++ b/Contabilidad/LibroDiarioCI.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="LibroDiario.aspx.vb" Inherits="Contabilidad_LibroDiario" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="LibroDiarioCI.aspx.vb" Inherits="Contabilidad_LibroDiario" %>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+ }, ["serial"]);
+ }
+
+
-
-
-
+
+
+
+
diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb b/Contabilidad/RepAnexoCatalogoAnual.aspx.vb
similarity index 98%
rename from Contabilidad2/RepAnexoCatalogoAnual.aspx.vb
rename to Contabilidad/RepAnexoCatalogoAnual.aspx.vb
index 217b3c9d7..626fd82a0 100644
--- a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb
+++ b/Contabilidad/RepAnexoCatalogoAnual.aspx.vb
@@ -22,9 +22,9 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
Set(value As Integer)
ViewState("EsVertical") = value
End Set
- End Property
-
-
+ End Property
+
+
Private Property listacolores As List(Of String)
Get
Return DirectCast(ViewState("listacolores"), List(Of String))
@@ -32,7 +32,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
Set(value As List(Of String))
ViewState("listacolores") = value
End Set
- End Property
+ End Property
Private Property listaCamposanios As List(Of String())
Get
Return DirectCast(ViewState("listaCamposanios"), List(Of String()))
@@ -40,93 +40,93 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
Set(value As List(Of String()))
ViewState("listaCamposanios") = value
End Set
- End Property
-
-
+ End Property
+
+
Public Property DtHeadersCount As Integer
Get
- If ViewState("DtHeadersCount") Is Nothing Then
- Return -1
- Else
- Return ViewState("DtHeadersCount").ToString.ToEntero
- End If
-
-
+ If ViewState("DtHeadersCount") Is Nothing Then
+ Return -1
+ Else
+ Return ViewState("DtHeadersCount").ToString.ToEntero
+ End If
+
+
End Get
Set(value As Integer)
ViewState("DtHeadersCount") = value
End Set
- End Property
-
-
-
-
- Private Property DTHeaders As DataTable
-
- Get
-
- If ViewState("DTHeaders") Is Nothing Then
- Return New DataTable
- Else
- Return DirectCast(ViewState("DTHeaders"), DataTable)
- End If
-
-
- End Get
- Set(value As DataTable)
- ViewState("DTHeaders") = value
- End Set
-
- End Property
-
-
- Private Property DTDatos As DataTable
-
- Get
-
- If ViewState("DTDatos") Is Nothing Then
- Return New DataTable
- Else
- Return DirectCast(ViewState("DTDatos"), DataTable)
- End If
-
-
- End Get
- Set(value As DataTable)
- ViewState("DTDatos") = value
- End Set
-
- End Property
-
-
+ End Property
+
+
+
+
+ Private Property DTHeaders As DataTable
+
+ Get
+
+ If ViewState("DTHeaders") Is Nothing Then
+ Return New DataTable
+ Else
+ Return DirectCast(ViewState("DTHeaders"), DataTable)
+ End If
+
+
+ End Get
+ Set(value As DataTable)
+ ViewState("DTHeaders") = value
+ End Set
+
+ End Property
+
+
+ Private Property DTDatos As DataTable
+
+ Get
+
+ If ViewState("DTDatos") Is Nothing Then
+ Return New DataTable
+ Else
+ Return DirectCast(ViewState("DTDatos"), DataTable)
+ End If
+
+
+ End Get
+ Set(value As DataTable)
+ ViewState("DTDatos") = value
+ End Set
+
+ End Property
+
+
#End Region
-
+
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- If Not IsPostBack Then
-
- listacolores = New List(Of String)
- listaCamposanios = New List(Of String())
- listacolores.Add("#FF0F00")
- listacolores.Add("#FF6600")
- listacolores.Add("#F8FF01")
- listacolores.Add("#04D215")
- listacolores.Add("#2A0CD0")
- listacolores.Add("#8A0CCF")
- listacolores.Add("#CD0D74")
- listacolores.Add("#754DEB")
- listacolores.Add("#DDDDDD")
- listacolores.Add("#999999")
- listacolores.Add("#000000")
+ If Not IsPostBack Then
+
+ listacolores = New List(Of String)
+ listaCamposanios = New List(Of String())
listacolores.Add("#FF0F00")
- Dim EjercicioParametro, EjercicioParametroFinal, SubProyectoParametro, DivisorParametro, Periodo As Integer
-
+ listacolores.Add("#FF6600")
+ listacolores.Add("#F8FF01")
+ listacolores.Add("#04D215")
+ listacolores.Add("#2A0CD0")
+ listacolores.Add("#8A0CCF")
+ listacolores.Add("#CD0D74")
+ listacolores.Add("#754DEB")
+ listacolores.Add("#DDDDDD")
+ listacolores.Add("#999999")
+ listacolores.Add("#000000")
+ listacolores.Add("#FF0F00")
+ Dim EjercicioParametro, EjercicioParametroFinal, SubProyectoParametro, DivisorParametro, Periodo As Integer
+
CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero
- EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
-
+ EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
+
EjercicioParametroFinal = IfNull(Request("EjercicioFinal"), "-1").ToString.ToEntero
SubProyectoParametro = IfNull(Request("CveSubproyecto"), "-1").ToString.ToEntero
- DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
- Periodo = IfNull(Request("Periodo"), "-1").ToString.ToEntero
+ DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
+ Periodo = IfNull(Request("Periodo"), "-1").ToString.ToEntero
EsVertical = IfNull(Request("V"), "-1").ToString.ToEntero
InicializaValores()
@@ -137,11 +137,11 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString)
DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
- DdlPeriodo.SelectedValueExist(Periodo)
-
- If CveCuenta > 0 Then
- DdlCuentas.SelectedValueExist(CveCuenta)
- CargaDatos()
+ DdlPeriodo.SelectedValueExist(Periodo)
+
+ If CveCuenta > 0 Then
+ DdlCuentas.SelectedValueExist(CveCuenta)
+ CargaDatos()
End If
End If
@@ -161,14 +161,14 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
Else
DdlEjercicio.DataSource = Nothing
DdlEjercicio2.DataSource = Nothing
- End If
-
- Dim strGlobal As String = ""
-
- If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
- Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
- If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
- DdlCuentas.DataSource = Conta.DtResultados
+ End If
+
+ Dim strGlobal As String = ""
+
+ If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+ Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+ If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+ DdlCuentas.DataSource = Conta.DtResultados
End If
@@ -193,17 +193,17 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
Protected Sub BtnCargaAsignados_Click(sender As Object, e As EventArgs) Handles BtnCargaAsignados.Click
CargaDatos()
End Sub
- Private Sub CargaDatos()
-
-
- If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
- Alert("Debe de seleccionar una cuenta.")
- Exit Sub
- End If
-
- DTHeaders = New DataTable
- DTDatos = New DataTable
-
+ Private Sub CargaDatos()
+
+
+ If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
+ Alert("Debe de seleccionar una cuenta.")
+ Exit Sub
+ End If
+
+ DTHeaders = New DataTable
+ DTDatos = New DataTable
+
Dim Conta As New ClsContabilidad
DtHeadersCount = 0
@@ -227,7 +227,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
For Each Dr As DataRow In DTHeaders.Rows
GvAnual.Columns(Index).Visible = True
CType(GvAnual.Columns(Index), BoundField).DataField = String.Format("Ejercicio{0}", Dr("Ejercicio"))
- GvAnual.Columns(Index).HeaderText = Dr("Ejercicio").ToString
+ GvAnual.Columns(Index).HeaderText = Dr("Ejercicio").ToString
listaCamposanios.Add(New String() {String.Format("Ejercicio{0}", Dr("Ejercicio")), Dr("Ejercicio").ToString()})
If Not DdlEjercicio.SelectedValue = Dr("Ejercicio").ToString Then
@@ -238,7 +238,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
End If
GvAnual.Columns(Index + 2).Visible = True
- CType(GvAnual.Columns(Index + 2), BoundField).DataField = String.Format("Ejercicio{0}{1}Porcentaje", Dr("Ejercicio"), If(EsVertical = 1, "", "Variacion"))
+ CType(GvAnual.Columns(Index + 2), BoundField).DataField = String.Format("Ejercicio{0}{1}Porcentaje", Dr("Ejercicio"), If(EsVertical = 1, "", "Variacion"))
GvAnual.Columns(Index + 2).HeaderText = "%"
End If
@@ -259,179 +259,179 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
'RegistraScript($"LimpiaCeros();")
- Conta.Dispose()
-
-
-
- If GvAnual.Rows.Count > 0 Then
-
- LnkExportar.Visible = True
- UpAcciones.Update()
-
- End If
-
-
-
- End Sub
-
+ Conta.Dispose()
+
+
+
+ If GvAnual.Rows.Count > 0 Then
+
+ LnkExportar.Visible = True
+ UpAcciones.Update()
+
+ End If
+
+
+
+ End Sub
+
#End Region
-
-
+
+
#Region " GV ROW DATABOUND "
Protected Sub GvAnual_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvAnual.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
setgraficaCC(e)
If e.Row.RowIndex = 0 Then
e.Row.Style.Add("font-weight", "bold")
- End If
-
-
- If e.Row.DataKey("Level").ToEntero = 0 Then
- e.Row.CssClass = "Totales"
- End If
-
- If e.Row.DataKey("Level").ToEntero = 1 Then
- e.Row.CssClass = "SubTotales"
- End If
-
- Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero
-
- Dim inicial As Boolean = True
- Dim Index As Integer = 2
-
- For Each DRow As DataRow In DTHeaders.Rows
-
- Dim Importe As Decimal = e.Row.DBCampo($"Ejercicio{DRow("Ejercicio")}").ToDecimal
- Dim Anio As Integer = DRow("Ejercicio").ToString.ToEntero
-
- If Importe <> 0 Then
- e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }"
-
- End If
-
- If e.Row.Cells(Index + 1).Text.ToDecimal = 0 Then
-
- e.Row.Cells(Index + 1).Text = "-"
-
- ElseIf e.Row.Cells(Index + 1).Text.ToDecimal < 0 Then
- e.Row.Cells(Index + 1).ForeColor = Drawing.Color.Red
-
- End If
-
- If e.Row.Cells(Index + 2).Text.Replace("%", "").ToDecimal = 0 Then
- e.Row.Cells(Index + 2).Text = "-"
- ElseIf e.Row.Cells(Index + 2).Text.Replace("%", "").ToDecimal < 0 Then
- e.Row.Cells(Index + 2).ForeColor = Drawing.Color.Red
- End If
-
-
- 'If inicial Then
- ' Index = Indice + 1
- ' inicial = False
- ' Continue For
- 'End If
-
- Index += 3
- Next
-
-
-
- 'e.Row.Cells(1).Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em")
-
+ End If
+
+
+ If e.Row.DataKey("Level").ToEntero = 0 Then
+ e.Row.CssClass = "Totales"
+ End If
+
+ If e.Row.DataKey("Level").ToEntero = 1 Then
+ e.Row.CssClass = "SubTotales"
+ End If
+
+ Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero
+
+ Dim inicial As Boolean = True
+ Dim Index As Integer = 2
+
+ For Each DRow As DataRow In DTHeaders.Rows
+
+ Dim Importe As Decimal = e.Row.DBCampo($"Ejercicio{DRow("Ejercicio")}").ToDecimal
+ Dim Anio As Integer = DRow("Ejercicio").ToString.ToEntero
+
+ If Importe <> 0 Then
+ e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }"
+
+ End If
+
+ If e.Row.Cells(Index + 1).Text.ToDecimal = 0 Then
+
+ e.Row.Cells(Index + 1).Text = "-"
+
+ ElseIf e.Row.Cells(Index + 1).Text.ToDecimal < 0 Then
+ e.Row.Cells(Index + 1).ForeColor = Drawing.Color.Red
+
+ End If
+
+ If e.Row.Cells(Index + 2).Text.Replace("%", "").ToDecimal = 0 Then
+ e.Row.Cells(Index + 2).Text = "-"
+ ElseIf e.Row.Cells(Index + 2).Text.Replace("%", "").ToDecimal < 0 Then
+ e.Row.Cells(Index + 2).ForeColor = Drawing.Color.Red
+ End If
+
+
+ 'If inicial Then
+ ' Index = Indice + 1
+ ' inicial = False
+ ' Continue For
+ 'End If
+
+ Index += 3
+ Next
+
+
+
+ 'e.Row.Cells(1).Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em")
+
End If
- End Sub
-
-
- Public Sub setgraficaCC(e As GridViewRowEventArgs)
- Dim lista As New List(Of Object)
- Dim colorindex As Integer = 0
- For Each campo As String() In listaCamposanios
- lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)})
- colorindex = colorindex + 1
- If colorindex >= listacolores.Count Then
- colorindex = 0
- End If
- Next
- e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
- End Sub
-
- Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-
- Dim SubProyecto As String = ""
-
- If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
- SubProyecto = DdlSubProyecto.SelectedItem.Text
- End If
-
- Dim SbFiltros As New StringBuilder()
- SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}")
- SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto)
- SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
-
-
-
- GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, "Anexo del Catálogo - Anual", DatoTituloExtra:=$"Periodo{DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString())
- 'GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}", "Anexo del Catálogo - Anual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
-
- End Sub
-
+ End Sub
+
+
+ Public Sub setgraficaCC(e As GridViewRowEventArgs)
+ Dim lista As New List(Of Object)
+ Dim colorindex As Integer = 0
+ For Each campo As String() In listaCamposanios
+ lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)})
+ colorindex = colorindex + 1
+ If colorindex >= listacolores.Count Then
+ colorindex = 0
+ End If
+ Next
+ e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
+ End Sub
+
+ Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+ Dim SubProyecto As String = ""
+
+ If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
+ SubProyecto = DdlSubProyecto.SelectedItem.Text
+ End If
+
+ Dim SbFiltros As New StringBuilder()
+ SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}")
+ SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto)
+ SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
+
+
+
+ GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, "Anexo del Catálogo - Anual", DatoTituloExtra:=$"Periodo{DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString())
+ 'GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}", "Anexo del Catálogo - Anual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
+
+ End Sub
+
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
- End Sub
-
+ End Sub
+
#End Region
-
-
-
- Protected Sub GvAnual_DataBound(sender As Object, e As EventArgs)
-
- 'If DtHeadersCount > 0 Then
-
-
- ' '96 32
-
- ' Dim NColumns As Integer = GvAnual.Columns.Count
- ' Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal)
-
- ' Dim cell1 As New TableHeaderCell()
- ' cell1.Text = ""
- ' cell1.ColumnSpan = 1
- ' row.Controls.Add(cell1)
-
- ' Dim cell2 As New TableHeaderCell()
- ' cell2.Text = ""
- ' cell2.ColumnSpan = 1
- ' row.Controls.Add(cell2)
-
-
- ' Dim cell3 As New TableHeaderCell()
- ' cell3.Text = ""
- ' cell3.ColumnSpan = 1
- ' row.Controls.Add(cell3)
-
- ' Dim cell4 As New TableHeaderCell()
- ' cell4.Text = ""
- ' cell4.ColumnSpan = 1
- ' row.Controls.Add(cell4)
-
- ' For x = 0 To DtHeadersCount
-
- ' Dim cell As New TableHeaderCell()
- ' cell.Text = ""
- ' cell.ColumnSpan = 1
- ' row.Controls.Add(cell)
-
- ' Dim cellColspan2 = New TableHeaderCell()
- ' cellColspan2.ColumnSpan = 2
- ' cellColspan2.Text = "Variación"
- ' row.Controls.Add(cellColspan2)
-
- ' x = x + 1
-
- ' Next
-
- ' GvAnual.HeaderRow.Parent.Controls.AddAt(0, row)
-
- 'End If
-
- End Sub
+
+
+
+ Protected Sub GvAnual_DataBound(sender As Object, e As EventArgs)
+
+ 'If DtHeadersCount > 0 Then
+
+
+ ' '96 32
+
+ ' Dim NColumns As Integer = GvAnual.Columns.Count
+ ' Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal)
+
+ ' Dim cell1 As New TableHeaderCell()
+ ' cell1.Text = ""
+ ' cell1.ColumnSpan = 1
+ ' row.Controls.Add(cell1)
+
+ ' Dim cell2 As New TableHeaderCell()
+ ' cell2.Text = ""
+ ' cell2.ColumnSpan = 1
+ ' row.Controls.Add(cell2)
+
+
+ ' Dim cell3 As New TableHeaderCell()
+ ' cell3.Text = ""
+ ' cell3.ColumnSpan = 1
+ ' row.Controls.Add(cell3)
+
+ ' Dim cell4 As New TableHeaderCell()
+ ' cell4.Text = ""
+ ' cell4.ColumnSpan = 1
+ ' row.Controls.Add(cell4)
+
+ ' For x = 0 To DtHeadersCount
+
+ ' Dim cell As New TableHeaderCell()
+ ' cell.Text = ""
+ ' cell.ColumnSpan = 1
+ ' row.Controls.Add(cell)
+
+ ' Dim cellColspan2 = New TableHeaderCell()
+ ' cellColspan2.ColumnSpan = 2
+ ' cellColspan2.Text = "Variación"
+ ' row.Controls.Add(cellColspan2)
+
+ ' x = x + 1
+
+ ' Next
+
+ ' GvAnual.HeaderRow.Parent.Controls.AddAt(0, row)
+
+ 'End If
+
+ End Sub
End Class
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad/RepAnexoCatalogoCC.aspx
similarity index 98%
rename from Contabilidad2/RepAnexoCatalogoCC.aspx
rename to Contabilidad/RepAnexoCatalogoCC.aspx
index 07d55441a..d628bcb22 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx
+++ b/Contabilidad/RepAnexoCatalogoCC.aspx
@@ -1,593 +1,593 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogoCC.aspx.vb" Inherits="Contabilidad2_RepAnexoCatalogoCC" EnableEventValidation="false" %>
-
-
-
-
-
-
-
-
- Anexo de Catálogo - Centro Costo
-
-
-
-
-
-
-
-
-
- Generar Excel
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogoCC.aspx.vb" Inherits="Contabilidad2_RepAnexoCatalogoCC" EnableEventValidation="false" %>
+
+
+
+
+
+
+
+
+ Anexo de Catálogo - Centro Costo
+
+
+
+
+
+
+
+
+
+ Generar Excel
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb b/Contabilidad/RepAnexoCatalogoCC.aspx.vb
similarity index 98%
rename from Contabilidad2/RepAnexoCatalogoCC.aspx.vb
rename to Contabilidad/RepAnexoCatalogoCC.aspx.vb
index e11533f3b..63cf931d0 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
+++ b/Contabilidad/RepAnexoCatalogoCC.aspx.vb
@@ -4,8 +4,8 @@ Option Strict On
Imports System.Data
Imports Extensiones
Partial Class Contabilidad2_RepAnexoCatalogoCC
- Inherits ClsPaginas
-
+ Inherits ClsPaginas
+
#Region " PROPIEDADES "
Public Property CveCuenta As Integer
Get
@@ -14,7 +14,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
Set(value As Integer)
ViewState("CveCuenta") = value
End Set
- End Property
+ End Property
Private Property listacolores As List(Of String)
Get
Return DirectCast(ViewState("listacolores"), List(Of String))
@@ -22,8 +22,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
Set(value As List(Of String))
ViewState("listacolores") = value
End Set
- End Property
-
+ End Property
+
Private Property listaCampos As List(Of String())
Get
Return DirectCast(ViewState("listaCampos"), List(Of String()))
@@ -31,83 +31,83 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
Set(value As List(Of String()))
ViewState("listaCampos") = value
End Set
- End Property
-
-
- Private Property DTHeaders As DataTable
- Get
-
- If ViewState("DTHeaders") Is Nothing Then
- Return New DataTable
- Else
- Return DirectCast(ViewState("DTHeaders"), DataTable)
- End If
-
- End Get
- Set(value As DataTable)
- ViewState("DTHeaders") = value
- End Set
- End Property
-
-
- Private Property DTDatos As DataTable
- Get
-
- If ViewState("DTDatos") Is Nothing Then
- Return New DataTable
- Else
- Return DirectCast(ViewState("DTDatos"), DataTable)
- End If
-
- End Get
- Set(value As DataTable)
- ViewState("DTDatos") = value
- End Set
- End Property
-
-
+ End Property
+
+
+ Private Property DTHeaders As DataTable
+ Get
+
+ If ViewState("DTHeaders") Is Nothing Then
+ Return New DataTable
+ Else
+ Return DirectCast(ViewState("DTHeaders"), DataTable)
+ End If
+
+ End Get
+ Set(value As DataTable)
+ ViewState("DTHeaders") = value
+ End Set
+ End Property
+
+
+ Private Property DTDatos As DataTable
+ Get
+
+ If ViewState("DTDatos") Is Nothing Then
+ Return New DataTable
+ Else
+ Return DirectCast(ViewState("DTDatos"), DataTable)
+ End If
+
+ End Get
+ Set(value As DataTable)
+ ViewState("DTDatos") = value
+ End Set
+ End Property
+
+
#End Region
-
+
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- If Not IsPostBack Then
-
- listacolores = New List(Of String)
- listaCampos = New List(Of String())
- listacolores.Add("#FF0F00")
- listacolores.Add("#FF6600")
- listacolores.Add("#F8FF01")
- listacolores.Add("#04D215")
- listacolores.Add("#2A0CD0")
- listacolores.Add("#8A0CCF")
- listacolores.Add("#CD0D74")
- listacolores.Add("#754DEB")
- listacolores.Add("#DDDDDD")
- listacolores.Add("#999999")
- listacolores.Add("#000000")
- listacolores.Add("#FF0F00")
-
+ If Not IsPostBack Then
+
+ listacolores = New List(Of String)
+ listaCampos = New List(Of String())
+ listacolores.Add("#FF0F00")
+ listacolores.Add("#FF6600")
+ listacolores.Add("#F8FF01")
+ listacolores.Add("#04D215")
+ listacolores.Add("#2A0CD0")
+ listacolores.Add("#8A0CCF")
+ listacolores.Add("#CD0D74")
+ listacolores.Add("#754DEB")
+ listacolores.Add("#DDDDDD")
+ listacolores.Add("#999999")
+ listacolores.Add("#000000")
+ listacolores.Add("#FF0F00")
+
Dim EjercicioParametro, SubProyectoParametro, DivisorParametro, Periodo As Integer
CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero
EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
SubProyectoParametro = IfNull(Request("CveSubProyecto"), "-1").ToString.ToEntero
- DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
+ DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
Periodo = IfNull(Request("Periodo"), "-1").ToString.ToEntero
- InicializaValores()
-
- CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
-
+ InicializaValores()
+
+ CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString)
- DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
-
-
- If CveCuenta > 0 Then
- DdlCuentas.SelectedValueExist(CveCuenta)
- CargaDatos()
- End If
-
-
-
+ DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
+
+
+ If CveCuenta > 0 Then
+ DdlCuentas.SelectedValueExist(CveCuenta)
+ CargaDatos()
+ End If
+
+
+
End If
End Sub
@@ -115,61 +115,61 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
CargaCombos()
- txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
+ txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
txtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
End Sub
- Private Sub CargaCombos()
-
- DdlCuentas.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa).FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
- DdlCuentas.DataBind()
-
- End Sub
-
-
+ Private Sub CargaCombos()
+
+ DdlCuentas.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa).FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
+ DdlCuentas.DataBind()
+
+ End Sub
+
+
#End Region
-
-
+
+
#Region " CARGA DATOS "
Protected Sub BtnCargaAsignados_Click(sender As Object, e As EventArgs) Handles BtnCargaAsignados.Click
CargaDatos()
End Sub
- Private Sub CargaDatos()
-
-
- If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
- Alert("Debe de seleccionar una cuenta.")
- Exit Sub
- End If
-
- DTHeaders = New DataTable
+ Private Sub CargaDatos()
+
+
+ If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
+ Alert("Debe de seleccionar una cuenta.")
+ Exit Sub
+ End If
+
+ DTHeaders = New DataTable
DTDatos = New DataTable
Dim Conta As New ClsContabilidad
- If Conta.GetAnexoCatalagoCC(DdlCuentas.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
-
+ If Conta.GetAnexoCatalagoCC(DdlCuentas.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
+
DTHeaders = Conta.DSResultados.Tables(0)
- DTDatos = Conta.DSResultados.Tables(1)
+ DTDatos = Conta.DSResultados.Tables(1)
GvCC.DataSource = Conta.DSResultados.Tables(1)
Dim Index = 4
For Index = 4 To GvCC.Columns.Count - 1
GvCC.Columns(Index).Visible = False
- Next Index
+ Next Index
listaCampos.Clear()
Index = 4
For Each Dr As DataRow In DTHeaders.Rows
GvCC.Columns(Index).Visible = True
CType(GvCC.Columns(Index), BoundField).DataField = String.Format("SubProyecto{0}", Dr("SubProyecto"))
- GvCC.Columns(Index).HeaderText = Dr("SubProyecto").ToString()
- listaCampos.Add(New String() {String.Format("SubProyecto{0}", Dr("SubProyecto")), Dr("SubProyecto").ToString()})
-
- 'GvCC.Columns(Index + 1).Visible = True
- 'CType(GvCC.Columns(Index + 1), BoundField).DataField = String.Format("SubProyecto{0}Porcentaje", Dr("SubProyecto"))
- 'GvCC.Columns(Index + 1).HeaderText = "%"
- 'Index += 2
-
+ GvCC.Columns(Index).HeaderText = Dr("SubProyecto").ToString()
+ listaCampos.Add(New String() {String.Format("SubProyecto{0}", Dr("SubProyecto")), Dr("SubProyecto").ToString()})
+
+ 'GvCC.Columns(Index + 1).Visible = True
+ 'CType(GvCC.Columns(Index + 1), BoundField).DataField = String.Format("SubProyecto{0}Porcentaje", Dr("SubProyecto"))
+ 'GvCC.Columns(Index + 1).HeaderText = "%"
+ 'Index += 2
+
Index += 1
Next
@@ -178,113 +178,113 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
Else
GvCC.DataSource = Nothing
- End If
-
-
- If GvCC.Rows.Count > 0 Then
-
- LnkExportar.Visible = True
- UpAcciones.Update()
-
+ End If
+
+
+ If GvCC.Rows.Count > 0 Then
+
+ LnkExportar.Visible = True
+ UpAcciones.Update()
+
End If
'RegistraScript($"LimpiaCeros({DdlDivisor.SelectedValue});")
Conta.Dispose()
- End Sub
-
+ End Sub
+
#End Region
-
-
+
+
#Region " GV ROW DATABOUND "
- Protected Sub GvCC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCC.RowDataBound
-
+ Protected Sub GvCC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCC.RowDataBound
+
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.RowIndex = 0 Then
e.Row.Style.Add("font-weight", "bold")
End If
- setgraficaCC(e)
-
- If e.Row.DataKey("Level").ToEntero = 0 Then
- e.Row.CssClass = "Totales"
- End If
-
- If e.Row.DataKey("Level").ToEntero = 1 Then
- e.Row.CssClass = "SubTotales"
- End If
-
-
- Dim Index As Integer = 2
-
- For Each DRow As DataRow In DTHeaders.Rows
- Dim Importe As Decimal = e.Row.DBCampo($"SubProyecto{DRow("SubProyecto")}").ToDecimal
- 'Dim Anio As Integer = DRow("SubProyecto").ToString.ToEntero
-
- If e.Row.CssClass = "Totales" And Index = 2 Then
- e.Row.Cells(Index).ForeColor = Drawing.ColorTranslator.FromHtml("#337ab7")
- End If
-
-
- If e.Row.Cells(Index).Text.Replace("%", "").ToDecimal = 0 Then
- e.Row.Cells(Index).Text = "-"
- ElseIf e.Row.Cells(Index).Text.Replace("%", "").ToDecimal < 0 Then
- e.Row.Cells(Index).ForeColor = Drawing.Color.Red
- End If
-
- Index += 1
- Next
-
- Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero
- Dim inicial As Boolean = True
- Index = 4
-
- For Each DRow As DataRow In DTHeaders.Rows
- Dim Importe As Decimal = e.Row.DBCampo($"SubProyecto{DRow("SubProyecto")}").ToDecimal
-
- If e.Row.Cells(Index).Text.Replace("%", "").ToDecimal = 0 Then
- e.Row.Cells(Index).Text = "-"
- ElseIf e.Row.Cells(Index).Text.Replace("%", "").ToDecimal < 0 Then
- e.Row.Cells(Index).ForeColor = Drawing.Color.Red
- End If
-
- If Importe <> 0 Then
- '' pendiente.. ' e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }"
- End If
- Index += 1
-
- Next
-
+ setgraficaCC(e)
+
+ If e.Row.DataKey("Level").ToEntero = 0 Then
+ e.Row.CssClass = "Totales"
+ End If
+
+ If e.Row.DataKey("Level").ToEntero = 1 Then
+ e.Row.CssClass = "SubTotales"
+ End If
+
+
+ Dim Index As Integer = 2
+
+ For Each DRow As DataRow In DTHeaders.Rows
+ Dim Importe As Decimal = e.Row.DBCampo($"SubProyecto{DRow("SubProyecto")}").ToDecimal
+ 'Dim Anio As Integer = DRow("SubProyecto").ToString.ToEntero
+
+ If e.Row.CssClass = "Totales" And Index = 2 Then
+ e.Row.Cells(Index).ForeColor = Drawing.ColorTranslator.FromHtml("#337ab7")
+ End If
+
+
+ If e.Row.Cells(Index).Text.Replace("%", "").ToDecimal = 0 Then
+ e.Row.Cells(Index).Text = "-"
+ ElseIf e.Row.Cells(Index).Text.Replace("%", "").ToDecimal < 0 Then
+ e.Row.Cells(Index).ForeColor = Drawing.Color.Red
+ End If
+
+ Index += 1
+ Next
+
+ Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero
+ Dim inicial As Boolean = True
+ Index = 4
+
+ For Each DRow As DataRow In DTHeaders.Rows
+ Dim Importe As Decimal = e.Row.DBCampo($"SubProyecto{DRow("SubProyecto")}").ToDecimal
+
+ If e.Row.Cells(Index).Text.Replace("%", "").ToDecimal = 0 Then
+ e.Row.Cells(Index).Text = "-"
+ ElseIf e.Row.Cells(Index).Text.Replace("%", "").ToDecimal < 0 Then
+ e.Row.Cells(Index).ForeColor = Drawing.Color.Red
+ End If
+
+ If Importe <> 0 Then
+ '' pendiente.. ' e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }"
+ End If
+ Index += 1
+
+ Next
+
End If
- End Sub
-
- Public Sub setgraficaCC(e As GridViewRowEventArgs)
- Dim lista As New List(Of Object)
- Dim colorindex As Integer = 0
- For Each campo As String() In listaCampos
- lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)})
- colorindex = colorindex + 1
- If colorindex >= listacolores.Count Then
- colorindex = 0
- End If
- Next
- e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
- End Sub
+ End Sub
+
+ Public Sub setgraficaCC(e As GridViewRowEventArgs)
+ Dim lista As New List(Of Object)
+ Dim colorindex As Integer = 0
+ For Each campo As String() In listaCampos
+ lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)})
+ colorindex = colorindex + 1
+ If colorindex >= listacolores.Count Then
+ colorindex = 0
+ End If
+ Next
+ e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
+ End Sub
#End Region
-
- Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-
- Dim SbFiltros As New StringBuilder()
- 'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
- SbFiltros.AppendFormat("SubProyecto : {0}|", DdlSubProyecto.SelectedItem.Text)
- If DdlDivisor.SelectedValue <> "1" Then SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
- 'SbFiltros.AppendFormat("Ejercicio : {0} Periodo : {1}|", DdlEjercicio.SelectedItem.Text, DdlPeriodo.SelectedItem.Text)
-
-
- GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", DatoTituloExtra:="", DatosFiltros:=SbFiltros.ToString())
-
- End Sub
-
+
+ Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+ Dim SbFiltros As New StringBuilder()
+ 'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
+ SbFiltros.AppendFormat("SubProyecto : {0}|", DdlSubProyecto.SelectedItem.Text)
+ If DdlDivisor.SelectedValue <> "1" Then SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
+ 'SbFiltros.AppendFormat("Ejercicio : {0} Periodo : {1}|", DdlEjercicio.SelectedItem.Text, DdlPeriodo.SelectedItem.Text)
+
+
+ GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", DatoTituloExtra:="", DatosFiltros:=SbFiltros.ToString())
+
+ End Sub
+
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub
diff --git a/Contabilidad/RepAnexoCatalogoCI.aspx b/Contabilidad/RepAnexoCatalogoCI.aspx
new file mode 100644
index 000000000..2d93b890a
--- /dev/null
+++ b/Contabilidad/RepAnexoCatalogoCI.aspx
@@ -0,0 +1,304 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogoCI.aspx.vb" Inherits="AC_RepAnexoCatalogo" %>
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Excel
+
+
+ Imprimir
+
+
+
+
+
+
+
+
+
+
+
+ +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Contabilidad/RepAnexoCatalogoCI.aspx.vb b/Contabilidad/RepAnexoCatalogoCI.aspx.vb
new file mode 100644
index 000000000..6efd877a4
--- /dev/null
+++ b/Contabilidad/RepAnexoCatalogoCI.aspx.vb
@@ -0,0 +1,331 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class AC_RepAnexoCatalogo
+ Inherits ClsPaginas
+
+#Region "PROPIEDADES"
+ Private Property DtDatos As DataTable
+ Get
+ DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+ End Get
+
+ Set(ByVal value As DataTable)
+ ViewState("DtDatos") = value
+ End Set
+ End Property
+ Private Property FechaInicio As Date
+ Get
+ FechaInicio = ViewState("FechaInicio").ToString.ToDate
+ End Get
+ Set(value As Date)
+ ViewState("FechaInicio") = value
+ End Set
+ End Property
+ Private Property FechaFin As DateTime
+ Get
+ FechaFin = ViewState("FechaFin").ToString.ToDate
+ End Get
+ Set(value As Date)
+ ViewState("FechaFin") = value
+ End Set
+ End Property
+ Private Property IdCuenta As Integer
+ Get
+ IdCuenta = ViewState("IdCuenta").ToString.ToEntero
+ End Get
+ Set(value As Integer)
+ ViewState("IdCuenta") = value
+ End Set
+ End Property
+ Private Property IdSegNeg As Integer
+ Get
+ IdSegNeg = ViewState("IdSegNeg").ToString.ToEntero
+ End Get
+ Set(value As Integer)
+ ViewState("IdSegNeg") = value
+ End Set
+ End Property
+ Private Property DTCuentas As DataTable
+ Get
+ Return CType(ViewState("DTCuentas"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("DTCuentas") = 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
+#End Region
+
+
+ Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+ If Not Page.IsPostBack Then
+ If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+ Response.Redirect($"/Contabilidad/RepAnexoCatalogo.aspx")
+ End If
+
+ If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
+ InicializaValores()
+ CargaURLParametros()
+ BtnConsultar.Enabled = True
+ Else
+ Alert("La empresa no usa Contabilidad ni Armonización Contable", TipoMensaje.MsgError)
+ End If
+ End If
+ End Sub
+
+
+#Region " INCIALIZA VALORES "
+ Private Sub InicializaValores()
+ DtDatos = Nothing
+ CargaTipoCuentas()
+ CargaSegmentosNegocio()
+ FechaInicio = DateSerial(Year(NowADS()), Month(NowADS()), 1)
+ FechaFin = NowADS()
+
+ If UsuarioActual.Empresa.UsaAC Then
+ TipoReporte = -1
+ Else
+ TipoReporte = 1
+ tdTipoReporte.Visible = True
+ tdTipoReporte2.Visible = True
+ End If
+ End Sub
+ Public Function WSCuentas() As String
+ Dim Str As New StringBuilder
+ Dim i As Integer = 0
+ Dim dt As DataTable = DTCuentas '.FiltraParametros("Afectable = 1")
+
+ If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+
+ For Each dr As DataRow In dt.Rows
+ i += 1
+ Str.AppendFormat("{{value:""{0}"",label:""{1}{3}""}}{2}", dr("Id"), dr("CtaCodigo").ToString.Replace("""", ""), If(i < dt.Rows.Count, ",", ""), If(dr("Afectable").ToString = "1", " *", ""))
+ Next
+
+ End If
+
+
+ Return Str.ToString
+ End Function
+ Private Sub CargaTipoCuentas()
+ Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
+ Dim strGlobal As String = ""
+
+ If ObjTipoCuenta.GetCuentas(-1, "-1", -1) Then
+ Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+ If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+ DTCuentas = ObjTipoCuenta.DtResultados '.FiltraParametros("Afectable = 1")
+ DdlTipoCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo IN ('_ACTIVO', '_BPASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
+ End If
+ ObjTipoCuenta.Dispose()
+ DdlTipoCuentas.DataBind()
+ 'If strGlobal.Length > 0 Then DdlTipoCuentas.Items.Insert(0, New ListItem("Todas", strGlobal))
+ DdlTipoCuentas.Items.Insert(0, New ListItem("Todas las Cuentas", "1"))
+ DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2"))
+ DdlTipoCuentas.SelectedIndex = 0
+
+ End Sub
+ Private Sub CargaSegmentosNegocio()
+ Dim ObjContpaq As New ClsContPAQi(UsuarioActual.Empresa)
+ Dim strGlobal As String = ""
+
+ If ObjContpaq.GetSegmentosNegocio(-1, "-1") Then
+ DdlSegmentoNegocio.DataSource = ObjContpaq.DtResultados
+ DdlSegmentoNegocio.DataBind()
+ End If
+ ObjContpaq.Dispose()
+ DdlSegmentoNegocio.Items.Insert(0, New ListItem("Todos", "-1"))
+ DdlSegmentoNegocio.SelectedValue = "-1"
+ End Sub
+#End Region
+
+
+#Region "CARGA DATOS"
+ Private Sub CargaURLParametros()
+
+ Dim ErrorParametros = True
+
+ If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then
+ 'If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+ If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
+ IdCuenta = Request("ID").ToEntero
+ 'FechaInicio = Request("FI").ToDate
+ FechaFin = Request("FF").ToDate
+
+ If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+ FechaInicio = Request("FI").ToDate
+ Else
+ FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
+ End If
+ DdlTipoCuentas.SelectedValueExist("-2")
+ HdnCveCuenta.Value = IdCuenta.ToString
+ TxtCuenta.Text = DTCuentas.FiltroPrimeroValor("CtaCodigo", $"Id={Request("ID")}")
+
+ If Request("CM") IsNot Nothing AndAlso IsNumeric(Request("CM")) AndAlso Request("CM").ToEntero > 0 Then
+ DdlCuenta.SelectedValueExist(Request("CM").ToString)
+ End If
+
+ ErrorParametros = False
+
+
+ If Request("TP") IsNot Nothing AndAlso IsNumeric(Request("TP")) AndAlso Request("TP").ToEntero > 0 Then
+ TipoReporte = Request("TP").ToEntero
+
+ DdlTipoReporte.SelectedValue = TipoReporte.ToString
+ End If
+
+ If Request("IdSegNeg") IsNot Nothing AndAlso IsNumeric(Request("IdSegNeg")) AndAlso Request("IdSegNeg").ToEntero > 0 Then
+ IdSegNeg = Request("IdSegNeg").ToEntero
+
+ DdlSegmentoNegocio.SelectedValue = IdSegNeg.ToString
+ End If
+ End If
+ 'End If
+ End If
+
+ UPFiltros.Update()
+ TxtFechaDel.Text = FechaInicio.ToShortDateString
+ TxtFechaAl.Text = FechaFin.ToShortDateString
+
+ If Not ErrorParametros Then
+ CargaDatos()
+ End If
+ End Sub
+ Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+
+ If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso TxtCuenta.Text.Trim = "" Then
+ Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
+ Else
+ FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+ FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
+ IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, HdnCveCuenta.Value.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
+ CargaDatos()
+
+ RegistraScript("Enable();")
+ End If
+ End Sub
+ Private Sub CargaDatos()
+ Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+
+ TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
+
+ If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, TipoReporte, DdlSegmentoNegocio.SelectedValue.ToEntero) Then
+
+ If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then
+ DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")
+ Else
+ DtDatos = ObjConta.DtResultados
+ End If
+
+ CargaGrid()
+ Else
+ DtDatos = Nothing
+ Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)
+ End If
+
+ ObjConta.Dispose()
+ End Sub
+ Private Sub CargaGrid()
+ GvDatos.DataSource = DtDatos
+ GvDatos.DataBind()
+ UpDatos.Update()
+ If DtDatos.Rows.Count > 0 Then
+ RegistraScript("Scroll();")
+ End If
+
+ End Sub
+#End Region
+
+
+#Region "GV ROW DATA BOUND"
+ Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+ If e.Row.RowType = DataControlRowType.DataRow Then
+
+ If e.Row.DBCampo("Id").ToEntero = IdCuenta Then
+ e.Row.ControlStyle.Font.Bold = True
+ 'e.Row.ControlStyle.Font.Size = 9
+ 'e.Row.ControlStyle.Height = 30
+ Else
+ e.Row.ControlStyle.Font.Bold = False
+ End If
+
+ 'If e.Row.DBCampo("CtaMayor") = "4" Or e.Row.DBCampo("CtaMayor") = "1" Then
+ ' e.Row.ControlStyle.Font.Bold = True
+ 'End If
+
+ 'Acomoda Deudor y Acreedor
+ If e.Row.DBCampo("Tipo") <> "D" Then
+ 'e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0}{1}", e.Row.DBCampo("SaldoInicial").FormatoNumero, " ")
+ e.Row.FCLabel("LbSaldoInicial2").Visible = True
+ e.Row.FCLabel("LbSaldoActual").Visible = True
+ End If
+
+ 'Colorea NEGATIVOS
+ If e.Row.DBCampo("SaldoInicial").ToString.ToDouble < 0 Then
+ e.Row.FCLabel("LbSaldoInicial").ForeColor = Drawing.Color.Red
+ End If
+ If e.Row.DBCampo("Cargos").ToString.ToDouble < 0 Then
+ e.Row.FCLabel("LbCargos").ForeColor = Drawing.Color.Red
+ End If
+ If e.Row.DBCampo("Abonos").ToString.ToDouble < 0 Then
+ e.Row.FCLabel("LbAbonos").ForeColor = Drawing.Color.Red
+ End If
+ If e.Row.DBCampo("SaldoActual").ToString.ToDouble < 0 Then
+ e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
+ End If
+
+ e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FI={1}&FF={2}&IdSegNeg={3}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, DdlSegmentoNegocio.SelectedValue.ToEntero)
+ End If
+ End Sub
+#End Region
+
+
+#Region " IMPRIMIR "
+ Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
+ If Not IsNothing(DtDatos) Then
+ ImprimirReporte()
+ Else
+ Alert("Primero debe consultar el Anexo del Catálogo", TipoMensaje.MsgAdvertencia)
+ End If
+ End Sub
+
+ Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+ If Not IsNothing(DtDatos) Then
+ ImprimirReporte("Excel")
+ Else
+ Alert("Primero debe consultar el Anexo del Catálogo", TipoMensaje.MsgAdvertencia)
+ End If
+ End Sub
+ Private Sub ImprimirReporte(Optional Formato As String = "PDF")
+ 'ubicacion del rdlc
+ Dim reportpath As String = "Contabilidad/Reportes/RepAnexoCatalogo.rdlc"
+ 'nombre del reporte
+ Dim fileName As String = "AnexoCatalogo"
+ 'parametros a enviar al reporte
+ Dim params As New List(Of ReportParameter)
+ params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString))
+ params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+ Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+ params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+ params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
+
+ ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
+ End Sub
+#End Region
+
+
+
+
+End Class
diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx b/Contabilidad/RepAnexoCatalogoMensual.aspx
similarity index 98%
rename from Contabilidad2/RepAnexoCatalogoMensual.aspx
rename to Contabilidad/RepAnexoCatalogoMensual.aspx
index 16f93bde8..7dfa12d18 100644
--- a/Contabilidad2/RepAnexoCatalogoMensual.aspx
+++ b/Contabilidad/RepAnexoCatalogoMensual.aspx
@@ -1,407 +1,407 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogoMensual.aspx.vb" Inherits="Contabilidad2_RepAnexoCatalogoMensual" EnableEventValidation="false" %>
-
-
-
-
-
-
-
-
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogoMensual.aspx.vb" Inherits="Contabilidad2_RepAnexoCatalogoMensual" EnableEventValidation="false" %>
+
+
+
+
+
+
+
+
Anexo del Catálogo - Mensual
-
-
-
-
-
-
-
-
-
-
- Generar Excel
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-<%-- CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true"--%>
-
-
- Cuenta
-
-
-
-
-
-
-
-
-
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogoAnual.aspx.vb" Inherits="Contabilidad2_RepAnexoCatalogoAnual" %>
+
+
+
+
+
+
+
+
+ Anexo del Catálogo - Anual
+
+
+
+
+
+
+
+
+
+ Generar Excel
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
-
-
-
+ Cuenta
+
+
+
+
+
+
+
+
+
Ejercicio Inicio:
-
-
-
-
+
+
+
+
Ejercicio Fin:
-
-
-
-
-
-
-
-
-
-
-
- >
-
+
+
+
-
- SubProyecto:
-
+
- Proyecto:
-
-
-
-
-
-
-
-
-
-
- Divisor:
-
+
+
+
+
+
+
+
+
+
+
+ >
+
-
+
+ SubProyecto:
+
-
+ Proyecto:
+
+
+
+
+
+
+
+
+
+
+ Divisor:
+
-
-
-
-
-
-
-
- Nombre
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Cuenta
-
-
-
-
-
-
-
- Fecha Inicio:
-
-
-
-
-
-
- Fecha Fin:
-
-
-
-
-
-
- >
-
-
-
-
-
-
-
-
- Divisor:
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Nombre
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+ Cuenta
+
+
+
+
+
+
+
+ Fecha Inicio:
+
+
+
+
+
+
+ Fecha Fin:
+
+
+
+
+
+
+ >
+
+
+
+
+
+
+
+
+ Divisor:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Nombre
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ -
+
- F. I. + +
-
+ ++
+
+
- F. F. + + +
-
+ ++
+
- Tipo de Cuentas: + +
-
+
- Cuenta: + +
-
+
- Tipo: + +
-
+
>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ + +
| Saldos Iniciales | +|
| Deudor | +Acreedor | +
| Cargos | +
| Abonos | +
| Saldos Actuales | +|
| Deudor | +Acreedor | +
-
-
-
-
-
-
- Proyecto:
- SubProyecto:
-
-
-
-
- Cuenta:
-
-
-
-
-
-
- Ejercicio:
-
-
-
-
-
-
-
-
-
-
-
- >
+
+
+
+
+
+
+
+
+
+
+ Generar Excel
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Proyecto:
+ SubProyecto:
+
+
+
+
+ Cuenta:
+
+
+
+
+
+
+ Ejercicio:
+
+
+
+
+
+
+
+
+
+
+
+ >
-
-
-
-
-
-
-
-
-
-<%--
-
-
-
-
-
-
-
+
+
+<%--
+
+
+
+
+
+
+
+ }, ["serial"]);
+ }
+
+
--%>
-
-
-
+ --%>
+
+
+
diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb b/Contabilidad/RepAnexoCatalogoMensual.aspx.vb
similarity index 98%
rename from Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
rename to Contabilidad/RepAnexoCatalogoMensual.aspx.vb
index 5d6558f86..8b7969a07 100644
--- a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
+++ b/Contabilidad/RepAnexoCatalogoMensual.aspx.vb
@@ -2,12 +2,12 @@
Option Strict On
Imports System.Data
-Imports DocumentFormat.OpenXml.EMMA
-Imports DocumentFormat.OpenXml.Office2010.ExcelAc
+Imports DocumentFormat.OpenXml.EMMA
+Imports DocumentFormat.OpenXml.Office2010.ExcelAc
Imports Extensiones
Partial Class Contabilidad2_RepAnexoCatalogoMensual
- Inherits ClsPaginas
-
+ Inherits ClsPaginas
+
#Region " PROPIEDADES "
Public Property CveCuenta As Integer
Get
@@ -16,8 +16,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
Set(value As Integer)
ViewState("CveCuenta") = value
End Set
- End Property
-
+ End Property
+
Private Property listacolores As List(Of String)
Get
Return DirectCast(ViewState("listacolores"), List(Of String))
@@ -25,8 +25,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
Set(value As List(Of String))
ViewState("listacolores") = value
End Set
- End Property
-
+ End Property
+
Private Property listaCampos As List(Of String())
Get
Return DirectCast(ViewState("listaCampos"), List(Of String()))
@@ -34,105 +34,105 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
Set(value As List(Of String()))
ViewState("listaCampos") = value
End Set
- End Property
-
-
-
-
+ End Property
+
+
+
+
#End Region
-
+
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- If Not IsPostBack Then
-
- listacolores = New List(Of String)
- listaCampos = New List(Of String())
- listacolores.Add("#FF0F00")
- listacolores.Add("#FF6600")
- listacolores.Add("#F8FF01")
- listacolores.Add("#04D215")
- listacolores.Add("#2A0CD0")
- listacolores.Add("#8A0CCF")
- listacolores.Add("#CD0D74")
- listacolores.Add("#754DEB")
- listacolores.Add("#DDDDDD")
- listacolores.Add("#999999")
- listacolores.Add("#000000")
+ If Not IsPostBack Then
+
+ listacolores = New List(Of String)
+ listaCampos = New List(Of String())
+ listacolores.Add("#FF0F00")
+ listacolores.Add("#FF6600")
+ listacolores.Add("#F8FF01")
+ listacolores.Add("#04D215")
+ listacolores.Add("#2A0CD0")
+ listacolores.Add("#8A0CCF")
+ listacolores.Add("#CD0D74")
+ listacolores.Add("#754DEB")
+ listacolores.Add("#DDDDDD")
+ listacolores.Add("#999999")
+ listacolores.Add("#000000")
listacolores.Add("#FF0F00")
Dim EjercicioParametro, SubProyectoParametro, DivisorParametro, Periodo, TRCU As Integer
CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero
EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
SubProyectoParametro = IfNull(Request("CveSubProyecto"), "-1").ToString.ToEntero
- DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
- Periodo = IfNull(Request("Periodo"), "-1").ToString.ToEntero
- TRCU = IfNull(Request("TRCU"), "-1").ToString.ToEntero
-
+ DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
+ Periodo = IfNull(Request("Periodo"), "-1").ToString.ToEntero
+ TRCU = IfNull(Request("TRCU"), "-1").ToString.ToEntero
+
InicializaValores()
DdlEjercicio.SelectedValueExist(EjercicioParametro.ToString)
DdlSubproyecto.SelectedValueExist(SubProyectoParametro.ToString)
- DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
+ DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
DdlPeriodo.SelectedValueExist(Periodo)
- DdlTri.SelectedValueExist(TRCU)
-
- If CveCuenta > 0 Then
- DdlCuentas.SelectedValueExist(CveCuenta)
- CargaDatos()
- End If
-
-
-
-
+ DdlTri.SelectedValueExist(TRCU)
+
+ If CveCuenta > 0 Then
+ DdlCuentas.SelectedValueExist(CveCuenta)
+ CargaDatos()
+ End If
+
+
+
+
End If
- End Sub
-
-
+ End Sub
+
+
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
CargaCombos()
End Sub
- Private Sub CargaCombos()
-
+ Private Sub CargaCombos()
+
Dim Conta As New ClsContabilidad
If Conta.GetEjercicios(UsuarioActual.CveEmpresa) Then
DdlEjercicio.DataSource = Conta.DtResultados
Else
DdlEjercicio.DataSource = Nothing
- End If
-
- Dim strGlobal As String = ""
-
- If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
- Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
- If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
- DdlCuentas.DataSource = Conta.DtResultados
+ End If
+
+ Dim strGlobal As String = ""
+
+ If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+ Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
+ If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
+ DdlCuentas.DataSource = Conta.DtResultados
End If
Conta.Dispose()
- DdlCuentas.DataBind()
- DdlEjercicio.DataBind()
+ DdlCuentas.DataBind()
+ DdlEjercicio.DataBind()
DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
- CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
-
-
- End Sub
+ CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
+
+
+ End Sub
#End Region
-
-
+
+
#Region " CARGA DATOS "
Protected Sub BtnCargaAsignados_Click(sender As Object, e As EventArgs) Handles BtnCargaAsignados.Click
CargaDatos()
End Sub
- Private Sub CargaDatos()
-
-
- If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
- Alert("Debe de seleccionar una cuenta.")
- Exit Sub
- End If
+ Private Sub CargaDatos()
+
+
+ If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
+ Alert("Debe de seleccionar una cuenta.")
+ Exit Sub
+ End If
Dim Conta As New ClsContabilidad
If Conta.GetAnexoCatalogoMensual(DdlCuentas.SelectedValue.ToEntero, DdlEjercicio.SelectedValue.ToEntero, DdlSubproyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then
@@ -143,267 +143,267 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
GvMensual2.DataBind()
- If DdlTri.SelectedValue.ToEntero = 0 Then
-
- GvMensual2.Columns(9).Visible = False
- GvMensual2.Columns(20).Visible = False
- GvMensual2.Columns(31).Visible = False
- GvMensual2.Columns(41).Visible = False
-
- GvMensual2.Columns(13).Visible = False
- GvMensual2.Columns(27).Visible = False
- GvMensual2.Columns(42).Visible = False
-
- ElseIf DdlTri.SelectedValue.ToEntero = 1 Then
-
-
- GvMensual2.Columns(9).Visible = True
- GvMensual2.Columns(20).Visible = True
- GvMensual2.Columns(31).Visible = True
- GvMensual2.Columns(41).Visible = True
-
- GvMensual2.Columns(13).Visible = False
- GvMensual2.Columns(27).Visible = False
- GvMensual2.Columns(42).Visible = False
-
- ElseIf DdlTri.SelectedValue.ToEntero = 2 Then
-
- GvMensual2.Columns(9).Visible = False
- GvMensual2.Columns(20).Visible = False
- GvMensual2.Columns(31).Visible = False
- GvMensual2.Columns(41).Visible = False
-
- GvMensual2.Columns(13).Visible = True
- GvMensual2.Columns(27).Visible = True
- GvMensual2.Columns(42).Visible = True
-
- End If
- UpMensual.Update()
-
- If GvMensual2.Rows.Count > 0 Then
-
- LnkExportar.Visible = True
- UpAcciones.Update()
-
- End If
+ If DdlTri.SelectedValue.ToEntero = 0 Then
+
+ GvMensual2.Columns(9).Visible = False
+ GvMensual2.Columns(20).Visible = False
+ GvMensual2.Columns(31).Visible = False
+ GvMensual2.Columns(41).Visible = False
+
+ GvMensual2.Columns(13).Visible = False
+ GvMensual2.Columns(27).Visible = False
+ GvMensual2.Columns(42).Visible = False
+
+ ElseIf DdlTri.SelectedValue.ToEntero = 1 Then
+
+
+ GvMensual2.Columns(9).Visible = True
+ GvMensual2.Columns(20).Visible = True
+ GvMensual2.Columns(31).Visible = True
+ GvMensual2.Columns(41).Visible = True
+
+ GvMensual2.Columns(13).Visible = False
+ GvMensual2.Columns(27).Visible = False
+ GvMensual2.Columns(42).Visible = False
+
+ ElseIf DdlTri.SelectedValue.ToEntero = 2 Then
+
+ GvMensual2.Columns(9).Visible = False
+ GvMensual2.Columns(20).Visible = False
+ GvMensual2.Columns(31).Visible = False
+ GvMensual2.Columns(41).Visible = False
+
+ GvMensual2.Columns(13).Visible = True
+ GvMensual2.Columns(27).Visible = True
+ GvMensual2.Columns(42).Visible = True
+
+ End If
+ UpMensual.Update()
+
+ If GvMensual2.Rows.Count > 0 Then
+
+ LnkExportar.Visible = True
+ UpAcciones.Update()
+
+ End If
Conta.Dispose()
- End Sub
-
+ End Sub
+
#End Region
-
-
+
+
#Region " GV ROW DATABOUND "
- Protected Sub GvMensual1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMensual2.RowDataBound
- If e.Row.RowType = DataControlRowType.Header Then
- setgrafica(e)
+ Protected Sub GvMensual1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMensual2.RowDataBound
+ If e.Row.RowType = DataControlRowType.Header Then
+ setgrafica(e)
End If
If e.Row.RowType = DataControlRowType.DataRow Then
'If e.Row.RowIndex = 0 Then
' e.Row.Style.Add("font-weight", "bold")
'End If
- setgrafica(e)
-
- If e.Row.DataKey("Level") = "0" Then
- e.Row.CssClass = "Totales"
- ElseIf e.Row.DataKey("Level") = "1" Then
- e.Row.CssClass = "SubTotales"
- End If
-
- 'If e.Row.DBCampo("TipoCuenta").Contiene("3", "4") Then
- ' e.Row.CssClass = "Totales"
- 'ElseIf e.Row.DBCampo("TipoCuenta").Contiene("1") Then
- ' e.Row.CssClass = "SubTotales"
- 'End If
-
- Dim Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre As Decimal
- Enero = e.Row.DBCampo("Enero").ToDecimal()
- Febrero = e.Row.DBCampo("Febrero").ToDecimal()
- Marzo = e.Row.DBCampo("Marzo").ToDecimal()
- Abril = e.Row.DBCampo("Abril").ToDecimal()
- Mayo = e.Row.DBCampo("Mayo").ToDecimal()
- Junio = e.Row.DBCampo("Junio").ToDecimal()
- Julio = e.Row.DBCampo("Julio").ToDecimal()
- Agosto = e.Row.DBCampo("Agosto").ToDecimal()
- Septiembre = e.Row.DBCampo("Septiembre").ToDecimal()
- Octubre = e.Row.DBCampo("Octubre").ToDecimal()
- Noviembre = e.Row.DBCampo("Noviembre").ToDecimal()
- Diciembre = e.Row.DBCampo("Diciembre").ToDecimal()
-
-
- Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero
-
-
- For x = 2 To GvMensual2.Columns.Count - 1
-
- If e.Row.Cells(x).Text.Replace("%", "").ToDecimal = 0 Then
- e.Row.Cells(x).Text = "-"
- ElseIf e.Row.Cells(x).Text.Replace("%", "").ToDecimal < 0 Then
- e.Row.Cells(x).ForeColor = Drawing.Color.OrangeRed
- End If
-
-
- If x = 2 Then
- e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }"
- End If
-
- If x = 3 Then
- e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Febrero.ToString("###,###,##0"), Febrero.ToString("###,###,###.00")) }"
- End If
-
- If x = 6 Then
- e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Marzo.ToString("###,###,##0"), Marzo.ToString("###,###,###.00")) }"
- End If
-
- If x = 10 Then
- e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Abril.ToString("###,###,##0"), Abril.ToString("###,###,###.00")) }"
- End If
-
- If x = 14 Then
- e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Mayo.ToString("###,###,##0"), Mayo.ToString("###,###,###.00")) }"
- End If
-
- If x = 17 Then
- e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Junio.ToString("###,###,##0"), Junio.ToString("###,###,###.00")) }"
- End If
-
- If x = 21 Then
- e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Julio.ToString("###,###,##0"), Julio.ToString("###,###,###.00")) }"
- End If
-
- If x = 24 Then
- e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Agosto.ToString("###,###,##0"), Agosto.ToString("###,###,###.00")) }"
- End If
-
- If x = 28 Then
- e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Septiembre.ToString("###,###,##0"), Septiembre.ToString("###,###,###.00")) }"
- End If
-
- If x = 32 Then
- e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Octubre.ToString("###,###,##0"), Octubre.ToString("###,###,###.00")) }"
- End If
-
- If x = 35 Then
- e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Noviembre.ToString("###,###,##0"), Noviembre.ToString("###,###,###.00")) }"
- End If
-
- If x = 38 Then
- e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Diciembre.ToString("###,###,##0"), Diciembre.ToString("###,###,###.00")) }"
- End If
- Next
- If Enero = 0 Then
- e.Row.Cells(2).Text = "-"
- End If
-
+ setgrafica(e)
+
+ If e.Row.DataKey("Level") = "0" Then
+ e.Row.CssClass = "Totales"
+ ElseIf e.Row.DataKey("Level") = "1" Then
+ e.Row.CssClass = "SubTotales"
+ End If
+
+ 'If e.Row.DBCampo("TipoCuenta").Contiene("3", "4") Then
+ ' e.Row.CssClass = "Totales"
+ 'ElseIf e.Row.DBCampo("TipoCuenta").Contiene("1") Then
+ ' e.Row.CssClass = "SubTotales"
+ 'End If
+
+ Dim Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre As Decimal
+ Enero = e.Row.DBCampo("Enero").ToDecimal()
+ Febrero = e.Row.DBCampo("Febrero").ToDecimal()
+ Marzo = e.Row.DBCampo("Marzo").ToDecimal()
+ Abril = e.Row.DBCampo("Abril").ToDecimal()
+ Mayo = e.Row.DBCampo("Mayo").ToDecimal()
+ Junio = e.Row.DBCampo("Junio").ToDecimal()
+ Julio = e.Row.DBCampo("Julio").ToDecimal()
+ Agosto = e.Row.DBCampo("Agosto").ToDecimal()
+ Septiembre = e.Row.DBCampo("Septiembre").ToDecimal()
+ Octubre = e.Row.DBCampo("Octubre").ToDecimal()
+ Noviembre = e.Row.DBCampo("Noviembre").ToDecimal()
+ Diciembre = e.Row.DBCampo("Diciembre").ToDecimal()
+
+
+ Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero
+
+
+ For x = 2 To GvMensual2.Columns.Count - 1
+
+ If e.Row.Cells(x).Text.Replace("%", "").ToDecimal = 0 Then
+ e.Row.Cells(x).Text = "-"
+ ElseIf e.Row.Cells(x).Text.Replace("%", "").ToDecimal < 0 Then
+ e.Row.Cells(x).ForeColor = Drawing.Color.OrangeRed
+ End If
+
+
+ If x = 2 Then
+ e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }"
+ End If
+
+ If x = 3 Then
+ e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Febrero.ToString("###,###,##0"), Febrero.ToString("###,###,###.00")) }"
+ End If
+
+ If x = 6 Then
+ e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Marzo.ToString("###,###,##0"), Marzo.ToString("###,###,###.00")) }"
+ End If
+
+ If x = 10 Then
+ e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Abril.ToString("###,###,##0"), Abril.ToString("###,###,###.00")) }"
+ End If
+
+ If x = 14 Then
+ e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Mayo.ToString("###,###,##0"), Mayo.ToString("###,###,###.00")) }"
+ End If
+
+ If x = 17 Then
+ e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Junio.ToString("###,###,##0"), Junio.ToString("###,###,###.00")) }"
+ End If
+
+ If x = 21 Then
+ e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Julio.ToString("###,###,##0"), Julio.ToString("###,###,###.00")) }"
+ End If
+
+ If x = 24 Then
+ e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Agosto.ToString("###,###,##0"), Agosto.ToString("###,###,###.00")) }"
+ End If
+
+ If x = 28 Then
+ e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Septiembre.ToString("###,###,##0"), Septiembre.ToString("###,###,###.00")) }"
+ End If
+
+ If x = 32 Then
+ e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Octubre.ToString("###,###,##0"), Octubre.ToString("###,###,###.00")) }"
+ End If
+
+ If x = 35 Then
+ e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Noviembre.ToString("###,###,##0"), Noviembre.ToString("###,###,###.00")) }"
+ End If
+
+ If x = 38 Then
+ e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Diciembre.ToString("###,###,##0"), Diciembre.ToString("###,###,###.00")) }"
+ End If
+ Next
+ If Enero = 0 Then
+ e.Row.Cells(2).Text = "-"
+ End If
+
End If
- End Sub
-
- Public Sub setgrafica(e As GridViewRowEventArgs)
-
- If e.Row.RowType = DataControlRowType.DataRow Then
- 'Dim Lista2 As New List(Of String)
- 'Lista2.Add($"['{"Enero"}',{e.Row.DBCampo("Enero").ToDecimal()}]")
- 'Lista2.Add($"['{"Febrero"}',{e.Row.DBCampo("Febrero").ToDecimal()}]")
- 'Lista2.Add($"['{"Marzo"}',{e.Row.DBCampo("Marzo").ToDecimal()}]")
- 'Lista2.Add($"['{"Abril"}',{e.Row.DBCampo("Abril").ToDecimal()}]")
- 'Lista2.Add($"['{"Mayo"}',{e.Row.DBCampo("Mayo").ToDecimal()}]")
- 'Lista2.Add($"['{"Junio"}',{e.Row.DBCampo("Junio").ToDecimal()}]")
- 'Lista2.Add($"['{"Julio"}',{e.Row.DBCampo("Julio").ToDecimal()}]")
- 'Lista2.Add($"['{"Agosto"}',{e.Row.DBCampo("Agosto").ToDecimal()}]")
- 'Lista2.Add($"['{"Septiembre"}',{e.Row.DBCampo("Septiembre").ToDecimal()}]")
- 'Lista2.Add($"['{"Octubre"}',{e.Row.DBCampo("Octubre").ToDecimal()}]")
- 'Lista2.Add($"['{"Noviembre"}',{e.Row.DBCampo("Noviembre").ToDecimal()}]")
- 'Lista2.Add($"['{"Diciembre"}',{e.Row.DBCampo("Diciembre").ToDecimal()}]")
-
- Dim ListaDatos As New List(Of String)
- Dim ListaCategorias As New List(Of String)
-
- ListaDatos.Add(e.Row.DBCampo("Enero").ToDecimal.ToString("###########0.00"))
- ListaDatos.Add(e.Row.DBCampo("Febrero").ToDecimal.ToString("###########0.00"))
- ListaDatos.Add(e.Row.DBCampo("Marzo").ToDecimal.ToString("###########0.00"))
- ListaDatos.Add(e.Row.DBCampo("Abril").ToDecimal.ToString("###########0.00"))
- ListaDatos.Add(e.Row.DBCampo("Mayo").ToDecimal.ToString("###########0.00"))
- ListaDatos.Add(e.Row.DBCampo("Junio").ToDecimal.ToString("###########0.00"))
- ListaDatos.Add(e.Row.DBCampo("Julio").ToDecimal.ToString("###########0.00"))
- ListaDatos.Add(e.Row.DBCampo("Agosto").ToDecimal.ToString("###########0.00"))
- ListaDatos.Add(e.Row.DBCampo("Septiembre").ToDecimal.ToString("###########0.00"))
- ListaDatos.Add(e.Row.DBCampo("Octubre").ToDecimal.ToString("###########0.00"))
- ListaDatos.Add(e.Row.DBCampo("Noviembre").ToDecimal.ToString("###########0.00"))
- ListaDatos.Add(e.Row.DBCampo("Diciembre").ToDecimal.ToString("###########0.00"))
-
- ListaCategorias.Add($"""Enero""")
- ListaCategorias.Add($"""Febrero""")
- ListaCategorias.Add($"""Marzo""")
- ListaCategorias.Add($"""Abril""")
- ListaCategorias.Add($"""Mayo""")
- ListaCategorias.Add($"""Junio""")
- ListaCategorias.Add($"""Junio""")
- ListaCategorias.Add($"""Agosto""")
- ListaCategorias.Add($"""Septiembre""")
- ListaCategorias.Add($"""Octubre""")
- ListaCategorias.Add($"""Noviembre""")
- ListaCategorias.Add($"""Diciembre""")
-
- Dim Titulo As String = e.Row.FCLabel("LblNombre").Text
- Dim SubTitulo As String = ""
- Dim YReferencia As String = "Valor"
- Dim Info As String = ""
- Dim XReferencia As String = "Periodos"
- Dim Promedio As String = ""
-
-
- 'e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
-
- 'If e.Row.DataKey("Tipo").ToEntero <> 1 Then
- 'Dim Info = String.Join(",", Lista2)
- 'e.Row.FCHyperLink("Hypgrafica").Attributes.Add("onclick", "$('#DivModalGrafica').modal('show'); " &
- ' String.Format("graficahighchartsFinan('{0}','{1}','{2}','{3}',[{4}],1,'{5}','{6}',[{8}],[{7}],'{9}','{10}');", chartdiv2.ClientID, "", "", "$", Info, "", 0, "", "", e.Row.DBCampo("Nombre"), e.Row.FCHyperLink("Hypgrafica").ClientID))
-
-
-
- e.Row.FCHyperLink("hpl2").Attributes.Add("onclick", "$('#DivModalGrafica').modal('show'); " &
- String.Format("graficahighchartsFinan('{0}','{1}','{2}','{3}',[{4}],'{5}','{5}','{6}',[{8}],[{7}],'{9}','{10}');", chartdiv2.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia, Promedio, "", "", e.Row.FCCheckBox("chkgraf").ClientID, e.Row.FCHyperLink("hpl2").ClientID))
-
- e.Row.FCCheckBox("chkgraf").InputAttributes.Add("class", "chksel")
- e.Row.FCCheckBox("chkgraf").InputAttributes.Add("data-name", e.Row.FCLabel("LblNombre").Text)
- e.Row.FCCheckBox("chkgraf").InputAttributes.Add("data-data", $"[{String.Join(",", ListaDatos)}]")
- e.Row.FCCheckBox("chkgraf").InputAttributes.Add("data-categorias", $"[{String.Join(",", ListaCategorias)}]")
-
- End If
-
- If e.Row.RowType = DataControlRowType.Header Then
- e.Row.FCHyperLink("hpl2").Attributes.Add("onclick", "$('#DivModalGrafica').modal('show'); " &
- String.Format("graficahighchartsFinan('{0}','{1}','{2}','{3}',[{4}],'{5}','{5}','{6}',[{8}],[{7}],'{9}','{10}' );", chartdiv2.ClientID, "Selección multiple", "", "Valores", "", "Periodos", "", "", "", "", e.Row.FCHyperLink("hpl2").ClientID))
- End If
-
-
-
- 'Else
- ' e.Row.FCHyperLink("hpl2").Visible = False
- 'End If
-
- End Sub
+ End Sub
+
+ Public Sub setgrafica(e As GridViewRowEventArgs)
+
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ 'Dim Lista2 As New List(Of String)
+ 'Lista2.Add($"['{"Enero"}',{e.Row.DBCampo("Enero").ToDecimal()}]")
+ 'Lista2.Add($"['{"Febrero"}',{e.Row.DBCampo("Febrero").ToDecimal()}]")
+ 'Lista2.Add($"['{"Marzo"}',{e.Row.DBCampo("Marzo").ToDecimal()}]")
+ 'Lista2.Add($"['{"Abril"}',{e.Row.DBCampo("Abril").ToDecimal()}]")
+ 'Lista2.Add($"['{"Mayo"}',{e.Row.DBCampo("Mayo").ToDecimal()}]")
+ 'Lista2.Add($"['{"Junio"}',{e.Row.DBCampo("Junio").ToDecimal()}]")
+ 'Lista2.Add($"['{"Julio"}',{e.Row.DBCampo("Julio").ToDecimal()}]")
+ 'Lista2.Add($"['{"Agosto"}',{e.Row.DBCampo("Agosto").ToDecimal()}]")
+ 'Lista2.Add($"['{"Septiembre"}',{e.Row.DBCampo("Septiembre").ToDecimal()}]")
+ 'Lista2.Add($"['{"Octubre"}',{e.Row.DBCampo("Octubre").ToDecimal()}]")
+ 'Lista2.Add($"['{"Noviembre"}',{e.Row.DBCampo("Noviembre").ToDecimal()}]")
+ 'Lista2.Add($"['{"Diciembre"}',{e.Row.DBCampo("Diciembre").ToDecimal()}]")
+
+ Dim ListaDatos As New List(Of String)
+ Dim ListaCategorias As New List(Of String)
+
+ ListaDatos.Add(e.Row.DBCampo("Enero").ToDecimal.ToString("###########0.00"))
+ ListaDatos.Add(e.Row.DBCampo("Febrero").ToDecimal.ToString("###########0.00"))
+ ListaDatos.Add(e.Row.DBCampo("Marzo").ToDecimal.ToString("###########0.00"))
+ ListaDatos.Add(e.Row.DBCampo("Abril").ToDecimal.ToString("###########0.00"))
+ ListaDatos.Add(e.Row.DBCampo("Mayo").ToDecimal.ToString("###########0.00"))
+ ListaDatos.Add(e.Row.DBCampo("Junio").ToDecimal.ToString("###########0.00"))
+ ListaDatos.Add(e.Row.DBCampo("Julio").ToDecimal.ToString("###########0.00"))
+ ListaDatos.Add(e.Row.DBCampo("Agosto").ToDecimal.ToString("###########0.00"))
+ ListaDatos.Add(e.Row.DBCampo("Septiembre").ToDecimal.ToString("###########0.00"))
+ ListaDatos.Add(e.Row.DBCampo("Octubre").ToDecimal.ToString("###########0.00"))
+ ListaDatos.Add(e.Row.DBCampo("Noviembre").ToDecimal.ToString("###########0.00"))
+ ListaDatos.Add(e.Row.DBCampo("Diciembre").ToDecimal.ToString("###########0.00"))
+
+ ListaCategorias.Add($"""Enero""")
+ ListaCategorias.Add($"""Febrero""")
+ ListaCategorias.Add($"""Marzo""")
+ ListaCategorias.Add($"""Abril""")
+ ListaCategorias.Add($"""Mayo""")
+ ListaCategorias.Add($"""Junio""")
+ ListaCategorias.Add($"""Junio""")
+ ListaCategorias.Add($"""Agosto""")
+ ListaCategorias.Add($"""Septiembre""")
+ ListaCategorias.Add($"""Octubre""")
+ ListaCategorias.Add($"""Noviembre""")
+ ListaCategorias.Add($"""Diciembre""")
+
+ Dim Titulo As String = e.Row.FCLabel("LblNombre").Text
+ Dim SubTitulo As String = ""
+ Dim YReferencia As String = "Valor"
+ Dim Info As String = ""
+ Dim XReferencia As String = "Periodos"
+ Dim Promedio As String = ""
+
+
+ 'e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
+
+ 'If e.Row.DataKey("Tipo").ToEntero <> 1 Then
+ 'Dim Info = String.Join(",", Lista2)
+ 'e.Row.FCHyperLink("Hypgrafica").Attributes.Add("onclick", "$('#DivModalGrafica').modal('show'); " &
+ ' String.Format("graficahighchartsFinan('{0}','{1}','{2}','{3}',[{4}],1,'{5}','{6}',[{8}],[{7}],'{9}','{10}');", chartdiv2.ClientID, "", "", "$", Info, "", 0, "", "", e.Row.DBCampo("Nombre"), e.Row.FCHyperLink("Hypgrafica").ClientID))
+
+
+
+ e.Row.FCHyperLink("hpl2").Attributes.Add("onclick", "$('#DivModalGrafica').modal('show'); " &
+ String.Format("graficahighchartsFinan('{0}','{1}','{2}','{3}',[{4}],'{5}','{5}','{6}',[{8}],[{7}],'{9}','{10}');", chartdiv2.ClientID, Titulo, SubTitulo, YReferencia, Info, XReferencia, Promedio, "", "", e.Row.FCCheckBox("chkgraf").ClientID, e.Row.FCHyperLink("hpl2").ClientID))
+
+ e.Row.FCCheckBox("chkgraf").InputAttributes.Add("class", "chksel")
+ e.Row.FCCheckBox("chkgraf").InputAttributes.Add("data-name", e.Row.FCLabel("LblNombre").Text)
+ e.Row.FCCheckBox("chkgraf").InputAttributes.Add("data-data", $"[{String.Join(",", ListaDatos)}]")
+ e.Row.FCCheckBox("chkgraf").InputAttributes.Add("data-categorias", $"[{String.Join(",", ListaCategorias)}]")
+
+ End If
+
+ If e.Row.RowType = DataControlRowType.Header Then
+ e.Row.FCHyperLink("hpl2").Attributes.Add("onclick", "$('#DivModalGrafica').modal('show'); " &
+ String.Format("graficahighchartsFinan('{0}','{1}','{2}','{3}',[{4}],'{5}','{5}','{6}',[{8}],[{7}],'{9}','{10}' );", chartdiv2.ClientID, "Selección multiple", "", "Valores", "", "Periodos", "", "", "", "", e.Row.FCHyperLink("hpl2").ClientID))
+ End If
+
+
+
+ 'Else
+ ' e.Row.FCHyperLink("hpl2").Visible = False
+ 'End If
+
+ End Sub
#End Region
-
- Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-
- Dim SbFiltros As New StringBuilder()
- SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
- SbFiltros.AppendFormat("Cuenta : {0}|", DdlCuentas.SelectedItem.Text)
- SbFiltros.AppendFormat("Centro Costo : {0}|", If(DdlSubproyecto.SelectedValue.ToEntero > 0, DdlSubproyecto.SelectedItem.Text, "Todos"))
- SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
-
- GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, "Anexo del Catálogo - Mensual", DatosFiltros:=SbFiltros.ToString())
-
- End Sub
-
- Public Overrides Sub VerifyRenderingInServerForm(control As Control)
- ' Verifies that the control is rendered
- End Sub
+
+ Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+ Dim SbFiltros As New StringBuilder()
+ SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
+ SbFiltros.AppendFormat("Cuenta : {0}|", DdlCuentas.SelectedItem.Text)
+ SbFiltros.AppendFormat("Centro Costo : {0}|", If(DdlSubproyecto.SelectedValue.ToEntero > 0, DdlSubproyecto.SelectedItem.Text, "Todos"))
+ SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
+
+ GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, "Anexo del Catálogo - Mensual", DatosFiltros:=SbFiltros.ToString())
+
+ End Sub
+
+ Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+ ' Verifies that the control is rendered
+ End Sub
-
- 'Protected Sub DdlGrafica_SelectedIndexChanged(sender As Object, e As EventArgs)
- ' RegistraScript("recargaGrafica();")
- 'End Sub
+
+ 'Protected Sub DdlGrafica_SelectedIndexChanged(sender As Object, e As EventArgs)
+ ' RegistraScript("recargaGrafica();")
+ 'End Sub
End Class
diff --git a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx b/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx
similarity index 100%
rename from Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx
rename to Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx
diff --git a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb b/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb
similarity index 98%
rename from Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
rename to Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb
index f137102a7..2f0ba70a5 100644
--- a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
+++ b/Contabilidad/RepAnexoCatalogoMensualHorizontal.aspx.vb
@@ -6,9 +6,9 @@ Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
- Inherits ClsPaginas
-
-
+ Inherits ClsPaginas
+
+
#Region "PROPIEDADES"
Private Property DtDatos As DataTable
Get
@@ -68,9 +68,9 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
Set(value As Integer)
ViewState("TP") = value
End Set
- End Property
+ End Property
#End Region
-
+
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim ErrorParametros = True
@@ -142,10 +142,10 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
End If
End If
- End Sub
-
+ End Sub
+
#Region "CARGA DATOS Y GRID"
-
+
Private Sub CargaTipoCuentas()
'Dim ObjTipoCuenta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjTipoCuenta As New ClsContabilidad
@@ -211,9 +211,9 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
RegistraScript("Scroll();")
End If
- End Sub
+ End Sub
#End Region
-
+
Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
@@ -250,7 +250,7 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
End If
- e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
+ e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
End If
End Sub
@@ -277,7 +277,7 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString))
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("usuarioImprimio", UsuarioActual.Nombre))
- Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+ Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
diff --git a/Contabilidad2/RepAnexoCatalogoSAT.aspx.exclude b/Contabilidad/RepAnexoCatalogoSAT.aspx.exclude
similarity index 100%
rename from Contabilidad2/RepAnexoCatalogoSAT.aspx.exclude
rename to Contabilidad/RepAnexoCatalogoSAT.aspx.exclude
diff --git a/Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude b/Contabilidad/RepAnexoCatalogoSAT.aspx.vb.exclude
similarity index 97%
rename from Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude
rename to Contabilidad/RepAnexoCatalogoSAT.aspx.vb.exclude
index 08ec57651..338154b6e 100644
--- a/Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude
+++ b/Contabilidad/RepAnexoCatalogoSAT.aspx.vb.exclude
@@ -253,7 +253,7 @@ Partial Class FinanzasSAT_RepAnexoCatalogo
e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
End If
- ' e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
+ ' e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
End If
End Sub
diff --git a/Contabilidad2/RepAnexoCatalogoVertical.aspx b/Contabilidad/RepAnexoCatalogoVertical.aspx
similarity index 100%
rename from Contabilidad2/RepAnexoCatalogoVertical.aspx
rename to Contabilidad/RepAnexoCatalogoVertical.aspx
diff --git a/Contabilidad2/RepAnexoCatalogoVertical.aspx.vb b/Contabilidad/RepAnexoCatalogoVertical.aspx.vb
similarity index 100%
rename from Contabilidad2/RepAnexoCatalogoVertical.aspx.vb
rename to Contabilidad/RepAnexoCatalogoVertical.aspx.vb
diff --git a/Contabilidad/RepBalanceGeneral.aspx b/Contabilidad/RepBalanceGeneral.aspx
index f2b58ef5d..de6191e32 100644
--- a/Contabilidad/RepBalanceGeneral.aspx
+++ b/Contabilidad/RepBalanceGeneral.aspx
@@ -1,100 +1,101 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepBalanceGeneral.aspx.vb" Inherits="Contabilidad_RepBalanceGeneral" %>
-
+
+
+
+
+
+
+
+
+
Exporta Excel
<%--
- Imprimir
+ Imprimir
<%--
+
+ Cerrar Ejercicio
+
-
-
-
-
-
-
-
- BALANCE GENERAL
-
-
-
+
+
+
+
+
-
-
-
-
-
-
-
- Divisor:
-
-
-
-
+
-
+ Divisor:
-
- Trimestre Cuatrimestre:
-
-
-
- NO
- Trimestre
- Cuatrimestre
-
+
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%--
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%--
-
-
- Nombre
-
-
-
-
-
-
-
-
-
-
+
+
-
- <%--
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+ Normal
+ Consolidado
+
+
+
+ >
+
@@ -103,833 +104,528 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
+
+
-
+ ACTIVO- <%--NORMAL--%> -+ + + +
+
+ |
+
-
+
+ PASIVO++ + + + |
+ ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
+
|
+ ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
-
-
+
+
+
-
+
+ +
-
-
-
-
-
-
-
- <%--MENSUAL--%>
-
-
+
+
-
+
-
-
-
+
+
+
+
-
+
-
+
+
-
+
-
-Poliza: {0}", CvePrepoliza), TipoMensaje.MsgInformacion) + objConta.Commit() + Else + Alert("Ocurrio un error al realizar el cierre", TipoMensaje.MsgError) + objConta.RollBack() + End If + objConta.Dispose() End Sub -#End Region - -End Class \ No newline at end of file + Private Sub CargaCtaContableE() + Dim ObjConta As New ClsContabilidad + If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then + DdlCuentas.DataSource = ObjConta.DtResultados.FiltraParametros("Tipo = 'F' or Tipo = 'E' ", "") + End If + ObjConta.Dispose() + DdlCuentas.DataBind() + DdlCuentas.Items.Insert(0, New ListItem("Seleccionar", "-1")) + End Sub +End Class diff --git a/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude b/Contabilidad/RepBalanceGeneral.aspx.vb.exclude similarity index 84% rename from Contabilidad2/RepBalanceGeneral.aspx.vb.exclude rename to Contabilidad/RepBalanceGeneral.aspx.vb.exclude index 45a0fcf15..9159383f2 100644 --- a/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude +++ b/Contabilidad/RepBalanceGeneral.aspx.vb.exclude @@ -527,8 +527,8 @@ Partial Class Contabilidad2_RepBalanceGeneral TotalActivoAnterior += e.Row.DBCampo("ImporteAnterior").ToString.ToDouble e.Row.FCLabel("LbNombre").Font.Italic = True Else - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) End If If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then @@ -551,11 +551,11 @@ Partial Class Contabilidad2_RepBalanceGeneral 'Cuentas Else - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - 'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) - 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString) + 'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) + 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString) End If @@ -583,11 +583,11 @@ Partial Class Contabilidad2_RepBalanceGeneral 'e.Row.ControlStyle.ForeColor = Drawing.Color.White 'e.Row.ControlStyle.Font.Bold = True Else - e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - 'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) - 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFAnterior").ToDate.ToShortDateString) + 'e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) + 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/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 @@ -691,27 +691,27 @@ Partial Class Contabilidad2_RepBalanceGeneral ' If e.Row.DBCampo("CtaMayor").ToString.ToEntero = 1 Then ' e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;") - ' e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/02/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("09/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/11/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/02/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("09/01/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/11/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&TP={2}&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLTrimestral1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLTrimestral2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLTrimestral3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLTrimestral4").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLTrimestral1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/03/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLTrimestral2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/06/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLTrimestral3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/07/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLTrimestral4").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/10/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLCuatrimestral1").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLCuatrimestral2").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) - ' e.Row.FCHyperLink("HLCuatrimestral3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLCuatrimestral1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/04/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLCuatrimestral2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/05/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/08/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLCuatrimestral3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/09/{0}", DdlEjercicio.SelectedValue.ToString), String.Format("01/12/{0}", DdlEjercicio.SelectedValue.ToString).ToDate.LastDayOfMonth.ToShortDateString, TipoReporte, DdlSubproyecto.SelectedValue) ' End If @@ -797,7 +797,7 @@ Partial Class Contabilidad2_RepBalanceGeneral ' e.Row.FCLabel("LbNombre").Attributes.Add("style", "padding-left: 20px;") ' For index = 1 To Anos - ' e.Row.FCHyperLink("HLAno" + index.ToString).NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), String.Format("31/12/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), TipoReporte, DdlSubproyecto.SelectedValue) + ' e.Row.FCHyperLink("HLAno" + index.ToString).NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&TP={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), String.Format("01/01/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), String.Format("31/12/{0}", (DdlEjercicio.SelectedValue.ToEntero + index - 1).ToString), TipoReporte, DdlSubproyecto.SelectedValue) ' Next ' End If diff --git a/Contabilidad/RepBalanceGeneralCI.aspx b/Contabilidad/RepBalanceGeneralCI.aspx new file mode 100644 index 000000000..44fcce506 --- /dev/null +++ b/Contabilidad/RepBalanceGeneralCI.aspx @@ -0,0 +1,935 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepBalanceGeneralCI.aspx.vb" Inherits="Contabilidad_RepBalanceGeneralCI" %> + +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ + + +
+
+
+
+
+
+
+
+
+
+
+
+
+ +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%--
-
- --%>
+
+
@@ -119,11 +119,11 @@
+
+
+ <%--
+
+ --%>
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
- - - - - -
+
+
+
+
+
+
+
+
+ + + + + +
-
+
+
+
-
+
+
-
+
-
+
-
+
-
+
+
+
diff --git a/Contabilidad/RepBalanzaComprobacion.aspx.vb b/Contabilidad/RepBalanzaComprobacion.aspx.vb
index 00372d807..131bf3e00 100644
--- a/Contabilidad/RepBalanzaComprobacion.aspx.vb
+++ b/Contabilidad/RepBalanzaComprobacion.aspx.vb
@@ -1,11 +1,12 @@
Option Explicit On
Option Strict On
+Imports System
Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms
-Partial Class Contabilidad_RepBalanzaComprobacion
+Partial Class Contabilidad2_RepBalanzaComprobacion
Inherits ClsPaginas
@@ -53,58 +54,100 @@ Partial Class Contabilidad_RepBalanzaComprobacion
End Set
End Property
+ Private Property CveProyecto As Integer
+ Get
+ CveProyecto = ViewState("CveProyecto").ToString.ToEntero
+ End Get
+ Set(value As Integer)
+ ViewState("CveProyecto") = value
+ End Set
+ End Property
+ Private Property CveSubProyecto As Integer
+ Get
+ CveSubProyecto = ViewState("CveSubProyecto").ToString.ToEntero
+ End Get
+ Set(value As Integer)
+ ViewState("CveSubProyecto") = value
+ End Set
+ End Property
+
#End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
+
+ 'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ ' Response.Redirect($"/Contabilidad/RepBalanzaComprobacion.aspx")
+ 'End If
+
Dim ErrorParametros = True
ModoImpresion = False
TxtFechaDel.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
TxtFechaAl.Text = NowADS().ToShortDateString
- If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then
- BtnConsultar.Enabled = True
- If Request("ID") IsNot Nothing AndAlso IsNumeric(Request("ID")) AndAlso Request("ID").ToEntero > 0 Then
- 'If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
- If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
- IdCuenta = Request("ID").ToEntero
- 'FechaInicio = Request("FI").ToDate
- FechaFin = Request("FF").ToDate
- FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
- ErrorParametros = False
- End If
- 'End If
- End If
- If Not ErrorParametros Then
- CargaDatos()
+ If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
+ 'If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
+ If Request("FF") IsNot Nothing AndAlso Request("FF").ToString.Length = 10 AndAlso Request("FF").ToDate > "01/01/1000".ToDate Then
+ IdCuenta = Request("CveCuenta").ToEntero
+ 'FechaInicio = Request("FI").ToDate
+ FechaFin = Request("FF").ToDate
+ FechaInicio = DateSerial(Year(FechaFin), Month(FechaFin), 1)
+ ErrorParametros = False
End If
-
- If IsNothing(DtDatos) Then
- FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
- FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
- CargaDatos()
- End If
- Else
- Alert("La empresa no usa Armonización Contable o Contabilidad.", TipoMensaje.MsgAdvertencia)
+ 'End If
End If
+ DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+ DdlSubproyecto.DataBind()
+
+ If Not ErrorParametros Then
+ CargaDatos()
+ End If
+ CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
+
End If
End Sub
+ Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+ CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
+ End Sub
+
#Region "CARGA DATOS Y GRID"
Private Sub CargaDatos()
- Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
+ ' Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
- If ObjConta.GetBalanzaComprobacion(FechaInicio, FechaFin, DdlTipoCuentas.SelectedValue.ToEntero) Then
+ Dim ObjConta As New ClsContabilidad
+
+ CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToEntero
+ CveProyecto = DdlProyecto.SelectedValue.ToEntero.ToEntero
+
+ Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
+
+ If TipoReporte = 1 Then
+ 'mostrar cuales son las cuentas que no tienen asignado el agrupador que sean afectables
+
+ If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+ Dim dtt As DataTable = ObjConta.DtResultados.FiltraParametros("CveAgrupadorSAT is null and not Codigo like '_%'")
+ If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then
+ Dim str As New StringBuilder
+ For Each dr As DataRow In dtt.Rows
+ str.AppendFormat(" - {0} ", dr("CtaCodigo"))
+ Next
+ Alert(str.ToString)
+ End If
+ End If
+
+ End If
+
+ If ObjConta.GetBalanzaComprobacion(FechaInicio, FechaFin, DdlTipoCuentas.SelectedValue.ToEntero, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, DdlVista.SelectedValue.ToEntero, DdlNivel.SelectedValue.ToEntero) Then
DtDatos = ObjConta.DtResultados
-
- CargaGrid()
Else
DtDatos = Nothing
Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError)
End If
ObjConta.Dispose()
+ CargaGrid()
End Sub
Private Sub CargaGrid()
GvDatos.DataSource = DtDatos
@@ -126,7 +169,7 @@ Partial Class Contabilidad_RepBalanzaComprobacion
Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
- If e.Row.DBCampo("CtaMayor") = "1" Or e.Row.DBCampo("CtaMayor") = "1" Then
+ If e.Row.DBCampo("CtaMayor") = "1" OrElse e.Row.DBCampo("CtaMayor") = "3" OrElse e.Row.DBCampo("CtaMayor") = "4" Then
e.Row.ControlStyle.Font.Bold = True
End If
@@ -152,6 +195,7 @@ Partial Class Contabilidad_RepBalanzaComprobacion
'Total general
If e.Row.DBCampo("Id") = "" Then
+
e.Row.ControlStyle.Font.Bold = True
e.Row.ControlStyle.Font.Size = 9
e.Row.ControlStyle.Height = 30
@@ -162,51 +206,19 @@ Partial Class Contabilidad_RepBalanzaComprobacion
e.Row.FCLabel("LbSaldoActual").Visible = True
e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0}
+
+
{1}", e.Row.DBCampo("SaldoAD").FormatoNumero, e.Row.DBCampo("SaldoAA").FormatoNumero) Else - If ModoImpresion Then e.Row.Cells(5).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("ID"), FechaFin.ToShortDateString) + If ModoImpresion Then e.Row.Cells(5).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto) End If - End If End Sub Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click ModoImpresion = True - CargaGrid() - FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate) - FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate) + CargaDatos() - 'RegistraScript("Enable();") + ImprimirReporte() - GenerarPDFCrystal() - - 'Using sw As New StringWriter() - ' Using hw As New HtmlTextWriter(sw) - - ' Dim style As StringBuilder = New StringBuilder() - ' style.Append(" ") - ' 'To Export all pages - ' 'Gv.AllowPaging = False - ' 'Gv.DataBind() - ' Tbl.RenderControl(hw) - ' Dim sr As New StringReader(sw.ToString()) - ' Dim pdfDoc As New Document(PageSize.A2, 10.0F, 10.0F, 10.0F, 0.0F) - ' Dim htmlparser As New HTMLWorker(pdfDoc) - ' PdfWriter.GetInstance(pdfDoc, Response.OutputStream) - ' pdfDoc.Open() - ' htmlparser.Parse(sr) - ' pdfDoc.Close() - - ' Response.ContentType = "application/pdf" - ' Response.AddHeader("content-disposition", "attachment;filename=BalanzaComprobacion.pdf") - ' Response.Cache.SetCacheability(HttpCacheability.NoCache) - ' Response.Write(style.ToString) - ' Response.Write(pdfDoc) - ' Response.[End]() - ' End Using - 'End Using End Sub 'No quitar porque no funciona el exporta PDF @@ -216,58 +228,25 @@ Partial Class Contabilidad_RepBalanzaComprobacion Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click - 'GvDatos.ExportToExcel("BalanzaComprobacion") - ModoImpresion = True - CargaGrid() - FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate) - FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate) - - 'RegistraScript("Enable();") - - GenerarPDFCrystal("EXCEL") + ImprimirReporte("Excel") End Sub - Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF") - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Contabilidad/Reportes/RepBalanzaComprobacion.rpt", Server.MapPath("~"))) + + Private Sub ImprimirReporte(Optional Formato As String = "PDF") + 'ubicacion del rdlc + Dim reportpath As String = "Contabilidad/Reportes/RepBalanzaComprobacion.rdlc" + 'nombre del reporte + Dim fileName As String = "BalanzaComprobacion" + 'parametros a enviar al reporte + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - 'If UsuarioActual.CveUsuario = 100 Then - ' Alert(String.Format("{0}Contabilidad/Reportes/RepBalanzaComprobacion.rpt", Server.MapPath("~"))) - ' End If - ' Exit Sub - - If Not IsNothing(DtDatos) Then - 'Dim dr As DataRow = DtCxC.Rows(0) - Dim lista = New List(Of CrystalParametro) - lista.Add(New CrystalParametro("pEmp", UsuarioActual.Empresa.Empresa)) - lista.Add(New CrystalParametro("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) - lista.Add(New CrystalParametro("pFechaIni", FechaInicio.ToString("dd/MM/yyyy"))) - lista.Add(New CrystalParametro("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - - Dim DTTemp As DataTable = DtDatos.Copy - - ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Contabilidad/Reportes/RepBalanzaComprobacion.rpt"), DTTemp, lista, "Balanza de Comprobación", Formato), "Balanza de Comprobación", Formato) - - Else - Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia) - End If + params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) + ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) End Sub - 'Private Sub ImprimirReporte(Optional Formato As String = "PDF") - ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - ' 'ubicacion del rdlc - ' Dim reportpath As String = "Contabilidad/Reportes/RepBalanzaComprobacion.rdlc" - ' 'nombre del reporte - ' Dim fileName As String = "BalanzaComprobacion" - ' '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", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - ' params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) - ' params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy"))) - - ' ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) - 'End Sub End Class diff --git a/Contabilidad/RepBalanzaComprobacionCI.aspx b/Contabilidad/RepBalanzaComprobacionCI.aspx new file mode 100644 index 000000000..ea742be57 --- /dev/null +++ b/Contabilidad/RepBalanzaComprobacionCI.aspx @@ -0,0 +1,158 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepBalanzaComprobacionCI.aspx.vb" Inherits="Contabilidad_RepBalanzaComprobacion" %> + +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ +
{1}", e.Row.DBCampo("SaldoID").FormatoNumero, e.Row.DBCampo("SaldoIA").FormatoNumero) + e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("TotalCargos").FormatoNumero + e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("TotalAbonos").FormatoNumero + e.Row.FCLabel("LbSaldoActual").Visible = True + e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0} {1}", e.Row.DBCampo("SaldoAD").FormatoNumero, e.Row.DBCampo("SaldoAA").FormatoNumero) + Else + If ModoImpresion Then e.Row.Cells(5).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("ID"), FechaFin.ToShortDateString) + End If + + End If + End Sub + + + Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click + ModoImpresion = True + CargaGrid() + + FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate) + FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate) + + 'RegistraScript("Enable();") + + GenerarPDFCrystal() + + 'Using sw As New StringWriter() + ' Using hw As New HtmlTextWriter(sw) + + ' Dim style As StringBuilder = New StringBuilder() + ' style.Append(" ") + ' 'To Export all pages + ' 'Gv.AllowPaging = False + ' 'Gv.DataBind() + ' Tbl.RenderControl(hw) + ' Dim sr As New StringReader(sw.ToString()) + ' Dim pdfDoc As New Document(PageSize.A2, 10.0F, 10.0F, 10.0F, 0.0F) + ' Dim htmlparser As New HTMLWorker(pdfDoc) + ' PdfWriter.GetInstance(pdfDoc, Response.OutputStream) + ' pdfDoc.Open() + ' htmlparser.Parse(sr) + ' pdfDoc.Close() + + ' Response.ContentType = "application/pdf" + ' Response.AddHeader("content-disposition", "attachment;filename=BalanzaComprobacion.pdf") + ' Response.Cache.SetCacheability(HttpCacheability.NoCache) + ' Response.Write(style.ToString) + ' Response.Write(pdfDoc) + ' Response.[End]() + ' End Using + 'End Using + + End Sub + 'No quitar porque no funciona el exporta PDF + Public Overrides Sub VerifyRenderingInServerForm(control As Control) + ' Verifies that the control is rendered + End Sub + + + Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click + 'GvDatos.ExportToExcel("BalanzaComprobacion") + ModoImpresion = True + CargaGrid() + + FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate) + FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate) + + 'RegistraScript("Enable();") + + GenerarPDFCrystal("EXCEL") + End Sub + Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF") + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Contabilidad/Reportes/RepBalanzaComprobacion.rpt", Server.MapPath("~"))) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + 'If UsuarioActual.CveUsuario = 100 Then + ' Alert(String.Format("{0}Contabilidad/Reportes/RepBalanzaComprobacion.rpt", Server.MapPath("~"))) + ' End If + ' Exit Sub + + If Not IsNothing(DtDatos) Then + 'Dim dr As DataRow = DtCxC.Rows(0) + Dim lista = New List(Of CrystalParametro) + lista.Add(New CrystalParametro("pEmp", UsuarioActual.Empresa.Empresa)) + lista.Add(New CrystalParametro("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) + lista.Add(New CrystalParametro("pFechaIni", FechaInicio.ToString("dd/MM/yyyy"))) + lista.Add(New CrystalParametro("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + + Dim DTTemp As DataTable = DtDatos.Copy + + ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Contabilidad/Reportes/RepBalanzaComprobacion.rpt"), DTTemp, lista, "Balanza de Comprobación", Formato), "Balanza de Comprobación", Formato) + + Else + Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia) + End If + + End Sub + 'Private Sub ImprimirReporte(Optional Formato As String = "PDF") + ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + ' 'ubicacion del rdlc + ' Dim reportpath As String = "Contabilidad/Reportes/RepBalanzaComprobacion.rdlc" + ' 'nombre del reporte + ' Dim fileName As String = "BalanzaComprobacion" + ' '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", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + ' params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) + ' params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy"))) + + ' ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) + 'End Sub + +End Class diff --git a/Contabilidad2/RepBalanzaComprobacionSAT.aspx.exclude b/Contabilidad/RepBalanzaComprobacionSAT.aspx.exclude similarity index 100% rename from Contabilidad2/RepBalanzaComprobacionSAT.aspx.exclude rename to Contabilidad/RepBalanzaComprobacionSAT.aspx.exclude diff --git a/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude b/Contabilidad/RepBalanzaComprobacionSAT.aspx.vb.exclude similarity index 100% rename from Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude rename to Contabilidad/RepBalanzaComprobacionSAT.aspx.vb.exclude diff --git a/Contabilidad2/RepCambiosSituacionFinanciera.aspx b/Contabilidad/RepCambiosSituacionFinanciera.aspx similarity index 100% rename from Contabilidad2/RepCambiosSituacionFinanciera.aspx rename to Contabilidad/RepCambiosSituacionFinanciera.aspx diff --git a/Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb b/Contabilidad/RepCambiosSituacionFinanciera.aspx.vb similarity index 100% rename from Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb rename to Contabilidad/RepCambiosSituacionFinanciera.aspx.vb diff --git a/Contabilidad2/RepEstadoActividades.aspx b/Contabilidad/RepEstadoActividades.aspx similarity index 100% rename from Contabilidad2/RepEstadoActividades.aspx rename to Contabilidad/RepEstadoActividades.aspx diff --git a/Contabilidad/RepEstadoActividades.aspx.vb b/Contabilidad/RepEstadoActividades.aspx.vb new file mode 100644 index 000000000..1c403019b --- /dev/null +++ b/Contabilidad/RepEstadoActividades.aspx.vb @@ -0,0 +1,500 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports System.Drawing +Imports Extensiones +Imports Microsoft.Reporting.WebForms + +Partial Class AC_RepEstadoActividades + Inherits ClsPaginas + +#Region "PROPIEDADES" + Private Property DtDatos As DataTable + Get + DtDatos = DirectCast(ViewState("DtDatos"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtDatos") = value + End Set + End Property + Private Property DtIngresos As DataTable + Get + DtIngresos = DirectCast(ViewState("DtIngresos"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtIngresos") = value + End Set + End Property + Private Property DtGastos As DataTable + Get + DtGastos = DirectCast(ViewState("DtGastos"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtGastos") = value + End Set + End Property + Private Property TotalActual As Double + Get + TotalActual = ViewState("TotalActual").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalActual") = value + End Set + End Property + Private Property TotalAnterior As Double + Get + TotalAnterior = ViewState("TotalAnterior").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalAnterior") = value + End Set + End Property + Private Property FechaI As String + Get + Return ViewState("FechaI").ToString + End Get + Set(value As String) + ViewState("FechaI") = value + End Set + End Property + Private Property FechaF As String + Get + Return ViewState("FechaF").ToString + End Get + Set(value As String) + ViewState("FechaF") = value + 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 + + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + + If UsuarioActual.Empresa.UsaAC Then + ReporteComplementario = False + Else + ReporteComplementario = False + DivTipo1.Visible = False + DivTipo2.Visible = False + LtTitulo.Text = "Estado de Resultados" + End If + + TotalActual = 0 + TotalAnterior = 0 + 'TxtFechaInicio.Text = DateSerial(Year(NowADS()), 1, 1).ToShortDateString + 'TxtFechaFin.Text = NowADS().ToShortDateString + CargaEjercicios() + + CargaDatos() + + + If UsuarioActual.Empresa.GrupoEmpresa > 0 And UsuarioActual.CveRol = 1 Then + DVConsolidado1.Visible = True + DVConsolidado2.Visible = True + End If + + If UsuarioActual.CveRol = 1 Then + DVSubtotales1.Visible = True + DVSubtotales2.Visible = True + End If + + + End If + End Sub + + 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 + Else + DdlEjercicio.DataSource = Nothing + End If + ClsConta.Dispose() + DdlEjercicio.DataBind() + + DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) + If DdlEjercicio.Items.Count = 0 Then + DdlEjercicio.Items.Add(New ListItem(NowADS().Year.ToString, NowADS().Year.ToString)) + End If + DdlPeriodo.SelectedValue = NowADS().Month.ToString + + CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + + End Sub + + Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged + CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos") + End Sub + + Private Sub CargaDatos() + + + FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) + FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy") + Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1) + Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero + Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero + + 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + Dim ObjConta As New ClsContabilidad + If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, Opcion:=DdlOpcion.SelectedValue.ToEntero) Then + DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") + Else + DtDatos = Nothing + Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) + End If + ObjConta.Dispose() + + If DtDatos IsNot Nothing Then + CargaGrids() + SumaTotales() + End If + + End Sub + Private Sub CargaGrids() + DtIngresos = DtDatos.FiltraParametros("Tipo ='H' ") + DtGastos = DtDatos.FiltraParametros("Tipo ='G' ") + Dim Row As DataRow = DtIngresos.NewRow + + + Dim TotalActual = 0.0, TotalAnterior = 0.0 + If DtIngresos.Rows.Count > 0 Then + + For Each dr As DataRow In DtIngresos.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 + DtIngresos.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL INGRESOS " + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtIngresos.Rows.Add(Row) + End If + + Dim T1 = TotalActual, T2 = TotalAnterior + + TotalActual = 0 + TotalAnterior = 0 + + Row = DtGastos.NewRow + If DtGastos.Rows.Count > 0 Then + + For Each dr As DataRow In DtGastos.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 + DtGastos.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL GASTOS" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtGastos.Rows.Add(Row) + End If + + DtGastos.AcceptChanges() + + + If DdlVerConSubTotales.SelectedValue.ToEntero = 1 Then + + Dim idxUtilidadBruta As Integer = 0 + Dim idxUtilidadOperacion As Integer = 0 + Dim idxUtilidadAntesImpuestos As Integer = 0 + + Dim IndexActual As Integer = 0 + For Each dRow As DataRow In DtGastos.Rows + + If dRow("Codigo").ToString.Contains("6000000") Then 'Utilidad Bruta indice que se tomara + idxUtilidadBruta = IndexActual + IndexActual = IndexActual + 2 'Son mas dos por que se esta conciderando el row en blanco + End If + + If dRow("Codigo").ToString.Contains("7000000") Then 'Utilidad de Operación + idxUtilidadOperacion = IndexActual + IndexActual = IndexActual + 2 'Son mas dos por que se esta conciderando el row en blanco + End If + + If dRow("Nombre").ToString.Contains("TOTAL GASTOS") Then 'Utilidad antes de impuestos + idxUtilidadAntesImpuestos = IndexActual + End If + + IndexActual = IndexActual + 1 + Next + + DtGastos.AcceptChanges() + + + Dim UtilidadBrutaActual, UtilidadBrutaAcumulada, UtilidadBrutPorcentajeActual, UtilidadBrutPorcentajeAcumulado As Decimal + + Dim UtilidadOperacionActual, UtilidadOperacionAcumulada, UtilidadOperacionPorcentajeActual, UtilidadOperacionPorcentajeAcumulado As Decimal + + Dim UtilidadAntesImpuestosActual, UtilidadAntesImpuestosAcumulada, UtilidadAntesImpuestosPorcentajeActual, UtilidadAntesImpuestosPorcentajeAcumulado As Decimal + + + Dim IngresoActual As Decimal = DtIngresos.SUMD("ImporteActual", " CtaMayor = 1 ") + Dim IngresoAcumulado As Decimal = DtIngresos.SUMD("ImporteAcumulado", " CtaMayor = 1 ") + + Dim CostoActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '5%' AND CtaMayor = 1 ") + Dim CostoAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '5%' AND CtaMayor = 1") + + Dim GastoActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '6%' AND CtaMayor = 1 ") + Dim GastoAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '6%' AND CtaMayor = 1 ") + + Dim ResultadoIntegralActual As Decimal = DtGastos.SUMD("ImporteActual", " Codigo LIKE '7%' AND CtaMayor = 1 ") + Dim ResultadoIntegralAcumulado As Decimal = DtGastos.SUMD("ImporteAcumulado", " Codigo LIKE '7%' AND CtaMayor = 1 ") + + + UtilidadBrutaActual = IngresoActual - CostoActual + UtilidadBrutaAcumulada = IngresoAcumulado - CostoAcumulado + + UtilidadOperacionActual = IngresoActual - CostoActual - GastoActual + UtilidadOperacionAcumulada = IngresoAcumulado - CostoAcumulado - GastoAcumulado + + UtilidadAntesImpuestosActual = IngresoActual - CostoActual - GastoActual - ResultadoIntegralActual + UtilidadAntesImpuestosAcumulada = IngresoAcumulado - CostoAcumulado - GastoAcumulado - ResultadoIntegralAcumulado + + + UtilidadBrutPorcentajeActual = If(IngresoActual <> 0 And UtilidadBrutaActual <> 0, (UtilidadBrutaActual / IngresoActual * 100), 0) + UtilidadBrutPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadBrutaAcumulada <> 0, (UtilidadBrutaAcumulada / IngresoAcumulado * 100), 0) + + UtilidadOperacionPorcentajeActual = If(IngresoActual <> 0 And UtilidadOperacionActual <> 0, (UtilidadOperacionActual / IngresoActual * 100), 0) + UtilidadOperacionPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadOperacionAcumulada <> 0, (UtilidadOperacionAcumulada / IngresoAcumulado * 100), 0) + + UtilidadAntesImpuestosPorcentajeActual = If(IngresoActual <> 0 And UtilidadAntesImpuestosActual <> 0, (UtilidadAntesImpuestosActual / IngresoActual * 100), 0) + UtilidadAntesImpuestosPorcentajeAcumulado = If(IngresoAcumulado <> 0 And UtilidadAntesImpuestosAcumulada <> 0, (UtilidadAntesImpuestosAcumulada / IngresoAcumulado * 100), 0) + + + Dim dRowUtilidadBruta As DataRow = DtGastos.NewRow + Dim dRowUtilidadBrutaVacio As DataRow = DtGastos.NewRow + + Dim dRowUtilidadOperacion As DataRow = DtGastos.NewRow + Dim dRowUtilidadOperacionVacio As DataRow = DtGastos.NewRow + + Dim dRowUtilidadAntesImpuestos As DataRow = DtGastos.NewRow + Dim dRowUtilidadAntesImpuestosVacio As DataRow = DtGastos.NewRow + + + + dRowUtilidadBruta("Nombre") = "Utilidad Bruta" + dRowUtilidadBruta("ImporteActual") = UtilidadBrutaActual + dRowUtilidadBruta("ImporteAcumulado") = UtilidadBrutaAcumulada + dRowUtilidadBruta("CtaMayor") = -1 + dRowUtilidadBruta("Orden") = "600" + dRowUtilidadBruta("PorcentajeActual") = UtilidadBrutPorcentajeActual + dRowUtilidadBruta("PorcentajeAcumulado") = UtilidadBrutPorcentajeAcumulado + dRowUtilidadBrutaVacio("CtaMayor") = -1 + dRowUtilidadBrutaVacio("Orden") = "600" + + dRowUtilidadOperacion("Nombre") = "Utilidad de Operación" + dRowUtilidadOperacion("ImporteActual") = UtilidadOperacionActual + dRowUtilidadOperacion("ImporteAcumulado") = UtilidadOperacionAcumulada + dRowUtilidadOperacion("CtaMayor") = -1 + dRowUtilidadOperacion("Orden") = "700" + dRowUtilidadOperacion("PorcentajeActual") = UtilidadOperacionPorcentajeActual + dRowUtilidadOperacion("PorcentajeAcumulado") = UtilidadOperacionPorcentajeAcumulado + dRowUtilidadOperacionVacio("CtaMayor") = -1 + dRowUtilidadOperacionVacio("Orden") = "700" + + dRowUtilidadAntesImpuestos("Nombre") = "Utilidad antes de impuestos" + dRowUtilidadAntesImpuestos("ImporteActual") = UtilidadAntesImpuestosActual + dRowUtilidadAntesImpuestos("ImporteAcumulado") = UtilidadAntesImpuestosAcumulada + dRowUtilidadAntesImpuestos("CtaMayor") = -1 + dRowUtilidadAntesImpuestos("Orden") = "790" + dRowUtilidadAntesImpuestos("PorcentajeActual") = UtilidadAntesImpuestosPorcentajeActual + dRowUtilidadAntesImpuestos("PorcentajeAcumulado") = UtilidadAntesImpuestosPorcentajeAcumulado + dRowUtilidadAntesImpuestosVacio("CtaMayor") = -1 + dRowUtilidadAntesImpuestosVacio("Orden") = "790" + + 'PorcentajeActual + 'PorcentajeAcumulado + + + DtGastos.Rows.InsertAt(dRowUtilidadBruta, idxUtilidadBruta) + DtGastos.Rows.InsertAt(dRowUtilidadBrutaVacio, idxUtilidadBruta + 1) + + DtGastos.Rows.InsertAt(dRowUtilidadOperacion, idxUtilidadOperacion) + DtGastos.Rows.InsertAt(dRowUtilidadOperacionVacio, idxUtilidadOperacion + 1) + + + DtGastos.Rows.InsertAt(dRowUtilidadAntesImpuestos, idxUtilidadAntesImpuestos) + DtGastos.Rows.InsertAt(dRowUtilidadAntesImpuestosVacio, idxUtilidadAntesImpuestos + 1) + + 'ImporteActual + 'ImporteAcumulado + + DtGastos.AcceptChanges() + End If + + + GvIngresos.DataSource = DtIngresos + GvIngresos.DataBind() + + GvGastos.DataSource = DtGastos + GvGastos.DataBind() + + UpDatos.Update() + + End Sub + + Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click + ImprimirReporte() + End Sub + + Private Sub SumaTotales() + 'Llena Lb´s Totales + LbTotalActual.Text = TotalActual.ToString.FormatoNumero + LbTotalAnterior.Text = TotalAnterior.ToString.FormatoNumero + + LbTotalActual.ForeColor = If(TotalActual < 0, Drawing.Color.Red, Color.Black) + + LbTotalAnterior.ForeColor = If(TotalAnterior < 0, Drawing.Color.Red, Color.Black) + + + End Sub + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + TotalActual = 0 + TotalAnterior = 0 + + CargaDatos() + End Sub + + +#Region "GV´S ROW DATA BOUND" + + Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 And Not e.Row.DBCampo("Orden").ToString().Contiene("600", "700", "790") Then + TotalActual += e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalAnterior += 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.Contiene("3", "4") Then + 'e.Row.CssClass = "SubTotales3" + e.Row.ControlStyle.Font.Bold = True + End If + + If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue) + End If + + + + If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red + e.Row.FCLabel("LblPorcentajeActual").ForeColor = Drawing.Color.Red + End If + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + e.Row.FCLabel("LblPorcentajeAcumulado").ForeColor = Drawing.Color.Red + End If + + If e.Row.DBCampo("CtaMayor").ToEntero = -1 And e.Row.DBCampo("Nombre").ToString.Length > 0 Then + e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin; border-top-color: #000;") + End If + + End If + End Sub + + Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 And Not e.Row.DBCampo("Orden").ToString().Contiene("600", "700", "790") Then + TotalActual -= e.Row.DBCampo("ImporteActual").ToString.ToDouble + TotalAnterior -= 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.Contiene("3", "4") 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("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue) + End If + + If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red + e.Row.FCLabel("LblPorcentajeActual").ForeColor = Drawing.Color.Red + End If + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + e.Row.FCLabel("LblPorcentajeAcumulado").ForeColor = Drawing.Color.Red + End If + + + If e.Row.DBCampo("CtaMayor").ToEntero = -1 And e.Row.DBCampo("Nombre").ToString.Length > 0 Then + e.Row.Attributes.Add("style", "border-top: thick solid; border-top-width: thin; border-top-color: #000;") + End If + + End If + End Sub + +#End Region + + Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click + ImprimirReporte("Excel") + End Sub + + Private Sub ImprimirReporte(Optional Formato As String = "PDF") + Dim lrds As New List(Of ReportDataSource) + Dim rds As New ReportDataSource + rds.Name = "DataSet1" + rds.Value = DtIngresos + Dim rds2 As New ReportDataSource + rds2.Name = "DataSet2" + rds2.Value = DtGastos + lrds.Add(rds) + lrds.Add(rds2) + + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("TotalActual", TotalActual.ToString)) + params.Add(New ReportParameter("TotalAnterior", TotalAnterior.ToString)) + params.Add(New ReportParameter("lbTotalActual", LbTotalActual.Text)) + params.Add(New ReportParameter("lbTotalAnterior", LbTotalAnterior.Text)) + params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) + Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("pFirma1", "")) + params.Add(New ReportParameter("pFirma2", "")) + params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem.Text, DdlEjercicio.SelectedItem.Text))) + params.Add(New ReportParameter("SubProyecto", DdlSubproyecto.SelectedItem.Text)) + ImprimirPDF("AC/Reportes/RepEstadoActividadesConta2.rdlc", lrds, params, "EstadoActividades", Formato) + ' UsuarioActual.Empresa.GrupoEmpresa + + End Sub + +End Class + diff --git a/Contabilidad2/RepEstadoActividadesSAT.aspx.exclude b/Contabilidad/RepEstadoActividadesSAT.aspx.exclude similarity index 100% rename from Contabilidad2/RepEstadoActividadesSAT.aspx.exclude rename to Contabilidad/RepEstadoActividadesSAT.aspx.exclude diff --git a/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude b/Contabilidad/RepEstadoActividadesSAT.aspx.vb.exclude similarity index 95% rename from Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude rename to Contabilidad/RepEstadoActividadesSAT.aspx.vb.exclude index 801a9890c..2038b9c83 100644 --- a/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude +++ b/Contabilidad/RepEstadoActividadesSAT.aspx.vb.exclude @@ -251,8 +251,8 @@ Partial Class AC_RepEstadoActividades 'End If 'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - ' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) - ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) + ' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) + ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) 'End If @@ -280,8 +280,8 @@ Partial Class AC_RepEstadoActividades 'End If 'If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then - ' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) - ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) + ' e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) + ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?ID={0}&FF={1}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString) 'End If If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then diff --git a/Contabilidad/RepEstadoResultados.aspx b/Contabilidad/RepEstadoResultados.aspx index 535016294..ec5af5705 100644 --- a/Contabilidad/RepEstadoResultados.aspx +++ b/Contabilidad/RepEstadoResultados.aspx @@ -1,902 +1,229 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEstadoResultados.aspx.vb" Inherits="Contabilidad_RepEstadoResultados" ValidateRequest="false" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEstadoActividades.aspx.vb" Inherits="AC_RepEstadoActividades" %> -
-
-
+
-
-
-
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ +
-
-
-
-
-
-
- - - - -
-
-
-
-
-
-
+
+
+
+
+
+
+ + + + +
+
+
+
+
+
+{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) } "
- Next IndiceInicio
-
- ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then
-
- Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
- Dim IndiceInicio As Integer = 1
- Dim IndiceMax As Integer = 1 + CountDinamico
- If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 3 Then
- IndiceMax = GvIngresosSubProyectoH.Columns.Count - 3
- End If
-
- For IndiceInicio = 1 To IndiceMax
-
- Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
- e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) } "
- Next IndiceInicio
-
- End If
- 'If e.Row.FCHyperLink("HLAnterior") IsNot Nothing Then
- e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero > 1, e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0.00"))
- If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
- e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
- End If
- 'End If
-
- End If
-
- End Sub
-
- Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
- If e.Row.RowType = DataControlRowType.DataRow Then
- setgraficaCC(e)
- 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 = "SubTotales"
- e.Row.ControlStyle.Font.Bold = True
- End If
- If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
- e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
- End If
- End If
- End Sub
-
- 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
- setgraficaCC(e)
- e.Row.Attributes.Add("style", "Font-weight: bold")
-
- 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 Step 2
- Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
- Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
- e.Row.Cells(IndiceInicio).Text = $""
- Next IndiceInicio
-
- End If
- End Sub
-
- Public Sub setgraficaCC(e As GridViewRowEventArgs)
- Dim lista As New List(Of Object)
- Dim colorindex As Integer = 0
- For Each campo As String() In listaCampos
-
- 'Dim valorCampo As Decimal = If(e.Row.DBCampo(campo(0)).ToDecimal() < 0, (e.Row.DBCampo(campo(0)).ToDecimal() * -1), e.Row.DBCampo(campo(0)).ToDecimal())
-
- lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)})
- colorindex = colorindex + 1
- If colorindex >= listacolores.Count Then
- colorindex = 0
- End If
- Next
- e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
- End Sub
-#End Region
-
-
-
-
-
-#Region "DESCARGA EXCEL"
-
- Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
- Imprimir("Excel")
- End Sub
-
- Private Sub Imprimir(Optional reporte As String = "PDF")
-
-
- 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
- ExportToExcelG(GvIngresosMesH, GvGastosMesH, TMesT1, "Reporte_Mensual_Horizontal", UsuarioActual, "Mensual Horizontal", Gv3:=GvTotalesMesH)
- 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
-
- ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True)
-
- End If
-
-
- End Sub
-
- 'Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100)
- Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, TablaResultados As HtmlTable, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100, Optional Gv3 As GridView = Nothing, Optional EsPorSubProtyecto As Boolean = False)
-
- Dim sw1 As New StringWriter()
- Dim htw1 As New HtmlTextWriter(sw1)
- Gv1.RenderControl(htw1)
-
- Dim sw2 As New StringWriter()
- Dim htw2 As New HtmlTextWriter(sw2)
- Gv2.RenderControl(htw2)
-
-
- TablaResultados.Width = Gv2.Width.ToString
-
- Dim sw3 As New StringWriter()
- Dim htw3 As New HtmlTextWriter(sw3)
- TablaResultados.RenderControl(htw3)
-
- Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault
-
- Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString()))
- Dim htmlStream2 = New MemoryStream(options.Encoding.GetBytes(sw2.ToString()))
- Dim htmlStream3 = New MemoryStream(options.Encoding.GetBytes(sw3.ToString()))
-
- htmlStream1.Position = 0
- Dim sr1 As New StreamReader(htmlStream1)
-
- htmlStream2.Position = 0
- Dim sr2 As New StreamReader(htmlStream2)
-
- htmlStream3.Position = 0
- Dim sr3 As New StreamReader(htmlStream3)
-
-
- Dim myStr1 As String = sr1.ReadToEnd()
- Dim myStr2 As String = sr2.ReadToEnd()
- Dim myStr3 As String = sr3.ReadToEnd()
-
- sr1.Dispose()
- sr2.Dispose()
- sr3.Dispose()
-
- htmlStream1.Dispose()
- htmlStream2.Dispose()
- htmlStream3.Dispose()
-
- sw1.Dispose()
- sw2.Dispose()
- sw3.Dispose()
-
- If Gv3 IsNot Nothing Then
-
- Gv3.ShowHeader = False
-
- Dim sw4 As New StringWriter()
- Dim htw4 As New HtmlTextWriter(sw4)
- Gv3.RenderControl(htw4)
- Dim htmlStream4 = New MemoryStream(options.Encoding.GetBytes(sw4.ToString()))
- htmlStream4.Position = 0
- Dim sr4 As New StreamReader(htmlStream4)
- myStr3 = sr4.ReadToEnd()
-
- sr4.Dispose()
- htmlStream2.Dispose()
- sw4.Dispose()
-
- End If
-
-
- Dim HtmlCompleto As String = myStr1 & "" & myStr2 & " " & myStr3 - - - HtmlCompleto = Regex.Replace(HtmlCompleto, "\<[\/]*a[^\>]*\>", "") - - - Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto)) - - GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet) - - Dim excel As GemBox.Spreadsheet.ExcelFile - - excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options) - - If Usuario IsNot Nothing Then - - Dim TotalRowHeader As Integer = 8 - Dim TotalRowFooter As Integer = 2 - - - Dim worksheet = excel.Worksheets(0) - worksheet.Rows.InsertEmpty(0, TotalRowHeader) - Dim celdasConTexto = worksheet.GetUsedCellRange(True) - celdasConTexto.Style.Font.Name = "Calibri Light" - - Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) - RangoNombreEmpresa.Merged = True - RangoNombreEmpresa.Value = Usuario.Empresa.Empresa - RangoNombreEmpresa.Style.Font.Size = 18 * 20 - RangoNombreEmpresa.Style.Font.Name = "Calibri Light" - RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - - Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex) - RangoTitulo.Merged = True - RangoTitulo.Value = Titulo - RangoTitulo.Style.Font.Size = 20 * 20 - RangoTitulo.Style.Font.Name = "Calibri Light" - RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - Dim RangoFechas = worksheet.Cells.GetSubrangeAbsolute(4, celdasConTexto.FirstColumnIndex, 4, celdasConTexto.LastColumnIndex) - RangoFechas.Merged = True - RangoFechas.Value = $"Fechas: {FechaIMes} a {FechaFMes}" - RangoFechas.Style.Font.Size = 15 * 20 - RangoFechas.Style.Font.Name = "Calibri Light" - RangoFechas.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - RangoFechas.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - - If EsPorSubProtyecto And DdlSubproyecto.SelectedValue.ToEntero > 0 Then - Dim RangoSubProyecto = worksheet.Cells.GetSubrangeAbsolute(5, celdasConTexto.FirstColumnIndex, 5, celdasConTexto.LastColumnIndex) - RangoSubProyecto.Merged = True - RangoSubProyecto.Value = DdlSubproyecto.SelectedItem.Text - RangoSubProyecto.Style.Font.Size = 20 * 20 - RangoSubProyecto.Style.Font.Name = "Calibri Light" - RangoSubProyecto.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - RangoSubProyecto.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - End If - - For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex - - worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20 - worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center - worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - - worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) - - - - If Not EsPorSubProtyecto Then - worksheet.Rows(8 + Gv1.Rows.Count + 2).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Rows(8 + Gv1.Rows.Count + 2).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) - Else - worksheet.Rows(18).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) - worksheet.Rows(18).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) - End If - - - - If i > 0 Then - Try - worksheet.Columns(i).AutoFit(1) - Catch ex As Exception - End Try - End If - Next - - Dim IndexEndTable As Integer = Gv1.Rows.Count + Gv2.Rows.Count + 4 + TotalRowHeader + TotalRowFooter - - worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió" - 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 = NowADS().ToString("dd/MM/yyyy") - - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) - - If Imagen.Exists Then - Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta) - Using sr As New StreamReader(Ruta) - Dim ms As New MemoryStream() - sr.BaseStream.CopyTo(ms) - worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) - End Using - End If - - - - - - - For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex - - If I > 0 Then - - If DdlDivisor.SelectedValue.ToEntero = 1 Then - worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00" - Else - worksheet.Columns(I + 1).Style.NumberFormat = "#,##" - End If - - Try - worksheet.Columns(I).AutoFit(1) - Catch ex As Exception - End Try - - End If - Next - - End If - - excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") - - - End Sub - - Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) - End Sub - -#End Region - - - - - -End Class - - +Option Explicit On +Option Strict On + +Imports System.Data +Imports System.Drawing +Imports System.IO +Imports Extensiones +Imports GemBox.Spreadsheet + +Partial Class Contabilidad_RepEstadoResultadosHorizontal + Inherits ClsPaginas + +#Region "PROPIEDADES" + + + Private Property DtDatosMes As DataTable + Get + DtDatosMes = DirectCast(ViewState("DtDatosMes"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtDatosMes") = value + End Set + End Property + + Private Property DtIngresosMes As DataTable + 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 + End Get + Set(value As Double) + ViewState("TotalActualMes") = value + End Set + End Property + Private Property TotalAnteriorMes As Double + Get + TotalAnteriorMes = ViewState("TotalAnteriorMes").ToString.ToDouble + End Get + Set(value As Double) + ViewState("TotalAnteriorMes") = value + End Set + End Property + Private Property FechaIMes As String + Get + Return ViewState("FechaIMes").ToString + End Get + Set(value As String) + ViewState("FechaIMes") = value + End Set + End Property + Private Property FechaFMes As String + Get + Return ViewState("FechaFMes").ToString + End Get + Set(value As String) + ViewState("FechaFMes") = value + End Set + End Property + + Private Property listacolores As List(Of String) + Get + Return DirectCast(ViewState("listacolores"), List(Of String)) + End Get + Set(value As List(Of String)) + ViewState("listacolores") = value + End Set + End Property + + Private Property listaCampos As List(Of String()) + Get + Return DirectCast(ViewState("listaCampos"), List(Of String())) + End Get + Set(value As List(Of String())) + ViewState("listaCampos") = value + End Set + End Property + Private Property listaCamposanios As List(Of String()) + Get + Return DirectCast(ViewState("listaCamposanios"), List(Of String())) + End Get + Set(value As List(Of String())) + ViewState("listaCamposanios") = value + End Set + End Property + Private Property listaCamposaniosGastos As List(Of String()) + Get + Return DirectCast(ViewState("listaCamposaniosGastos"), List(Of String())) + End Get + Set(value As List(Of String())) + ViewState("listaCamposaniosGastos") = value + End Set + End Property + Private Property listaCamposaniosTotal As List(Of String()) + Get + Return DirectCast(ViewState("listaCamposaniosTotal"), List(Of String())) + End Get + Set(value As List(Of String())) + ViewState("listaCamposaniosTotal") = value + 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 + + Private Property CveProyecto As Integer + Get + CveProyecto = ViewState("CveProyecto").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveProyecto") = value + End Set + End Property + Private Property CveSubProyecto As Integer + Get + CveSubProyecto = ViewState("CveSubProyecto").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveSubProyecto") = value + End Set + End Property + +#End Region + + +#Region " M E S H O R I Z O N T A L " + + Private Property DtDatosMesH As DataTable + Get + DtDatosMesH = DirectCast(ViewState("DtDatosMesH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtDatosMesH") = value + End Set + End Property + + Private Property DtIngresosMesH As DataTable + Get + DtIngresosMesH = DirectCast(ViewState("DtIngresosMesH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtIngresosMesH") = value + End Set + End Property + + Private Property DtGastosMesH As DataTable + Get + DtGastosMesH = DirectCast(ViewState("DtGastosMesH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtGastosMesH") = value + End Set + End Property + + Private Property DTTotalesMesH As DataTable + Get + DTTotalesMesH = DirectCast(ViewState("DTTotalesMesH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DTTotalesMesH") = value + End Set + End Property + +#End Region + + +#Region " A N U A L H O R I Z O N T A L " + + Private Property DtDatosAnualH As DataTable + Get + DtDatosAnualH = DirectCast(ViewState("DtDatosAnualH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtDatosAnualH") = value + End Set + End Property + + Private Property DtIngresosAnualH As DataTable + Get + DtIngresosAnualH = DirectCast(ViewState("DtIngresosAnualH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtIngresosAnualH") = value + End Set + End Property + + Private Property DtGastosAnualH As DataTable + Get + DtGastosAnualH = DirectCast(ViewState("DtGastosAnualH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtGastosAnualH") = value + End Set + End Property + + Private Property DTTotalesAnualH As DataTable + Get + DTTotalesAnualH = DirectCast(ViewState("DTTotalesAnualH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DTTotalesAnualH") = value + End Set + End Property + + + Private Property CountDinamicoAnual As Integer + + Get + If ViewState("CountDinamicoAnual") Is Nothing Then + Return 0 + Else + Return ViewState("CountDinamicoAnual").ToString.ToEntero + End If + + End Get + Set(value As Integer) + ViewState("CountDinamicoAnual") = value + End Set + End Property + +#End Region + +#Region " S U B P R O Y E C T O H O R I Z O N T A L " + + Private Property DtDatosSubProyectoH As DataTable + Get + DtDatosSubProyectoH = DirectCast(ViewState("DtDatosSubProyectoH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtDatosSubProyectoH") = value + End Set + End Property + + Private Property DtIngresosSubProyectoH As DataTable + Get + DtIngresosSubProyectoH = DirectCast(ViewState("DtIngresosSubProyectoH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtIngresosSubProyectoH") = value + End Set + End Property + + Private Property DtGastosSubProyectoH As DataTable + Get + DtGastosSubProyectoH = DirectCast(ViewState("DtGastosSubProyectoH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtGastosSubProyectoH") = value + End Set + End Property + + Private Property DTTotalesSubProyectoH As DataTable + Get + DTTotalesSubProyectoH = DirectCast(ViewState("DTTotalesSubProyectoH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DTTotalesSubProyectoH") = value + End Set + End Property + + Private Property DTSubProyectosCabecerasH As DataTable + + Get + DTSubProyectosCabecerasH = DirectCast(ViewState("DTSubProyectosCabecerasH"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DTSubProyectosCabecerasH") = value + End Set + + End Property + + + Private Property CountDinamicoSubProyecto As Integer + + Get + If ViewState("CountDinamicoSubProyecto") Is Nothing Then + Return 0 + Else + Return ViewState("CountDinamicoSubProyecto").ToString.ToEntero + End If + + End Get + Set(value As Integer) + ViewState("CountDinamicoSubProyecto") = value + End Set + End Property + + +#End Region + + + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + listacolores = New List(Of String) + listaCampos = New List(Of String()) + listaCamposanios = New List(Of String()) + listaCamposaniosGastos = New List(Of String()) + listaCamposaniosTotal = New List(Of String()) + listacolores.Add("#FF0F00") + listacolores.Add("#FF6600") + listacolores.Add("#F8FF01") + listacolores.Add("#04D215") + listacolores.Add("#2A0CD0") + listacolores.Add("#8A0CCF") + listacolores.Add("#CD0D74") + listacolores.Add("#754DEB") + listacolores.Add("#DDDDDD") + listacolores.Add("#999999") + listacolores.Add("#000000") + listacolores.Add("#FF0F00") + + TotalActualMes = 0 + TotalAnteriorMes = 0 + + CargaEjercicios() + + CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + TabSubProyecto.HeaderText = LblProyecto.Text & " " & LblSubProyecto.Text & " " + + + + DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual) + ValidaEjercicios() + + End If + End Sub + + Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged + CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos") + End Sub + + Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs) + + LblVistaPorcentaje.Visible = False + DVVistaPorcentaje.Visible = False + + If Tab.ActiveTabIndex = 0 Then + 'LiSubProyectoDdl.Visible = True + 'LiSubProyectoLbl.Visible = True + + LiEjercicioDdl.Visible = True + LiEjercicioLbl.Visible = True + + LiEjercicioDdl2.Visible = False + LiEjercicioLbl2.Visible = False + + LiPeriodoDdl.Visible = True + LiPeriodoLbl.Visible = True + + LiDivisorDdl.Visible = True + LiDivisorLbl.Visible = True + + LblTri.Visible = False + DVTri.Visible = False + End If + + If Tab.ActiveTabIndex = 1 Then + + 'LiSubProyectoDdl.Visible = True + 'LiSubProyectoLbl.Visible = True + + LiEjercicioDdl.Visible = True + LiEjercicioLbl.Visible = True + + LiEjercicioDdl2.Visible = False + LiEjercicioLbl2.Visible = False + + LiPeriodoDdl.Visible = True + LiPeriodoLbl.Visible = True + + LiDivisorDdl.Visible = True + LiDivisorLbl.Visible = True + + DdlPeriodo.SelectedValueExist(12) + + LblTri.Visible = True + DVTri.Visible = True + + LblVistaPorcentaje.Visible = True + DVVistaPorcentaje.Visible = True + + + End If + + If Tab.ActiveTabIndex = 2 Then + + ValidaEjercicios() + + 'LiSubProyectoDdl.Visible = True + 'LiSubProyectoLbl.Visible = True + + LiEjercicioDdl.Visible = True + LiEjercicioLbl.Visible = True + + LiEjercicioDdl2.Visible = True + LiEjercicioLbl2.Visible = True + + LiPeriodoDdl.Visible = False + LiPeriodoLbl.Visible = False + + LiDivisorDdl.Visible = True + LiDivisorLbl.Visible = True + + LblTri.Visible = False + DVTri.Visible = False + + DdlPeriodo.SelectedValueExist(12) + + LblVistaPorcentaje.Visible = True + DVVistaPorcentaje.Visible = True + + End If + + If Tab.ActiveTabIndex = 3 Then + 'LiSubProyectoDdl.Visible = True + 'LiSubProyectoLbl.Visible = True + + LiEjercicioDdl.Visible = True + LiEjercicioLbl.Visible = True + + LiEjercicioDdl2.Visible = False + LiEjercicioLbl2.Visible = False + + + + LiDivisorDdl.Visible = True + LiDivisorLbl.Visible = True + + LblTri.Visible = False + DVTri.Visible = False + + LiPeriodoDdl.Visible = True + LiPeriodoLbl.Visible = True + DdlPeriodo.SelectedValueExist(12) + + LblVistaPorcentaje.Visible = True + DVVistaPorcentaje.Visible = True + + End If + + UpFiltros.Update() + End Sub + + + Protected Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs) + ValidaEjercicios() + End Sub + + Protected Sub DdlEjercicio2_SelectedIndexChanged(sender As Object, e As EventArgs) + ValidaEjercicios() + End Sub + + Private Sub ValidaEjercicios() + + + Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero + + + If EInicio > DdlEjercicio2.SelectedValue.ToEntero Then + + If DdlEjercicio2.Items.Count > 0 Then + DdlEjercicio2.SelectedIndex = DdlEjercicio2.Items.Count - 1 + End If + + Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero + + If Not EInicio + 1 > Fejerciosio Then + DdlEjercicio2.SelectedValueExist(EInicio + 1) + End If + + End If + + + UpFiltros.Update() + End Sub + + 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 + Else + DdlEjercicio.DataSource = Nothing + DdlEjercicio2.DataSource = Nothing + End If + ClsConta.Dispose() + DdlEjercicio.DataBind() + DdlEjercicio2.DataBind() + + DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) + If DdlEjercicio.Items.Count = 0 Then + DdlEjercicio.Items.Add(New ListItem(NowADS().Year.ToString, NowADS().Year.ToString)) + End If + DdlPeriodo.SelectedValue = NowADS().Month.ToString + End Sub + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + TotalActualMes = 0 + TotalAnteriorMes = 0 + + 'Mes + If Tab.ActiveTabIndex = 0 Then + CargaDatosMes() + End If + + 'MES HORIZONTAL + If Tab.ActiveTabIndex = 1 Then + CargaDatosMesH() + End If + + 'AÑO HORIZONTAL + 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) + Exit Sub + End If + CargaDatosAnualH() + End If + + 'SUBPROYECTO + If Tab.ActiveTabIndex = 3 Then + CargaDatosSubProyectoH() + End If + + 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) + CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero + CveProyecto = DdlProyecto.SelectedValue.ToEntero + + 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + Dim ObjConta As New ClsContabilidad + If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, 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 As Decimal = 0, TotalAnterior As Decimal = 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.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal + Next + + Row.Item("Nombre") = "TOTAL INGRESOS " + Row.Item("ImporteActual") = TotalActual + Row.Item("PorcentajeActual") = "100.00" + Row.Item("ImporteAcumulado") = TotalAnterior + 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 As Decimal = TotalActual, T2 As Decimal = 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.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal + 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 + + + If DdlDivisor.SelectedValue.ToEntero > 1 Then + LbTotalActual.Text = TotalActualMes.ToString("###,###,##0") + LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0") + Else + LbTotalActual.Text = TotalActualMes.ToString("###,###,##0.00") + LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0.00") + End If + + + + 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) + + 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 + End If + + If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + + e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + + + If DdlDivisor.SelectedValue.ToEntero > 1 Then + e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0") + e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero.ToString("###,###,##0").ToString + Else + e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString + End If + + 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 + End If + End If + End Sub + + Protected Sub GvGastos_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 = "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("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + End If + + If DdlDivisor.SelectedValue.ToEntero > 1 Then + e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0") + e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero.ToString("###,###,##0").ToString + Else + e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString + 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 + End If + End If + End Sub + +#End Region + + + + +#End Region + + + +#Region "M E S H O R I Z O N T A L" + + Private Sub CargaDatosMesH() + + + FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" + Dim FechaFin As Date = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}".ToDate + FechaFMes = $"{FechaFin.LastDayOfMonth.Day.ToString("00")}/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" + + CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero + CveProyecto = DdlProyecto.SelectedValue.ToEntero + + '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, VistaPorcentaje:=DdlvistaPorcentaje.SelectedValue.ToEntero) Then + DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") + Else + DtDatosMesH = Nothing + Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) + End If + ObjConta.Dispose() + + If DtDatosMesH IsNot Nothing Then + CargaGridsMesH() + Else + + End If + + End Sub + + Private Sub CargaGridsMesH() + + DtIngresosMesH = DtDatosMesH.FiltraParametros("Tipo ='H' ") + DtGastosMesH = DtDatosMesH.FiltraParametros("Tipo ='G' ") + DTTotalesMesH = DtDatosMesH.Clone() + + Dim Row As DataRow = DtIngresosMesH.NewRow + + Dim TotalActual As Decimal = 0, TotalAnterior As Decimal = 0 + + If DtIngresosMesH.Rows.Count > 0 Then + + For Each dr As DataRow In DtIngresosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal + Next + + Dim Enero As Decimal = (DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")) + Dim Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")) + Dim Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")) + Dim Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")) + Dim Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")) + Dim Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")) + Dim Julio As Decimal = (DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")) + Dim Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")) + Dim Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")) + Dim Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")) + Dim Noviembre As Decimal = (DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")) + Dim Diciembre As Decimal = (DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")) + Dim Tri1 As Decimal = (DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)")) + Dim Tri2 As Decimal = (DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)")) + Dim Tri3 As Decimal = (DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)")) + Dim Tri4 As Decimal = (DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)")) + Dim Cua1 As Decimal = (DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)")) + Dim Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)")) + Dim Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)")) + + + Row.Item("Enero") = Enero + Row.Item("Febrero") = Febrero + Row.Item("Marzo") = Marzo + Row.Item("Abril") = Abril + Row.Item("Mayo") = Mayo + Row.Item("Junio") = Junio + Row.Item("Julio") = Julio + Row.Item("Agosto") = Agosto + Row.Item("Septiembre") = Septiembre + Row.Item("Octubre") = Octubre + Row.Item("Noviembre") = Noviembre + Row.Item("Diciembre") = Diciembre + Row.Item("Tri1") = Tri1 + Row.Item("Tri2") = Tri2 + Row.Item("Tri3") = Tri3 + Row.Item("Tri4") = Tri4 + Row.Item("Cua1") = Cua1 + Row.Item("Cua2") = Cua2 + Row.Item("Cua3") = Cua3 + + 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" + 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) + Else + Row.Item("Nombre") = "TOTAL INGRESOS " + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtIngresosMesH.Rows.Add(Row) + End If + + Dim T1 As Decimal = TotalActual, T2 As Decimal = TotalAnterior + + TotalActual = 0 + TotalAnterior = 0 + + Row = DtGastosMesH.NewRow + If DtGastosMesH.Rows.Count > 0 Then + For Each dr As DataRow In DtGastosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal + Next + + Dim Enero As Decimal = (DtGastosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")) + Dim Febrero As Decimal = (DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (3,4)")) + Dim Marzo As Decimal = (DtGastosMesH.SUM("Marzo", "NOT CtaMayor in (3,4)")) + Dim Abril As Decimal = (DtGastosMesH.SUM("Abril", "NOT CtaMayor in (3,4)")) + Dim Mayo As Decimal = (DtGastosMesH.SUM("Mayo", "NOT CtaMayor in (3,4)")) + Dim Junio As Decimal = (DtGastosMesH.SUM("Junio", "NOT CtaMayor in (3,4)")) + Dim Julio As Decimal = (DtGastosMesH.SUM("Julio", "NOT CtaMayor in (3,4)")) + Dim Agosto As Decimal = (DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (3,4)")) + Dim Septiembre As Decimal = (DtGastosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4)")) + Dim Octubre As Decimal = (DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (3,4)")) + Dim Noviembre As Decimal = (DtGastosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4)")) + Dim Diciembre As Decimal = (DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4)")) + Dim Tri1 As Decimal = (DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (3,4)")) + Dim Tri2 As Decimal = (DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (3,4)")) + Dim Tri3 As Decimal = (DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (3,4)")) + Dim Tri4 As Decimal = (DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (3,4)")) + Dim Cua1 As Decimal = (DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (3,4)")) + Dim Cua2 As Decimal = (DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)")) + Dim Cua3 As Decimal = (DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)")) + + Dim Ingreso_Enero As Decimal = (DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Julio As Decimal = (DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Noviembre As Decimal = (DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Diciembre As Decimal = (DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Tri1 As Decimal = (DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Tri2 As Decimal = (DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Tri3 As Decimal = (DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Tri4 As Decimal = (DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Cua1 As Decimal = (DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + + Row.Item("Enero") = Enero + Row.Item("Febrero") = Febrero + Row.Item("Marzo") = Marzo + Row.Item("Abril") = Abril + Row.Item("Mayo") = Mayo + Row.Item("Junio") = Junio + Row.Item("Julio") = Julio + Row.Item("Agosto") = Agosto + Row.Item("Septiembre") = Septiembre + Row.Item("Octubre") = Octubre + Row.Item("Noviembre") = Noviembre + Row.Item("Diciembre") = Diciembre + Row.Item("Tri1") = Tri1 + Row.Item("Tri2") = Tri2 + Row.Item("Tri3") = Tri3 + Row.Item("Tri4") = Tri4 + Row.Item("Cua1") = Cua1 + Row.Item("Cua2") = Cua2 + Row.Item("Cua3") = Cua3 + + + + 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" + 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) + Else + Row.Item("Nombre") = "TOTAL GASTOS" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtGastosMesH.Rows.Add(Row) + End If + + If DtIngresosMesH.Rows.Count > 0 Then + + Row = DTTotalesMesH.NewRow + + Dim ImporteAcumuladoTotal As Decimal = (DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")) + Dim Enero As Decimal = (DtIngresosMesH.SUM("Enero", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Enero", "Not CtaMayor in (-1,3,4)")) + Dim Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Febrero", "NOT CtaMayor in (-1,3,4)")) + Dim Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Marzo", "Not CtaMayor in (-1,3,4)")) + Dim Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Abril", "NOT CtaMayor in (-1,3,4)")) + Dim Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Mayo", "Not CtaMayor in (-1,3,4)")) + Dim Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Junio", "NOT CtaMayor in (-1,3,4)")) + Dim Julio As Decimal = (DtIngresosMesH.SUM("Julio", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Julio", "Not CtaMayor in (-1,3,4)")) + Dim Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Agosto", "NOT CtaMayor in (-1,3,4)")) + Dim Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Septiembre", "Not CtaMayor in (-1,3,4)")) + Dim Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Octubre", "NOT CtaMayor in (-1,3,4)")) + Dim Noviembre As Decimal = (DtIngresosMesH.SUM("Noviembre", "Not CtaMayor In (-1, 3, 4)") - DtGastosMesH.SUM("Noviembre", "Not CtaMayor in (-1,3,4)")) + Dim Diciembre As Decimal = (DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Diciembre", "NOT CtaMayor in (-1,3,4)")) + Dim Tri1 As Decimal = (DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri1", "NOT CtaMayor in (-1,3,4)")) + Dim Tri2 As Decimal = (DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri2", "NOT CtaMayor in (-1,3,4)")) + Dim Tri3 As Decimal = (DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri3", "NOT CtaMayor in (-1,3,4)")) + Dim Tri4 As Decimal = (DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Tri4", "NOT CtaMayor in (-1,3,4)")) + Dim Cua1 As Decimal = (DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua1", "NOT CtaMayor in (-1,3,4)")) + Dim Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)")) + Dim Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)")) + + Dim Ingreso_Enero As Decimal = (DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Julio As Decimal = (DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Noviembre As Decimal = (DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Diciembre As Decimal = (DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Tri1 As Decimal = (DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Tri2 As Decimal = (DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Tri3 As Decimal = (DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Tri4 As Decimal = (DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Cua1 As Decimal = (DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + Dim Ingreso_Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")) + + Row.Item("Enero") = Enero + Row.Item("Febrero") = Febrero + Row.Item("Marzo") = Marzo + Row.Item("Abril") = Abril + Row.Item("Mayo") = Mayo + Row.Item("Junio") = Junio + Row.Item("Julio") = Julio + Row.Item("Agosto") = Agosto + Row.Item("Septiembre") = Septiembre + Row.Item("Octubre") = Octubre + Row.Item("Noviembre") = Noviembre + Row.Item("Diciembre") = Diciembre + Row.Item("Tri1") = Tri1 + Row.Item("Tri2") = Tri2 + Row.Item("Tri3") = Tri3 + Row.Item("Tri4") = Tri4 + Row.Item("Cua1") = Cua1 + Row.Item("Cua2") = Cua2 + Row.Item("Cua3") = Cua3 + + 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("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) + + End If + + GvIngresosMesH.DataSource = DtIngresosMesH + GvIngresosMesH.DataBind() + + GvGastosMesH.DataSource = DtGastosMesH + GvGastosMesH.DataBind() + + GvTotalesMesH.DataSource = DTTotalesMesH + GvTotalesMesH.DataBind() + + + If DdlTri.SelectedValue.ToEntero = 0 Then 'ocultar trimestre cuatrimestre + + GvIngresosMesH.Columns(7).Visible = False + GvIngresosMesH.Columns(8).Visible = False + GvIngresosMesH.Columns(11).Visible = False + GvIngresosMesH.Columns(12).Visible = False + GvIngresosMesH.Columns(17).Visible = False + GvIngresosMesH.Columns(18).Visible = False + GvIngresosMesH.Columns(23).Visible = False + GvIngresosMesH.Columns(24).Visible = False + GvIngresosMesH.Columns(27).Visible = False + GvIngresosMesH.Columns(28).Visible = False + GvIngresosMesH.Columns(35).Visible = False + GvIngresosMesH.Columns(36).Visible = False + GvIngresosMesH.Columns(37).Visible = False + GvIngresosMesH.Columns(38).Visible = False + + GvGastosMesH.Columns(7).Visible = False + GvGastosMesH.Columns(8).Visible = False + GvGastosMesH.Columns(11).Visible = False + GvGastosMesH.Columns(12).Visible = False + GvGastosMesH.Columns(17).Visible = False + GvGastosMesH.Columns(18).Visible = False + GvGastosMesH.Columns(23).Visible = False + GvGastosMesH.Columns(24).Visible = False + GvGastosMesH.Columns(27).Visible = False + GvGastosMesH.Columns(28).Visible = False + GvGastosMesH.Columns(35).Visible = False + GvGastosMesH.Columns(36).Visible = False + GvGastosMesH.Columns(37).Visible = False + GvGastosMesH.Columns(38).Visible = False + + + GvTotalesMesH.Columns(7).Visible = False + GvTotalesMesH.Columns(8).Visible = False + GvTotalesMesH.Columns(11).Visible = False + GvTotalesMesH.Columns(12).Visible = False + GvTotalesMesH.Columns(17).Visible = False + GvTotalesMesH.Columns(18).Visible = False + GvTotalesMesH.Columns(23).Visible = False + GvTotalesMesH.Columns(24).Visible = False + GvTotalesMesH.Columns(27).Visible = False + GvTotalesMesH.Columns(28).Visible = False + GvTotalesMesH.Columns(35).Visible = False + GvTotalesMesH.Columns(36).Visible = False + GvTotalesMesH.Columns(37).Visible = False + GvTotalesMesH.Columns(38).Visible = False + + 'GvTotalesMesH.Columns(4).Visible = False + 'GvTotalesMesH.Columns(9).Visible = False + 'GvTotalesMesH.Columns(14).Visible = False + 'GvTotalesMesH.Columns(18).Visible = False + + 'GvTotalesMesH.Columns(6).Visible = False + 'GvTotalesMesH.Columns(12).Visible = False + 'GvTotalesMesH.Columns(19).Visible = False + + + ElseIf DdlTri.SelectedValue.ToEntero = 1 Then 'Mostrar Trimestre + + + GvIngresosMesH.Columns(7).Visible = True + GvIngresosMesH.Columns(8).Visible = True + GvIngresosMesH.Columns(17).Visible = True + GvIngresosMesH.Columns(18).Visible = True + GvIngresosMesH.Columns(27).Visible = True + GvIngresosMesH.Columns(28).Visible = True + GvIngresosMesH.Columns(35).Visible = True + GvIngresosMesH.Columns(36).Visible = True + GvGastosMesH.Columns(7).Visible = True + GvGastosMesH.Columns(8).Visible = True + GvGastosMesH.Columns(17).Visible = True + GvGastosMesH.Columns(18).Visible = True + GvGastosMesH.Columns(27).Visible = True + GvGastosMesH.Columns(28).Visible = True + GvGastosMesH.Columns(35).Visible = True + GvGastosMesH.Columns(36).Visible = True + GvTotalesMesH.Columns(7).Visible = True + GvTotalesMesH.Columns(8).Visible = True + GvTotalesMesH.Columns(17).Visible = True + GvTotalesMesH.Columns(18).Visible = True + GvTotalesMesH.Columns(27).Visible = True + GvTotalesMesH.Columns(28).Visible = True + GvTotalesMesH.Columns(35).Visible = True + GvTotalesMesH.Columns(36).Visible = True + + GvIngresosMesH.Columns(11).Visible = False + GvIngresosMesH.Columns(12).Visible = False + GvIngresosMesH.Columns(23).Visible = False + GvIngresosMesH.Columns(24).Visible = False + GvIngresosMesH.Columns(37).Visible = False + GvIngresosMesH.Columns(38).Visible = False + GvGastosMesH.Columns(11).Visible = False + GvGastosMesH.Columns(12).Visible = False + GvGastosMesH.Columns(23).Visible = False + GvGastosMesH.Columns(24).Visible = False + GvGastosMesH.Columns(37).Visible = False + GvGastosMesH.Columns(38).Visible = False + GvTotalesMesH.Columns(11).Visible = False + GvTotalesMesH.Columns(12).Visible = False + GvTotalesMesH.Columns(23).Visible = False + GvTotalesMesH.Columns(24).Visible = False + GvTotalesMesH.Columns(37).Visible = False + GvTotalesMesH.Columns(38).Visible = False + + + 'GvTotalesMesH.Columns(4).Visible = True + 'GvTotalesMesH.Columns(9).Visible = True + 'GvTotalesMesH.Columns(14).Visible = True + 'GvTotalesMesH.Columns(18).Visible = True + + + 'GvTotalesMesH.Columns(6).Visible = False + 'GvTotalesMesH.Columns(12).Visible = False + 'GvTotalesMesH.Columns(19).Visible = False + + ElseIf DdlTri.SelectedValue.ToEntero = 2 Then 'Mostrar Cuatrimestre + + GvIngresosMesH.Columns(7).Visible = False + GvIngresosMesH.Columns(8).Visible = False + GvIngresosMesH.Columns(17).Visible = False + GvIngresosMesH.Columns(18).Visible = False + GvIngresosMesH.Columns(27).Visible = False + GvIngresosMesH.Columns(28).Visible = False + GvIngresosMesH.Columns(35).Visible = False + GvIngresosMesH.Columns(36).Visible = False + GvGastosMesH.Columns(7).Visible = False + GvGastosMesH.Columns(8).Visible = False + GvGastosMesH.Columns(17).Visible = False + GvGastosMesH.Columns(18).Visible = False + GvGastosMesH.Columns(27).Visible = False + GvGastosMesH.Columns(28).Visible = False + GvGastosMesH.Columns(35).Visible = False + GvGastosMesH.Columns(36).Visible = False + GvTotalesMesH.Columns(7).Visible = False + GvTotalesMesH.Columns(8).Visible = False + GvTotalesMesH.Columns(17).Visible = False + GvTotalesMesH.Columns(18).Visible = False + GvTotalesMesH.Columns(27).Visible = False + GvTotalesMesH.Columns(28).Visible = False + GvTotalesMesH.Columns(35).Visible = False + GvTotalesMesH.Columns(36).Visible = False + + + + + GvIngresosMesH.Columns(11).Visible = True + GvIngresosMesH.Columns(12).Visible = True + GvIngresosMesH.Columns(23).Visible = True + GvIngresosMesH.Columns(24).Visible = True + GvIngresosMesH.Columns(37).Visible = True + GvIngresosMesH.Columns(38).Visible = True + GvGastosMesH.Columns(11).Visible = True + GvGastosMesH.Columns(12).Visible = True + GvGastosMesH.Columns(23).Visible = True + GvGastosMesH.Columns(24).Visible = True + GvGastosMesH.Columns(37).Visible = True + GvGastosMesH.Columns(38).Visible = True + GvTotalesMesH.Columns(11).Visible = True + GvTotalesMesH.Columns(12).Visible = True + GvTotalesMesH.Columns(23).Visible = True + GvTotalesMesH.Columns(24).Visible = True + GvTotalesMesH.Columns(37).Visible = True + GvTotalesMesH.Columns(38).Visible = True + + + 'GvTotalesMesH.Columns(4).Visible = False + 'GvTotalesMesH.Columns(9).Visible = False + 'GvTotalesMesH.Columns(14).Visible = False + 'GvTotalesMesH.Columns(18).Visible = False + + + 'GvTotalesMesH.Columns(6).Visible = True + 'GvTotalesMesH.Columns(12).Visible = True + 'GvTotalesMesH.Columns(19).Visible = True + + End If + + + UpDatosMesH.Update() + + 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.Font.Bold = True + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then + e.Row.ControlStyle.Font.Bold = True + End If + + If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + + + 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1" + + e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}" + + e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + + e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + + e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + + + ' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/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 = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + + End If + + If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL INGRESOS" Then + + If DdlDivisor.SelectedValue.ToEntero > 1 Then + + e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0") + Else + e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0.00") + End If + + End If + + setgrafica(e) + + + + + e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor) + e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor) + e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor) + e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor) + e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor) + e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor) + e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor) + e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor) + e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor) + e.Row.FCHyperLink("HLOctubre").ForeColor = If(e.Row.DataKey("Octubre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLOctubre").ForeColor) + e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor) + e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor) + + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + + End If + + End Sub + + 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 + 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 + + Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero + + 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1" + e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}" + + e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLMarzo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/03/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLAbril").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLMayo").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/05/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLJunio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/06/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLJulio").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/07/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLAgosto").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/08/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLSeptiembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLOctubre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/10/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLNoviembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/11/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/11/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLDiciembre").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/12/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + + e.Row.FCHyperLink("HLTri1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/03/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLTri2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/06/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/04/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLTri3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/09/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/07/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLTri4").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/10/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + + e.Row.FCHyperLink("HLCua1").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/04/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLCua2").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/08/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/05/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString, CveProyecto, CveSubProyecto) + + 'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad/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 = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + + End If + + + + If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL GASTOS" Then + + If DdlDivisor.SelectedValue.ToEntero > 1 Then + + 'Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado + e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0") + + Else + e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0.00") + End If + End If + + + setgrafica(e) + + + e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor) + e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor) + e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor) + e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor) + e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor) + e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor) + e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor) + e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor) + e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor) + e.Row.FCHyperLink("HLOctubre").ForeColor = If(e.Row.DataKey("Octubre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLOctubre").ForeColor) + e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor) + e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor) + + + + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + End If + End Sub + + 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.DataRow Then + + e.Row.Attributes.Add("style", "Font-weight: bold") + + + If DdlDivisor.SelectedValue.ToEntero > 0 Then + + e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0") + e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0") + + Else + e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLMarzo").Text = e.Row.DataKey("Marzo").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLAbril").Text = e.Row.DataKey("Abril").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLMayo").Text = e.Row.DataKey("Mayo").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLJunio").Text = e.Row.DataKey("Junio").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLJulio").Text = e.Row.DataKey("Julio").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLAgosto").Text = e.Row.DataKey("Agosto").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLSeptiembre").Text = e.Row.DataKey("Septiembre").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLOctubre").Text = e.Row.DataKey("Octubre").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLNoviembre").Text = e.Row.DataKey("Noviembre").ToDecimal.ToString("###,###,##0.00") + e.Row.FCHyperLink("HLDiciembre").Text = e.Row.DataKey("Diciembre").ToDecimal.ToString("###,###,##0.00") + End If + + setgrafica(e) + + e.Row.FCHyperLink("HLEnero").ForeColor = If(e.Row.DataKey("Enero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLEnero").ForeColor) + e.Row.FCHyperLink("HLFebrero").ForeColor = If(e.Row.DataKey("Febrero").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLFebrero").ForeColor) + e.Row.FCHyperLink("HLMarzo").ForeColor = If(e.Row.DataKey("Marzo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMarzo").ForeColor) + e.Row.FCHyperLink("HLAbril").ForeColor = If(e.Row.DataKey("Abril").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAbril").ForeColor) + e.Row.FCHyperLink("HLMayo").ForeColor = If(e.Row.DataKey("Mayo").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLMayo").ForeColor) + e.Row.FCHyperLink("HLJunio").ForeColor = If(e.Row.DataKey("Junio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJunio").ForeColor) + e.Row.FCHyperLink("HLJulio").ForeColor = If(e.Row.DataKey("Julio").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLJulio").ForeColor) + e.Row.FCHyperLink("HLAgosto").ForeColor = If(e.Row.DataKey("Agosto").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAgosto").ForeColor) + e.Row.FCHyperLink("HLSeptiembre").ForeColor = If(e.Row.DataKey("Septiembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLSeptiembre").ForeColor) + e.Row.FCHyperLink("HLOctubre").ForeColor = If(e.Row.DataKey("Octubre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLOctubre").ForeColor) + e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor) + e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor) + e.Row.FCHyperLink("HLAnterior").ForeColor = If(e.Row.DataKey("ImporteAcumulado").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLAnterior").ForeColor) + + + + End If + + End Sub + + Public Sub setgrafica(e As GridViewRowEventArgs) + + Dim lista As New List(Of Object) + lista.Add(New With {.Texto = "Enero", .Valor = e.Row.DataKey("Enero").ToDecimal(), .Color = "#FF0F00"}) + lista.Add(New With {.Texto = "Febrero", .Valor = e.Row.DataKey("Febrero").ToDecimal(), .Color = "#FF6600"}) + lista.Add(New With {.Texto = "Marzo", .Valor = e.Row.DataKey("Marzo").ToDecimal(), .Color = "#F8FF01"}) + lista.Add(New With {.Texto = "Abril", .Valor = e.Row.DataKey("Abril").ToDecimal(), .Color = "#04D215"}) + lista.Add(New With {.Texto = "Mayo", .Valor = e.Row.DataKey("Mayo").ToDecimal(), .Color = "#2A0CD0"}) + lista.Add(New With {.Texto = "Junio", .Valor = e.Row.DataKey("Junio").ToDecimal(), .Color = "#8A0CCF"}) + lista.Add(New With {.Texto = "Julio", .Valor = e.Row.DataKey("Julio").ToDecimal(), .Color = "#CD0D74"}) + lista.Add(New With {.Texto = "Agosto", .Valor = e.Row.DataKey("Agosto").ToDecimal(), .Color = "#754DEB"}) + lista.Add(New With {.Texto = "Septiembre", .Valor = e.Row.DataKey("Septiembre").ToDecimal(), .Color = "#DDDDDD"}) + lista.Add(New With {.Texto = "Octubre", .Valor = e.Row.DataKey("Octubre").ToDecimal(), .Color = "#999999"}) + lista.Add(New With {.Texto = "Noviembre", .Valor = e.Row.DataKey("Noviembre").ToDecimal(), .Color = "#000000"}) + lista.Add(New With {.Texto = "Diciembre", .Valor = e.Row.DataKey("Diciembre").ToDecimal(), .Color = "#FF0F00"}) + e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista)) + End Sub +#End Region + + + +#Region "Anual H O R I Z O N T A L" + + Private Sub CargaDatosAnualH() + + + FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" + FechaFMes = $"31/12/{DdlEjercicio2.SelectedValue}" + + CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero + CveProyecto = DdlProyecto.SelectedValue.ToEntero + + '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, VistaPorcentaje:=DdlvistaPorcentaje.SelectedValue.ToEntero) Then + DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") + Else + DtDatosAnualH = Nothing + Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) + End If + ObjConta.Dispose() + + If DtDatosAnualH IsNot Nothing Then + CargaGridsAnualH() + + End If + + End Sub + + Private Sub CargaGridsAnualH() + + DtIngresosAnualH = DtDatosAnualH.FiltraParametros("Tipo ='H' ") + DtGastosAnualH = DtDatosAnualH.FiltraParametros("Tipo ='G' ") + DTTotalesAnualH = DtDatosAnualH.Clone() + + Dim Row As DataRow = DtIngresosAnualH.NewRow + + Dim TotalActual As Decimal = 0, TotalAnterior As Decimal = 0 + Dim IndexData As Integer = 0 + Dim IndexGv As Integer = 1 + Dim IndexMax As Integer = 1 + + + Dim IDX_LIMPIAR As Integer = 1 + + For IDX_LIMPIAR = 1 To 37 + + GvIngresosAnualH.Columns(IDX_LIMPIAR).Visible = False + GvGastosAnualH.Columns(IDX_LIMPIAR).Visible = False + GvTotalesAnualH.Columns(IDX_LIMPIAR).Visible = False + Next + listaCamposanios.Clear() + listaCamposaniosGastos.Clear() + listaCamposaniosTotal.Clear() + + If DtIngresosAnualH.Rows.Count > 0 Then + + For Each dCoumn As DataColumn In DtIngresosAnualH.Columns + + If IndexData >= 13 Then + + If dCoumn.ColumnName.ToEntero > 0 AndAlso dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then + + CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName + CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName + GvIngresosAnualH.Columns(IndexGv).Visible = True + CType(GvIngresosAnualH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dCoumn.ColumnName}" + CType(GvIngresosAnualH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + GvIngresosAnualH.Columns(IndexGv + 1).Visible = True + + CType(GvTotalesAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName + CType(GvTotalesAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName + GvTotalesAnualH.Columns(IndexGv).Visible = True + CType(GvTotalesAnualH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dCoumn.ColumnName}" + CType(GvTotalesAnualH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + GvTotalesAnualH.Columns(IndexGv + 1).Visible = True + + listaCamposanios.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()}) + listaCamposaniosTotal.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()}) + + IndexMax = IndexData + Else + 'GvIngresosAnualH.Columns(IndexGv).Visible = False + 'GvTotalesAnualH.Columns(IndexGv).Visible = False + End If + + + + IndexGv = IndexGv + 2 + End If + + IndexData = IndexData + 1 + + Next + + + For Each dr As DataRow In DtIngresosAnualH.FiltraParametros("NOT CtaMayor in (3,4)").Rows + + TotalActual += dr("ImporteActual").ToString.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal + + Next + + IndexData = 13 + For IndexData = 13 To IndexMax + + 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 + + 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 + Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico") + CountDinamicoAnual = DtGastosAnualH.MAX("CountDinamico").ToEntero + 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 As Decimal = TotalActual, T2 As Decimal = 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 + GvGastosAnualH.Columns(IndexGv).Visible = True + + CType(GvGastosAnualH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dCoumn.ColumnName}" + CType(GvGastosAnualH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + GvGastosAnualH.Columns(IndexGv + 1).Visible = True + + listaCamposaniosGastos.Add(New String() {dCoumn.ColumnName.ToString(), dCoumn.ColumnName.ToString()}) + + IndexMax = IndexData + Else + GvGastosAnualH.Columns(IndexGv).Visible = False + End If + + IndexGv = IndexGv + 2 + + End If + + IndexData = IndexData + 1 + + Next + + + For Each dr As DataRow In DtGastosAnualH.FiltraParametros("Not CtaMayor In (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal + Next + + IndexData = 13 + For IndexData = 13 To IndexMax + + + 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" + 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 + Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico") + DtGastosAnualH.Rows.Add(Row) + Else + Row.Item("Nombre") = "TOTAL GASTOS" + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtGastosAnualH.Rows.Add(Row) + End If + + If DtIngresosAnualH.Rows.Count > 0 Then + + Row = DTTotalesAnualH.NewRow + + + IndexData = 13 + For IndexData = 13 To IndexMax + + + 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 + + + + Next + + Row.Item("Nombre") = "Resultados del Ejercicio" + Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") - DtGastosAnualH.SUM($"ImporteAcumulado", "Not CtaMayor in (-1,3,4)") + + + DTTotalesAnualH.Rows.Add(Row) + + End If + + GvIngresosAnualH.DataSource = DtIngresosAnualH + GvIngresosAnualH.DataBind() + + GvGastosAnualH.DataSource = DtGastosAnualH + GvGastosAnualH.DataBind() + + GvTotalesAnualH.DataSource = DTTotalesAnualH + GvTotalesAnualH.DataBind() + + UpDatosAnualH.Update() + + End Sub + + Protected Sub GvIngresosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + If e.Row.RowType = DataControlRowType.DataRow Then + setgraficaCCAnual(e, listaCamposanios) + 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.ControlStyle.Font.Bold = True + End If + + + 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 + + e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + + 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 Step 2 + Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField + Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + Next IndiceInicio + + e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + + + + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then + + 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 Step 2 + + Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + + Next IndiceInicio + + + End If + + + + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + End If + End Sub + + Protected Sub GvGastosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + setgraficaCCAnual(e, listaCamposaniosGastos) + 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 + End If + + 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 + + 'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1&EjercicioFinal={DdlEjercicio2.SelectedValue}" + e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + + 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 Step 2 + Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField + Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal + e.Row.Cells(IndiceInicio).Text = $"{If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00"))}" + 'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor) + 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 = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + + + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then + + 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 Step 2 + + Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + + Next IndiceInicio + + End If + + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + End If + End Sub + + Protected Sub GvTotalesAnualH_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 + setgraficaCCAnual(e, listaCamposaniosTotal) + e.Row.Attributes.Add("style", "Font-weight: bold") + + + If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then + e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red + End If + + + End If + + End Sub + + Public Sub setgraficaCCAnual(e As GridViewRowEventArgs, listaCampos As List(Of String())) + Dim lista As New List(Of Object) + Dim colorindex As Integer = 0 + For Each campo As String() In listaCampos + lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)}) + colorindex = colorindex + 1 + If colorindex >= listacolores.Count Then + colorindex = 0 + End If + Next + e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista)) + End Sub + +#End Region + + +#Region "S U B P R O Y E C T O H O R I Z O N T A L" + + Private Sub CargaDatosSubProyectoH() + + If ChkAcumulados.Checked Then + FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" + Else + FechaIMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" + End If + FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}" + FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy") + + CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero + CveProyecto = DdlProyecto.SelectedValue.ToEntero + + + Dim ObjConta As New ClsContabilidad + 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 + Dim IndexData As Integer = 1 + Dim ColumnasEliminar As New ArrayList + For Each dColumn As DataColumn In DtDatosSubProyectoH.Columns + 'si el nombre es numerico, s la clave del subproyecto + If dColumn.ColumnName.ToEntero > 0 Then + If DtDatosSubProyectoH.MAX(String.Format("[{0}]", dColumn.ColumnName)).ToDecimal = 0 Then + ColumnasEliminar.Add(dColumn.ColumnName) + End If + End If + Next + + If ColumnasEliminar.Count > 0 Then + For Each columna As String In ColumnasEliminar + DtDatosSubProyectoH.Columns.Remove(columna) + Dim drrs As DataRow() = DTSubProyectosCabecerasH.Select($"CveSubProyecto = {columna}") 'limpio los valores + For Each drt As DataRow In drrs + DTSubProyectosCabecerasH.Rows.Remove(drt) + Next + Next + End If + + Else + DtDatosSubProyectoH = Nothing + Alert("Ocurrio un error al cargar los datos del Estado de Actividades", TipoMensaje.MsgError) + End If + ObjConta.Dispose() + + If DtDatosSubProyectoH IsNot Nothing And DTSubProyectosCabecerasH IsNot Nothing Then + CargaGridsSubProyectoH() + End If + + End Sub + + Private Sub CargaGridsSubProyectoH() + + DtIngresosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='H' ") + DtGastosSubProyectoH = DtDatosSubProyectoH.FiltraParametros("Tipo ='G' ") + DTTotalesSubProyectoH = DtDatosSubProyectoH.Clone() + + Dim Row As DataRow = DtIngresosSubProyectoH.NewRow + + Dim TotalActual As Decimal = 0, TotalAnterior As Decimal = 0 + + Dim IndexData As Integer = 0 + Dim IndexGv As Integer = 1 + Dim IndexMax As Integer = 1 + Dim IndexSubProyecto As Integer = 0 + Dim IndexSubProyectoMax As Integer = DTSubProyectosCabecerasH.Rows.Count - 1 + + 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 + IndexTotales = DtIngresosSubProyectoH.Columns.Count - 2 + End If + + '34 + Dim IDX_LIMPIAR As Integer = 1 + + For IDX_LIMPIAR = 1 To GvIngresosSubProyectoH.Columns.Count - 3 + CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).DataField = Nothing + CType(GvIngresosSubProyectoH.Columns(IDX_LIMPIAR), BoundField).HeaderText = "" + GvIngresosSubProyectoH.Columns(IDX_LIMPIAR).Visible = False + Next + listaCampos.Clear() + + Dim DTProcesaColumnas As DataTable = If(DtIngresosSubProyectoH.Rows.Count > 0, DtIngresosSubProyectoH, DtGastosSubProyectoH) + + For Each dColumn As DataColumn In DTProcesaColumnas.Columns + + If IndexData >= 13 Then + + If IndexSubProyecto <= IndexSubProyectoMax Then + + If GvIngresosSubProyectoH.Columns(IndexGv).GetType.Name = "BoundField" Then + + If dColumn.ColumnName = "SinSubProyecto" Then + 'TxtSub = "Sin SubProyecto" + 'Continue For + Exit For + End If + + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName + GvIngresosSubProyectoH.Columns(IndexGv).Visible = True + + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName + GvTotalesSubProyectoH.Columns(IndexGv).Visible = True + + CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).DataField = dColumn.ColumnName + GvGastosSubProyectoH.Columns(IndexGv).Visible = True + + If IndexSubProyecto <= IndexSubProyectoMax Then + + Dim TxtSub As String = GlobalDTSubProyectos(-1, CveSubProyecto:=dColumn.ColumnName.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto") + + CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = TxtSub + + CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).HeaderText = "%" + + If (dColumn.ColumnName.ToString.ToEntero > 0 Or dColumn.ColumnName = "SinSubProyecto") Then + CType(GvIngresosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" + GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = True + CType(GvTotalesSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" + GvTotalesSubProyectoH.Columns(IndexGv + 1).Visible = True + CType(GvGastosSubProyectoH.Columns(IndexGv + 1), BoundField).DataField = $"Porcentaje{dColumn.ColumnName}" + 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.FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {dColumn.ColumnName}")}) + End If + + Else + If IndexGv < GvIngresosSubProyectoH.Columns.Count Then + GvIngresosSubProyectoH.Columns(IndexGv).Visible = False + GvTotalesSubProyectoH.Columns(IndexGv).Visible = False + Else + Exit For + End If + + End If + + IndexGv = IndexGv + 2 + IndexSubProyecto = IndexSubProyecto + 1 + IndexMax = IndexMax + 1 + + End If + IndexData = IndexData + 1 + + If dColumn.ColumnName = "SinSubProyecto" Then + 'Continue For + Exit For + End If + Next + + If DtIngresosSubProyectoH.Rows.Count > 0 Then + + For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("Not CtaMayor In (3,4)").Rows + TotalActual += dr("ImporteActual").ToString.ToDecimal + TotalAnterior += dr("ImporteAcumulado").ToString.ToDecimal + Next + + 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 (3,4)") + + If DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") <> 0 Then + + 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 + End If + Next + + Row.Item("Nombre") = "TOTAL INGRESOS " + Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "Not CtaMayor In (3,4)") 'TotalActual.ToString + Row.Item("PorcentajeActual") = 100.0 + Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "Not CtaMayor In (3,4)") 'TotalAnterior.ToString + Row.Item("PorcentajeAcumulado") = 100.0 + Row.Item("CtaMayor") = -1 + Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico") + CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero + DtIngresosSubProyectoH.Rows.Add(Row) + Else + Row.Item("Nombre") = "INGRESOS " + Row.Item("ImporteActual") = "0.00" + Row.Item("ImporteAcumulado") = "0.00" + Row.Item("CtaMayor") = -1 + DtIngresosSubProyectoH.Rows.Add(Row) + + End If + DtIngresosSubProyectoH.Rows.Add(DtIngresosSubProyectoH.NewRow()) + + Dim T1 As Decimal = TotalActual, T2 As Decimal = TotalAnterior + + TotalActual = 0 + TotalAnterior = 0 + + Row = DtGastosSubProyectoH.NewRow + + If DtIngresosSubProyectoH.Rows.Count > 0 Then + + Row = DTTotalesSubProyectoH.NewRow + + IndexData = 13 + For IndexData = 13 To IndexTotales + If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número + + Dim TotalProyectoIngreso As Decimal = DtIngresosSubProyectoH.SUMD($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") + Dim TotalProyectoEgreso As Decimal = DtGastosSubProyectoH.SUMD($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") + + 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 + Else + Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0" + End If + + End If + Next + + Dim totalTemp As Decimal = DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") + Row.Item("Nombre") = "Resultado del ejercicio" + Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") + Row.Item("CtaMayor") = -2 + Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToString.ToEntero + If DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)") <> 0 Then + Row.Item("PorcentajeAcumulado") = (totalTemp * 100 / DtIngresosSubProyectoH.SUMD($"ImporteAcumulado", "Not CtaMayor In (-1,3,4)")) + End If + DTTotalesSubProyectoH.Rows.Add(Row) + + End If + DtIngresosSubProyectoH.Merge(DtGastosSubProyectoH) + DtIngresosSubProyectoH.Merge(DTTotalesSubProyectoH) + GvIngresosSubProyectoH.DataSource = DtIngresosSubProyectoH + GvIngresosSubProyectoH.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 + + 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 + '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 + + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then + + e.Row.ControlStyle.Font.Bold = True + e.Row.ControlStyle.Font.Size = 13 + End If + Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero + setgraficaCC(e) + 'Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero + If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then + + e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim IndiceInicio As Integer = 1 + Dim IndiceMax As Integer = 1 + CountDinamico + + Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1).LastDayOfMonth + If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 3 Then + IndiceMax = GvIngresosSubProyectoH.Columns.Count - 3 + End If + + For IndiceInicio = 1 To IndiceMax + + If GvGastosSubProyectoH.Columns(IndiceInicio).GetType.Name = "BoundField" Then + Dim CveSubProyectoInterno As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField + Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal + + If CveSubProyectoInterno.ToEntero > 0 Then + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + End If + + End If + + Next IndiceInicio + + e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}" + + ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then + + Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero + Dim IndiceInicio As Integer = 1 + Dim IndiceMax As Integer = 1 + CountDinamico + If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 3 Then + IndiceMax = GvIngresosSubProyectoH.Columns.Count - 3 + End If + + For IndiceInicio = 1 To IndiceMax + Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal + e.Row.Cells(IndiceInicio).Text = $" { If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) } "
+ Next IndiceInicio
+
+ ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then
+
+ Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
+ Dim IndiceInicio As Integer = 1
+ Dim IndiceMax As Integer = 1 + CountDinamico
+ If IndiceMax > GvIngresosSubProyectoH.Columns.Count - 3 Then
+ IndiceMax = GvIngresosSubProyectoH.Columns.Count - 3
+ End If
+
+ For IndiceInicio = 1 To IndiceMax
+
+ Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+ e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) } "
+ Next IndiceInicio
+
+ End If
+ 'If e.Row.FCHyperLink("HLAnterior") IsNot Nothing Then
+ e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero > 1, e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0.00"))
+ If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
+ e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
+ End If
+ 'End If
+
+ End If
+
+ End Sub
+
+ Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ setgraficaCC(e)
+ 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 = "SubTotales"
+ e.Row.ControlStyle.Font.Bold = True
+ End If
+ If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
+ e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
+ End If
+ End If
+ End Sub
+
+ 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
+ setgraficaCC(e)
+ e.Row.Attributes.Add("style", "Font-weight: bold")
+
+ 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 Step 2
+ Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
+ Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
+ e.Row.Cells(IndiceInicio).Text = $""
+ Next IndiceInicio
+
+ End If
+ End Sub
+
+ Public Sub setgraficaCC(e As GridViewRowEventArgs)
+ Dim lista As New List(Of Object)
+ Dim colorindex As Integer = 0
+ For Each campo As String() In listaCampos
+
+ 'Dim valorCampo As Decimal = If(e.Row.DBCampo(campo(0)).ToDecimal() < 0, (e.Row.DBCampo(campo(0)).ToDecimal() * -1), e.Row.DBCampo(campo(0)).ToDecimal())
+
+ lista.Add(New With {.Texto = campo(1), .Valor = e.Row.DBCampo(campo(0)).ToDecimal(), .Color = listacolores(colorindex)})
+ colorindex = colorindex + 1
+ If colorindex >= listacolores.Count Then
+ colorindex = 0
+ End If
+ Next
+ e.Row.FCHyperLink("Hypgrafica").Attributes.Add("data-values", Newtonsoft.Json.JsonConvert.SerializeObject(lista))
+ End Sub
+#End Region
+
+
+
+
+
+#Region "DESCARGA EXCEL"
+
+ Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+ Imprimir("Excel")
+ End Sub
+
+ Private Sub Imprimir(Optional reporte As String = "PDF")
+
+
+ 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
+ ExportToExcelG(GvIngresosMesH, GvGastosMesH, TMesT1, "Reporte_Mensual_Horizontal", UsuarioActual, "Mensual Horizontal", Gv3:=GvTotalesMesH)
+ 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
+
+ ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True)
+
+ End If
+
+
+ End Sub
+
+ 'Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100)
+ Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, TablaResultados As HtmlTable, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100, Optional Gv3 As GridView = Nothing, Optional EsPorSubProtyecto As Boolean = False)
+
+ Dim sw1 As New StringWriter()
+ Dim htw1 As New HtmlTextWriter(sw1)
+ Gv1.RenderControl(htw1)
+
+ Dim sw2 As New StringWriter()
+ Dim htw2 As New HtmlTextWriter(sw2)
+ Gv2.RenderControl(htw2)
+
+
+ TablaResultados.Width = Gv2.Width.ToString
+
+ Dim sw3 As New StringWriter()
+ Dim htw3 As New HtmlTextWriter(sw3)
+ TablaResultados.RenderControl(htw3)
+
+ Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault
+
+ Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString()))
+ Dim htmlStream2 = New MemoryStream(options.Encoding.GetBytes(sw2.ToString()))
+ Dim htmlStream3 = New MemoryStream(options.Encoding.GetBytes(sw3.ToString()))
+
+ htmlStream1.Position = 0
+ Dim sr1 As New StreamReader(htmlStream1)
+
+ htmlStream2.Position = 0
+ Dim sr2 As New StreamReader(htmlStream2)
+
+ htmlStream3.Position = 0
+ Dim sr3 As New StreamReader(htmlStream3)
+
+
+ Dim myStr1 As String = sr1.ReadToEnd()
+ Dim myStr2 As String = sr2.ReadToEnd()
+ Dim myStr3 As String = sr3.ReadToEnd()
+
+ sr1.Dispose()
+ sr2.Dispose()
+ sr3.Dispose()
+
+ htmlStream1.Dispose()
+ htmlStream2.Dispose()
+ htmlStream3.Dispose()
+
+ sw1.Dispose()
+ sw2.Dispose()
+ sw3.Dispose()
+
+ If Gv3 IsNot Nothing Then
+
+ Gv3.ShowHeader = False
+
+ Dim sw4 As New StringWriter()
+ Dim htw4 As New HtmlTextWriter(sw4)
+ Gv3.RenderControl(htw4)
+ Dim htmlStream4 = New MemoryStream(options.Encoding.GetBytes(sw4.ToString()))
+ htmlStream4.Position = 0
+ Dim sr4 As New StreamReader(htmlStream4)
+ myStr3 = sr4.ReadToEnd()
+
+ sr4.Dispose()
+ htmlStream2.Dispose()
+ sw4.Dispose()
+
+ End If
+
+
+ Dim HtmlCompleto As String = myStr1 & "" & myStr2 & " " & myStr3 + + + HtmlCompleto = Regex.Replace(HtmlCompleto, "\<[\/]*a[^\>]*\>", "") + + + Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto)) + + GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet) + + Dim excel As GemBox.Spreadsheet.ExcelFile + + excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options) + + If Usuario IsNot Nothing Then + + Dim TotalRowHeader As Integer = 8 + Dim TotalRowFooter As Integer = 2 + + + Dim worksheet = excel.Worksheets(0) + worksheet.Rows.InsertEmpty(0, TotalRowHeader) + Dim celdasConTexto = worksheet.GetUsedCellRange(True) + celdasConTexto.Style.Font.Name = "Calibri Light" + + Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex) + RangoNombreEmpresa.Merged = True + RangoNombreEmpresa.Value = Usuario.Empresa.Empresa + RangoNombreEmpresa.Style.Font.Size = 18 * 20 + RangoNombreEmpresa.Style.Font.Name = "Calibri Light" + RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + + Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex) + RangoTitulo.Merged = True + RangoTitulo.Value = Titulo + RangoTitulo.Style.Font.Size = 20 * 20 + RangoTitulo.Style.Font.Name = "Calibri Light" + RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + Dim RangoFechas = worksheet.Cells.GetSubrangeAbsolute(4, celdasConTexto.FirstColumnIndex, 4, celdasConTexto.LastColumnIndex) + RangoFechas.Merged = True + RangoFechas.Value = $"Fechas: {FechaIMes} a {FechaFMes}" + RangoFechas.Style.Font.Size = 15 * 20 + RangoFechas.Style.Font.Name = "Calibri Light" + RangoFechas.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoFechas.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + + If EsPorSubProtyecto And DdlSubproyecto.SelectedValue.ToEntero > 0 Then + Dim RangoSubProyecto = worksheet.Cells.GetSubrangeAbsolute(5, celdasConTexto.FirstColumnIndex, 5, celdasConTexto.LastColumnIndex) + RangoSubProyecto.Merged = True + RangoSubProyecto.Value = DdlSubproyecto.SelectedItem.Text + RangoSubProyecto.Style.Font.Size = 20 * 20 + RangoSubProyecto.Style.Font.Name = "Calibri Light" + RangoSubProyecto.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + RangoSubProyecto.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + End If + + For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex + + worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20 + worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center + worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center + + worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + + + + If Not EsPorSubProtyecto Then + worksheet.Rows(8 + Gv1.Rows.Count + 2).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Rows(8 + Gv1.Rows.Count + 2).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + Else + worksheet.Rows(18).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) + worksheet.Rows(18).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) + End If + + + + If i > 0 Then + Try + worksheet.Columns(i).AutoFit(1) + Catch ex As Exception + End Try + End If + Next + + Dim IndexEndTable As Integer = Gv1.Rows.Count + Gv2.Rows.Count + 4 + TotalRowHeader + TotalRowFooter + + worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió" + 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 = NowADS().ToString("dd/MM/yyyy") + + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)) + + If Imagen.Exists Then + Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta) + Using sr As New StreamReader(Ruta) + Dim ms As New MemoryStream() + sr.BaseStream.CopyTo(ms) + worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel) + End Using + End If + + + + + + + For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex + + If I > 0 Then + + If DdlDivisor.SelectedValue.ToEntero = 1 Then + worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00" + Else + worksheet.Columns(I + 1).Style.NumberFormat = "#,##" + End If + + Try + worksheet.Columns(I).AutoFit(1) + Catch ex As Exception + End Try + + End If + Next + + End If + + excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") + + + End Sub + + Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) + End Sub + +#End Region + + + + + +End Class + + diff --git a/Contabilidad/RepFlujoEfectivo.aspx b/Contabilidad/RepFlujoEfectivo.aspx index 71572a776..63d08f881 100644 --- a/Contabilidad/RepFlujoEfectivo.aspx +++ b/Contabilidad/RepFlujoEfectivo.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="Reporte Flujo de Efectivo" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepFlujoEfectivo.aspx.vb" Inherits="Contabilidad_RepFlujoEfectivo" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepFlujoEfectivo.aspx.vb" Inherits="AC2_RepFlujoEfectivo" %>  --%>
+ <%--
+
+
-
- <%--
Fecha Inicio:
-
+
Fecha Inicio:
+
-
- Fecha Fin:
-
+
-
Tipo:
-
-
Divisor:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
+ <%--
-
-
-
-
+
+ + {0} ", UsuarioActual.Empresa.Empresa, TxtFechaAl.Text)
+ End Sub
#End Region
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
@@ -110,13 +125,13 @@ Partial Class Contabilidad_RepFlujoEfectivo
e.Row.Font.Bold = True
'CABCERA
- If e.Row.DBCampo("Id") = "12" Then
+ If e.Row.DBCampo("CveCuenta") = "12" Then
e.Row.FCLabel("LbActual").Text = ""
e.Row.FCLabel("LbAnterior").Text = ""
End If
'TOTAL OPERACIONES
- If e.Row.DBCampo("Id") = "123" Then
+ If e.Row.DBCampo("CveCuenta") = "123" Then
e.Row.FCLabel("LbActual").Text = TotalActual.ToString.FormatoNumero
e.Row.FCLabel("LbAnterior").Text = TotalAnterior.ToString.FormatoNumero
End If
@@ -161,18 +176,60 @@ Partial Class Contabilidad_RepFlujoEfectivo
End If
End Sub
-
+ Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click
+ ImprimirReporte()
+ End Sub
+ 'No quitar porque no funciona el exporta PDF
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
-
+ ' Verifies that the control is rendered
End Sub
+ 'Protected Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated
+ ' If (e.Row.RowType = DataControlRowType.Header) Then
+ ' Dim HeaderGrid As GridView = DirectCast(sender, GridView)
+ ' Dim HeaderGridRow As GridViewRow = New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Insert)
+ ' Dim HeaderCell As TableCell = New TableCell()
+ ' HeaderCell.Text = String.Format("Estado de Flujo de Efectivo Al {1} {0} ", UsuarioActual.Empresa.Empresa, FechaAl)
+ ' HeaderCell.ColumnSpan = GvDatos.Columns.Count
+ ' HeaderCell.HorizontalAlign = HorizontalAlign.Center
+ ' HeaderGridRow.Cells.Add(HeaderCell)
+ ' GvDatos.Controls(0).Controls.AddAt(0, HeaderGridRow)
+ ' End If
+
+ ' If (e.Row.RowType = DataControlRowType.Footer) Then
+ ' Dim HeaderGrid As GridView = DirectCast(sender, GridView)
+ ' Dim HeaderGridRow As GridViewRow = New GridViewRow(0, 0, DataControlRowType.Footer, DataControlRowState.Insert)
+ ' Dim HeaderCell As TableCell = New TableCell()
+ ' HeaderCell.Text = "Estado de Flujo de Efectivo Al {1}
-
+
-
-
-
-
+
+ Cuenta:
-
-
-
-
-
-
-
-
-
-
+
+ Fecha Inicio:
+
+
+
+
+
+
+ Fecha Fin:
+
+
+
+
+ >
-
+
-
-
-
+
+ Tipo Movto
+
+
+
-
-
+
+ Tipo
+
+
+
+
+
-
-
+
+
-
- Buscar :
-
- --%>
-
-
-<%--
- --%>
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" />
- " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
-
+ " style="display: inline-block; margin-right: -20px; width: 150px;" />
+ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
+
+
--%> - <%--
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ >
+
+
+
+
+
+
+
+
+
+
+ +
+ Buscar :
+
+ --%>
+
+
+<%--
+ --%>
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" />
+ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
+
+
--%> +
-
-
-
+
+
Fecha Inicio: |
|
- Fecha Fin: |
|
-
+ --%>
+
+
SubTotales: |
- |
-
-
-
-
-
-
-
-
- <%--
- --%>
-
-
-
-
- Cuenta
-
-
-
-
-
- Fecha Inicio:
-
-
-
-
-
-
- Fecha Fin:
-
-
-
-
-
- >
-
-
-
-
- Tipo Movto
-
-
-
-
- Tipo
-
-
-
-
-
-
-
-
-
-
-
- - -
- - -
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" />
- " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
-
-
-
-
-
-
-
-
-
-
{1}", e.Row.DBCampo("SaldoID").FormatoNumero, e.Row.DBCampo("SaldoIA").FormatoNumero) - e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("TotalCargos").FormatoNumero - e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("TotalAbonos").FormatoNumero - e.Row.FCLabel("LbSaldoActual").Visible = True - e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0} {1}", e.Row.DBCampo("SaldoAD").FormatoNumero, e.Row.DBCampo("SaldoAA").FormatoNumero) - Else - If ModoImpresion Then e.Row.Cells(5).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto) - End If - End If - End Sub - - - Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click - ModoImpresion = True - - CargaDatos() - - ImprimirReporte() - - - End Sub - 'No quitar porque no funciona el exporta PDF - Public Overrides Sub VerifyRenderingInServerForm(control As Control) - ' Verifies that the control is rendered - End Sub - - - Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click - - ImprimirReporte("Excel") - End Sub - - Private Sub ImprimirReporte(Optional Formato As String = "PDF") - 'ubicacion del rdlc - Dim reportpath As String = "Contabilidad/Reportes/RepBalanzaComprobacion.rdlc" - 'nombre del reporte - Dim fileName As String = "BalanzaComprobacion" - 'parametros a enviar al reporte - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) - - ImprimirPDF(reportpath, DtDatos, params, fileName, Formato) - End Sub - -End Class diff --git a/Contabilidad2/RepEstadoResultados.aspx b/Contabilidad2/RepEstadoResultados.aspx deleted file mode 100644 index 18760d8f5..000000000 --- a/Contabilidad2/RepEstadoResultados.aspx +++ /dev/null @@ -1,563 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEstadoResultados.aspx.vb" Inherits="Contabilidad2_RepEstadoResultados" %> - -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- - - -
--%>
- <%--
-
-
-
-
-
-
-
-
-
-
-
- Fecha Inicio:
-
-
-
-
- Fecha Fin:
-
-
-
-
- Divisor:
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- - - - {0} ", UsuarioActual.Empresa.Empresa, TxtFechaAl.Text)
-
- End Sub
-#End Region
-
- Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
- CargaDatos()
- End Sub
-
-
- Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
- If e.Row.RowType = DataControlRowType.DataRow Then
-
- 'PARA PONER AÑO EN HEADER
- If e.Row.RowIndex = 0 Then
- GvDatos.HeaderRow.FCLabel("LbPeriodoActual").Text = e.Row.DBCampo("Actual")
- GvDatos.HeaderRow.FCLabel("LbPeriodoAnterior").Text = e.Row.DBCampo("Anterior")
- End If
-
- 'TITULO DE BLOQUE (CABECERAS Y TOTALES)
- If e.Row.DBCampo("Level") = "-1" Then
- CType(e.Row.FindControl("Concepto"), HtmlControl).Attributes.Add("style", "margin-top:20px; ")
- e.Row.Font.Bold = True
-
- 'CABCERA
- If e.Row.DBCampo("CveCuenta") = "12" Then
- e.Row.FCLabel("LbActual").Text = ""
- e.Row.FCLabel("LbAnterior").Text = ""
- End If
-
- 'TOTAL OPERACIONES
- If e.Row.DBCampo("CveCuenta") = "123" Then
- e.Row.FCLabel("LbActual").Text = TotalActual.ToString.FormatoNumero
- e.Row.FCLabel("LbAnterior").Text = TotalAnterior.ToString.FormatoNumero
- End If
-
- End If
-
- 'ORIGEN Y APLICACION
- If e.Row.DBCampo("Level") = "0" Then
- CType(e.Row.FindControl("Concepto"), HtmlControl).Attributes.Add("style", "margin-left:30px; margin-top:15px")
- e.Row.Font.Bold = True
- End If
-
- 'PAPAS
- If e.Row.DBCampo("Level") = "2" Then
- CType(e.Row.FindControl("Concepto"), HtmlControl).Attributes.Add("style", "margin-left: 60px; margin-top:5px;")
- End If
-
- 'HIJOS
- If e.Row.DBCampo("Level") = "3" Then
- CType(e.Row.FindControl("Concepto"), HtmlControl).Attributes.Add("style", "margin-left:90px;")
- End If
-
- 'INGRESOS -> ORIGEN
- If e.Row.DBCampo("Codigo").ToString.Substring(0, 5) = "00004" Then e.Row.FCLiteral("LtNombre").Text = "ORIGEN"
-
- 'GASTOS -> APLICACION
- If e.Row.DBCampo("Codigo").ToString.Substring(0, 5) = "00005" Then e.Row.FCLiteral("LtNombre").Text = "APLICACION"
-
-
-
- 'ACTIVIDADES DE OPERACION
- If e.Row.DBCampo("Sup").ToString <> "" Then
- If e.Row.DBCampo("ImporteAnterior").ToString.ToDecimal = 0 Then
- e.Row.FCLabel("LbAnterior").Text = ""
- End If
- If e.Row.DBCampo("ImporteActual").ToString.ToDecimal = 0 Then
- e.Row.FCLabel("LbActual").Text = ""
- End If
- End If
-
-
- End If
- End Sub
-
- Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) Handles BtnImprimir.Click
- ImprimirReporte()
- End Sub
- 'No quitar porque no funciona el exporta PDF
- Public Overrides Sub VerifyRenderingInServerForm(control As Control)
- ' Verifies that the control is rendered
- End Sub
-
- 'Protected Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated
- ' If (e.Row.RowType = DataControlRowType.Header) Then
- ' Dim HeaderGrid As GridView = DirectCast(sender, GridView)
- ' Dim HeaderGridRow As GridViewRow = New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Insert)
- ' Dim HeaderCell As TableCell = New TableCell()
- ' HeaderCell.Text = String.Format("Estado de Flujo de Efectivo Al {1} {0} ", UsuarioActual.Empresa.Empresa, FechaAl)
- ' HeaderCell.ColumnSpan = GvDatos.Columns.Count
- ' HeaderCell.HorizontalAlign = HorizontalAlign.Center
- ' HeaderGridRow.Cells.Add(HeaderCell)
-
-
- ' GvDatos.Controls(0).Controls.AddAt(0, HeaderGridRow)
- ' End If
-
- ' If (e.Row.RowType = DataControlRowType.Footer) Then
- ' Dim HeaderGrid As GridView = DirectCast(sender, GridView)
- ' Dim HeaderGridRow As GridViewRow = New GridViewRow(0, 0, DataControlRowType.Footer, DataControlRowState.Insert)
- ' Dim HeaderCell As TableCell = New TableCell()
- ' HeaderCell.Text = "Estado de Flujo de Efectivo Al {1}
-
-
-
-
-
-
-
-
-
- Cuenta:
-
-
-
-
- Fecha Inicio:
-
-
-
-
-
-
- Fecha Fin:
-
-
-
-
-
- >
-
-
-
-
- Tipo Movto
-
-
-
-
- Tipo
-
-
-
-
-
-
-
-
-
-
-
- " style="display: inline-block; margin-right: -20px; width: 150px;" />
- " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
-
-
-
-
-
-
-
-
-
-
- - -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- >
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- - -
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Poliza: {0}", CvePrepoliza), TipoMensaje.MsgInformacion) - objConta.Commit() - Else - Alert("Ocurrio un error al realizar el cierre", TipoMensaje.MsgError) - objConta.RollBack() - End If - objConta.Dispose() - End Sub - - Private Sub CargaCtaContableE() - Dim ObjConta As New ClsContabilidad - If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then - DdlCuentas.DataSource = ObjConta.DtResultados.FiltraParametros("Tipo = 'F' or Tipo = 'E' ", "") - End If - ObjConta.Dispose() - DdlCuentas.DataBind() - DdlCuentas.Items.Insert(0, New ListItem("Seleccionar", "-1")) - End Sub -End Class | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
--%>
-