source: sipes/0.3-modules/reportes_sipes_views/reportes_sipes_views.module @ 9b13782

<?php
  /**
  * Sistema Integral de Planificación y Presupuesto (SIPP)
  * @file reportes_sipes_views.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-04-25 // (a&#241;o-mes-dia)
  * @version 0.1 // (0.1)
  *
  */

/*
 * Implementation of hook_menu()
 */
function reportes_sipes_views_menu() {
  $items = array();
  
  $items['reportes_sipes_views'] = array(
    'title' => t('Reportes'),
    'page callback' => 'reporte_sipes_views_page',
    'access callback' => true,
    'type' => MENU_CALLBACK,
  );
  $items['reportes_sipes_views_csv'] = array(
    'title' => t('Reportes'),
    'page callback' => 'reporte_sipes_views_page_csv',
    'access callback' => true,
    'type' => MENU_CALLBACK,
  );

  
  return $items;
} // function reportes_sipp_menu


/**
 * Implementation of hook_views_api().
 */
function reportes_sipes_views_views_api() {
  return array(
    'api' => '2.0',
    'path' => drupal_get_path('module', 'reportes_sipp') . '/views',
  );
}

/**
 * Genera el reporte
 */
function reporte_sipes_views_page() {
  if (!user_access('admin planificador')) return false;

  $author = variable_get('site_name', '');
  module_load_include('module', 'libraries', 'libraries');
  $path = libraries_get_path('tcpdf');

  if (($path) && (file_exists($path . '/config/lang/spa.php'))) {
    require_once($path . '/config/lang/spa.php');
  }
  else {
    drupal_set_message(t('TCPDF library not found!'), 'error');
    return FALSE;
  }

  if (($path) && (file_exists($path . '/tcpdf.php'))) {
    require_once($path . '/tcpdf.php');
  }
  else {
    drupal_set_message(t('TCPDF library not found!'), 'error');
    return FALSE;
  }

  // create new PDF documentsite_slogan
  $pdf = new TCPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, 'UTF-8', false);
  ob_clean();
  // set document information
  $pdf->SetCreator($author);
  $pdf->SetAuthor($author);
  // set default header data
  //$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE, PDF_HEADER_STRING);
  // set header and footer fonts
  $pdf->setHeaderFont(Array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
  $pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
  // set default monospaced font
  $pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
  //set margins
  $pdf->SetMargins(10, 17, 10);
  $pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
  $pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
  //set auto page breaks
  $pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
  //set image scale factor
  $pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
  //set some language-dependent strings
  $pdf->setLanguageArray($l);
  // ---------------------------------------------------------
  // set font
  //$pdf->SetFont('dejavusans', '', 8);
  $pdf->SetFont('times', '', 8);
  // add a page
  //$pdf->AddPage();

  // remove default header/footer
  $pdf->setPrintHeader(false);
  $pdf->setPrintFooter(false);

  if ($pdf) {
    $title = t('Reporte Anual POAN @year', array('@year' => $year));
    $pdf->SetTitle($title);
    $pdf->SetSubject($title);
  }

  //$view_id = 'reporte_poan_anual';
  $view_id = 'reporte_poan_anual1';
  $view = views_get_view($view_id);
  $display_id = 'block_1';
//  $display_id = 'default';

  $view->set_display($display_id);
  $view->override_path = $_GET['q'];
  $view->pre_execute();
  $view->execute();
  $view->post_execute();
  // $output = $view->render();



  $year = variable_get('proyectos_operativos_anho_creacion', 0);
  $header = '<table border="1" cellpadding="4" style="text-align: justify">';
  $header .= '<tr>';
  $header .= '<th rowspan = "2" style="width: 5%; text-align: center">' . t('Cod.') . '</th>';
  $header .= '<th rowspan = "2" style="width: 10%; text-align: center">' . t('Nombre del Proyecto.') . '</th>';
  $header .= '<th rowspan = "2" style="width: 10%; text-align: center">' . t('Objetivo Específico del Proyecto') . '</th>';
  $header .= '<th rowspan = "2" style="width: 10%; text-align: center">' . t('Ejecutor') . '</th>';
  $header .= '<th rowspan = "2" style="width: 10%; text-align: center">' . t('Localización') . '</th>';
  $header .= '<th colspan = "2" style="width: 20%; text-align: center">' . t('Resultados esperados del Proyecto @year', array('@year' => $year)) . '</th>';
  $header .= '<th colspan = "3" style="width: 35%; text-align: center">' . t('Asignación Presupuestaria @year (En bolívares)', array('@year' => $year)) . '</th>';
  $header .= '</tr>';
  $header .= '<tr>';
  $header .= '<th style="text-align: center">' . t('Bien o Servicio') . '</th>';
  $header .= '<th style="text-align: center">' . t('Cantidad/Meta') . '</th>';
  $header .= '<th style="text-align: center">' . t('Fuente') . '</th>';
  $header .= '<th style="text-align: center">' . t('Monto') . '</th>';
  $header .= '<th style="text-align: center">' . t('Total') . '</th>';
  $header .= '</tr>';
  $plan_nombre = t('<strong style="font-size: 50px;">PLAN OPERATIVO ANUAL NACIONAL @anho (POAN @anho)</strong>', array('@anho' => $year));
  $begin = '';
  $nid = 0;
  foreach ($view->result as $key => $values) {
    if (!in_array($values->nid, $nids)) {
      $output = '';
      if ($values->node_ente_planificador_hierarchical_nid != $nid) {
        $objetivo = implode('<br>', $values->views_php_18[0]);
        $output .= $begin . '<p></p><p>' . $plan_nombre . '<br>';
        $output .= t('<strong style="font-size: 50px; ">ORGANISMO RESPONSABLE</strong>: <span style="font-size: 50px">@ente</span>', array('@ente' => $values->node_ente_planificador_hierarchical_title)) . '</p>';
        $output .= '<p><strong style="font-size: 50px">' . t('OBJETIVO HISTORICO:') . '</strong><br><span style="font-size: 50px;">' . $objetivo . '</span></p>';
        $output .= $header;
        $begin = '</table><br>';
      }

      $output .= '<tr>';
      //field codigo
      $output .= '<td>' . $values->node_title . '</td>';
      $output .= '<td>' . $values->node_data_field_proyecto_poan_field_proyecto_titulo_value . '</td>';
      $output .= '<td>' . $values->node_data_field_proyecto_poan_field_proyecto_og_value . '</td>';
      $output .= '<td>' . $values->node_node_data_field_proyecto_ente_title . '</td>';
      $output .= '<td>' . implode('<hr><br>', $values->views_php_6) . '</td>';
      $output .= '<td>' . $values->node_data_field_proyecto_poan_field_proyecto_descripcion_bie . '</td>';

      $term = taxonomy_get_term($values->node_data_field_proyecto_poan_field_proyecto_unidadm_value);
      $output .= '<td>' . $values->views_php_17 . ' ' . $term->name . '</td>';

      $output .= '<td>' . implode('<hr><br>', $values->views_php_10['fuentes']) . '</td>';
      $output .= '<td>' . implode('<hr><br>', $values->views_php_10['valores']) . '</td>';
      $output .= '<td align="center">' . $values->views_php_10['total'] . '</td>';
      $output .= '</tr>';
      $output .= $begin;

      $pdf->AddPage('L', 'Legal');
      $pdf->writeHTML($output, true, false, true, false, '');
      $pdf->lastPage();
    }
    $nids[] = $values->nid;
  }

  if ($pdf) {
    header('Content-type: text/plain');
    $name = 'reporte_anual_poan_' . $year . '.pdf';
    header('Content-Disposition: attachment; filename="' . $name . '"');
    print $pdf->Output($name, 'I');
  }

  return $output;
}

