00001 <?php
00031 require_once LIBRARY_PATH.'excel/main.php';
00041 function xls($result, $sumArray, $title, $weightArray, $headerArray){
00042
00043 error_reporting(0);
00044
00045 $file = md5(uniqid());
00046 $config = Config::read("config.ini");
00047 $active_app = Router::get_application();
00048
00049 $workbook = new Spreadsheet_Excel_Writer("public/temp/$file.xls");
00050 $worksheet =& $workbook->addWorksheet();
00051
00052 $titulo_verdana =& $workbook->addFormat(array('fontfamily' => 'Verdana',
00053 'size' => 20));
00054 $titulo_verdana2 =& $workbook->addFormat(array('fontfamily' => 'Verdana',
00055 'size' => 18));
00056
00057 $workbook->setCustomColor(12, 0xF2, 0xF2, 0xF2);
00058
00059 $column_title =& $workbook->addFormat(array('fontfamily' => 'Verdana',
00060 'size' => 12,
00061 'fgcolor' => 12,
00062 'border' => 1,
00063 'bordercolor' => 'black',
00064 "halign" => 'center'
00065 ));
00066
00067 $column =& $workbook->addFormat(array( 'fontfamily' => 'Verdana',
00068 'size' => 11,
00069 'border' => 1,
00070 'bordercolor' => 'black',
00071 ));
00072
00073 $column_centered =& $workbook->addFormat(array( 'fontfamily' => 'Verdana',
00074 'size' => 11,
00075 'border' => 1,
00076 'bordercolor' => 'black',
00077 "halign" => 'center'
00078 ));
00079
00080 $worksheet->write(0, 0, strtoupper($config->$active_app->name), $titulo_verdana);
00081 $worksheet->write(1, 0, "REPORTE DE ".strtoupper($title), $titulo_verdana2);
00082 $worksheet->write(2, 0, "FECHA ".date("Y-m-d"), $titulo_verdana2);
00083
00084 for($i=0;$i<=count($headerArray)-1;$i++){
00085 $worksheet->setColumn($i, $i, $weightArray[$i]);
00086 $worksheet->write(4, $i, $headerArray[$i], $column_title);
00087 }
00088
00089 $l = 5;
00090 foreach($result as $row){
00091 for($i=0;$i<=count($row)-1;$i++){
00092 if(!is_numeric($row[$i])){
00093 $worksheet->writeString($l, $i, $row[$i], $column);
00094 } else {
00095 $worksheet->writeString($l, $i, $row[$i], $column_centered);
00096 }
00097 }
00098 $l++;
00099 }
00100
00101 $workbook->close();
00102
00103 error_reporting(E_ALL ^ E_STRICT);
00104
00105 if(isset($raw_output)){
00106 print "<script type='text/javascript'> window.open('".KUMBIA_PATH."temp/".$file.".xls', null); </script>";
00107 } else {
00108 Generator::forms_print("<script type='text/javascript'> window.open('".KUMBIA_PATH."temp/".$file.".xls', null); </script>");
00109 }
00110
00111 }
00112
00113
00114 ?>