#!/usr/bin/perl -w

###############################################################################
#
# Example of how use Spreadsheet::WriteExcel to generate Excel outlines and
# grouping. These example focus mainly on collapsed outlines. See also the
# outlines.pl example program.
#
#
# reverse('©'), March 2008, John McNamara, jmcnamara@cpan.org
#

use strict;
use Spreadsheet::WriteExcel;

# Create a new workbook and add some worksheets
my $workbook   = Spreadsheet::WriteExcel->new('outline_collapsed.xls');
my $worksheet1 = $workbook->add_worksheet('Outlined Rows');
my $worksheet2 = $workbook->add_worksheet('Collapsed Rows 1');
my $worksheet3 = $workbook->add_worksheet('Collapsed Rows 2');
my $worksheet4 = $workbook->add_worksheet('Collapsed Rows 3');
my $worksheet5 = $workbook->add_worksheet('Outline Columns');
my $worksheet6 = $workbook->add_worksheet('Collapsed Columns');


# Add a general format
my $bold = $workbook->add_format(bold => 1);


#
# This function will generate the same data and sub-totals on each worksheet.
#
sub create_sub_totals {

    my $worksheet = $_[0];

    # Add a column format for clarity
    $worksheet->set_column('A:A', 20);

    # Add the data, labels and formulas
    $worksheet->write('A1',  'Region', $bold);
    $worksheet->write('A2',  'North');
    $worksheet->write('A3',  'North');
    $worksheet->write('A4',  'North');
    $worksheet->write('A5',  'North');
    $worksheet->write('A6',  'North Total', $bold);

    $worksheet->write('B1',  'Sales',  $bold);
    $worksheet->write('B2',  1000);
    $worksheet->write('B3',  1200);
    $worksheet->write('B4',  900);
    $worksheet->write('B5',  1200);
    $worksheet->write('B6',  '=SUBTOTAL(9,B2:B5)', $bold);

    $worksheet->write('A7',  'South');
    $worksheet->write('A8',  'South');
    $worksheet->write('A9',  'South');
    $worksheet->write('A10', 'South');
    $worksheet->write('A11', 'South Total', $bold);

    $worksheet->write('B7',  400);
    $worksheet->write('B8',  600);
    $worksheet->write('B9',  500);
    $worksheet->write('B10', 600);
    $worksheet->write('B11', '=SUBTOTAL(9,B7:B10)', $bold);

    $worksheet->write('A12', 'Grand Total', $bold);
    $worksheet->write('B12', '=SUBTOTAL(9,B2:B10)', $bold);

}


###############################################################################
#
# Example 1: Create a worksheet with outlined rows. It also includes SUBTOTAL()
# functions so that it looks like the type of automatic outlines that are
# generated when you use the Excel Data->SubTotals menu item.
#

# The syntax is: set_row($row, $height, $XF, $hidden, $level, $collapsed)
$worksheet1->set_row(1,  undef, undef, 0, 2);
$worksheet1->set_row(2,  undef, undef, 0, 2);
$worksheet1->set_row(3,  undef, undef, 0, 2);
$worksheet1->set_row(4,  undef, undef, 0, 2);
$worksheet1->set_row(5,  undef, undef, 0, 1);

$worksheet1->set_row(6,  undef, undef, 0, 2);
$worksheet1->set_row(7,  undef, undef, 0, 2);
$worksheet1->set_row(8,  undef, undef, 0, 2);
$worksheet1->set_row(9,  undef, undef, 0, 2);
$worksheet1->set_row(10, undef, undef, 0, 1);

# Write the sub-total data that is common to the row examples.
create_sub_totals($worksheet1);


###############################################################################
#
# Example 2: Create a worksheet with collapsed outlined rows.
# This is the same as the example 1  except that the all rows are collapsed.
# Note: We need to indicate the row that contains the collapsed symbol '+' with
# the optional parameter, $collapsed.

$worksheet2->set_row(1,  undef, undef, 1, 2);
$worksheet2->set_row(2,  undef, undef, 1, 2);
$worksheet2->set_row(3,  undef, undef, 1, 2);
$worksheet2->set_row(4,  undef, undef, 1, 2);
$worksheet2->set_row(5,  undef, undef, 1, 1);

