Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
El problema que tengo es que estoy generando un reporte en Excel utilizando el módulo Excel::Writer::XLSX.
El reporte se genera satisfactoriamente (.xlxs), pero al momento de dar clic en la liga con la cual descargo el reporte generado, se descarga un archivo .zip en lugar del xlsx; ya revisé la ruta de descarga y está correcta, no sé que pueda estar pasando o por qué se cambia la extensión a .zip
Lo raro es que si cambio la extensión xlsx a xls, ya no tengo problemas y el archivo se descarga sin ningún problema.
¿Dónde puede estar el error?
Using perl Syntax Highlighting
- sub reporte {
- &decodificar_valores( $FORM{valores} );
- my $archivo;
- $archivo = &rep_autorizado();
- #==================================================================
- my $table1 = new HTML::Table(
- -cols => 1,
- -border => 3,
- -bgcolor => 0,
- -width => "50%",
- -spacing => 1,
- -padding => 1,
- -style => "border-collapse:collapse;"
- );
- $table1->setCell( 1, 1, "<font class=\"sBL3b\"><b>NOMBRE DEL ARCHIVO</b> </font>" );
- $table1->setCell( 1, 2, "<font class=\"sBL3b\"><b>ABRIR</b> </font>" );
- $table1->setCell( 1, 3, "<font class=\"sBL3b\"><b>OPCIONES</b> </font>" );
- $table1->setRowBGColor( 1, "#003366" );
- $table1->setCell( 2, 1, "<font class=\"sBL4b\">$archivo</font>" );
- $table1->setCell( 2, 2,
- "<a href=\"../../../2012/reportes/$archivo\" target=\"_blank\"> <img src=\"/images/excel.jpg\" alt=\"Abrir Archivo\"></a>"
- );
- $table1->setCell( 2, 3,
- "<button name=\"Regresar\" type=\"button\" value=\"Regresar\" class='Bsbttn' onClick=\"window.location='$script_name?$url_param'\">Regresar</button>"
- );
- $table1->setRowAlign( 1, "CENTER" );
- $table1->setRowAlign( 2, "CENTER" );
- print header;
- &print_cabeza(''); # esta funcion se encuentra en el (pm)
- print start_multipart_form(
- -action => $script_name,
- -name => 'form',
- -id => 'form'
- );
- $table1->print;
- end_form();
- end_html();
- exit;
- }
- sub grep_autorizado {
- my $archivo = "COMP_AUTORIZADOS_" . $FORM{clvgerencia} . "_$FORM{nc}" . ".xlsx";
- $workbook = Excel::Writer::XLSX->new("../../../html/2012/reportes/$archivo");
- #left,right,bottom,top,bold,pattern,align,fg_color,color,size,valign,font,size,bg_color (color de la trama)
- my $formato_texto = &formato_texto5( 1, 1, 1, 1, 0, 1, "center", "white", "black", 8, "vcenter", "Arial", 0 );
- my $formato_texto2 = &formato_texto5( 1, 1, 1, 1, 0, 1, "left", "white", "black", 8, "vcenter", "Arial", 0 );
- $color3 = &formato_color( 27, 2, 2, 0, 0 );
- &enca_rep_excel("MOV. AUTORIZADOS");
- &barra_detalle( "$nombre_programa", "$FORM{txtGerencia}" );
- #$fg_color,$left,$right,$bottom,$top
- $color2 = &formato_color( 41, 2, 2, 0, 0 );
- $color3 = &formato_color( 41, 2, 2, 0, 0 );
- $color4 = &formato_color( 41, 0, 0, 0, 0 );
- $color5 = &formato_color( 41, 0, 0, 0, 0 );
- #los parametros que se mandan para el formato de moneda son
- #($left,$right,$bottom,$top,$bold,$pattern,$fg_color,$size);
- $moneda = &moneda_formato( 2, 2, 1, 1, 0, 1, "white", 10 ); #la rutina esta en este mismo reporte
- $moneda2 = &moneda_formato( 2, 2, 1, 1, 1, 1, 22, 10 ); #la rutina esta en este mismo reporte
- $workbook->close() or die "Error no puedo cerrar el Archivo: $!";
- return $archivo;
- exit;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4