consolidado.php

<?php
// vim: set expandtab tabstop=4 shiftwidth=4 foldmethod=marker fileencoding=utf-8:
/**
* Consolidado de víctimas.
 *
 * PHP version 5
 *
 * @category  SIVeL
 * @package   SIVeL
 * @author    Vladimir Támara <vtamara@pasosdeJesus.org>
 * @copyright 2004 Dominio público. Sin garantías.
 * @license   https://www.pasosdejesus.org/dominio_publico_colombia.html Dominio Público. Sin garantías.
 * @link      http://sivel.sf.net
*/

/**
 * Consolidado de víctimas.
 */

require_once "aut.php";
require_once $_SESSION['dirsitio'] . "/conf.php";
$aut_usuario = "";
autentica_usuario($dsn, $aut_usuario, 43);

require_once $_SESSION['dirsitio'] . "/conf_int.php";

require_once 'HTML/QuickForm/Controller.php';
require_once 'HTML/QuickForm/Action/Display.php';
require_once 'HTML/QuickForm/Action/Next.php';
require_once 'HTML/QuickForm/Action/Back.php';
require_once 'HTML/QuickForm/Action/Jump.php';
require_once 'HTML/QuickForm/header.php';
require_once 'HTML/QuickForm/date.php';
require_once 'HTML/QuickForm/text.php';
require_once 'PagTipoViolencia.php';
require_once 'PagUbicacion.php';
require_once 'ResConsulta.php';
require_once 'misc.php';

foreach ($GLOBALS['ficha_tabuladores'] as $tab) {
    list($n, $c, $o) = $tab;
    if (($d = strrpos($c, "/"))>0) {
        $c = substr($c, $d+1);
    }
    // @codingStandardsIgnoreStart
    require_once "$c.php";
    // @codingStandardsIgnoreEnd
}


/**
 * Responde a botón Consulta
 *
 * @category SIVeL
 * @package  SIVeL
 * @author   Vladimir Támara <vtamara@pasosdeJesus.org>
 * @license  https://www.pasosdejesus.org/dominio_publico_colombia.html Dominio Público.
 * @link     http://sivel.sf.net/tec
 */
class AccionConsolidado extends HTML_QuickForm_Action
{
    /**
     * Presenta categorias que conformaran cada columna de la tabla.
     * Depuración
     *
     * @param handle  &$db    Conexión a BD
     * @param array   $cataux Cat
     * @param string  $pResto pResto
     * @param integer $ncol   Número de columnas
     *
     * @return void
     */
    function depTabla(&$db, $cataux, $pResto, $ncol)
    {
        $n = 1;
        $sep = "";
        foreach ($cataux as $l => $lc) {
            $p = objeto_tabla('pconsolidado');
            if (PEAR::isError($p)) {
                die($p->getMessage());
            }
            if ($n==($ncol+1)) {
                $rot = '(Resto)';
            } else if ($p->get($n)==1) {
                $rot = "(" . $p->rotulo.")";
            } else {
                $rot = '';
            }
            if ($n<($ncol+1) || ($pResto && $n==($ncol+1))) {
                $html_l = $sep . "<b>" . 
                    htmlentities($this->nom_columna($l), ENT_COMPAT, 'UTF-8')
                    . " " . htmlentities($rot, ENT_COMPAT, 'UTF-8') . ":</b>";
                echo $html_l;
                foreach ($lc as $cc) {
                    echo htmlentities($cc, ENT_COMPAT, 'UTF-8') . " ";
                }
                $sep = "; ";
            }
            $n++;
        }
    }


    /**
     * Llena arreglo de presuntos responsables que conformaran cada columna de
     *  la tabla.  Muestra en pantalla si muestra es true
     *
     * @param object  &$db     Conexión a BD
     * @param array   &$tpresp Tabla de presuntos responsables
     * @param boolean $muestra Muestra
     *
     * @return void
     */
    function muestraPresp(&$db, &$tpresp, $muestra)
    {
        $q = "SELECT DISTINCT id_presponsable " .
            " FROM acto ORDER BY 1";
        //die("q es $q<br>");
        $result = hace_consulta($db, $q);
        $tpresp = array();
        $l = 1;
        $row = array();
        while ($result->fetchInto($row)) {
            $d = objeto_tabla('presponsable');
            if (PEAR::isError($d)) {
                die($d->getMessage());
            }
            $d->get($row[0]);
            $tpresp[$row[0]] = $l;
            if ($muestra) {
                echo "<b>" . (int)$l . "</b>: "
                    . htmlentities($d->nombre, ENT_COMPAT, 'UTF-8') . ";";
            }
            $l++;
        }
    }

