Estado de resultados Horizontal mes y deatalle, trimestre y cautrimestre

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