RepEstadoResultadosHorizontal Porcentajes

Contabilidad2/RepAnexoCatalogoAnual.aspx.vb

@@ -137,9 +137,12 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
             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
@@ -158,9 +161,21 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
         Else
             DdlEjercicio.DataSource = Nothing
             DdlEjercicio2.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()
 
+        DdlCuentas.DataBind()
+
         DdlEjercicio.DataBind()
         DdlEjercicio2.DataBind()
 
@@ -181,8 +196,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
     Private Sub CargaDatos()
 
 
-        If CveCuenta <= -1 Then
-            Alert("No hay una cuenta expecificada.", TipoMensaje.MsgAdvertencia)
+        If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
+            Alert("Debe de seleccionar una cuenta.")
             Exit Sub
         End If