<?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
-------------------------------------------------------------------------------
                             Ministerio de Economía
                                    meconlib
-------------------------------------------------------------------------------
This file is part of meconlib.

meconlib 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.

meconlib 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; if not,
write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
Boston, MA  02111-1307  USA
-------------------------------------------------------------------------------
Creado: Fri Oct 24 16:34:11 2003
Autor:  Martin Marrese <mmarre@mecon.gov.ar>
-------------------------------------------------------------------------------
$Id$
-----------------------------------------------------------------------------*/

require_once 'MECON/PDF/Contenido.php';

/**
 * Libreria que permite agregar una tabla a un pdf.
 */
class MECON_PDF_Tabla extends MECON_PDF_Contenido {
    
    /**
     * Configuracion
     * @var array $config
     * @access protected
     */
    var $_config;
    
    /**
     * Objeto MECON_HTML_Tabla.
     * @var &Object $tabla MECON_HTML_Tabla
     * @access protected
     */
    var $_tabla;
    
    /**
     * Objeto MECON_PDF_Marco
     * @var &Object $marco
     * @access protected
     */
    var $_marco;
    
    /**
     * Class Constructor
     *
     * @param &Object $TABLA MECON_HTML_Tabla
     *
     * @return void
     * @access public
     */
    function MECON_PDF_Tabla(&$TABLA) {
        $this->_tabla =& $TABLA;
        $this->_config = include 'MECON/PDF/Tabla/medidas.php';
    }
    
    /**
     * Funcion que agrega el contenido de la tabla que se este utilizando al
     * PDF.
     *
     * @param &Object $MARCO MECON_PDF_Marco
     *
     * @return void
     * @access public
     */
    function toPDF(&$MARCO) {
        $this->_marco =& $MARCO;
        $this->_agregarContenido();
    }

    /**
     * Funcion que devuelve la posicion X en donde se debe escribir un texto
     * segun su ubicacion en la celda
     *
     * @param int $row Indicador de la fila
     * @param int $col Indicador de la columna
     * @param string $texto Texto a escribir
     * @param array $attr Atributos internos de la celda
     * @param array $estilo Estilo del texto
     *
     * @return int
     * @access protected
     */
    function _obtenerAlineacionTexto($row, $col, $texto, $attr, $estilo) {
        
        $at = $this->_tabla->getCellAttributes($row, $col);
        if (@$at['align'] == 'center') {
            $tam = $this->_marco->strlen($texto, $estilo);
            $init = $attr[$col] + ($attr[$col+1] - $attr[$col] - $tam) / 2;
        }
        elseif (@$at['align'] == 'right') {
            $tam = $this->_marco->strlen($texto, $estilo);
            $init = $attr[$col+1] - $tam + 1;
        }
        else {
            $init = $attr[$col];
        }
        return $init + 1;
    }

    /**
     * Funcion que devuelve el estilo de la celda segun la configuracion.  
     *
     * @param int $row Indicador de la fila
     * @param int $col Indicador de la columna
     *
     * @return array
     * @access protected
     */
    function _obtenerEstiloCelda($row, $col) {
        $clase = $this->_tabla->getCellAttributes($row, $col);
        if (@$clase['cabecera'] || @$clase['oscura']) {
            $estilo = $this->_config['celda_cabecera'];
        }
        elseif (@$clase['titulo'] || @$clase['clara']) {
            $estilo = $this->_config['celda_titulo'];
        }
        else {
            $estilo = $this->_config['celda_comun'];
        }
        return $estilo;
    }

