-acomodo de filtros, y filtro por opción movto

Contabilidad2/RepAnexoCatalogo.aspx.vb

@@ -109,10 +109,6 @@ Partial Class AC2_RepAnexoCatalogo
                     'FechaInicio = Request("FI").ToDate
                     FechaFin = Request("FF").ToDate
                     DdlCuentas.SelectedValueExist(IdCuenta)
-                    If DdlCuentas.SelectedValue.ToEntero <> -1 Then
-                        'RegistraScript("Enable();")
-                        DdlTipoCuentas.SelectedValueExist(-2)
-                    End If
 
                     If Request("FI") IsNot Nothing AndAlso Request("FI").ToString.Length = 10 AndAlso Request("FI").ToDate > "01/01/1000".ToDate Then
                         FechaInicio = Request("FI").ToDate
@@ -189,19 +185,13 @@ Partial Class AC2_RepAnexoCatalogo
             Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
             If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
             'DTCuentas = ObjTipoCuenta.DtResultados '.FiltraParametros("Afectable = 1")
-            DdlTipoCuentas.DataSource = ObjTipoCuenta.DtResultados.FiltraParametros("Codigo IN ('_ACTIVO', '_BPASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
             DdlCuentas.DataSource = ObjTipoCuenta.DtResultados
         End If
         ObjTipoCuenta.Dispose()
-        DdlTipoCuentas.DataBind()
-        'If strGlobal.Length > 0 Then DdlTipoCuentas.Items.Insert(0, New ListItem("Todas", strGlobal))
-        DdlTipoCuentas.Items.Insert(0, New ListItem("Todas las Cuentas", "-1"))
-        DdlTipoCuentas.Items.Add(New ListItem("Algun específico", "-2"))
-        DdlTipoCuentas.SelectedValue = "-2"
 
         DdlCuentas.DataBind()
 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=divProyecto)
 
     End Sub
 
@@ -323,25 +313,17 @@ Partial Class AC2_RepAnexoCatalogo
     End Sub
     Public Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
 
-        If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso DdlCuentas.SelectedValue.ToEntero = -1 Then
+        If DdlCuentas.SelectedValue.ToEntero = -1 Then
             Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
         Else
             FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", Date.Now, txtFechaI.Text.ToDate)
             FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Date.Now, txtFechaF.Text.ToDate)
-            IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, DdlCuentas.SelectedValue.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
-
+            IdCuenta = DdlCuentas.SelectedValue.ToEntero
             CargaDatos()
         End If
         'RegistraScript("Enable();")
     End Sub
-    Protected Sub DdlTipoCuentas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoCuentas.SelectedIndexChanged
-        If DdlTipoCuentas.SelectedValue.ToEntero = -2 Then
-            DdlCuentas.Enabled = True
-        Else
-            DdlCuentas.Enabled = False
-            DdlCuentas.SelectedValueExist(-1)
-        End If
-    End Sub
+
 
     Public Overrides Sub VerifyRenderingInServerForm(control As Control)