Sub Proyectos en CxP

Compras/RepCxPDetalle.aspx.vb

@@ -267,12 +267,16 @@ Partial Class RepCxPDetalle
         DdlUsuarioRegistro.SelectedValueExist(UsuarioRegistro)
 
 
-        Dim CveSucursal As Integer = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
+        Dim CveSucursal As Integer = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
+
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+        'DdlSubProyecto.DataBind()
+        'DdlSubProyecto.Items.Insert(1, New ListItem("Sin Sucursal", "0"))
+        'DdlSubProyecto.SelectedValueExist(CveSucursal)
+
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyectofiltro)
         DdlSubProyecto.Items.Insert(1, New ListItem("Sin Sucursal", "0"))
-        DdlSubProyecto.SelectedValueExist(CveSucursal)
-        CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectofiltro)
+        'CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectofiltro)
 
         Dim TipoMoneda As Integer = IfNull(Request("TipoMoneda"), 1).ToString.ToEntero
         RblTipoCambio.SelectedValue = TipoMoneda.ToString
@@ -344,6 +348,14 @@ Partial Class RepCxPDetalle
         Next
 
 
+    End Sub
+
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, CveEstatus:=1)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        UPFiltros.Update()
     End Sub
 
     Private Function CargaCuentasContables(DT As DataTable) As DataTable