    function nom_columna($num)
    {
        assert($num>0);
        $cesp=['A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K',
            'L', 'M', 'N', 'Ñ', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
            'W', 'X', 'Y', 'Z'];
        $r = "";
        $n = $num - 1;
        do {
            //echo "OJO3 n=$n<br>";
            $d = $n % 27;
            //echo "OJO3 d=$d<br>";
            $r = $cesp[$d] . $r;
            //echo "OJO3 r=$r<br>";
            $n = floor($n / 27) - 1;
            //echo "OJO3 n=$n<br>";
        } while ($n >= 0);
        return $r; 
    }


    function celdas_nom($cat, $pResto, $ncol, $pMuestra, $suma, $inisuma)
    {
        foreach ($cat as $icol => $cp) {
            if (!$pResto || $icol != $ncol+1) {
                if ($pMuestra == "tabla") {
                    echo "<th>". $this->nom_columna($icol) . "</th>";
                } elseif ($pMuestra == 'csv') {
                    echo ", \"" . $this->nom_columna($icol) . "\"";
                } elseif ($pMuestra == 'latex') {
                    echo "& \\textbf{" . $this->nom_columna($icol) . "} ";
                }
            } else {
                if ($pMuestra == "tabla") {
                    echo "<th>Resto</th>";
                } elseif ($pMuestra == 'csv') {
                    echo ", \"Resto\"";
                } elseif ($pMuestra == 'latex') {
                    echo "& \\textbf{Resto} ";
                }
            }
            if ($inisuma) {
                $suma[$icol]=0;
            }
        }
    }

