diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx index 2aab78ff9..0b43246e7 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx @@ -40,7 +40,6 @@ - @@ -48,73 +47,71 @@
- + "><%--class="expand"--%> +
-
    -
  • - - -
  • -
  • - - -
  • - -
  • - - - - - - - - - - - - - - - +
    +
    + Cuenta +
    +
    + + -
  • - - -
  • Cuenta: -
  • -
  • - - - - - - - -
  • - - -
+ + +
+
+ Ejercicio: +
+
+ +
+
+ Periodo: +
+
+ + + + + + + + + + + + + + +
+
+ +
+
+ +
+
- - - +
> +
+
+ Divisor: +
+
+ + + + + +
+
+
+
@@ -290,8 +287,6 @@ - - diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb index 3921668dd..c2a05511a 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb @@ -84,13 +84,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC listacolores.Add("#DDDDDD") listacolores.Add("#999999") listacolores.Add("#000000") - listacolores.Add("#FF0F00") - 'Dim EjercicioParametro, SubProyectoParametro, DivisorParametro As Integer - 'CveCuenta = IfNull(Request("C"), "-1").ToString.ToEntero - 'EjercicioParametro = IfNull(Request("E"), "-1").ToString.ToEntero - 'SubProyectoParametro = IfNull(Request("S"), "-1").ToString.ToEntero - 'DivisorParametro = IfNull(Request("D"), "-1").ToString.ToEntero - + listacolores.Add("#FF0F00") Dim EjercicioParametro, SubProyectoParametro, DivisorParametro, Periodo As Integer CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero @@ -202,7 +196,6 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC 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 = "%" @@ -312,18 +305,11 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC 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/{DdlEjercicio.SelectedValue}") - SbFiltros.AppendFormat("Estado de Resultados Horizontal por : {0}|", SubProyecto) - SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text) - SbFiltros.AppendFormat("Periodo : {0}|", DdlPeriodo.SelectedItem.Text) + '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())