Pendientes BDH, mejoras servicion E141, mwjoras carga PS entradas/salidas,cambios en modalidad contable, favicon signals gps

Compras/Compras.aspx.vb

@@ -18072,6 +18072,11 @@ Partial Class Compras_Compras
         Dim CveProyecto = If(DdlProyecto.SelectedValue.ToEntero > 0, DdlProyecto.SelectedValue.ToEntero, -1)
         DdlSubProyecto.Items.Clear()
 
+        'SI NO SE VE EL PROYECTO NO FILTRAR POR PROYECTO
+        If Not DdlProyecto.Visible Then
+            CveProyecto = -1
+        End If
+
         DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
 
         DdlSubProyecto.DataBind()