    /**
     * Realiza consulta
     *
     * @param unknown &$page      Página
     * @param unknown $actionName nombre de la acción
     *
     * @return void
     * @access public
     */
    function perform(&$page, $actionName)
    {
        $d = objeto_tabla('categoria');
        if (PEAR::isError($d)) {
            die($d->getMessage());
        }
        verifica_sin_CSRF($page->_submitValues);

        $fb =& DB_DataObject_FormBuilder::create($d);
        $db =& $d->getDatabaseConnection();

        $pIdCasos   = var_req_escapa_cadena('id_casos', $db, 50000);
        $pFini      = var_post_escapa('fini', $db);
        $pFfin      = var_post_escapa('ffin', $db);
        $pFincdesde = var_post_escapa('fincdesde', $db);
        $pFinchasta = var_post_escapa('finchasta', $db);
        $pResto     = var_post_escapa('resto', $db);
        assert($pFinchasta['Y'] == '' || ($pFinchasta['Y'] >= 1900));
        assert($pFincdesde['Y'] == '' || ($pFincdesde['Y'] >= 1900));
        $pMuestra   = var_post_escapa('muestra', $db);
        $pIdClase   = (int)var_post_escapa('id_clase');
        $pIdMunicipio = (int)var_post_escapa('id_municipio', $db);
        $pIdDepartamento = (int)var_post_escapa('id_departamento', $db);

        $tablas = "persona, victima, caso, acto ";
        $where = "";

        if ($pIdCasos != '') {
            $ordCasos = explode(' ', $pIdCasos);
            $wc = "";
            foreach ($ordCasos as $cc) {
                consulta_and($db, $wc, "caso.id", (int)$cc, "=", "OR");
            }
            if ($wc != "") {
                $where = "(" . $wc . ") ";
            }
        }

        consulta_and_sinap($where, "victima.id_caso", "caso.id");
        consulta_and_sinap($where, "victima.id_persona", "acto.id_persona");
        consulta_and_sinap($where, "caso.id", "acto.id_caso");
        consulta_and(
            $db, $where, "caso.fecha",
            $GLOBALS['consulta_web_fecha_min'], ">="
        );
        consulta_and(
            $db, $where, "caso.fecha",
            $GLOBALS['consulta_web_fecha_max'], "<="
        );

        foreach ($GLOBALS['ficha_tabuladores'] as $tab) {
            list($ntab, $ctab, ) = $tab;
            if (($possl = strrpos($ctab, "/"))>0) {
                $ctab = substr($ctab, $possl+1);
            }
            if (is_callable(array($ctab, 'consolidadoCreaConsulta'))) {
                call_user_func_array(
                    array($ctab, 'consolidadoCreaConsulta'),
                    array(&$db, &$where, &$tablas)
                );
            } else {
                echo_esc(
                    _("Falta") . " consolidadoCreaConsulta "
                    . _("en") . " $ntab, $ctab"
                );
            }
        }
        if (isset($GLOBALS['gancho_co_creaconsulta'])) {
            foreach ($GLOBALS['gancho_co_creaconsulta'] as $k => $f) {
                if (is_callable($f)) {
                    call_user_func_array(
                        $f,
                        array($db, &$where, &$tablas)
                    );
                } else {
                    echo_esc(
                        _("Falta") ." $f " . _("de")
                        . " gancho_co_creaconsulta[$k]"
                    );
                }
            }
        }

        $dv = array();
        $tgeo = "";
        if ($pIdClase != '') {
            $tgeo = "ubicacion, ";
            consulta_and_sinap($where, "ubicacion.id_caso", "caso.id");
            consulta_and_sinap(
                $where, "ubicacion.id_departamento", $pIdDepartamento
            );
            consulta_and_sinap($where, "ubicacion.id_municipio", $pIdMunicipio);
            consulta_and_sinap($where, "ubicacion.id_clase", $pIdClase);
        } else if ($pIdMunicipio != '') {
            $tgeo = "ubicacion, ";
            consulta_and_sinap($where, "ubicacion.id_caso", "caso.id");
            consulta_and_sinap(
                $where, "ubicacion.id_departamento", $pIdDepartamento
            );
            consulta_and_sinap($where, "ubicacion.id_municipio", $pIdMunicipio);
        } else if ($pIdDepartamento != '') {
            $tgeo = "ubicacion, ";
            consulta_and_sinap($where, "ubicacion.id_caso", "caso.id");
            consulta_and_sinap(
                $where, "ubicacion.id_departamento", $pIdDepartamento
            );
        }
        $tablas = $tgeo . $tablas;

        $q = "SELECT MAX(id_pconsolidado) FROM categoria;";
        $ncol = $db->getOne($q);

        if (PEAR::isError($ncol)) {
            die($ncol->getMessage());
        }
        if ($ncol <= 0) {
            die(_('Falta información para reporte consolidado en tabla categoria'));
        }
        $cataux = array();
        $d->orderBy('id');
        $d->find();
        while ($d->fetch()) {
            if (isset($d->id_pconsolidado) && $d->id_pconsolidado > 0) {
                $ic = $d->id_pconsolidado;
                //echo "OJO1 ic=$ic <br>";
            } else {
                $ic = $ncol+1;
                //echo "OJO2 ic=$ic <br>";
            }
            $cataux[$ic] = isset($cataux[$ic]) ?
                $cataux[$ic]+array($d->id => $d->id) :
                array($d->id => $d->id);
        }
        ksort($cataux);
        if ($pMuestra == "tabla") {
            encabezado_envia('Reporte Consolidado');
            $this->depTabla($db, $cataux, $pResto, $ncol);
            echo "<p>" . _("Presuntos Responsables") . "<br>";
        }
        $this->muestraPresp($db, $r_presp, $pMuestra == "tabla");
        $cat = $cataux;

        $nc2l = array();
        $sep = "";
        $tc = "";
        foreach ($cat as $c => $lc) {
            foreach ($lc as $nc) {
                $tc .= $sep . "'" . $nc . "'";
                $sep = ", ";
                $nc2l[$nc] = $c;
            }
        }

        if (is_array($pFini) && $pFini['Y'] != '') {
            consulta_and(
                $db, $where, "caso.fecha",
                arr_a_fecha($pFini, true), ">="
            );
        }
        if (is_array($pFfin) && $pFfin['Y'] != '') {
            consulta_and(
                $db, $where, "caso.fecha",
                arr_a_fecha($pFfin, false), "<="
            );
        }

        $q = " SELECT caso.id, persona.id, " .
            " persona.nombres || ' ' || persona.apellidos, caso.fecha, " .
            "acto.id_categoria " .
            " FROM $tablas " .
            " WHERE persona.id=victima.id_persona " .
            " AND $where " ;
        $q = "(" . $q . ") ORDER BY 3";
        #echo "q es $q<br>"; 
        $result = hace_consulta($db, $q);

        $row = array();
        $datv = array();
        $tv = 0;
        while ($result->fetchInto($row)) {
            $excl = false;
            $fhastallena = $pFinchasta['Y'] != '' && $pFinchasta['M'] != ''
                && $pFinchasta['d'] != '';
            $fdesdellena = $pFincdesde['Y'] != '' && $pFincdesde['M'] != ''
                && $pFincdesde['d'] != '';
            if ($fhastallena || $fdesdellena) {
                /* Se hace así porque puede haber casos que no
                    tengan asociado usuario --cuando vienen de otro
                    banco (?), antiguos*/
                $minf = array();
                $q = "SELECT MIN(fechainicio) FROM caso_usuario " .
                    " WHERE id_caso='" . $row[0] . "';";
                #echo "q es $q<br>"; die("x");
                $rfc = hace_consulta($db, $q);
                if ($rfc->fetchInto($minf)) {
                    $arf = explode('-', $minf[0]);
                    $fhastamen = $pFinchasta['Y']  != ''
                        && ($pFinchasta['Y'] < $arf[0]
                        || ($pFinchasta['Y'] == $arf[0]
                        && $pFinchasta['M'] < $arf[1])
                            || ($pFinchasta['Y'] == $arf[0]
                            && $pFinchasta['M'] == $arf[1]
                            && $pFinchasta['d'] < $arf[2]
                        )
                    );
                    $fdesdemay = $pFincdesde['Y']  != ''
                        && ($pFincdesde['Y'] > $arf[0]
                        || ($pFincdesde['Y'] == $arf[0]
                        && $pFincdesde['M'] > $arf[1])
                            || ($pFincdesde['Y'] == $arf[0]
                            && $pFincdesde['M'] == $arf[1]
                            && $pFincdesde['d'] > $arf[2]
                        )
                    );

                    if ($fhastamen || $fdesdemay) {
                        if ($pMuestra == "tabla") {
                            //echo "Excluyendo :" . $row[0] . "<br>";
                            $excl = true;
                        }
                    }
                }
            }
            if (!$excl) {
                if (!isset($dv[$row[0]][$row[1]])) {
                    $datv[$tv] = array($row[0], $row[1], $row[2], $row[3]);
                    $tv++;
                }
                $dv[$row[0]][$row[1]][$nc2l[$row[4]]]=1;
            }
        }

        $depuraConsolidado = true;
        $suma = array();
        if ($pMuestra == "tabla") {
            echo "<table border='1'>\n";
            echo "<tr>";
            if ($depuraConsolidado) {
                echo "<td>IdCaso</td>";
            }
            echo "<th>" . _("Fecha") . "</th><th>" . _("Ubicación")
                . "</th><th>" . _("Víctimas") . "</th>";
        } elseif ($pMuestra == "csv") {
            header("Content-type: text/csv");
            echo '"' . _('Fecha') . '", "' . _('Ubicación') . '", "'
                . _('Víctimas') . '", ""';
        } elseif ($pMuestra == 'latex') {
            //header("Content-type: application/x-latex");
            echo "<pre>";
            echo '\\textbf{' . _('Fecha') . '} & \\textbf{' . _('Ubicacion')
                . '} & \\textbf{' . _('Víctimas') . '} ';
        }
        $this->celdas_nom($cat, $pResto, $ncol, $pMuestra, $suma, true);
/*        foreach ($cat as $icol => $cp) {
            if (!$pResto || $icol != $ncol+1) {
                if ($pMuestra == "tabla") {
                    echo "<th>". $this->nom_columna($icol) . "</th>";
                } elseif ($pMuestra == 'csv') {
                    echo ", \"" . $this->nom_columna($icol) . "\"";
                } elseif ($pMuestra == 'latex') {
                    echo "& \\textbf{" . $this->nom_columna($icol) . "} ";
                }
            } else {
                if ($pMuestra == "tabla") {
                    echo "<th>Resto</th>";
                } elseif ($pMuestra == 'csv') {
                    echo ", \"Resto\"";
                } elseif ($pMuestra == 'latex') {
                    echo "& \\textbf{Resto} ";
                }
            }
            $suma[$icol]=0;
}*/
        if ($pMuestra == "tabla") {
            echo "<td>PR</td></tr>";
        } elseif ($pMuestra == 'csv') {
            echo ", PR\n";
        } elseif ($pMuestra == 'latex') {
            echo "& \textbf{PR} \\\\ \n\hline\n";
        }

        for ($v = 0;$v < $tv; $v++) {
            $idcaso = $datv[$v][0];
            $idvic = $datv[$v][1];
            $nom = $datv[$v][2];
            $fecha = $datv[$v][3];
            $u =&  objeto_tabla('ubicacion');
            $u->id_caso = $idcaso;
            if ($u->find() == 0) {
                die("<br/><font color='red'>" .
                    sprintf(
                        _("Caso sin ubicacion: %s --estadística incompleta"),
                        $idcaso
                    )
                    .  "</font>"
                );
            }
            $u->fetch();
            $d = $u->getLink('id_departamento');
            $ubi = trim($d->nombre);
            if (isset($u->id_municipio)) {
                $m =&  objeto_tabla('municipio');
                $m->id = $u->id_municipio;
                $m->id_departamento = $u->id_departamento;
                if ($m->find()==0) {
                    die(sprintf(
                        "El caso %s referencia municipio inexistente %s",
                        $idcaso, $m->id . ", " . $m->id_departamento
                    ));
                }
                $m->fetch();
                $ubi .= " - ".trim($m->nombre);
            }

            if ($pMuestra == "tabla") {
                echo "<tr>";
                if ($depuraConsolidado) {
                    echo "<td><a href='captura_caso.php?modo=edita&id={$idcaso}'>"
                        . "{$idcaso}</a>\n";
                }
                echo "<td>" . htmlentities($fecha, ENT_COMPAT, 'UTF-8') .
                    "</td><td>" .  htmlentities($ubi, ENT_COMPAT, 'UTF-8') .
                    "</td><td>" .
                    trim(htmlentities($nom, ENT_COMPAT, 'UTF-8')) . "</td>";
            } elseif ($pMuestra == 'csv') {
                $adjunto_l = $fecha . ", " . $ubi . ", ".trim($nom).", ";
                echo $adjunto_l;
            } elseif ($pMuestra == 'latex') {
                $lt = txt2latex($fecha) . " & " . txt2latex($ubi).
                    " & " . txt2latex(trim($nom)) . " ";
                echo htmlentities($lt, ENT_COMPAT, 'UTF-8');
            }
            //echo "<hr>OJO cat"; print_r($cat); 
            //echo "<hr>dv[idcaso=$idcaso][idvic=$idvic]"; print_r($dv[$idcaso][$idvic]); die("OJO x");
            foreach ($cat as $idcat => $cp) {
                if (isset($dv[$idcaso][$idvic][$idcat])) {
                    if ($pResto || $idcat != chr($ncol+65)) {
                        if ($pMuestra == "tabla") {
                            echo "<td>X</td>";
                        } elseif ($pMuestra == 'csv') {
                            echo ", X";
                        } elseif ($pMuestra == 'latex') {
                            echo "& X ";
                        }
                    }
                    if ($dv[$idcaso][$idvic][$idcat] == 1) {
                        if (isset($suma[$idcat])) {
                            $suma[$idcat]++;
                        } else {
                            $suma[$idcat] = 0;
                        }
                    } else {
                        die(sprintf(
                            "Sobreconteo por caso %s "
                            . " que saldría más de una vez en la columna %s",
                            $idcaso, $idcat
                        ));
                    }
                    $dv[$idcaso][$idvic][$idcat]++;
                } else {
                    if ($pResto || $idcat != chr($ncol+65)) {
                        if ($pMuestra == "tabla") {
                            echo "<td>&nbsp;</td>";
                        } elseif ($pMuestra == 'csv') {
                            echo ", ";
                        } elseif ($pMuestra == 'latex') {
                            echo "& ";
                        }
                    }
                }
            }
            $presp = "";
            $acto =&  objeto_tabla('acto');
            $acto->id_persona = $idvic;
            $acto->id_caso = $idcaso;
            if ($acto->find()==0) {
                $acto = null;
                echo_esc(
                    sprintf(
                        "Víctima sin presunto responsable '%s', "
                        . "'%s' en caso '%s' -- estadística incompleta!!!",
                        $idvic, $nom, $idcaso
                    )
                );
            } else {
                $apr = array();
                $pr_sep = "";

                while ($acto->fetch()) {
                    $d = $acto->getLink('id_presponsable');
                    $apr[$d->id] = $r_presp[$d->id];
                }
                foreach ($apr as $id => $pr) {
                    $presp .= $pr_sep . $pr;
                    $pr_sep = ";";
                }
            }

            if ($pMuestra == "tabla") {
                echo "<td>" . htmlentities($presp, ENT_COMPAT, 'UTF-8')
                    . "</td></tr>\n";
            } elseif ($pMuestra == 'csv') {
                $adjunto_l = ",$presp \n";
                echo $adjunto_l;
            } elseif ($pMuestra == 'latex') {
                echo htmlentities("& $presp \\\\\n \hline\n", ENT_COMPAT, 'UTF-8');
            }

        }
        if ($pMuestra == "tabla") {
            echo "<tr>";
            if ($depuraConsolidado) {
                echo "<td></td>";
            }
            echo "<td></td><td></td><td></td>";
        } elseif ($pMuestra == 'csv') {
            echo '"", "", "", ""';
        } elseif ($pMuestra == 'latex') {
            echo ' & & ';
        }

        foreach ($cat as $idcat => $cp) {
            if ($pResto || $idcat != chr($ncol+65)) {
                if ($pMuestra == "tabla") {
                    echo "<td>";
                    if (isset($suma[$idcat])) {
                        echo (int)$suma[$idcat];
                    }
                    echo "</td>";
                } elseif ($pMuestra == 'csv') {
                    echo ", ";
                    if (isset($suma[$idcat])) {
                        echo (int)$suma[$idcat];
                    }
                } elseif ($pMuestra == 'latex') {
                    echo "& ";
                    if (isset($suma[$idcat])) {
                        echo (int)$suma[$idcat];
                    }
                    echo " ";
                }
            }
        }
        if ($pMuestra == "tabla") {
            echo "</tr>";
            echo "<tr>";
            if ($depuraConsolidado) {
                echo "<td></td>";
            }
            echo "<td></td><td></td><td></td>";
        } elseif ($pMuestra == 'csv') {
            echo "\n";
            echo '"", "", "", ""';
        } elseif ($pMuestra == 'latex') {
            echo "\\\\\n \hline\n";
            echo ' & & ';
        }
        $this->celdas_nom($cat, $pResto, $ncol, $pMuestra, $suma, false);
        if ($pMuestra == "tabla") {
            echo "</tr>";
            echo "</table>";
            pie_envia();
        } elseif ($pMuestra == 'csv') {
            echo "\n";
        } elseif ($pMuestra == 'latex') {
            echo "\\\\\n \hline\n";
        }
    }
}


