source: sipes/0.3-modules/proyectos_operativos_seguimiento/includes/proyecto/seguimiento_proyecto.pages.inc @ beba07f

<?php 
  /**
  * Sistema Automatizado para la Planificación Estratégico-Situacional en la Administración Pública Venezolana
  * @file proyecto_operativo_seguimiento.module
  * Drupal part Module to code proyectos operativos module
  * Copyright 2012 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 Uzcategui
  * @date 2013-02-07 // (anno-mes-dia)
  * Modificado
  * @author CENDITEL Merida - Msc. Juan Vizcarrondo
  * @date 2013-11-19 // (anno-mes-dia)
  * Correccion de meses y formato numerico
  * @version 0.1
  *
  */

/**
 * Pagina que muestra los seguimientos de todos los meses de una ae (cuadro resumen de seguimientos)
 */
function seguimiento_proyecto_page($node) {
  
  drupal_set_title(t('Seguimiento y Control de Proyecto Operativo'));
  $mes_fase_seg = _obtener_mes_fase_seguimiento_proyecto($node);
  if (_proyecto_seguimiento_mes_mover_estado_access($node, $mes_fase_seg, $message = true));

  $output = '';
  $output .= '<br>';

  $output .= _mostrar_datos_proyecto($node);
  $output .= _mostrar_indicadores_metafisica_seg_proyecto($node);
  $output .= _mostrar_indicadores_financieros_seg_proyecto($node);
  if (variable_get('proyectos_operativos_muestra_beneficiario', TRUE)) {  
    $output .= _mostrar_beneficiarios_seg_proyecto($node);
  }
  $output .= _mostrarleyendazonacritica();
  return $output;
}

/**
 * Pagina que carga los datos generales de una accion especifica (datos del proyecto y datos de la accion)
 */
function _mostrar_datos_proyecto($node) {
  $mes_fase_seg = _obtener_mes_fase_seguimiento_proyecto($node);
  $seguimiento_proyecto = _seguimiento_mesactual_proyecto_load($node, $mes_fase_seg);
  $state_name = t("Por ingresar");

//print_r($seguimiento_proyecto);

  $output = '';
  $opciones = array(t('NO'), t('SI'));
  $node_type = content_types('proyectos_operativos');
  $fields = $node_type['fields'];
  $output .= '<fieldset><legend>' . t('Datos del Proyecto Operativo') . '</legend>';
  $output .= '<b>' . $fields['field_proyecto_codigo']['widget']['label'] . ':</b> '.$node->field_proyecto_codigo[0]['value'].'<br>';
  $output .= '<b>' . t('Nombre del Proyecto') . ':</b> '.$node->titulo_asignado.'<br>';
  $acumulativo = $opciones[$node->es_acumulativo] ? $opciones[$node->es_acumulativo] : 'N/D';
  $output .= '<b>' . t('Es acumulativo: ') . '</b> '. $acumulativo . '<br>';

  if (workflow_get_state_name($seguimiento_proyecto['segmes']['estado'])) {
    $state_name = workflow_get_state_name($seguimiento_proyecto['segmes']['estado']);
    $output .= '<b>' . t('Estado del Seguimiento: ') . '</b>' . $state_name . '<br>';
  }

  $id_field1 = 'field_proyecto_fecha_i';
  $fecha = explode(' ', $node->{$id_field1}[0]['value']);
  $fecha = explode('-', $fecha[0]);
  $output .= '<b>' . $fields[$id_field1]['widget']['label'] . ':</b> '.$fecha[2] . '/' . $fecha[1] . '/' . $fecha[0].'<br>';
  $id_field1 = 'field_proyecto_fecha_f';
  $fecha = explode(' ', $node->{$id_field1}[0]['value']);
  $fecha = explode('-', $fecha[0]);
  $output .= '<b>' . $fields[$id_field1]['widget']['label'] . ':</b> '.$fecha[2] . '/' . $fecha[1] . '/' . $fecha[0].'<br>';
  if (variable_get('proyectos_operativos_muestra_mcti', TRUE)) {
    $term = taxonomy_get_term($node->field_proyecto_mcti[0]['value']);
    $output .= '<b>' . $fields['field_proyecto_mcti']['widget']['label'] . ':</b> '.$term->name.'<br>';
  }
  if (variable_get('proyectos_operativos_muestra_pndes', TRUE)) {
    //$term = taxonomy_get_term($node->field_proyecto_pndes[0]['value']);
    $PP = array_reverse(taxonomy_get_parents_all($node->field_proyecto_pndes[0]['value']));
    //$PP = explode('.', $term->name);
    if (isset($PP[0])) {
      $output .= '<b>' . t('Objetivo Histórico') . ':</b> '. $PP[0]->name . ' - ' . $PP[0]->description . '<br>';
    }
    if (isset($PP[1])) {
      $output .= '<b>' . t('Objetivo Nacional') . ':</b> '. $PP[1]->name . ' - ' . $PP[1]->description . '<br>';
    }
    if (isset($PP[2])) {
      $output .= '<b>' . t('Objetivo Estratégico') . ':</b> '. $PP[2]->name . ' - ' . $PP[2]->description . '<br>';
    }
    if (isset($PP[3])) {
      $output .= '<b>' . t('Objetivo General') . ':</b> '. $PP[3]->name . ' - ' . $PP[3]->description . '<br>';
    }
  }
  $output .= '</fieldset>';
  
  return $output;
}

