-- activación de proyecto: Zona

Compras/RepProductosServicios.aspx.vb

@@ -114,7 +114,7 @@ Partial Class Compras_RepProductosServicios
         CargaGrupo()
 
         'Carga Tipo Centro de Costo
-        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
 
         If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
             lblCultivo.Visible = True
@@ -123,36 +123,7 @@ Partial Class Compras_RepProductosServicios
             lblCultivo.Visible = False
             DivCultivo.Visible = False
             DdlSubProyecto.AutoPostBack = False
-
         End If
-
-
-        '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
@@ -175,6 +146,7 @@ Partial Class Compras_RepProductosServicios
         DdlGrupo.Items.Insert(7, New ListItem("Proveedor", "10"))
         DdlGrupo.Items.Insert(8, New ListItem("Usuario", "11"))
         DdlGrupo.Items.Insert(9, New ListItem("Estatus Fact.", "12"))
+        If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Insert(10, New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "1"))
 
         'Agrega el grupo si es una empresa Agricola
         If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
@@ -330,7 +302,7 @@ Partial Class Compras_RepProductosServicios
 #Region " SELECTED 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