/**
 * Formulario de reporte consolidado
 *
 * @category SIVeL
 * @package  SIVeL
 * @author   Vladimir Támara <vtamara@pasosdeJesus.org>
 * @license  https://www.pasosdejesus.org/dominio_publico_colombia.html Dominio Público.
 * @link     http://sivel.sf.net/tec
 */
class PagConsolidado extends HTML_QuickForm_Page
{

    /**
     * Constructora.
     *
     * @return void
     */
    function PagConsolidado()
    {
        $this->HTML_QuickForm_Page('consolidado', 'post', '_self', null);

        $this->addAction('id_departamento', new CamDepartamento());
        $this->addAction('id_municipio', new CamMunicipio());


        $this->addAction('consulta', new AccionConsolidado());
    }


    /**
     * Construye formulario
     *
     * @return void
     * @access public
     */
    function buildForm()
    {
        encabezado_envia();
        $this->_formBuilt = true;
        $x =&  objeto_tabla('departamento');
        $db = $x->getDatabaseConnection();

        $e =& $this->addElement('header', null, _('Reporte consolidado'));


        $cod =& $this->addElement(
            'text', 'id_casos', _('Código(s)') . ': '
        );
        $cod->setSize(80);

        list($dep, $mun, $cla) = PagUbicacion::creaCampos(
            $this, 'id_departamento', 'id_municipio', 'id_clase'
        );
        $this->addElement($dep);
        $this->addElement($mun);
        $this->addElement($cla);
        PagUbicacion::modCampos(
            $db, $this, 'id_departamento', 'id_municipio', 'id_clase',
            null, null, null
        );

        $cy = @date('Y');
        if ($cy < 2005) {
            $cy = 2005;
        }
        $slan = isset($_SESSION['LANG']) ?  $_SESSION['LANG'] : 'es';
        $e =& $this->addElement(
            'date', 'fini', _('Desde'),
            array('language' => $slan, 'addEmptyOption' => true,
            'minYear' => $GLOBALS['anio_min'], 'maxYear' => $cy
            )
        );
        $e =& $this->addElement(
            'date', 'ffin', _('Hasta'),
            array('language' => $slan, 'addEmptyOption' => true,
            'minYear' => $GLOBALS['anio_min'], 'maxYear' => $cy
            )
        );


        foreach ($GLOBALS['ficha_tabuladores'] as $tab) {
            list($n, $c, $o) = $tab;
            if (($d = strrpos($c, "/"))>0) {
                $c = substr($c, $d+1);
            }
            if (is_callable(array($c, 'consolidadoFiltro'))) {
                call_user_func_array(
                    array($c, 'consolidadoFiltro'),
                    array(&$db, &$this)
                );
            }
        }

        if (isset($_SESSION['id_usuario'])) {
            $aut_usuario = "";
            include $_SESSION['dirsitio'] . "/conf.php";
            global $dsn;
            autentica_usuario($dsn, $aut_usuario, 0);
            if (in_array(42, $_SESSION['opciones'])) {
                $e =& $this->addElement(
                    'date', 'fincdesde',
                    _('Ingresado en base desde'),
                    array('language' => $slan,
                    'addEmptyOption' => true,
                    'minYear' => $GLOBALS['anio_min'], 'maxYear' => $cy
                    )
                );
                $e =& $this->addElement(
                    'date', 'finchasta',
                    _('Ingresado en base hasta'),
                    array('language' => 'es',
                    'addEmptyOption' => true,
                    'minYear' => $GLOBALS['anio_min'], 'maxYear' => $cy
                    )
                );
                $e =& $this->addElement(
                    'checkbox', 'resto',
                    _('Agregar columna con resto'), ''
                );
            }
        }

        $ae = array();
        $t =&  $this->createElement(
            'radio', 'muestra', 'tabla',
            _('Tabla HTML'), 'tabla'
        );
        $ae[] =& $t;
        $ae[] =&  $this->createElement(
            'radio', 'muestra', 'csv',
            _('Formato CSV (hoja de cálculo)'), 'csv'
        );
        $ae[] =&  $this->createElement(
            'radio', 'muestra', 'latex',
            _('LaTeX'), 'latex'
        );
        $this->addGroup($ae, null, _('Forma de presentación'), '&nbsp;', false);
        $t->setChecked(true);

        $prevnext = array();
        $sel =& $this->createElement(
            'submit',
            $this->getButtonName('consulta'), _('Consulta')
        );
        $prevnext[] =& $sel;

        $this->addGroup($prevnext, null, '', '&nbsp;', false);

        $tpie = "<div align=right><a href=\"index.php\">" .
            _("Men&uacute; Principal") . "</a></div>";
        $e =& $this->addElement('header', null, $tpie);

        if (!isset($_POST['evita_csrf'])) {
            $_SESSION['sin_csrf'] = base64_encode(colchon_aleatorios(16));
        }
        $this->addElement('hidden', 'evita_csrf', $_SESSION['sin_csrf']);

        $this->setDefaultAction('consulta');

    }

}

$wizard = new HTML_QuickForm_Controller('Consolidado', false);
$consweb = new PagConsolidado();

$wizard->addPage($consweb);


$wizard->addAction('display', new HTML_QuickForm_Action_Display());
$wizard->addAction('jump', new HTML_QuickForm_Action_Jump());

$wizard->addAction('process', new AccionConsolidado());

$wizard->run();
?>