continue sales person work: customer and package selection, commissions, reporting...
[freeside.git] / httemplate / search / report_tax-xls.cgi
1 <%init>
2 my $htmldoc = include('report_tax.cgi');
3
4 my ($title) = ($htmldoc =~ /<title>\s*(.*)\s*<\/title>/i);
5
6 # do this first so we can override the format if it's too many rows
7 # attribs option: how to locate the table?  It's the only one with class="grid".
8 my $te = HTML::TableExtract->new(attribs => {class => 'grid'});
9 $te->parse($htmldoc);
10 my $table = $te->first_table_found;
11
12 my $override = ($table->row_count >= 65536 ? 'XLSX' : '');
13 my $format = $FS::CurrentUser::CurrentUser->spreadsheet_format($override);
14 my $filename = 'report_tax'.$format->{extension};
15
16 http_header('Content-Type' => $format->{mime_type});
17 http_header('Content-Disposition' => qq!attachment;filename="$filename"! );
18
19 my $data = '';
20 my $XLS = new IO::Scalar \$data;
21 my $workbook = $format->{class}->new($XLS)
22   or die "Error opening .xls file: $!";
23
24 # hardcoded formats, this could be handled better
25 my $light_gray = $workbook->set_custom_color(63, '#eeeeee');
26 my %format = (
27   title => {
28     size      => 24,
29     align     => 'center',
30     bg_color  => 'silver',
31   },
32   colhead => {
33     size      => 11,
34     bold      => 1,
35     align     => 'center',
36     valign    => 'vcenter',
37     text_wrap => 1,
38   },
39   rowhead => {
40     size      => 11,
41     valign    => 'bottom',
42     text_wrap => 1,
43   },
44   amount  => {
45     size      => 11,
46     align     => 'right',
47     valign    => 'bottom',
48     num_format=> 8,
49   },
50   'size-1' => {
51     size      => 7.5,
52     align     => 'center',
53     valign    => 'vcenter',
54     bold      => 1,
55     text_wrap => 1,
56   },
57   'size+1' => {
58     size      => 12,
59     align     => 'center',
60     valign    => 'vcenter',
61     bold      => 1,
62   },
63   text => {
64     size      => 11,
65     text_wrap => 1,
66   },
67 );
68 my %default = (
69   font      => 'Calibri',
70   bg_color  => $light_gray,
71   border    => 1,
72 );
73 my @widths = ( #ick
74   18, (10.5, 3) x 6, 10.5, 10.5, 3, 10.5, 3, 10.5, 3, 10.5
75 );
76 foreach (keys(%format)) {
77   my %f = (%default, %{$format{$_}});
78   $format{$_} = $workbook->add_format(%f);
79   $format{"m_$_"} = $workbook->add_format(%f); # for merged cells
80   $format{"t_$_"} = $workbook->add_format(%f, bg_color => 'yellow'); # totals
81 }
82 my $ws = $workbook->add_worksheet('taxreport');
83
84 my @sheet;
85 $sheet[0][0] = {
86   text    => $title,
87   format  => 'title',
88   colspan => '18',
89 };  
90 # excel position
91 my $x = 0;
92 my $y = 3;
93 foreach my $row ($table->rows()) {
94   $x = 0;
95   $sheet[$y] = [];
96   foreach my $cell (@$row) {
97     if ($cell and ref($cell) eq 'HTML::ElementTable::DataElement') {
98       my $f = 'text';
99       if ( $cell->as_HTML =~ /font/i ) {
100         my ($el) = $cell->content_list;
101         $f = 'size'.$el->attr('size') if $el->attr('size');
102       }
103       elsif ( $cell->as_text =~ /^\$/ ) {
104         $f = 'amount'
105       }
106       elsif ( $cell->tag eq 'th' ) {
107         $f = 'colhead';
108       }
109       elsif ( $x == 0 ) {
110         $f = 'rowhead';
111       }
112       $sheet[$y][$x] = {
113         text    => $cell->as_text,
114         format  => $f,
115         rowspan => $cell->attr('rowspan'),
116         colspan => $cell->attr('colspan'),
117       };
118     }
119     $x++;
120   } #for $cell
121   $y++;
122 }
123
124 $y = 0;
125 foreach my $row (@sheet) {
126   $x = 0;
127   my $t_row = 1 if($row->[0]->{'text'} eq 'Total');
128   foreach my $cell (@$row) {
129     if ($cell) {
130       my $f = $cell->{format};
131       if ($cell->{rowspan} > 1 or $cell->{colspan} > 1) {
132         my $range = xl_range_formula(
133           'Taxreport', 
134           $y,
135           $y - 1 + ($cell->{rowspan} || 1),
136           $x,
137           $x - 1 + ($cell->{colspan} || 1)
138         );
139         $ws->merge_range($range, $cell->{text}, $format{"m_$f"});
140       }
141       else {
142         $f = "t_$f" if $t_row;
143         $ws->write($y, $x, $cell->{text}, $format{$f});
144       }
145     } #if $cell
146     $x++;
147   }
148   $y++;
149 }
150
151 for my $x (0..scalar(@widths)-1) {
152   $ws->set_column($x, $x, $widths[$x]);
153 }
154
155 $workbook->close;
156
157 http_header('Content-Length' => length($data));
158 $m->print($data);
159 </%init>