";
}
// Muestra registros del reporte
function tabla_registro($registro)
{
echo "
";
for ($i=0; $i$registro[$i]";
}
echo "
";
}
//-------------------------------------------------------------------------
// Cierra la tabla del reporte
function tabla_cierre($trans, $prof)
{
echo "
";
}
//-------------------------------------------------------------------------
/*****************************************************************************
GENERACION DEL ARCHIVO EXCEL
******************************************************************************/
if ($btn_descargar)
{
$listado = unserialize( stripslashes($hid_listado) );
list($trans,$prof) = explode("-",$hid_totplan);
$archivo_xls = "ppd_TasasEducativas.xls";
HeaderingExcel($archivo_xls);
// Genera archivo excel
$XLS = new Workbook("-");
$hoja1 =& $XLS->add_worksheet("Tupa");
$hoja1->set_paper(9);
$hoja1->hide_gridlines();
// Formatos para celdas
# Formato 1
$bold =& $XLS->add_format();
$bold->set_bold();
$hoja1->set_column(0,0,5);
$hoja1->set_column(1,1,10);
$hoja1->set_column(2,2,60);
//Cabecera del Archivo
$hoja1->write_string(0,0,"INSTITUTO DE EDUCACION SUPERIOR TECNOLOGICO PUBLICO PEDRO P. DIAZ - AREQUIPA");
$hoja1->write_string(1,0,"TASAS EDUCATIVAS");
$hoja1->write_string(2,0,"FECHA: ".date("Y-m-d"));
$fil = 4;
$hoja1->write_string($fil,0,"Num.",$bold);
$hoja1->write_string($fil,1,utf8_decode("Código"),$bold);
$hoja1->write_string($fil,2,"Descripcion",$bold);
$hoja1->write_string($fil,3,"Importe",$bold);
$fil = 4;
//Datos del Archivo
for ($i=0; $iwrite_string($fil,0,utf8_decode($listado[$i][0]));
$hoja1->write_string($fil,1,$listado[$i][1]);
$hoja1->write_string($fil,2,utf8_decode($listado[$i][2]));
$hoja1->write_string($fil,3,$listado[$i][3]);
}
$XLS->close();
}
?>
Pedro P. Diaz