    /**
     * Funcion que calcula el ancho de las columnas de la tabla.  
     *
     * @return array
     * @access protected
     */
    function _obtenerAnchoColumnas() {
        $ancho_pagina = $this->_marco->getWidth($this->_marco->orientacion);
        for ($i=0; $i<$this->_tabla->getColCount(); $i++ ) {
            $tmp = $this->_tabla->getCellAttributes(0,$i);
            if (is_null(@$tmp['width'])) {
                die ('Todas las columnas deben tener asignado un ancho.');                
            }
            $attr[$i] = intval($tmp['width']);
        }
        $tmp = array_sum($attr);
        $attr2[0] = 0;
        for ($i=1; $i<count($attr); $i++) {
            $attr2[$i] = intval(($ancho_pagina * $attr[$i-1] / $tmp) +
                    $attr2[$i-1]);
        }
        $attr2[$i] = $ancho_pagina;
        return $attr2;
    }

    /**
     * Funcion que agrega las filas y columnas a la pagina.                  
     *
     * @return void
     * @access protected
     */
    function _agregarContenido() {
        $alto = $this->_marco->espacioDisponible;
        if ($alto <= 0 ) {
            $this->_marco->newPage($this->_marco->tamanio);               
        }
        //\@TODO Aca antes de crear una nueva pagina utilizar la que ya existe
        $attr2 = $this->_obtenerAnchoColumnas();
        for ($i = 0; $i < $this->_tabla->getRowCount(); $i++) {
            $max = 0;
            for ($j = 0; $j < $this->_tabla->getColCount(); $j++) {
                $estilo = $this->_obtenerEstiloCelda($i, $j);
                $txt = $this->_marco->wordWrap($this->_tabla->getCellContents($i,$j),
                        $attr2[$j+1] - $attr2[$j], $estilo);
                $txtt[$j] = $txt; //Esto es para no hacer el wordWrap siempre
                $max = max($estilo['alto_linea'] * count($txt), $max);
                
                $rep = array ();
                $rep = $this->_tabla->getCellAttributes($i, $j);
                if (@$rep['cabecera'] || @$rep['titulo']) {
                    $repetir[$i][$j] = $txt;
                    $repetir[$i]['max'] = $max;
                }
            }
            
            if ($alto <= 0) {
                $this->_marco->newPage($this->_marco->tamanio);
                $alto = $this->_marco->espacioDisponible;
                
                foreach ($repetir as $ii => $value) {
                    $alto -= $repetir[$ii]['max'];
                    for ($jj = 0; $jj < $this->_tabla->getColCount(); $jj++) {
                        $estilo = $this->_obtenerEstiloCelda($ii, $jj);
                        $this->_marco->addRectangle($attr2[$jj], $alto,
                                $attr2[$jj+1],  $alto+$repetir[$ii]['max'],
                                @$estilo['fill'], null, $this->_marco->orientacion);
                        
                        $alto1 = $alto + $repetir[$ii]['max'];
                        foreach ($repetir[$ii][$jj] as $t) {
                            $alto1 -= $estilo['alto_linea'];

                            //Ubico el texto segun su alineacion
                            $init = $this->_obtenerAlineacionTexto($ii, $jj, $t, $attr2,
                                    $estilo);
                            
                            $this->_marco->addText($init, $alto1 + 2,
                                    $t, $estilo, null, $this->_marco->orientacion);
                        }
                    }
                }
                
            }
            
            $alto -= $max;
            for ($j = 0; $j < $this->_tabla->getColCount(); $j++) {

                $estilo = $this->_obtenerEstiloCelda($i, $j);
                
                $this->_marco->addRectangle($attr2[$j], $alto,
                        $attr2[$j+1], $alto+$max, @$estilo['fill'], null,
                        $this->_marco->orientacion);
                
                $alto1 = $alto + $max;
                foreach ($txtt[$j] as $t) {
                    $alto1 -= $estilo['alto_linea'];

                    //Ubico el texto segun su alineacion
                    $init = $this->_obtenerAlineacionTexto($i, $j, $t, $attr2,
                            $estilo);
                    
                    $this->_marco->addText($init, $alto1 + 2,
                            $t, $estilo, null, $this->_marco->orientacion);
                }
            }
        }
        $this->_marco->espacioDisponible = $alto;
    }
}
?>