diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx b/Contabilidad2/RepAnexoCatalogoMensual.aspx index 9ac72ebfc..b9ebaea72 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx @@ -93,6 +93,19 @@ + +
  • Trimestre Cuatrimestre: + + NO + Trimestre + Cuatrimestre + +
  • + + + + + @@ -110,6 +123,7 @@ + @@ -121,6 +135,7 @@ +
    Nombre
    @@ -129,6 +144,7 @@
    + @@ -136,24 +152,39 @@ + + + + + + + + + + + + + + + @@ -163,6 +194,11 @@ + + + + +
    diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb index 30d1ab0c7..3b39e2b22 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb @@ -33,6 +33,10 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual ViewState("listaCampos") = value End Set End Property + + + + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -52,12 +56,13 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual listacolores.Add("#999999") listacolores.Add("#000000") listacolores.Add("#FF0F00") - Dim EjercicioParametro, SubProyectoParametro, DivisorParametro, Periodo As Integer + 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 InicializaValores() @@ -65,6 +70,9 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString) DdlDivisor.SelectedValueExist(DivisorParametro.ToString) DdlPeriodo.SelectedValueExist(Periodo) + DdlTri.SelectedValueExist(TRCU) + + CargaDatos() End If @@ -110,6 +118,48 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual GvMensual2.DataSource = Nothing End If 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 diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 68dcffac7..39d6dcf25 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb @@ -1033,7 +1033,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal '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}" + 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("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) @@ -1141,7 +1141,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal 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}" + 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("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString) e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)