RepEstadoResultadosHorizontal Porcentajes

Contabilidad2/RepAnexoCatalogoCC.aspx.vb

@@ -106,10 +106,16 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
             DdlEjercicio.SelectedValueExist(EjercicioParametro.ToString)
             DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString)
             DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
-            DdlPeriodo.SelectedValueExist(Periodo)
-
-            CargaDatos()
-
+            DdlPeriodo.SelectedValueExist(Periodo)
+
+
+            If CveCuenta > 0 Then
+                DdlCuentas.SelectedValueExist(CveCuenta)
+                CargaDatos()
+            End If
+
+
+
         End If
     End Sub
 
@@ -125,18 +131,38 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
             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
+
+
         Conta.Dispose()
 
         DdlEjercicio.DataBind()
-        DdlEjercicio.SelectedValueExist(Now.Year.ToString)
-
-        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
-        'DdlSubProyecto.DataBind()
-        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-        'DdlSubProyecto.SelectedValue = "-1"
-
+        DdlEjercicio.SelectedValueExist(Now.Year.ToString)
+
+        DdlCuentas.DataBind()
+
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        'DdlSubProyecto.DataBind()
+        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlSubProyecto.SelectedValue = "-1"
+
+
+
+
+
     End Sub
+
+
+
+
 #End Region
 
 
@@ -147,6 +173,12 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
 
     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