RepEstadoResultadosHorizontal Porcentajes

Contabilidad2/RepAnexoCatalogoMensual.aspx.vb

@@ -70,11 +70,16 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
             DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString)
             DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
             DdlPeriodo.SelectedValueExist(Periodo)
-            DdlTri.SelectedValueExist(TRCU)
-
-
-            CargaDatos()
-
+            DdlTri.SelectedValueExist(TRCU)
+
+            If CveCuenta > 0 Then
+                DdlCuentas.SelectedValueExist(CveCuenta)
+                CargaDatos()
+            End If
+
+
+
+
         End If
     End Sub
 
@@ -85,14 +90,28 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
     End Sub
     Private Sub CargaCombos()
 
+
+
         Dim Conta As New ClsContabilidad
         If Conta.GetEjercicios(UsuarioActual.CveEmpresa) Then
             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()
 
+        DdlCuentas.DataBind()
+
         DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValueExist(Now.Year.ToString)
 
@@ -101,18 +120,27 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubProyecto.SelectedValue = "-1"
 
-    End Sub
+
+
+    End Sub
 #End Region
-
-
+
+
 #Region "  CARGA DATOS  "
     Protected Sub BtnCargaAsignados_Click(sender As Object, e As EventArgs) Handles BtnCargaAsignados.Click
         CargaDatos()
     End Sub
-    Private Sub CargaDatos()
+    Private Sub CargaDatos()
+
+
+        If Not DdlCuentas.SelectedValue.ToEntero > 0 Then
+            Alert("Debe de seleccionar una cuenta.")
+            Exit Sub
+        End If
+
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalogoMensual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then
+        If Conta.GetAnexoCatalogoMensual(DdlCuentas.SelectedValue.ToEntero, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then
             GvMensual2.DataSource = Conta.DtResultados
         Else
             GvMensual2.DataSource = Nothing