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)