<?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80:
-------------------------------------------------------------------------------
                                    mlib
-------------------------------------------------------------------------------
This file is part of mlib.

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

mlib 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 'MLIB/PDF/Contenido.php';

/**
 * Libreria que permite agregar una tabla a un pdf.
 */
class MLIB_PDF_Tabla extends MLIB_PDF_Contenido {
    
    /**
     * Configuracion
     * @var array $config
     * @access protected
     */
    var $_config;
    
    /**
     * Objeto MLIB_HTML_Tabla.
     * @var &Object $tabla MLIB_HTML_Tabla
     * @access protected
     */
    var $_tabla;
    
    /**
     * Objeto MLIB_PDF_Marco
     * @var &Object $marco
     * @access protected
     */
    var $_marco;

    /**
     * Orientacion de las nuevas paginas
     * @var string $orientacion
     * @access protected
     */
    var $_orientacion;
    
    /**
     * Indica si el encabezado debe ir en la nuevas paginas.
     * @var bool $encabezado
     * @access protected;
     */
    var $_encabezado;
    
    /**
     * Class Constructor
     *
     * @param &Object $TABLA MLIB_HTML_Tabla
     * @param string $orientacion Orientacion que deben tener las nuevas paginas
     * que genere la tabla.
     *
     * @return void
     * @access public
     */
    function MLIB_PDF_Tabla($TABLA, $orientacion = null, $encabezado = true) {
        $this->_tabla = $TABLA;
        $this->_orientacion = $orientacion;
        $this->_config = include 'MLIB/PDF/Tabla/medidas.php';
        $this->_encabezado = $encabezado;
    }
    
    /**
     * Funcion que agrega el contenido de la tabla que se este utilizando al
     * PDF.
     *
     * @param &Object $MARCO MLIB_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['colspan']) {
            $offset = $at['colspan'];
        }
        else {
            $offset = 1;
        }
        
        if (@$at['align'] == 'center') {
            $tam = $this->_marco->strlen($texto, $estilo);
            $init = $attr[$col] + ($attr[$col+$offset] - $attr[$col] - $tam) / 2;
        }
        elseif (@$at['align'] == 'right') {
            $tam = $this->_marco->strlen($texto, $estilo);
            $init = $attr[$col+$offset] - $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);

        switch (@$clase['mlib_style'])
        {
            case 'cabecera':
                $estilo = $this->_config['celda_cabecera'];
                break;
            case 'titulo':
                $estilo = $this->_config['celda_titulo'];
                break;
            case 'oscura':
                $tmp = $this->_config['celda_comun'];
                $tmp['fillcolor'] = $this->_config['celda_cabecera']['fillcolor'];
                $tmp['fill'] = $this->_config['celda_cabecera']['fill'];
                $estilo = $tmp;
                break;
            case 'clara':
                $tmp = $this->_config['celda_comun'];
                $tmp['fillcolor'] = $this->_config['celda_titulo']['fillcolor'];
                $tmp['fill'] = $this->_config['celda_titulo']['fill'];
                $estilo = $tmp;
                break;
            case 'comun':
                $estilo = $this->_config['celda_comun'];
                break;
            default:
                //Si no encuentro el estilo seteado a mano, le asigno el estilo
                //seteado por defecto.
                if (@$this->_config[$clase['mlib_style']])
                {
                    $estilo = $this->_config[$clase['mlib_style']];
                }
                else
                {
                    $estilo = $this->_config['celda_comun'];
                }
                break;
        }
        if (@$clase['colspan']) {
            $estilo['colspan'] = $clase['colspan'];
        }
        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->refPage(),
                $this->_marco->getOrientation());
        for ($row = 0; $row<$this->_tabla->getRowCount(); $row++) {
            for ($i=0; $i<$this->_tabla->getColCount(); $i++ ) {
                $tmp = $this->_tabla->getCellAttributes($row,$i);
                if(@intval($tmp['width']) != 0)
                    $attr[$i] = intval($tmp['width']);
                if(@count($attr) == $this->_tabla->getColCount())
                  break 2;
            }
        }
        
        if (!isset($attr))
            trigger_error ('Todas las columnas tienen que tener un ancho asignado', E_USER_ERROR);
        
        $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 se encarga de crear las nuevas paginas.
     *
     * @return void
     * @access protected
     */
    function _newPage() {
        $tmp = ($this->_orientacion) ? $this->_orientacion :
            $this->_marco->getOrientation();
        $this->_marco->newPage($this->_marco->tamanio, $tmp, $this->_encabezado);               
    }

