PROCEDURE exportar_08 IS
CURSOR c1 IS SELECT * FROM VENTAS ORDER BY MES,TIPO;
MYFILE TEXT_IO.FILE_TYPE; MES VARCHAR2(10); paso number; sum_importe number; sum_iva number; sum_total number;
BEGIN
MYFILE := TEXT_IO.FOPEN('/Apps/IAS/Apache/Apache/htdocs/rep_excel/ejemplo.xls','W');
TEXT_IO.PUT_LINE(MYFILE,'<HTML><BODY><table><CAPTION>EJEMPLO DE CREAR ARCHIVO</CAPTION>');
TEXT_IO.PUT_LINE(MYFILE,'<tr><td>MES</td><td>TIPO DE VENTAN</td><td>IMPORTE</td><td>IVA</td><td>TOTAL</td></tr>');
sum_importe := 0; sum_iva := 0; sum_total := 0;
FOR I IN c1 LOOP
TEXT_IO.PUT_LINE(MYFILE,'<tr><td>' || I.mes || '</td><td>' || I.tipo || '</td><td>' || I.importe || '</td><td>' || I.iva || '</td><td>' || I.total || '</td></tr>');
sum_importe := sum_importe + i.importe; sum_iva := sum_iva + i.iva; sum_total := sum_total + i.total;
END LOOP;
TEXT_IO.PUT_LINE(MYFILE,'</table><table><CAPTION> </CAPTION><tr><td>TOTALES</td><td> </td><td>' || sum_importe || '</td><td>' || sum_iva || '</td><td>' || sum_total || '</td></tr></table></body></html>');
TEXT_IO.FCLOSE(MYFILE);
web.show_document('http://[servidor.com][:puerto]/rep_excel/ejemplo.xls','_SELF');
END;
