3 #example script to print a basketgroup
4 #written 07/11/08 by john.soros@biblibre.com and paul.poulain@biblibre.com
6 # Copyright 2008-2009 BibLibre SARL
8 # This file is part of Koha.
10 # Koha is free software; you can redistribute it and/or modify it under the
11 # terms of the GNU General Public License as published by the Free Software
12 # Foundation; either version 2 of the License, or (at your option) any later
15 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
16 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
17 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
19 # You should have received a copy of the GNU General Public License along with
20 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
21 # Suite 330, Boston, MA 02111-1307 USA
23 #you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
24 package pdfformat::example;
25 use vars qw($VERSION @ISA @EXPORT);
26 use Number::Format qw(format_price);
33 our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
34 # set the version for version checking
37 @EXPORT = qw(printpdf);
41 #be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
42 #The constants exported tranform that into PostScript points (/mm for milimeter, /in for inch, pt is postscript point, and as so is there only to show what is happening.
43 use constant mm => 25.4 / 72;
44 use constant in => 1 / 72;
49 my ($height, $width) = (297, 210);
53 my ($pdf, $basketgroup, $baskets, $orders) = @_;
55 my $cur_format = C4::Context->preference("CurrencyFormat");
58 if ( $cur_format eq 'FR' ) {
59 $num = new Number::Format(
60 'decimal_fill' => '2',
61 'decimal_point' => ',',
62 'int_curr_symbol' => '',
63 'mon_thousands_sep' => ' ',
64 'thousands_sep' => ' ',
65 'mon_decimal_point' => ','
67 } else { # US by default..
68 $num = new Number::Format(
69 'int_curr_symbol' => '',
70 'mon_thousands_sep' => ',',
71 'mon_decimal_point' => '.'
75 $pdf->mediabox($height/mm, $width/mm);
77 for my $basket (@$baskets){
78 my $page = $pdf->page();
80 # print basket header (box)
82 $box->rectxy(($width - 10)/mm, ($height - 5)/mm, 10/mm, ($height - 25)/mm);
87 my $text = $page->text;
88 # add basketgroup number
89 $text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm );
90 $text->translate(20/mm, ($height-15)/mm);
91 $text->text("Commande N°".$basketgroup->{'id'}.". Panier N° ".$basket->{basketno}.". ".$basket->{booksellernote});
93 my $pdftable = new PDF::Table();
96 my @keys = ('Document','Qté','Prix public TTC','Remise','Prix remisé HT','TVA', 'Total TTC');
97 for my $bkey (@keys) {
98 push(@$arrbasket, $bkey);
100 push(@$abaskets, $arrbasket);
101 # @{$orders->{$basket->{basketno}}});
102 foreach my $line (@{$orders->{$basket->{basketno}}}) {
104 push(@$arrbasket, @$line[3]." / ".@$line[2].(@$line[0]?" ISBN : ".@$line[0]:'').", ".@$line[1].(@$line[4]?' publié par '.@$line[4]:''), @$line[5],$num->format_price(@$line[6]),$num->format_price(@$line[8]).'%',$num->format_price(@$line[7]/(1+@$line[9]/100)),$num->format_price(@$line[9]).'%',$num->format_price($num->round(@$line[7])*@$line[5]));
105 push(@$abaskets, $arrbasket);
108 $pdftable->table($pdf, $page, $abaskets,
110 w => ($width - 20)/mm,
117 background_color_odd => "lightgray",
118 font => $pdf->corefont("Times", -encoding => "utf8"),
121 font => $pdf->corefont("Times", -encoding => "utf8"),
128 min_w => 100/mm, # Minimum column width.
131 justify => 'right', # One of left|right ,
134 justify => 'right', # One of left|right ,
137 justify => 'right', # One of left|right ,
140 justify => 'right', # One of left|right ,
143 justify => 'right', # One of left|right ,
146 justify => 'right', # One of left|right ,
151 $pdf->mediabox($width/mm, $height/mm);
155 my ($pdf, $basketgroup, $hbaskets, $bookseller, $GSTrate, $orders) = @_;
156 <<<<<<< HEAD:acqui/pdfformat/example.pm
157 $pdf->mediabox($height/mm, $width/mm);
158 my $page = $pdf->page();
161 my $cur_format = C4::Context->preference("CurrencyFormat");
164 if ( $cur_format eq 'FR' ) {
165 $num = new Number::Format(
166 'decimal_fill' => '2',
167 'decimal_point' => ',',
168 'int_curr_symbol' => '',
169 'mon_thousands_sep' => ' ',
170 'thousands_sep' => ' ',
171 'mon_decimal_point' => ','
173 } else { # US by default..
174 $num = new Number::Format(
175 'int_curr_symbol' => '',
176 'mon_thousands_sep' => ',',
177 'mon_decimal_point' => '.'
181 $pdf->mediabox($width/mm, $height/mm);
182 my $page = $pdf->openpage(2);
184 my $text = $page->text;
185 # add basketgroup number
186 $text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm );
187 $text->translate(($width-40)/mm, ($height-50)/mm);
188 $text->text("".$basketgroup->{'id'});
190 >>>>>>> paul:acqui/pdfformat/example.pm
191 my $pdftable = new PDF::Table();
194 # header of the table
195 <<<<<<< HEAD:acqui/pdfformat/example.pm
196 my @keys = ('Lot', 'Panier', 'Prix public', 'taux TVA', 'TVA', 'Remise', 'Total TTC');
198 my @keys = ('Lot', 'Panier (N°)', 'Prix public TTC', 'Remise', 'Prix remisé','taux TVA', 'Total HT','TVA', 'Total TTC');
199 >>>>>>> paul:acqui/pdfformat/example.pm
200 for my $bkey (@keys) {
201 push(@$arrbasket, $bkey);
204 <<<<<<< HEAD:acqui/pdfformat/example.pm
207 >>>>>>> paul:acqui/pdfformat/example.pm
208 # calculate each basket total
209 push(@$abaskets, $arrbasket);
210 for my $basket (@$hbaskets) {
212 my ($total, $gst, $totallist) = (0, 0, 0);
213 my $ords = $orders->{$basket->{basketno}};
214 my $ordlength = @$ords;
215 <<<<<<< HEAD:acqui/pdfformat/example.pm
216 for my $ord (@$ords[1..$ordlength]) {
217 warn "".@$ord[0]."=".@$ord[1]."=".@$ord[2]."=".@$ord[3]."=".@$ord[4]."=".@$ord[5]."=".@$ord[6]."=".@$ord[7]."=";
218 $total = $total + (@$ord[5] * @$ord[6]);
219 $gst = $gst + ((@$ord[5] * @$ord[6]) * $GSTrate);
220 $totalttc = $totalttc+ @$ord[5] * @$ord[6] * (1 + $GSTrate) * (1 - $bookseller->{discount});
222 push(@$arrbasket, $basket->{contracname}, $basket->{basketname}, $total, $GSTrate, $gst, $bookseller->{discount}, $total + $gst);
223 push(@$abaskets, $arrbasket);
226 # height is width and width is height in this function, as the pdf is in landscape mode for the Tables.
227 my $text = $page->text(5/mm, 5/mm, ($height -10)/mm, ($width - 5)/mm);
228 $text->font( $pdf->corefont( 'Helvetica'), 8/mm );
229 my $txtstr = "REFERENCES DE COMMANDES DU BON DE COMMANDE N°".$basketgroup->{'id'};
230 my $txtwidth = $text->advancewidth($txtstr);
231 $text->translate(($height-$txtwidth*mm)/2/mm, ($width-8-5)/mm);
232 $text->text($txtstr);
234 foreach my $ord (@$ords) {
235 $total += @$ord[5] * @$ord[7];
236 $gst += (@$ord[5] * @$ord[7]) * $GSTrate/(1+$GSTrate);
237 $totallist += @$ord[5]*@$ord[6];
239 $total=$num->round($total);
240 $gst=$num->round($gst);
241 $grandtotal +=$total;
243 push(@$arrbasket, $basket->{contractname}, $basket->{basketname}.'(N°'.$basket->{basketno}.')',$num->format_price($totallist), $num->format_price($bookseller->{discount}).'%', $num->format_price($total), $num->format_price($GSTrate*100).'%', $num->format_price($total-$gst), $num->format_price($gst), $num->format_price($total));
244 push(@$abaskets, $arrbasket);
248 push @$arrbasket,'','','','Total',$num->format_price($grandtotal),'',$num->format_price($grandtotal-$grandgst), $num->format_price($grandgst),$num->format_price($grandtotal);
249 push @$abaskets,$arrbasket;
250 # height is width and width is height in this function, as the pdf is in landscape mode for the Tables.
251 >>>>>>> paul:acqui/pdfformat/example.pm
253 $pdftable->table($pdf, $page, $abaskets,
255 w => ($width - 10)/mm,
260 font => $pdf->corefont("Times", -encoding => "utf8"),
264 background_color_odd => "lightgray",
297 $pdf->mediabox($height/mm, $width/mm);
301 my ($pdf, $basketgroup, $bookseller, $branch) = @_;
302 # open 1st page (with the header)
303 my $page = $pdf->openpage(1);
306 my $text = $page->text;
308 # print order info, on the default PDF
309 $text->font( $pdf->corefont("Times", -encoding => "utf8"), 8/mm );
310 my $textstr = "Bon de commande N° $basketgroup->{'id'}";
311 $txtwidth = $text->advancewidth( $textstr );
312 $text->translate(($width-$txtwidth*mm)/2/mm, ($height-5-48)/mm);
313 $text->text($textstr);
315 $box->rectxy(5/mm, ($height - 60)/mm, ($width-5)/mm, ($height-230)/mm);
319 $text->font( $pdf->corefont( 'Helvetica', -encoding => 'utf8', -encode => 'utf8'), 4/mm );
320 $textstr = $branch->{branchaddress1};
321 $txtwidth = $text->advancewidth( $textstr );
322 $text->translate(7/mm, ($height - 60 - 6)/mm);
323 $text->text($textstr);
326 my $today = C4::Dates->today();
327 $text->translate(130/mm, ($height-5-48)/mm);
329 # print bookseller infos
330 $text->font( $pdf->corefont("Times", -encoding => "utf8"), 4/mm );
331 $text->translate(110/mm, ($height-170)/mm);
332 $text->text($bookseller->{name});
333 $text->translate(110/mm, ($height-175)/mm);
334 $text->text($bookseller->{postal});
335 $text->translate(110/mm, ($height-180)/mm);
336 $text->text($bookseller->{address1});
337 $text->translate(110/mm, ($height-185)/mm);
338 $text->text($bookseller->{address2});
339 $text->translate(110/mm, ($height-190)/mm);
340 $text->text($bookseller->{address3});
345 for (my $i=1;$i <= $pdf->pages;$i++) {
346 my $page = $pdf->openpage($i);
347 my $text = $page->text;
348 $text->font( $pdf->corefont("Times", -encoding => "utf8"), 3/mm );
349 $text->translate(10/mm, 10/mm);
350 $text->text("Page $i / ".$pdf->pages);
355 my ($basketgroup, $bookseller, $baskets, $branch, $orders, $GST) = @_;
356 # open the default PDF that will be used for base (1st page already filled)
357 my $pdf = PDF::API2->open('pdfformat/example.pdf');
358 $pdf->pageLabel( 0, {
360 } ); # start with roman numbering
361 # fill the 1st page (basketgroup information)
362 printhead($pdf, $basketgroup, $bookseller, $branch);
363 <<<<<<< HEAD:acqui/pdfformat/example.pm
364 printbaskets($pdf, $basketgroup, $baskets, $bookseller, $GST, $orders);
365 printorders($pdf, $basketgroup, $baskets, $orders);
367 # fill the 2nd page (orders summary)
368 printbaskets($pdf, $basketgroup, $baskets, $bookseller, $GST, $orders);
369 # fill other pages (orders)
370 printorders($pdf, $basketgroup, $baskets, $orders);
371 # print something on each page (usually the footer, but you could also put a header
373 >>>>>>> paul:acqui/pdfformat/example.pm
374 return $pdf->stringify;