    /**
     * Funcion que agrega las filas y columnas a la pagina.                  
     *
     * @return void
     * @access protected
     */
    function _agregarContenido() {
        $alto = $this->_marco->espacioDisponible;
        $orientacion = $this->_marco->getOrientation();
        if ($alto <= 0 || ($this->_orientacion && $this->_orientacion !=
                    $orientacion) ) {
            $this->_newPage();               
            $orientacion = $this->_marco->getOrientation();
            $alto = $this->_marco->espacioDisponible;
        }
        $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);

                //Actuo por el colspan
                if (@$estilo['colspan']) {
                    if ($estilo['colspan'] > $this->_tabla->getColCount()) {
                        $estilo['colspan'] = 
                            $this->_tabla->getColCount() - $j;
                    }
                    $ancho_columna = $attr2[$j+$estilo['colspan']] - 
                        $attr2[$j];
                }
                else {
                   $ancho_columna = $attr2[$j+1] - $attr2[$j];
                }
                if (@$this->_tabla->getCellContents($i,$j)) {
                    $txt = $this->_marco->wordWrap(
                            @$this->_tabla->getCellContents($i,$j), $ancho_columna, 
                            $estilo
                            );
                }
                else {
                    $txt = array (' ');
                }
                
                $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'] ||
                    @$this->_config[$rep['mlib_style']]['repeat'] ) {
                    $repetir[$i][$j] = $txt;
                    $repetir[$i]['max'] = $max;
                }
            }
            if ($alto <= 0) 
            {
                $this->_newPage();               
                $alto = $this->_marco->espacioDisponible;

                if (@$repetir)
                {
                    foreach ($repetir as $ii => $value) {
                        $alto -= $repetir[$ii]['max'];
                        for ($jj = 0; $jj < $this->_tabla->getColCount(); $jj++) {
                            $estilo = $this->_obtenerEstiloCelda($ii, $jj);

                            //Actuo por el colspan
                            if (@$estilo['colspan']) {
                                if ($estilo['colspan'] > $this->_tabla->getColCount()) {
                                    $estilo['colspan'] =
                                        $this->_tabla->getColCount() - $jj;
                                }
                                $der = $attr2[$jj+$estilo['colspan']];
                                $izq = $attr2[$jj];
                            }
                            else {
                                $der = $attr2[$jj+1];
                                $izq = $attr2[$jj];
                            }


                            $this->_marco->addRectangle($izq, $alto, $der, 
                                    $alto+$repetir[$ii]['max'], @$estilo['fill'], 
                                    null, $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, $orientacion);
                            }

                            if (@$estilo['colspan']) {
                                $jj += $estilo['colspan'] -1;
                            }
                        }
                    }
                }
            }
            
            $alto -= $max;
            for ($j = 0; $j < $this->_tabla->getColCount(); $j++) {
                
                $estilo = $this->_obtenerEstiloCelda($i, $j);
                 
                //Actuo por el colspan
                if (@$estilo['colspan']) {
                    if ($estilo['colspan'] > $this->_tabla->getColCount()) {
                        $estilo['colspan'] = $this->_tabla->getColCount()  - 1;
                    }
                    $der = $attr2[$j+$estilo['colspan']];
                    $izq = $attr2[$j];
                }
                else {
                   $der = $attr2[$j+1];
                   $izq = $attr2[$j];
                }

                
                $this->_marco->addRectangle($izq, $alto, $der, $alto+$max, 
                        @$estilo['fill'], null, $orientacion);
                
                $alto1 = $alto + $max;
                if (@$txtt[$j]) {
                    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, $orientacion);
                    }
                }
                if (@$estilo['colspan']) {
                    $j += $estilo['colspan']-1;
                }

            }
        }
        $this->_marco->espacioDisponible = $alto;
    }

    /**
     * Funcion que agrega un estilo a los definidos 
     *
     * @param &Object $ESTILO MLIB_HTML_Tabla_Estilo
     *
     * @return void
     * @access public
     */
    function setStyle($ESTILO) {
        $this->_config[$ESTILO->name] = $ESTILO->__toArray();
    }
}
?>