source: sipp/0.3-stable-modules/reportes_sipp/includes/aem/aem_consulta_interactiva.pages.inc @ a0b4327

<?php
  /**
  * Sistema Integral de Planificación y Presupuesto (SIPP)
  * @file reportes_sipp.module
  * Drupal part Module to Sistema Integral de Planificación y Presupuesto (SIPP)
  * Copyright 2013 Sistema Automatizado para la Planificación Estratégico-Situacional en la Administración Pública Venezolana (CENDITEL)
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation; either version 2 of the License, or
  * (at your option) any later version.
  * 
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU General Public License for more details.
  * 
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
  *
  * @author Cenditel Merida - Ing. Diego Uzcátegui (diego.uzc [at] gmail [dot] com)
  * @date 2013-05-01 // (a&#241;o-mes-dia)
  * @version 0.1 // (0.1)
  *
  */

/*
 * Pagina que muestra el reporte áreas estratégicas del ministerio
 * Implementado por: Ing. Diego Uzcátegui, 
 * Inicio de codificación: 06-05-13
 */
 
module_load_include('inc', 'reportes_sipp' , 'includes/aem/funciones_tablas_graficas.pages');

function areas_estrategicas_del_ministerio_reporte_page(){

  module_load_include('inc', 'reportes_sipp' , 'includes/matriz_de_procesos_reporte_trimestral.pages');

  drupal_set_title(t('Áreas Estratégicas del Ministerio'));
  
  $output = '<br>';
  $output .= drupal_get_form('consulta_areas_estrategicas_del_ministerio_reporte_mensual_form');
  $output .= '<br><br>';
  
  $anno_seleccionado_para_reporte = isset($_SESSION['datos_para_generar_reporte_aem']['anho']) ? $_SESSION['datos_para_generar_reporte_aem']['anho'] : date('Y');
  if($anno_seleccionado_para_reporte > 0){
    $anho_selecc = $anno_seleccionado_para_reporte;
  }
  
  $area_seleccionada_para_reporte = isset($_SESSION['datos_para_generar_reporte_aem']) && isset($_SESSION['datos_para_generar_reporte_aem']['area']) ? $_SESSION['datos_para_generar_reporte_aem']['area'] : 0;
  if($area_seleccionada_para_reporte > 0){
    $term = taxonomy_get_term($area_seleccionada_para_reporte);
    $area_selecc = $term->name;
  }else{
    $area_selecc = 'Todas';
  }
  
  $sub_opciones_tipografico = array(t('Columnas'), t('Lineas'),);
  $tipografico_seleccionado_para_reporte = isset($_SESSION['datos_para_generar_reporte_aem']) && isset($_SESSION['datos_para_generar_reporte_aem']['tipografico']) ? $_SESSION['datos_para_generar_reporte_aem']['tipografico'] : 0;
  $tipografico_selec = $sub_opciones_tipografico[$tipografico_seleccionado_para_reporte];
  
  $header = array();
  
  $rows = array();
  
  $row = array();
  $row[] = array('data' => 'Año', 'bgcolor' => 'E6E6E6', 'style' => 'font-weight: bold;');
  $row[] = array('data' => $anho_selecc, 'bgcolor' => 'FCFCFC',);
  $rows[] = $row;
  
  $row = array();
  $row[] = array('data' => 'Área Estratégica del Ministerio', 'bgcolor' => 'E6E6E6', 'style' => 'font-weight: bold;');
  $row[] = array('data' => $area_selecc, 'bgcolor' => 'FCFCFC',);
  $rows[] = $row;
  
  $row = array();
  $row[] = array('data' => 'Tipo de Gráfico', 'bgcolor' => 'E6E6E6', 'style' => 'font-weight: bold;');
  $row[] = array('data' => $tipografico_selec, 'bgcolor' => 'FCFCFC',);
  $rows[] = $row;

  $output .= theme('table', $header, $rows);
  $output .= '<br><br>';
  
  //****************************************************************************
  
  $datos_cargados = calcular_datos_para_aem_reporte_page($anno_seleccionado_para_reporte, $area_seleccionada_para_reporte, $tipografico_selec);
  
  $output .= generar_grafica_producciontrimestres($datos_cargados['datos_anho_actual'], $datos_cargados['param']);
  $output .= '<br><br>';
  $output .= generar_tabla_produccion_trimestres($datos_cargados['datos_anho_actual'], $datos_cargados['param']);
  $output .= '<br><br>';
  $output .= generar_grafica_historicos($datos_cargados);
  
  return $output;
  
}