/**
 * Pagina que carga la tabla de indicadores de meta física del proyecto
 * revisado 13 marzo 2013
 */
function _mostrar_indicadores_metafisica_seg_proyecto($node) {
  $output = '';
  $years = variable_get('accion_especifica_de_proyecto_seguimiento_anho_seguimiento', 0);
  $mess = variable_get('accion_especifica_de_proyecto_seguimiento_mes_seguimiento', 0) - 1;
  $meses = json_decode(MESES);
  $format_number = array(
    'decimals' => variable_get('proyectos_operativos_number_decimals', 0),
    'dec_point' => variable_get('proyectos_operativos_number_dec_point', ','),
    'thousands_sep' => variable_get('proyectos_operativos_number_thousands_sep', '.'),
  );
  //tabla de indicadores financieros de la accion especific
  $seg_metafisica_todos = _seguimiento_metafisica_todosmes_proyecto_load($node);
  $tablas = array();

  $header = array();
  $header[] = array('data' => t('Mes')); 
  $header[] = array('data' => t('Planificado'));
  $header[] = array('data' => t('Ejecutado'));
  $header[] = array('data' => t('% de Logro')); 
  $header[] = array('data' => t('Estatus de Ejecución')); 
  $header[] = array('data' => t('Información Complementaria')); 
  $header[] = array('data' => t('Opciones Disponibles'),); 
    
  $rows = array();
  $acumulativo = TRUE;
  for($i=0; $i<12; $i++) {
    $mesi = $i+1;
    //calcular variacion por reformulacion
    $variacion_planificado_mes = _seguimiento_mesactual_metafisica_proyecto_reformulaciones_load($node, $i);

    $planificadoMes = $seg_metafisica_todos['seguimiento_metafisica_todosmes'][$i]['planificadoMes'] + $variacion_planificado_mes;

    //$Ejecutado = $seg_metafisica_todos['seguimiento_metafisica_todosmes'][$mesi]['ejecutadoMes'];
    $Ejecutado = ($seg_metafisica_todos['seguimiento_metafisica_todosmes'][$mesi]['id_seg']) ? $seg_metafisica_todos['seguimiento_metafisica_todosmes'][$mesi]['ejecutadoMes'] : 'N/A';
    $infocomplementaria_metafisica = $seg_metafisica_todos['seguimiento_metafisica_todosmes'][$mesi]['infocomplementaria_metafisica'];
    $estatus_ejecucion = _calcularzonacritica($planificadoMes, $Ejecutado);
    $porczonacritica = $estatus_ejecucion['porczonacritica'];
    $textozona = $estatus_ejecucion['textozona'];
    $colorzona = $estatus_ejecucion['colorzona'];
    $colorfontzona = $estatus_ejecucion['colorfontzona'];
    
    $row = array();
    $row[] = array('data' => $meses[$i],);
    //si el mes esta dentro del periodo de duracion de la accion especifica
    if(_mes_dentro_de_duracion_proyecto($node, $i)){
      $row[] = array('data' => number_format($planificadoMes, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']),);
   //   $row[] = array('data' => number_format($Ejecutado, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']),);
      $valor = is_numeric($Ejecutado) ?  number_format($Ejecutado, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']) : 'N/A';
//      $row[] = array('data' => number_format($Ejecutado, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']),);
      $row[] = array('data' => $valor,);
      $row[] = array('data' => $porczonacritica,);
      $row[] = array('data' => $textozona, 'style' => 'font-weight: bold;background:' . $colorzona . '; color:' . $colorfontzona);
      $row[] = array('data' => $infocomplementaria_metafisica,);

      $seguimiento_proyecto = _seguimiento_mesactual_proyecto_load($node, $mesi);
      if (_proyecto_operativo_seguimiento_modificar_mes_access($node, $mesi)){

        $title = ' ' . t('Agregar');
        if ($seguimiento_proyecto['segmes']['estado']) {
          $title = ' ' . t('Modificar');
        }

        $links = array();
        $links[] = '<b>'.l( $title, 'proyectosop/' . $node->nid . '/seguimiento/proyecto/' . $mesi . '/edit/comentario_metafisica').'</b>';
        $row[] = array('data' => theme('item_list', $links),);
      }else{
        $row[] = array('data' => '',);
      }
    }else{
      $row[] = array('data' => '-',);//planificado
      $row[] = array('data' => '-',);//ejecutado
      $row[] = array('data' => '-',);//porcentaje
      $row[] = array('data' => '-',);//estatus de ejecucion
      $row[] = array('data' => '-',);//info complementaria
      $row[] = array('data' => '-',);
    }
    $rows[] = $row;
  }
  $acumuladoPlanificado = $seg_metafisica_todos['acum']['acumuladoPlanificado'];
  $AcumuladoEjecutado = $seg_metafisica_todos['acum']['acumuladoEjecutado'];
  $row = array();

  if ($node->es_acumulativo) {
    $row[] = array('data' => t('Acumulado'),);
    $row[] = array('data' => number_format($acumuladoPlanificado, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']),);
    $row[] = array('data' => number_format($AcumuladoEjecutado, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']),);//total ejecutado
    $row[] = array('data' => '', 'colspan' => 4);
  }
  $rows[] = $row;
  $tablas[]= theme('table', $header, $rows);
  
       
  if (count($tablas)) {
    
    $output .= '<fieldset><legend>Indicadores de la Meta Física del Proyecto</legend>';
    
    $output .= '<b>Descripción del Bien y Servicio:</b> '.$node->field_proyecto_descripcion_bien[0]['value'].'<br>';
    $term = taxonomy_get_term($node->field_proyecto_unidadm[0]['value']);
    $output .= '<b>Unidad de Medida:</b> '.$term->name.'<br><br>';
    
    $output .= implode('', $tablas).'</fieldset>';
  }
  
  return $output;
}


/**
 * Pagina que carga la tabla de indicadores de meta física de la accion especifica
 */
function _mostrar_indicadores_financieros_seg_proyecto($node) {
  $estado_aprobado = variable_get('proyectos_operativos_state_aprobado', NULL);
  $seguimiento_todos_meses_financiero = _seguimiento_financiero_todosmes_proyecto_load($node);

  $years = variable_get('accion_especifica_de_proyecto_seguimiento_anho_seguimiento', 0);
  $meses = json_decode(MESES);
  $format_number = array(
    'decimals' => variable_get('proyectos_operativos_number_decimals', 0),
    'dec_point' => variable_get('proyectos_operativos_number_dec_point', ','),
    'thousands_sep' => variable_get('proyectos_operativos_number_thousands_sep', '.'),
  );  
  //tabla de indicadores financieros del proyecto
  $tablas = array();
  
  $header = array();
  $header[] = array('data' => t('Mes')); 
  $header[] = array('data' => t('Asignado')); 
  $header[] = array('data' => t('Comprometido')); 
  $header[] = array('data' => t('Causado')); 
  $header[] = array('data' => t('Pagado')); 
  $header[] = array('data' => t('% de Inversión')); 
  $header[] = array('data' => t('Estatus de la Inversión')); 
  $header[] = array('data' => t('Información Complementaria')); 
  
  
  $rows = array();
  for($mes=0; $mes<12; $mes++){
    $mesi = $mes +1;
    //calcular variación por reformulación
    $variacion_total_ref_asignado = _seguimiento_mesactual_total_proyecto_reformulaciones_load($node, $mes);
    
    $asignadoMes = $seguimiento_todos_meses_financiero['seguimiento_financiero_todosmes'][$mes]['asignadoMes'] + $variacion_total_ref_asignado;
    $totalComprometido = ($seguimiento_todos_meses_financiero['seguimiento_financiero_todosmes'][$mesi]['id_seg']) ? $seguimiento_todos_meses_financiero['seguimiento_financiero_todosmes'][$mesi]['comprometidoMes'] : 'N/A';
    $totalCausado = ($seguimiento_todos_meses_financiero['seguimiento_financiero_todosmes'][$mesi]['id_seg']) ? $seguimiento_todos_meses_financiero['seguimiento_financiero_todosmes'][$mesi]['causadoMes'] : 'N/A';
    $totalPagado = ($seguimiento_todos_meses_financiero['seguimiento_financiero_todosmes'][$mesi]['id_seg']) ? $seguimiento_todos_meses_financiero['seguimiento_financiero_todosmes'][$mesi]['pagadoMes'] : 'N/A';
    $infocomplementaria_financiera = $seguimiento_todos_meses_financiero['seguimiento_financiero_todosmes'][$mesi]['infocomplementaria_metafinanciera'];
    $estatus_inversion = _calcularzonacritica($asignadoMes, $totalCausado);
    $porczonacritica = $estatus_inversion['porczonacritica'];
    $textozona = $estatus_inversion['textozona'];
    $colorzona = $estatus_inversion['colorzona'];
    $colorfontzona = $estatus_inversion['colorfontzona'];
            
    $row = array();
    $row[] = array('data' => $meses[$mes],);
    //si el mes esta dentro del periodo de duracion del proyecto
    if(_mes_dentro_de_duracion_proyecto($node, $mes)){
      $row[] = array('data' => number_format($asignadoMes, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']),);


      $valor = is_numeric($totalComprometido) ?  number_format($totalComprometido, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']) : 'N/A';
      $row[] = array('data' => $valor,);

      $valor = is_numeric($totalCausado) ?  number_format($totalCausado, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']) : 'N/A';
      $row[] = array('data' => $valor,);

      $valor = is_numeric($totalPagado) ?  number_format($totalPagado, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']) : 'N/A';
      $row[] = array('data' => $valor,);

      $row[] = array('data' => $porczonacritica,);
      $row[] = array('data' => $textozona, 'style' => 'font-weight: bold;background:' . $colorzona . '; color:' . $colorfontzona);
      $row[] = array('data' => $infocomplementaria_financiera,);
    }else{
      $row[] = array('data' => '-',);
      $row[] = array('data' => '-',);
      $row[] = array('data' => '-',);
      $row[] = array('data' => '-',);
      $row[] = array('data' => '-',);
      $row[] = array('data' => '-',);
      $row[] = array('data' => '-',);

    }
    $rows[] = $row;
  }

  $acumuladoAsignado = $seguimiento_todos_meses_financiero['acum']['acumuladoAsignado'];
  $AcumuladoTotalComprometido = $seguimiento_todos_meses_financiero['acum']['acumuladoComprometido'];
  $AcumuladoTotalCausado = $seguimiento_todos_meses_financiero['acum']['acumuladoCausado'];
  $AcumuladoTotalPagado = $seguimiento_todos_meses_financiero['acum']['acumuladoPagado'];
  $row = array();
  if ($node->es_acumulativo) {
    $row[] = array('data' => t('Acumulado'),);
    $row[] = array('data' => number_format($acumuladoAsignado, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']),);
    $row[] = array('data' => number_format($AcumuladoTotalComprometido, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']),);//total comprometido
    $row[] = array('data' => number_format($AcumuladoTotalCausado, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']),);//total causado
    $row[] = array('data' => number_format($AcumuladoTotalPagado, $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']),);//total pagado
    $row[] = array('data' => '', 'colspan' => 4);
  }
  $rows[] = $row;
  $tablas[]= theme('table', $header, $rows);
          
  if (count($tablas)) {
    $output .= '<fieldset><legend>Indicadores Financieros del Proyecto</legend>' . implode('', $tablas);
    $output .= '<br><b>Nota</b>: Los valores de \'Comprometido\', \'Causado\' y \'Pagado\', corresponden al total de los seguimiento de las acciones específicas. Si desea modificar estos valores para algun mes, debe modificar los seguimientos de las acciones específicas para ese mes.';
    $output .= '</fieldset>';
  }
  
  return $output;
}


/**
 * Pagina que carga la tabla de seguimiento de beneficiarios
 */
function _mostrar_beneficiarios_seg_proyecto($node) {
  
  $seguimiento_todos_meses_beneficiario = _seguimiento_beneficiario_todosmes_proyecto_load($node);
  $format_number = array(
    'decimals' => variable_get('proyectos_operativos_number_decimals', 0),
    'dec_point' => variable_get('proyectos_operativos_number_dec_point', ','),
    'thousands_sep' => variable_get('proyectos_operativos_number_thousands_sep', '.'),
  );
  //tabla de indicadores financieros del proyecto
  $tablas = array();
  
  $header = array();
  $header[] = array('data' => t('Beneficiario')); 
  $header[] = array('data' => t('ENE'));
  $header[] = array('data' => t('FEB'));
  $header[] = array('data' => t('MAR'));
  $header[] = array('data' => t('ABR'));
  $header[] = array('data' => t('MAY'));
  $header[] = array('data' => t('JUN'));
  $header[] = array('data' => t('JUL'));
  $header[] = array('data' => t('AGO'));
  $header[] = array('data' => t('SEP'));
  $header[] = array('data' => t('OCT'));
  $header[] = array('data' => t('NOV'));
  $header[] = array('data' => t('DIC')); 
  $header[] = array('data' => t('TOTAL'),);   
  $rows = array();
  foreach($seguimiento_todos_meses_beneficiario as $seg_benef){
    $row = array();
    $row[] = array('data' => $seg_benef['nombre'],);
    for($mes = 1; $mes <= 12; $mes++){
      if(_mes_dentro_de_duracion_proyecto($node, $mes)){
        $row[] = array('data' => number_format($seg_benef['cant_meses'][$mes], $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']),);
      }else{
        $row[] = array('data' => '-',);
      }
    }
    $row[] = array('data' => number_format($seg_benef['total_benef'], $format_number['decimals'], $format_number['dec_point'], $format_number['thousands_sep']),);
    $rows[] = $row;
  }

  $tablas[]= theme('table', $header, $rows);
          
  if (count($tablas)) {
    $output .= '<fieldset><legend>' . t('Beneficiarios del Proyecto (Durante la Ejecución)') . '</legend>' . implode('', $tablas);
    $output .= '</fieldset>';
  }
  
  return $output;
}

/**
 * Pagina que muestra la lsita de los seguimientos de las acciones especificas del proyecto
 */
function seguimiento_proyecto_y_aes_lista_page($node) {
  $meses = json_decode(MESES);
  $mes_fase_seg = variable_get('accion_especifica_de_proyecto_seguimiento_mes_seguimiento', 0);
  drupal_set_title(t('Seguimiento y Control del Proyecto y sus Acciones Específicas'));

  //$nodo_proyecto = node_load($proyecto->nid);
  if (_proyectooperativo_esta_aprobado($node)) {
    $output .= '<br>';
    if (_periodo_de_seguimiento_proyecto_y_aes_esta_activo($node)) {
      if (_proyecto_operativo_seguimiento_modificar_mes_access($node, $mes)) {
        $output .= t('Estimado(a) Usuario(a), para ingresar el <b>Seguimiento del Proyecto Operativo</b> debe <i>ingresar primero</i> los <b>Seguimiento de las Acciones Específicas</b> del mismo, los cuales se muestran a continuación.<br>');
       $output .= '<br>';
      }
    }
    $transiciones_dispo = _obtener_transiciones_disponibles($form['#node'], $form['#mes']);

    $seguimiento_proyecto = _seguimiento_mesactual_proyecto_load($node, $mes_fase_seg);
    $state_name = t("Por ingresar");
    if (workflow_get_state_name($seguimiento_proyecto['segmes']['estado'])) {
      $state_name = workflow_get_state_name($seguimiento_proyecto['segmes']['estado']);
    }
    $outputMe .= '<p>' . t('Lista del Estado del Seguimiento por Mes: ') . '<br>';
    $meses = json_decode(MESES);

    for ($i=1; $i<=count($meses); $i++) {
      if (in_array($i, variable_get('seguimiento_proyectos_cantidad_meses_seguimiento', 1))) {
        if (_proyecto_seguimiento_mes_mover_estado_access($node, $i)) {
           $outputEn = ' <b>' . l(t(' (Enviar el Seguimiento).'), 'proyectosop/' . $node->nid. "/seguimiento/workflow/" . $i) . '</b>';
        }
        else {
          $outputEn = '';
        }
        $transiciones_dispo = _obtener_transiciones_disponibles_proyecto($node, $i);
        $outputMe .= '<li>' . t('@mes (@state). ', array('@mes' => $meses[$i-1], '@state' => $transiciones_dispo['nombre_estado_actual'])) . $outputEn . ' </li>';
       // $output .= '<p style="font-size: 12px">' . t('Mes @mes (@state): ', array('@mes' => $meses[$i], '@state' => $state_name)) .  '</p>';
      }
    }
     $output .=   '<ul> ' . $outputMe . '</ul>';
    $mes_actual = date('n');

    //proyectosop/%proyectosop/seguimiento/proyecto_aes
/*    if (!in_array($mes_actual, variable_get('seguimiento_proyectos_cantidad_meses_seguimiento', 1) )) {
      $output = t('No se puede realizar el seguimiento porque el mes de @mesac no se encuentra disponible.', array('@mesac' => $meses[$mes_actual]));
      $output .= '<br>';
      return '<br><div class="messages warning">' . $output . '</div>';
    }
    else {*/
      $output .= '<div style="background: #eee; padding: 10px; margin: -10px;"><h4><b>' . t('Acciones Especificas:', array('@mes' => $meses[$i])) . '</b>';
      foreach($node->field_proyecto_accion_esp as $accion) {

        $k++;
        $accion_nid = (object) $accion;
        $accion = node_load($accion_nid->nid);
        $output .= "<h3> $k-) " . $accion->field_accion_titulo[0]['value'] . "</h3>";
        $output .= "<ul>";
        for ($i=1; $i<=count($meses); $i++) {
           if (in_array($i, variable_get('seguimiento_proyectos_cantidad_meses_seguimiento', 1) )) {
             if (_ae_seguimiento_modificar_mes_access($node, $accion, $i)) {
               $transiciones = _obtener_transiciones_disponibles($accion, $i);
               $title = ' Modificar';
               if (!_proyecto_seguimiento_mes_mover_estado_access($node, $i)) {
                 if ((count($transiciones['transic']) && !$transiciones['estado_actual']) || (!count($transiciones['transic']) && $transiciones['estado_actual'])) {
                   $title =  ' Agregar';
                 }
               }
               else if (!$exist[$i]) {
                 $text = t("El envio del seguimiento del proyecto ya se encuentra disponible para el mes de <strong>@mes</strong>", array('@mes' => $meses[$i-1]));
                 $text .= ' <b>'.l(t('Enviar el Seguimiento'), 'proyectosop/' . $node->nid. "/seguimiento/workflow/" . $i) . '</b>';
                 drupal_set_message($text, "warning");
                 $exist[$i] = true;
               }
               $enlace_fase_seg = '<b>' . l(t('Fase de Seguimiento del mes de @mes', array('@mes' => $meses[$i -1])), 'proyectosop/' . $node->nid. "/seguimiento/ae/$accion_nid->nid/" . ($i) . "/edit") . '</b>';
               $output .= '<li>' . t("$title la ") . ' ' . $enlace_fase_seg . '</li>';
            }
            else if (_proyecto_seguimiento_mes_mover_estado_access($node, $i)) {
              if (!$exist[$i]) {
                 $text = t("El envio del seguimiento del proyecto ya se encuentra disponible para el mes de <strong>@mes</strong>", array('@mes' => $meses[$i-1]));
                 $text .= ' <b>'.l(t('Enviar el Seguimiento'), 'proyectosop/' . $node->nid. "/seguimiento/workflow/" . $i) . '</b>';
                 drupal_set_message($text, "warning");
                 $exist[$i] = true;
               }
             }
          }
        }
        $output .= '</ul>';
        
       if (!_proyecto_operativo_seguimiento_modificar_mes_access($node, $i)) {
          $enlace_fase_seg = '<b>'.l(t('Fase de Seguimiento'), 'proyectosop/' . $node->nid. "/seguimiento/ae/$accion_nid->nid/view") . '</b>';
          $output .= t("Consultar el resumen de la ") . ' ' . $enlace_fase_seg . '<br>';
        }

      }
      $output .= '<br><b>' . l(t('Consultar el Resumen General de las Acciones Especificas', array('@mes' => $meses[$i])), 'proyectosop/' . $node->nid. "/seguimiento/ae") . '</b></div>';
      $output .= '<h4>' . t('Proyecto:') . '</h4>';
      $output .= '<h3>' . $node->field_proyecto_titulo[0]['value'] . '</h3>';
      $output .= t("Consultar ") . '<b>' . l(t('el resumen general del proyecto y reportar el seguimiento.'), 'proyectosop/' . $node->nid. "/seguimiento/proyecto") . '</b>';
      $exist = false;
      for ($i=1; $i<=count($meses); $i++) {
        if (in_array($i, variable_get('seguimiento_proyectos_cantidad_meses_seguimiento', 1) )) {
          if (_proyecto_seguimiento_mes_mover_estado_access($node, $i, true)) {
            if (!$exist) {
              $exist = true;
              $output .= '<li><b>'.l(t('Enviar el Seguimiento (Haga Click Para reportar el seguimiento del proyecto).'), 'proyectosop/' . $node->nid. "/seguimiento/workflow/" . $i) . '</li>';
            }
          }
          if (_proyecto_operativo_seguimiento_modificar_mes_access($node, $i)) {
            if ($transiciones = _obtener_transiciones_disponibles_proyecto($node, $i)) {
              $title = t(' Modificar');
              if ((count($transiciones['transic']) && !$transiciones['estado_actual']) || (!count($transiciones['transic']) && $transiciones['estado_actual'])) {
                 $title = t(' Agregar');
              }
               $output .= '<li>'. $title . '<b>' . l(t(" el Seguimiento y Control de Proyecto Operativo de @mes", array('@mes' => $meses[$i-1])), 'proyectosop/' . $node->nid. "/seguimiento/proyecto/" . ($i) . "/edit/full") . '</b></li>';
            }
          }
        }
        $output .= '</ul>';
      }
    //}
  }

  return $output;
}