/**
 * Genera el reporte CSV
 */
function reporte_sipes_views_page_csv() {
  if (!user_access('admin planificador')) return false;

  $content = '';
  $view_id = 'reporte_poan_anual1';
  $view = views_get_view($view_id);
  $display_id = 'block_1';
  $view->set_display($display_id);
  $view->override_path = $_GET['q'];
  $view->pre_execute();
  $view->execute();
  $year = variable_get('proyectos_operativos_anho_creacion', 0);
  // $output = $view->render();
  $header = '"' . t('Cod.') . '"'  ."\t";
  $header .= '"' . t('Nombre del Proyecto') . '"'  ."\t";
  $header .= '"' . t('Objetivo Específico del Proyecto') . '"'  ."\t";
  $header .= '"' . t('Ejecutor') . '"'  ."\t";
  $header .= '"' . t('Localización') . '"' ."\t";
  $header .= '"' . t('Resultado de las Acciones Especificas del Proyecto @year', array('@year' => $year)) . '"' ."\t";
  $header .="\t";
  $header .=  '"' . t('Asignación Presupuestaria @year (En Millones de Bolivares)', array('@year' => $year)) . '"' ."\t";
  $header .="\t";
  $header .="\t";
  $header.= "\n";

  $header .="\t";
  $header .="\t";
  $header .="\t";
  $header .="\t";
  $header .="\t";
  $header .= '"' . t('Bien o Servicio') . '"' ."\t";
  $header .= '"' . t('Cantidad/Meta') . '"' ."\t";
  $header .= '"' . t('Fuente') . '"' ."\t";
  $header .= '"' . t('Monto') . '"' ."\t";
  $header .= '"' . t('Total') . '"' ."\t";
  $html = '';
  $nid = 0;
  $output = '';
  $nids = array();
  $year = variable_get('proyectos_operativos_anho_creacion', 0);

  foreach ($view->result as $key => $values) {
    if (!in_array($values->nid, $nids)) {
      $content = '';
      if ($values->node_ente_planificador_hierarchical_nid != $nid) {
        $node = node_load($values->node_ente_planificador_hierarchical_nid);
        $nid = $node->nid;

        $header_organismo = '"'.  t('PLAN OPERATIVO ANUAL NACIONAL @anho (POAN @anho)', array('@anho' => $year)) . '"' . "\n";

        $header_organismo .= '"'. t('ORGANISMO RESPONSABLE: @ente', array('@ente' => $node->title)) . '"' . "\n";
        $obj = "\n" . implode("\n", $values->views_php_18[0]);
        $header_organismo .= '"'. t('OBJETIVO HISTORICO: @obj', array('@obj' => $obj)) . '"' . "\n";
        $output .= $header_organismo . $header . "\n";
      }
      $content = '"' . trim($values->node_title) . '"' . "\t";
      $content .= '"' . trim($values->node_data_field_proyecto_poan_field_proyecto_titulo_value) . '"' . "\t";
      $content .= '"' . trim($values->node_data_field_proyecto_poan_field_proyecto_og_value) . '"' . "\t";
      $content .= '"' . trim($values->node_node_data_field_proyecto_ente_title) . '"' . "\t";

      $content .= '"' . implode("\n", $values->views_php_6) . '"' . "\t";

      $content .= '"' . trim(str_replace('"', '', $values->node_data_field_proyecto_poan_field_proyecto_descripcion_bie)) . '"' . "\t";

      $output .= $content;

      $term = taxonomy_get_term($values->node_data_field_proyecto_poan_field_proyecto_unidadm_value);

      $content = '"' . $values->views_php_17 . ' ' . check_plain($term->name) . '"' . "\t";
      $content .= '"' . implode("\n", $values->views_php_10['fuentes']) . '"' . "\t";
      $content .= '"' . implode("\n", $values->views_php_10['valores']) . '"' . "\t";
      $content .= '"' . $values->views_php_10['total'] .'"';
      $output .= $content . "\n";


    }
    $nids[] = $values->nid;
  }
  $Name = 'SIPES-Reporte-POAN-' . $year . '.csv';
  header('Expires: 0');
  header('Cache-control: private');
  header('Content-Type: application/x-octet-stream'); // Archivo de Excel
  header('Cache-Control: must-revalidate, post-check=0, pre-check=0');
  header('Content-Description: File Transfer');
  header('Last-Modified: '.date('D, d M Y H:i:s'));
  header('Content-Disposition: attachment; filename="'.$Name.'"');
  header("Content-Transfer-Encoding: binary");
  print $output;
}