/**
 * Implementation of consulta_areas_estrategicas_del_ministerio_reporte_mensual_form().
 */
function consulta_areas_estrategicas_del_ministerio_reporte_mensual_form($form_state) {
  $form = array();
  
  //años disponibles
  $anno_actual = date("Y");
  for($i = $anno_actual - 10; $i <= $anno_actual; $i++) {
    $annos[$i] = $i;
  }
  $anno_seleccionado_para_reporte = isset($_SESSION['datos_para_generar_reporte_aem']) && isset($_SESSION['datos_para_generar_reporte_aem']['anho']) ? $_SESSION['datos_para_generar_reporte_aem']['anho'] : date('Y');
  $form['anno_seleccionado_para_reporte'] = array(
    '#title' => t('Consultar para el año'),
    '#type' => 'select',
    '#default_value' => $anno_seleccionado_para_reporte,
    '#options' => $annos,
  );

  //areas estratégicas del ministerio
  $areas = array();
  $result = db_query("SELECT td.tid AS tid, td.name AS name FROM {vocabulary} AS v, {term_data} AS td WHERE v.name = 'MPPCTI' AND v.vid = td.vid ");
  while($area = db_fetch_object($result)) {
    $areas[$area->tid] = $area->name;
  }
  $areas[0] = 'Todas';
  $area_seleccionada_para_reporte = isset($_SESSION['datos_para_generar_reporte_aem']) && isset($_SESSION['datos_para_generar_reporte_aem']['area']) ? $_SESSION['datos_para_generar_reporte_aem']['area'] : 0;
  $form['area_seleccionada_para_reporte'] = array(
    '#title' => t('Área Estratégica del Ministerio'),
    '#type' => 'select',
    '#default_value' => $area_seleccionada_para_reporte,
    '#options' => $areas,
  );
  
  $sub_opciones_tipografico = array(t('Columnas'), t('Lineas'),);
  $tipografico_seleccionado_para_reporte = isset($_SESSION['datos_para_generar_reporte_aem']) && isset($_SESSION['datos_para_generar_reporte_aem']['tipografico']) ? $_SESSION['datos_para_generar_reporte_aem']['tipografico'] : 0;
  $form['tipografico_seleccionado_para_reporte'] = array(
    '#title' => t('Tipo de Gráfico'),
    '#type' => 'select',
    '#default_value' => $tipografico_seleccionado_para_reporte,
    '#options' => $sub_opciones_tipografico,
  );
    
  //boton de enviar consulta
  $form['buttons'] = array(
    '#prefix' => '<div class="container-inline">',
    '#suffix' => '</div>',
  );
  $form['buttons']['submit'] = array(
    '#type' => 'submit',
    '#value' => t('Consultar'),
  );
  return $form;
}

/**
 * Implementation of consulta_areas_estrategicas_del_ministerio_reporte_mensual_form_submit().
 */
function consulta_areas_estrategicas_del_ministerio_reporte_mensual_form_submit($form, &$form_state) {
  $_SESSION['datos_para_generar_reporte_aem'] = array();
  
  $_SESSION['datos_para_generar_reporte_aem']['anho'] = $form_state['values']['anno_seleccionado_para_reporte'];
  $_SESSION['datos_para_generar_reporte_aem']['area'] = $form_state['values']['area_seleccionada_para_reporte'];
  $_SESSION['datos_para_generar_reporte_aem']['tipografico'] = $form_state['values']['tipografico_seleccionado_para_reporte'];
}