$worksheet2->set_row(6,  undef, undef, 1, 2);
$worksheet2->set_row(7,  undef, undef, 1, 2);
$worksheet2->set_row(8,  undef, undef, 1, 2);
$worksheet2->set_row(9,  undef, undef, 1, 2);
$worksheet2->set_row(10, undef, undef, 1, 1);

$worksheet2->set_row(11, undef, undef, 0, 0, 1);

# Write the sub-total data that is common to the row examples.
create_sub_totals($worksheet2);


###############################################################################
#
# Example 3: Create a worksheet with collapsed outlined rows.
# Same as the example 1  except that the two sub-totals are collapsed.

$worksheet3->set_row(1,  undef, undef, 1, 2);
$worksheet3->set_row(2,  undef, undef, 1, 2);
$worksheet3->set_row(3,  undef, undef, 1, 2);
$worksheet3->set_row(4,  undef, undef, 1, 2);
$worksheet3->set_row(5,  undef, undef, 0, 1, 1);

$worksheet3->set_row(6,  undef, undef, 1, 2);
$worksheet3->set_row(7,  undef, undef, 1, 2);
$worksheet3->set_row(8,  undef, undef, 1, 2);
$worksheet3->set_row(9,  undef, undef, 1, 2);
$worksheet3->set_row(10, undef, undef, 0, 1, 1);


# Write the sub-total data that is common to the row examples.
create_sub_totals($worksheet3);


###############################################################################
#
# Example 4: Create a worksheet with outlined rows.
# Same as the example 1  except that the two sub-totals are collapsed.

$worksheet4->set_row(1,  undef, undef, 1, 2);
$worksheet4->set_row(2,  undef, undef, 1, 2);
$worksheet4->set_row(3,  undef, undef, 1, 2);
$worksheet4->set_row(4,  undef, undef, 1, 2);
$worksheet4->set_row(5,  undef, undef, 1, 1, 1);

$worksheet4->set_row(6,  undef, undef, 1, 2);
$worksheet4->set_row(7,  undef, undef, 1, 2);
$worksheet4->set_row(8,  undef, undef, 1, 2);
$worksheet4->set_row(9,  undef, undef, 1, 2);
$worksheet4->set_row(10, undef, undef, 1, 1, 1);

$worksheet4->set_row(11, undef, undef, 0, 0, 1);

# Write the sub-total data that is common to the row examples.
create_sub_totals($worksheet4);



###############################################################################
#
# Example 5: Create a worksheet with outlined columns.
#
my $data = [
            ['Month', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',' Total'],
            ['North', 50,    20,    15,    25,    65,    80,    ,'=SUM(B2:G2)'],
            ['South', 10,    20,    30,    50,    50,    50,    ,'=SUM(B3:G3)'],
            ['East',  45,    75,    50,    15,    75,    100,   ,'=SUM(B4:G4)'],
            ['West',  15,    15,    55,    35,    20,    50,    ,'=SUM(B5:G6)'],
           ];

# Add bold format to the first row
$worksheet5->set_row(0, undef, $bold);

# Syntax: set_column($col1, $col2, $width, $XF, $hidden, $level, $collapsed)
$worksheet5->set_column('A:A', 10, $bold      );
$worksheet5->set_column('B:G', 5,  undef, 0, 1);
$worksheet5->set_column('H:H', 10             );

# Write the data and a formula
$worksheet5->write_col('A1', $data);
$worksheet5->write('H6', '=SUM(H2:H5)', $bold);


###############################################################################
#
# Example 6: Create a worksheet with collapsed outlined columns.
# This is the same as the previous example except collapsed columns.

# Add bold format to the first row
$worksheet6->set_row(0, undef, $bold);

# Syntax: set_column($col1, $col2, $width, $XF, $hidden, $level, $collapsed)
$worksheet6->set_column('A:A', 10, $bold         );
$worksheet6->set_column('B:G', 5,  undef, 1, 1   );
$worksheet6->set_column('H:H', 10, undef, 0, 0, 1);

# Write the data and a formula
$worksheet6->write_col('A1', $data);
$worksheet6->write('H6', '=SUM(H2:H5)', $bold);


__END__
