print " close();";
     print "</script>";
 } else {
     error_reporting(E_ALL);
     set_time_limit(1800);
     $io_pdf = new Cezpdf('LETTER', 'landscape');
     // Instancia de la clase PDF
     $io_pdf->selectFont('../../shared/ezpdf/fonts/Helvetica.afm');
     // Seleccionamos el tipo de letra
     $io_pdf->ezSetCmMargins(4.1, 5, 3, 3);
     // Configuración de los margenes en centímetros
     $io_pdf->ezStartPageNumbers(770, 47, 8, '', '', 1);
     // Insertar el número de página
     $li_totrow = $io_report->DS->getRowCount("numrecdoc");
     if ($ls_codprobendes != "") {
         $ls_nomprobendes = $io_report->uf_select_proveedores($ls_tipproben, $ls_codprobendes);
     }
     if ($ls_codprobenhas != "") {
         $ls_nomprobenhas = $io_report->uf_select_proveedores($ls_tipproben, $ls_codprobenhas);
     }
     $li_totaldoc = 0;
     $li_totalcar = 0;
     $li_totalded = 0;
     $li_totbasimp = 0;
     for ($li_i = 1; $li_i <= $li_totrow; $li_i++) {
         $ls_numrecdoc = $io_report->DS->data["numrecdoc"][$li_i];
         $ls_nombre = $io_report->DS->data["nombre"][$li_i];
         $ls_procede = $io_report->DS->data["procede_doc"][$li_i];
         $ls_numdoccom = $io_report->DS->data["numdoccom"][$li_i];
         $ld_fecemidoc = $io_report->DS->data["fecemidoc"][$li_i];
         $ld_fecregdoc = $io_report->DS->data["fecregdoc"][$li_i];