-- activación de proyecto: Zona

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -130,7 +130,8 @@ Partial Class Compras_RepProductosServiciosDetalle
             End If
         End If
         DdlProyecto.SelectedValueExist(Proyecto)
-        'CARGA LISTBOXs
+        'CARGA
+        If Proyecto.ToEntero > 0 Then CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos")
         DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
         DdlTipoGasto.SelectedValuesIfExistM(TipoGasto)
         DdlCategoria.SelectedValuesIfExistM(Categoria)
@@ -181,7 +182,7 @@ Partial Class Compras_RepProductosServiciosDetalle
     Private Sub SetValues()
 
         'Carga Tipo Centro de Costo 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
 
         'Carga Tipos de Gasto
         DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
@@ -233,33 +234,6 @@ Partial Class Compras_RepProductosServiciosDetalle
 
         'Carga Grupos
         CargaGrupo()
-
-        'CARGA COSTOS
-        If UsuarioActual.CveEmpresa = 66 Then
-
-            Dim NumItems As Integer = DdlGrupo.Items.Count
-
-            'COSTOS PROYECTO
-            DdlGrupo.Items.Insert(NumItems, New ListItem("Costos", "13"))
-            RowCostos.Visible = True
-
-            'Carga Familias
-            DdlFamilia.DataSource = GlobalDTFamilias(66)
-            DdlFamilia.DataBind()
-
-            'Carga SubFamilias
-            DdlSubFamilia.DataSource = GlobalDTSubFamilias(66)
-            DdlSubFamilia.DataBind()
-
-            'COSTOS AF
-            DdlGrupo.Items.Insert(NumItems + 1, New ListItem("Costos por Activo Fijo", "14"))
-
-            'Carga AF
-            'DdlAF.DataSource = GlobalDTActivoFijos().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-            'DdlAF.DataBind()
-
-        End If
-
         RowActivoFijo.Visible = True
 
         'Carga Fechas
@@ -365,7 +339,7 @@ Partial Class Compras_RepProductosServiciosDetalle
 
 #Region "SELECT INDEX CHANGED"
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue, AplicaTodos:="Todos")
     End Sub
     Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
         CargaCultivo()