502 lines
14 KiB
Perl
502 lines
14 KiB
Perl
|
sub report_create_xls {
|
||
|
|
|
||
|
|
our $xlspath = "$htmlpath/xls/customreport" ;
|
||
|
|
|
||
|
|
&xlsxcreator_delete_previous_xlsx($xlspath) ;
|
||
|
|
|
||
|
|
&report_xls_details_header ;
|
||
|
|
|
||
|
|
foreach my $id (sort {$b <=> $a} keys %xls_hash) {
|
||
|
|
&xlsxcreator_write_xls($ws,$xlsrow,0,$id,$format18);
|
||
|
|
|
||
|
|
my $col=1;
|
||
|
|
foreach my $field (sort keys %{$xls_hash{$id}}) {
|
||
|
|
&xlsxcreator_write_xls($ws,$xlsrow,$col,$xls_hash{$id}{$field},$format1);
|
||
|
|
$col++ ;
|
||
|
|
}
|
||
|
|
$xlsrow++ ;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $col=1;
|
||
|
|
|
||
|
|
foreach my $id (sort {$b <=> $a} keys %xls_hash) {
|
||
|
|
foreach my $field (sort keys %{$xls_hash{$id}}) {
|
||
|
|
$fieldrow = $xlsrow ;
|
||
|
|
foreach my $curr (keys %curr_hash) {
|
||
|
|
if ($ttl{$field}{$curr}) {
|
||
|
|
my $ttl = &common_commify( sprintf("%0.2f",$ttl{$field}{$curr} )) ;
|
||
|
|
&xlsxcreator_write_xls($ws,$fieldrow,$col,"$curr $ttl",$format57) ;
|
||
|
|
$fieldrow++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$col++ ;
|
||
|
|
}
|
||
|
|
last;
|
||
|
|
}
|
||
|
|
|
||
|
|
$worksheet{$ws}->set_column('A:Z',20);
|
||
|
|
$worksheet{$ws}->activate();
|
||
|
|
$worksheet{$ws}->select();
|
||
|
|
|
||
|
|
&xlsxcreator_close_xls;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_xls_details_header {
|
||
|
|
|
||
|
|
our $xlsname = 'CUSTOM-REPORT-' . $now_ccyymmdd . '.xls' ;
|
||
|
|
my $xlsfile = $xlspath . '/' . $xlsname ;
|
||
|
|
|
||
|
|
&xlsxcreator_create_xls($xlsfile);
|
||
|
|
|
||
|
|
&xlsxcreator_xls_format;
|
||
|
|
|
||
|
|
$ws = 'custom_report';
|
||
|
|
|
||
|
|
&xlsxcreator_add_worksheet($ws) ;
|
||
|
|
|
||
|
|
&xlsxcreator_write_xls($ws,0,0,"Film Freight : $success",$format2);
|
||
|
|
|
||
|
|
&xlsxcreator_write_xls($ws,2,0,'ID',$format18);
|
||
|
|
# $xlsrow = 2 ;
|
||
|
|
my $col=1;
|
||
|
|
foreach my $id (sort {$b <=> $a} keys %xls_hash) {
|
||
|
|
foreach my $field (sort keys %{$xls_hash{$id}}) {
|
||
|
|
my $uc_field = uc $field ;
|
||
|
|
&xlsxcreator_write_xls($ws,2,$col,$uc_field,$format18);
|
||
|
|
$col++;
|
||
|
|
}
|
||
|
|
last;
|
||
|
|
}
|
||
|
|
|
||
|
|
&xlsxcreator_freeze_panes($ws,3,0) ; # Freeze the first 3 rows
|
||
|
|
|
||
|
|
$xlsrow=3;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_pdf_start {
|
||
|
|
|
||
|
|
my ($report) = @_ ;
|
||
|
|
|
||
|
|
$layout = 'landscape' ;
|
||
|
|
|
||
|
|
our $pdfpath = "$pdfpath/export" ;
|
||
|
|
|
||
|
|
my $pdfnamestart = uc $report ; $pdfnamestart =~ s/_/-/gi ;
|
||
|
|
|
||
|
|
our $pdfname = $pdfnamestart . '-' . $now_ccyymmdd. $now_hour . $now_min . $now_sec . '.pdf' ;
|
||
|
|
my $pdffile = $pdfpath . '/' . $pdfname ;
|
||
|
|
|
||
|
|
my $pdftitle = $report ; $pdftitle =~ s/_/ /gi ;
|
||
|
|
|
||
|
|
&pdf_delete_previous_pdf($pdfpath) ;
|
||
|
|
&pdf_initialise($pdfpath,$pdfname,"Film Freight $pdftitle") ; ;
|
||
|
|
&pdf_initialise_page ;
|
||
|
|
|
||
|
|
$up = 180 ;
|
||
|
|
$across = 1 ;
|
||
|
|
&pdf_page_header_landscape ;
|
||
|
|
|
||
|
|
&pdf_nl_gap_3 ;
|
||
|
|
&pdf_nl_gap_3 ;
|
||
|
|
&pdf_nl_gap_3 ;
|
||
|
|
&pdf_x_large_bold_text (10, $up, $pdftitle) ;
|
||
|
|
&pdf_nl_gap_3 ;
|
||
|
|
|
||
|
|
my $date = pdf_date_to_text($now_ccyy_mm_dd);
|
||
|
|
&pdf_medium_text (220, $up, "Date : $date") ;
|
||
|
|
|
||
|
|
&pdf_nl;
|
||
|
|
$top=$up;
|
||
|
|
&pdf_black_line(10,$up,287,$up) ; # horizontal
|
||
|
|
&pdf_nl_s;
|
||
|
|
|
||
|
|
foreach (@pdf_columns) {
|
||
|
|
my $txtstart = length($_) * 2 + 2 ;
|
||
|
|
&pdf_small_bold_text ($txtstart,$up,$_) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
&pdf_nl_tt;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_pdf_line {
|
||
|
|
|
||
|
|
my ($id) = @_ ;
|
||
|
|
|
||
|
|
&pdf_black_line(10,$up,287,$up) ; # horizontal
|
||
|
|
&report_grid_pdf_check_value_of_up(20) ;
|
||
|
|
&pdf_nl;
|
||
|
|
|
||
|
|
foreach (@pdf_columns) {
|
||
|
|
my $txtstart = length($_) * 2 + 2 ;
|
||
|
|
&pdf_small_bold_text ($txtstart,$up,$db{$table}{$id}{$_}) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
&pdf_nl_tt;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_pdf_end {
|
||
|
|
|
||
|
|
&pdf_black_line(10,$up,287,$up) ; # horizontal
|
||
|
|
|
||
|
|
foreach (@pdf_columns) {
|
||
|
|
my $colstart = length($_) * 2 ;
|
||
|
|
&pdf_black_line ($colstart,$top,$colstart,$up) ; # vertical
|
||
|
|
}
|
||
|
|
|
||
|
|
&pdf_footer_landscape ;
|
||
|
|
&finish_pdf ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_xlsx_export_header_events {
|
||
|
|
|
||
|
|
my ($report,$xlsxfolder) = @_ ;
|
||
|
|
|
||
|
|
our $xlsxpath = "$htmlpath/xlsx/$xlsxfolder" ;
|
||
|
|
|
||
|
|
my $xlsxnamestart = uc $report ;
|
||
|
|
|
||
|
|
# $xlsxnamestart =~ s/_/-/gi ;
|
||
|
|
|
||
|
|
&xlsxcreator_delete_previous_xlsx($xlsxpath) ;
|
||
|
|
|
||
|
|
our $xlsxname = $xlsxnamestart . '-' . $now_ccyymmdd. $now_hour . $now_min . $now_sec . '.xlsx' ;
|
||
|
|
|
||
|
|
my $xlsxfile = $xlsxpath . '/' . $xlsxname ;
|
||
|
|
|
||
|
|
&xlsxcreator_create_xlsx($xlsxfile);
|
||
|
|
|
||
|
|
&xlsxcreator_xlsx_format;
|
||
|
|
|
||
|
|
$ws = $report;
|
||
|
|
|
||
|
|
&xlsxcreator_add_worksheet($ws) ;
|
||
|
|
$now_yy += 2000 ;
|
||
|
|
my $xlsxtitle = "Interactive Television Africa Events Division $now_yy" ;
|
||
|
|
|
||
|
|
$xlsxtitle =~ s/_/ /gi ;
|
||
|
|
|
||
|
|
my @letters = ("", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R","S", "T", "U", "V", "W", "X", "Y", "Z") ;
|
||
|
|
my $cnt = 0;
|
||
|
|
for (@col_display_excel) {$cnt++;}
|
||
|
|
my $range = "A1:$letters[$cnt]" ;
|
||
|
|
$range .= "1" ;
|
||
|
|
|
||
|
|
$worksheet{$ws} -> merge_range($range, "$xlsxtitle", $format_event_heading) ;
|
||
|
|
|
||
|
|
my @month_fullname = ("", "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December") ;
|
||
|
|
my $current_month = $month_fullname[int($now_mm)] ;
|
||
|
|
|
||
|
|
$range = "A2:$letters[$cnt]" ;
|
||
|
|
$range .= "2" ;
|
||
|
|
|
||
|
|
$worksheet{$ws} -> merge_range($range, "$current_month $now_yy", $format_event_heading_2) ;
|
||
|
|
$range = "A4:$letters[$cnt]" ;
|
||
|
|
$range .= "4" ;
|
||
|
|
$worksheet{$ws} -> merge_range($range, "", $format_empty_row) ;
|
||
|
|
|
||
|
|
# &xlsxcreator_write_xlsx($ws,0,0,$xlsxtitle,$format2);
|
||
|
|
|
||
|
|
our $xlsxcol=0;
|
||
|
|
|
||
|
|
foreach (@col_display_excel) {
|
||
|
|
my $coltitle = $_ ;
|
||
|
|
$coltitle =~ s/\_id//g ;
|
||
|
|
$coltitle =~ s/\_/ /g ;
|
||
|
|
my $ucfirst = join '', map { ucfirst lc } split /(\s+)/, $coltitle;
|
||
|
|
&xlsxcreator_write_xlsx($ws,2,$xlsxcol,$ucfirst,$format_event_heading_2);
|
||
|
|
$xlsxcol++;
|
||
|
|
}
|
||
|
|
|
||
|
|
&xlsxcreator_freeze_panes($ws,3,0) ; # Freeze the first 3 rows
|
||
|
|
|
||
|
|
our $xlsxrow=4;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_xls_export_header {
|
||
|
|
|
||
|
|
my ($report,$xlsfolder) = @_ ;
|
||
|
|
|
||
|
|
unless ($xlsfolder) { $xlsfolder = 'export' ; }
|
||
|
|
|
||
|
|
# my $xlsfolder = lc $report ; $xlsfolder =~ s/_//gi ;
|
||
|
|
|
||
|
|
our $xlspath = "$htmlpath/xls/$xlsfolder" ;
|
||
|
|
|
||
|
|
my $xlsnamestart = uc $report ; $xlsnamestart =~ s/_/-/gi ;
|
||
|
|
|
||
|
|
&xlsxcreator_delete_previous_xlsx($xlspath) ;
|
||
|
|
|
||
|
|
our $xlsname = $xlsnamestart . '-' . $now_ccyymmdd. $now_hour . $now_min . $now_sec . '.xlsx' ;
|
||
|
|
my $xlsfile = $xlspath . '/' . $xlsname ;
|
||
|
|
|
||
|
|
&xlsxcreator_create_xlsx($xlsfile);
|
||
|
|
|
||
|
|
&xlsxcreator_xlsx_format;
|
||
|
|
|
||
|
|
$ws = $report;
|
||
|
|
|
||
|
|
&xlsxcreator_add_worksheet($ws) ;
|
||
|
|
|
||
|
|
&report_build_headings($report, $ws) ;
|
||
|
|
|
||
|
|
our $xlscol = 0 ;
|
||
|
|
our $xlsrow = 4 ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_xlsx_export_header {
|
||
|
|
|
||
|
|
my ($report,$xlsxfolder,$csv_folder,$title_heading) = @_ ;
|
||
|
|
|
||
|
|
unless ($xlsxfolder) { $xlsxfolder = 'export' ; }
|
||
|
|
|
||
|
|
# my $xlsfolder = lc $report ; $xlsfolder =~ s/_//gi ;
|
||
|
|
|
||
|
|
our $xlsxpath = "$htmlpath/xlsx/$xlsxfolder" ;
|
||
|
|
|
||
|
|
my $xlsxnamestart = uc $report ; $xlsxnamestart =~ s/_/-/gi ;
|
||
|
|
|
||
|
|
&xlsxcreator_delete_previous_xlsx($xlsxpath) ;
|
||
|
|
|
||
|
|
our $xlsxname = $xlsxnamestart . '-' . $now_ccyymmdd. $now_hour . $now_min . $now_sec . '.xlsx' ;
|
||
|
|
my $xlsxfile = $xlsxpath . '/' . $xlsxname ;
|
||
|
|
|
||
|
|
&xlsxcreator_create_xlsx($xlsxfile) ;
|
||
|
|
|
||
|
|
&xlsxcreator_xlsx_format;
|
||
|
|
|
||
|
|
$ws = $report ;
|
||
|
|
|
||
|
|
&xlsxcreator_add_worksheet($ws) ;
|
||
|
|
|
||
|
|
&report_build_headings($report,$ws,$title_heading) ;
|
||
|
|
|
||
|
|
our $xlsxcol = 0 ;
|
||
|
|
our $xlsxrow = 4 ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_build_headings {
|
||
|
|
|
||
|
|
my ($report,$worksheet,$title_heading,$xlsx_start_row,$xlsx_start_col) = @_ ;
|
||
|
|
my $xlsxtitle = ($xlsxheading) ? $xlsxheading : $report ;
|
||
|
|
$xlsxtitle = $title_heading if $title_heading ;
|
||
|
|
$xlsxtitle =~ s/_/ /gi ;
|
||
|
|
&xlsxcreator_write_xlsx($worksheet,0,0,$xlsxtitle,$format_management_report_title) if $xlsxtitle ;
|
||
|
|
my $col = ($xlsx_start_col) ? $xlsx_start_col : 0 ;
|
||
|
|
|
||
|
|
return unless scalar @sql_col_display ;
|
||
|
|
|
||
|
|
if ($calibration_report_cron) {
|
||
|
|
foreach (@sql_col_display) {
|
||
|
|
&xlsxcreator_write_xlsx($ws,1,$col,"$day_of_week",$format93) unless $col ;
|
||
|
|
&xlsxcreator_write_xlsx($ws,1,$col,"",$format93) if $col ;
|
||
|
|
$col++ ;
|
||
|
|
}
|
||
|
|
$col = 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $titles_row = ($xlsxtitle) ? 2 : ($xlsx_start_row) ? $xlsx_start_row : 0 ;
|
||
|
|
|
||
|
|
foreach (@sql_col_display) {
|
||
|
|
next if not $_ ;
|
||
|
|
my $coltitle = $_ ;
|
||
|
|
$coltitle =~ s/\_id//g ;
|
||
|
|
$coltitle =~ s/\_/ /g ;
|
||
|
|
my $ucfirst = join '', map { ucfirst lc } split /(\s+)/, $coltitle;
|
||
|
|
&xlsxcreator_write_xlsx($worksheet,$titles_row,$col,$ucfirst,$format_management_report_headings) unless $calibration_report;
|
||
|
|
&xlsxcreator_write_xlsx($worksheet,$titles_row,$col,$ucfirst,$format93) if $calibration_report;
|
||
|
|
$col++;
|
||
|
|
}
|
||
|
|
|
||
|
|
$titles_row++ ;
|
||
|
|
&xlsxcreator_freeze_panes($worksheet,$titles_row,0) ; # Freeze the first 3 rows
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
sub report_xlsx_export_process_cell {
|
||
|
|
|
||
|
|
my ($changed,$money,$val) = @_ ;
|
||
|
|
|
||
|
|
if ($changed) {
|
||
|
|
&report_xlsx_export_output_cell($format23,$val) ;
|
||
|
|
}
|
||
|
|
elsif ($money) {
|
||
|
|
&report_xlsx_export_output_cell($format3,$val) ;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
&report_xlsx_export_output_cell($format1,$val) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------\
|
||
|
|
|
||
|
|
|
||
|
|
sub report_write_events {
|
||
|
|
|
||
|
|
my ($val, $last) = @_ ;
|
||
|
|
|
||
|
|
&xlsxcreator_write_xlsx($ws,$xlsxrow,$xlsxcol,$val,$format_event_data) if $last == 0;
|
||
|
|
&xlsxcreator_write_xlsx($ws,$xlsxrow,$xlsxcol,$val,$format_event_data_2) if $last == 1;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_xlsx_export_output_cell {
|
||
|
|
|
||
|
|
my ($format,$val) = @_ ;
|
||
|
|
|
||
|
|
&xlsxcreator_write_xlsx($ws,$xlsxrow,$xlsxcol,$val,$format);
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_xls_export_process_cell {
|
||
|
|
|
||
|
|
my ($changed,$money,$val) = @_ ;
|
||
|
|
|
||
|
|
if ($changed) {
|
||
|
|
&report_xls_export_output_cell($format23,$val) ;
|
||
|
|
}
|
||
|
|
elsif ($money) {
|
||
|
|
&report_xls_export_output_cell($format3,$val) ;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
&report_xls_export_output_cell($format1,$val) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_xls_export_output_cell {
|
||
|
|
|
||
|
|
my ($format,$val) = @_ ;
|
||
|
|
|
||
|
|
&xlsxcreator_write_xlsx($ws,$xlsrow,$xlscol,$val,$format);
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_xlsx_export_footer {
|
||
|
|
|
||
|
|
my ($resize_cell_to,$col_width,$report) = @_ ;
|
||
|
|
|
||
|
|
my $col = 0;
|
||
|
|
my $output_row = $xlsxrow+1 ;
|
||
|
|
|
||
|
|
foreach (@sql_col_display) {
|
||
|
|
next if not $_ ;
|
||
|
|
if ($money_format{$_}) {
|
||
|
|
my $cellfrom = &xl_rowcol_to_cell(4,$col) ;
|
||
|
|
my $cellto = &xl_rowcol_to_cell($xlsxrow,$col) ;
|
||
|
|
&xlsxcreator_write_formula($ws,$output_row,$col,"=SUM($cellfrom:$cellto)",$format67);
|
||
|
|
}
|
||
|
|
$col++ ;
|
||
|
|
}
|
||
|
|
|
||
|
|
# $worksheet{$ws}->set_column("A:$resize_cell_to",$col_width) ;
|
||
|
|
$worksheet{$ws}->activate() ;
|
||
|
|
$worksheet{$ws}->select() ;
|
||
|
|
|
||
|
|
&xlsxcreator_close_xlsx ;
|
||
|
|
|
||
|
|
if (-f "$xlsxpath/$xlsxname") {
|
||
|
|
$box_icon .= qq(<div class="box-icon" title='Export to Excel' data-toggle="tooltip" data-placement="left"><a class="btn btn-default btn-round" href="/xlsx/$report/$xlsxname" style="padding-top:1px;"><i class="glyphicon glyphicon-download-alt icon-white"></i></a></div>) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_xls_export_footer {
|
||
|
|
|
||
|
|
my ($resize_cell_to,$col_width,$report) = @_ ;
|
||
|
|
|
||
|
|
unless ($report) { $report = 'export' ; }
|
||
|
|
|
||
|
|
my $col = 0; my $output_row = $xlsrow+1 ;
|
||
|
|
|
||
|
|
foreach (@sql_col_display) {
|
||
|
|
next if not $_ ;
|
||
|
|
if ($money_format{$_}) {
|
||
|
|
my $cellfrom = &xl_rowcol_to_cell(4,$col) ;
|
||
|
|
my $cellto = &xl_rowcol_to_cell($xlsrow,$col) ;
|
||
|
|
&xlsxcreator_write_formula($ws,$output_row,$col,"=SUM($cellfrom:$cellto)",$format67);
|
||
|
|
}
|
||
|
|
$col++ ;
|
||
|
|
}
|
||
|
|
|
||
|
|
$worksheet{$ws}->set_column("A:$resize_cell_to",$col_width);
|
||
|
|
$worksheet{$ws}->activate();
|
||
|
|
$worksheet{$ws}->select();
|
||
|
|
|
||
|
|
&xlsxcreator_close_xlsx;
|
||
|
|
|
||
|
|
if (-f "$xlspath/$xlsname") {
|
||
|
|
$box_icon .= qq(<div class="box-icon" title='Export to Excel' data-toggle="tooltip" data-placement="left"><a class="btn btn-default btn-round" href="/xls/$report/$xlsname" style="padding-top:1px;"><i class="glyphicon glyphicon-download-alt icon-white"></i></a></div>) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_xls_add_chart {
|
||
|
|
|
||
|
|
&xlsxcreator_add_pie_chart($ws);
|
||
|
|
|
||
|
|
# Configure the series.
|
||
|
|
$chart{$ws}->add_series(
|
||
|
|
name => 'Pie Chart',
|
||
|
|
# categories => '=risk_report!$A$4:$A$18',
|
||
|
|
# values => '=risk_report!$B$4:$B$18',
|
||
|
|
categories => "=$ws!A4:A$catspan",
|
||
|
|
values => "=$ws!B4:B$catspan",
|
||
|
|
);
|
||
|
|
|
||
|
|
# Add a title.
|
||
|
|
$chart{$ws}->set_title( name => 'Report Pie Chart' );
|
||
|
|
|
||
|
|
$xlsrow+=5 ;
|
||
|
|
|
||
|
|
# Insert the chart into the worksheet (with an offset).
|
||
|
|
# $worksheet{$ws}->insert_chart('B23',$chart{$ws},25,10);
|
||
|
|
$worksheet{$ws}->insert_chart("B$xlsrow",$chart{$ws},40,16);
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_grid_pdf_check_value_of_up {
|
||
|
|
|
||
|
|
my ($value) = @_ ;
|
||
|
|
|
||
|
|
if ($up < $value) {
|
||
|
|
&report_grid_pdf_print_vertical_lines_table ;
|
||
|
|
&pdf_initialise_page ;
|
||
|
|
$up = 195 ;
|
||
|
|
$across = 1 ;
|
||
|
|
$top = $up;
|
||
|
|
&pdf_black_line(10,$up,287,$up) ; # horizontal
|
||
|
|
}
|
||
|
|
|
||
|
|
} #----------------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub report_grid_pdf_print_vertical_lines_table {
|
||
|
|
|
||
|
|
# &pdf_black_line (10,$top,10,$up) ; # vertical
|
||
|
|
|
||
|
|
&pdf_black_line ($colstart[0],$top,$colstart[0],$up) ; # vertical
|
||
|
|
&pdf_black_line ($colstart[1],$top,$colstart[1],$up) ; # vertical
|
||
|
|
&pdf_black_line ($colstart[2],$top,$colstart[2],$up) ; # vertical
|
||
|
|
&pdf_black_line ($colstart[3],$top,$colstart[3],$up) ; # vertical
|
||
|
|
&pdf_black_line ($colstart[4],$top,$colstart[4],$up) ; # vertical
|
||
|
|
&pdf_black_line ($colstart[5],$top,$colstart[5],$up) ; # vertical
|
||
|
|
&pdf_black_line ($colstart[6],$top,$colstart[6],$up) ; # vertical
|
||
|
|
&pdf_black_line ($colstart[7],$top,$colstart[7],$up) ; # vertical
|
||
|
|
&pdf_black_line ($colstart[8],$top,$colstart[8],$up) ; # vertical
|
||
|
|
&pdf_black_line ($colstart[9],$top,$colstart[9],$up) ; # vertical
|
||
|
|
&pdf_black_line ($colstart[10],$top,$colstart[10],$up) ; # vertical
|
||
|
|
|
||
|
|
# &pdf_black_line(287,$top,287,$up) ; # vertical
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
1;
|