Bug 16011: $VERSION - Remove comments
[koha.git] / acqui / pdfformat / layout3pagesfr.pm
1 #!/usr/bin/perl
2
3 #example script to print a basketgroup
4 #written 07/11/08 by john.soros@biblibre.com and paul.poulain@biblibre.com
5
6 # Copyright 2008-2009, 2013 BibLibre SARL
7 #
8 # This file is part of Koha.
9 #
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 3 of the License, or (at your option) any later
13 # version.
14 #
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.
18 #
19 # You should have received a copy of the GNU General Public License along
20 # with Koha; if not, see <http://www.gnu.org/licenses>.
21
22 #you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
23 package pdfformat::layout3pagesfr;
24 use vars qw(@ISA @EXPORT);
25 use MIME::Base64;
26 use List::MoreUtils qw/uniq/;
27 use strict;
28 use warnings;
29 use utf8;
30
31 use C4::Branch qw(GetBranchName);
32
33 use Koha::Number::Price;
34 use Koha::DateUtils;
35 use Koha::Libraries;
36
37 BEGIN {
38          use Exporter   ();
39          our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
40          @ISA    = qw(Exporter);
41          @EXPORT = qw(printpdf);
42 }
43
44
45 #be careful, all the sizes (height, width, etc...) are in mm, not PostScript points (the default measurment of PDF::API2).
46 #The constants exported transform 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.
47 use constant mm => 25.4 / 72;
48 use constant in => 1 / 72;
49 use constant pt => 1;
50
51 use PDF::API2;
52 #A4 paper specs
53 my ($height, $width) = (297, 210);
54 use PDF::Table;
55
56 sub printorders {
57     my ($pdf, $basketgroup, $baskets, $orders) = @_;
58
59     my $cur_format = C4::Context->preference("CurrencyFormat");
60
61     $pdf->mediabox($height/mm, $width/mm);
62     my $number = 3;
63     for my $basket (@$baskets){
64         my $page = $pdf->page();
65
66         # print basket header (box)
67         my $box = $page->gfx;
68         $box->rectxy(($width - 10)/mm, ($height - 5)/mm, 10/mm, ($height - 25)/mm);
69         $box->stroke;
70 #         $box->restore();
71
72         # create a text
73         my $text = $page->text;
74         # add basketgroup number
75         $text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm );
76         $text->translate(20/mm,  ($height-15)/mm);
77         $text->text("Commande N°".$basketgroup->{'id'}.". Panier N° ".$basket->{basketno}.". ".$basket->{booksellernote});
78         $text->translate(20/mm,  ($height-20)/mm);
79         $text->font( $pdf->corefont("Times", -encoding => "utf8"), 4/mm );
80         $text->text( ( $basket->{billingplace} ? "Facturation à " . C4::Branch::GetBranchName( $basket->{billingplace} ) : "" )
81             . ( $basket->{billingplace} and $basket->{deliveryplace} ? " et " : "" )
82             . ( $basket->{deliveryplace} ? "livraison à " . C4::Branch::GetBranchName( $basket->{deliveryplace}) : "" )
83         );
84
85         my $pdftable = new PDF::Table();
86         my $abaskets;
87         my $arrbasket;
88         my @keys = ('Document', 'Qté', 'Prix', 'Prix net', '% Remise', 'Remise', 'Taux TVA', 'Total HT', 'Total TTC');
89         for my $bkey (@keys) {
90             push(@$arrbasket, $bkey);
91         }
92         push(@$abaskets, $arrbasket);
93
94         my $titleinfo;
95         foreach my $line (@{$orders->{$basket->{basketno}}}) {
96             $arrbasket = undef;
97             $titleinfo = "";
98             if ( C4::Context->preference("marcflavour") eq 'UNIMARC' ) {
99                 $titleinfo =  $line->{title} . " / " . $line->{author} .
100                     ( $line->{isbn} ? " ISBN : " . $line->{isbn} : '' ) .
101                     ( $line->{en} ? " EN : " . $line->{en} : '' ) .
102                     ( $line->{itemtype} ? ", " . $line->{itemtype} : '' ) .
103                     ( $line->{edition} ? ", " . $line->{edition} : '' ) .
104                     ( $line->{publishercode} ? ' publié par '. $line->{publishercode} : '') .
105                     ( $line->{publicationyear} ? ', '. $line->{publicationyear} : '');
106             }
107             else { # MARC21, NORMARC
108                 $titleinfo =  $line->{title} . " " . $line->{author} .
109                     ( $line->{isbn} ? " ISBN : " . $line->{isbn} : '' ) .
110                     ( $line->{en} ? " EN : " . $line->{en} : '' ) .
111                     ( $line->{itemtype} ? " " . $line->{itemtype} : '' ) .
112                     ( $line->{edition} ? ", " . $line->{edition} : '' ) .
113                     ( $line->{publishercode} ? '  publié par '. $line->{publishercode} : '') .
114                     ( $line->{copyrightdate} ? ' '. $line->{copyrightdate} : '');
115             }
116
117             push( @$arrbasket,
118                 $titleinfo. ($line->{order_vendornote} ? "\n----------------\nNote pour le fournisseur : ". $line->{order_vendornote} : '' ),
119                 $line->{quantity},
120                 Koha::Number::Price->new( $line->{rrpgste})->format,
121                 Koha::Number::Price->new( $line->{rrpgsti})->format,
122                 Koha::Number::Price->new( $line->{discount})->format.'%',
123                 Koha::Number::Price->new( $line->{rrpgste} - $line->{ecostgste})->format,
124                 Koha::Number::Price->new( $line->{gstrate} * 100)->format.'%',
125                 Koha::Number::Price->new( $line->{totalgste})->format,
126                 Koha::Number::Price->new( $line->{totalgsti})->format,
127             );
128             push(@$abaskets, $arrbasket);
129         }
130
131         $pdftable->table($pdf, $page, $abaskets,
132                                         x => 10/mm,
133                                         w => ($width - 20)/mm,
134                                         start_y => 270/mm,
135                                         next_y  => 285/mm,
136                                         start_h => 250/mm,
137                                         next_h  => 250/mm,
138                                         padding => 5,
139                                         padding_right => 5,
140                                         background_color_odd  => "lightgray",
141                                         font       => $pdf->corefont("Times", -encoding => "utf8"),
142                                         font_size => 3/mm,
143                                         header_props   =>    {
144                                             font       => $pdf->corefont("Times", -encoding => "utf8"),
145                                             font_size  => 9,
146                                             bg_color   => 'gray',
147                                             repeat     => 1,
148                                         },
149                                         column_props => [
150                                             {
151                                                 min_w => 85/mm,       # Minimum column width.
152                                             },
153                                             {
154                                                 justify => 'right', # One of left|right ,
155                                             },
156                                             {
157                                                 justify => 'right', # One of left|right ,
158                                             },
159                                             {
160                                                 justify => 'right', # One of left|right ,
161                                             },
162                                             {
163                                                 justify => 'right', # One of left|right ,
164                                             },
165                                             {
166                                                 justify => 'right', # One of left|right ,
167                                             },
168                                             {
169                                                 justify => 'right', # One of left|right ,
170                                             },
171                                             {
172                                                 justify => 'right', # One of left|right ,
173                                             },
174                                             {
175                                                 justify => 'right', # One of left|right ,
176                                             },
177                                         ],
178              );
179     }
180     $pdf->mediabox($width/mm, $height/mm);
181 }
182
183 sub printbaskets {
184     my ($pdf, $basketgroup, $hbaskets, $bookseller, $GSTrate, $orders) = @_;
185
186     # get library name
187     my $libraryname = C4::Context->preference("LibraryName");
188
189     my $cur_format = C4::Context->preference("CurrencyFormat");
190
191     $pdf->mediabox($width/mm, $height/mm);
192     my $page = $pdf->openpage(2);
193     # create a text
194     my $text = $page->text;
195
196     # add basketgroup number
197     $text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm );
198     $text->translate(($width-40)/mm,  ($height-53)/mm);
199     $text->text("".$basketgroup->{'id'});
200     # print the libraryname in the header
201     $text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm );
202     $text->translate(30/mm,  ($height-28.5)/mm);
203     $text->text($libraryname);
204     my $pdftable = new PDF::Table();
205     my $abaskets;
206     my $arrbasket;
207     # header of the table
208     my @keys = ('Lot', 'Panier', 'Prix', 'Prix net', 'Taux TVA', 'TVA', 'Remise', 'Total HT', 'Total TTC');
209     for my $bkey (@keys) {
210         push(@$arrbasket, $bkey);
211     }
212     my ($grandtotalrrpgsti, $grandtotalrrpgste, $grandtotalgsti, $grandtotalgste, $grandtotalgstvalue, $grandtotaldiscount);
213     # calculate each basket total
214     push(@$abaskets, $arrbasket);
215     for my $basket (@$hbaskets) {
216         my @gst;
217         $arrbasket = undef;
218         my ($totalrrpgste, $totalrrpgsti, $totalgste, $totalgsti, $totalgstvalue, $totaldiscount);
219         my $ords = $orders->{$basket->{basketno}};
220         my $ordlength = @$ords;
221         foreach my $ord (@$ords) {
222             $totalgste += $ord->{totalgste};
223             $totalgsti += $ord->{totalgsti};
224             $totalgstvalue += $ord->{gstvalue};
225             $totaldiscount += ($ord->{rrpgste} - $ord->{ecostgste} ) * $ord->{quantity};
226             $totalrrpgste += $ord->{rrpgste} * $ord->{quantity};
227             $totalrrpgsti += $ord->{rrpgsti} * $ord->{quantity};
228             push @gst, $ord->{gstrate};
229         }
230         @gst = uniq map { $_ * 100 } @gst;
231         $grandtotalrrpgste += $totalrrpgste;
232         $grandtotalrrpgsti += $totalrrpgsti;
233         $grandtotalgsti += $totalgsti;
234         $grandtotalgste += $totalgste;
235         $grandtotalgstvalue += $totalgstvalue;
236         $grandtotaldiscount += $totaldiscount;
237         my @gst_string =
238           map { Koha::Number::Price->new($_)->format . '%' } @gst;
239         push(@$arrbasket,
240             $basket->{contractname},
241             $basket->{basketname} . ' (No. ' . $basket->{basketno} . ')',
242             Koha::Number::Price->new( $totalrrpgste )->format,
243             Koha::Number::Price->new( $totalrrpgsti )->format,
244             "@gst_string",
245             Koha::Number::Price->new( $totalgstvalue )->format,
246             Koha::Number::Price->new( $totaldiscount )->format,
247             Koha::Number::Price->new( $totalgste )->format,
248             Koha::Number::Price->new( $totalgsti )->format,
249         );
250         push(@$abaskets, $arrbasket);
251     }
252     # now, push total
253     undef $arrbasket;
254     push @$arrbasket,
255       '',
256       'Total',
257       Koha::Number::Price->new( $grandtotalrrpgste )->format,
258       Koha::Number::Price->new( $grandtotalrrpgsti )->format,
259       '',
260       Koha::Number::Price->new( $grandtotalgstvalue )->format,
261       Koha::Number::Price->new( $grandtotaldiscount )->format,
262       Koha::Number::Price->new( $grandtotalgste )->format,
263       Koha::Number::Price->new( $grandtotalgsti )->format;
264     push @$abaskets,$arrbasket;
265     # height is width and width is height in this function, as the pdf is in landscape mode for the Tables.
266
267     $pdftable->table($pdf, $page, $abaskets,
268                                     x => 5/mm,
269                                     w => ($width - 10)/mm,
270                                     start_y =>  230/mm,
271                                     next_y  => 230/mm,
272                                     start_h => 230/mm,
273                                     next_h  => 230/mm,
274                                     font       => $pdf->corefont("Times", -encoding => "utf8"),
275                                     font_size => 3/mm,
276                                     padding => 5,
277                                     padding_right => 10,
278                                     background_color_odd  => "lightgray",
279                                     header_props   =>    {
280                                         bg_color   => 'gray',
281                                         repeat     => 1,
282                                     },
283                                     column_props => [
284                                         {
285                                         },
286                                         {
287                                         },
288                                         {
289                                             justify => 'right',
290                                         },
291                                         {
292                                             justify => 'right',
293                                         },
294                                         {
295                                             justify => 'right',
296                                         },
297                                         {
298                                             justify => 'right',
299                                         },
300                                         {
301                                             justify => 'right',
302                                         },
303                                     ],
304     );
305     $pdf->mediabox($height/mm, $width/mm);
306 }
307
308 sub printhead {
309     my ($pdf, $basketgroup, $bookseller) = @_;
310
311     # get library name
312     my $libraryname = C4::Context->preference("LibraryName");
313     my $billing_library  = Koha::Libraries->find( $basketgroup->{billingplace} );
314     my $delivery_library = Koha::Libraries->find( $basketgroup->{deliveryplace} );
315     my $freedeliveryplace = $basketgroup->{freedeliveryplace};
316     # get the subject
317     my $subject;
318
319     # open 1st page (with the header)
320     my $page = $pdf->openpage(1);
321
322     # create a text
323     my $text = $page->text;
324
325     # print the libraryname in the header
326     $text->font( $pdf->corefont("Times", -encoding => "utf8"), 6/mm );
327     $text->translate(30/mm,  ($height-28.5)/mm);
328     $text->text($libraryname);
329
330     # print order info, on the default PDF
331     $text->font( $pdf->corefont("Times", -encoding => "utf8"), 8/mm );
332     $text->translate(100/mm,  ($height-5-48)/mm);
333     $text->text($basketgroup->{'id'});
334
335     # print the date
336     my $today = output_pref({ dt => dt_from_string, dateonly => 1 });
337     $text->translate(130/mm,  ($height-5-48)/mm);
338     $text->text($today);
339
340     $text->font( $pdf->corefont("Times", -encoding => "utf8"), 4/mm );
341
342     # print billing infos
343     $text->translate(100/mm,  ($height-86)/mm);
344     $text->text($libraryname);
345     $text->translate(100/mm,  ($height-97)/mm);
346     $text->text($billing_library->branchname);
347     $text->translate(100/mm,  ($height-108.5)/mm);
348     $text->text($billing_library->branchphone);
349     $text->translate(100/mm,  ($height-115.5)/mm);
350     $text->text($billing_library->branchfax);
351     $text->translate(100/mm,  ($height-122.5)/mm);
352     $text->text($billing_library->branchaddress1);
353     $text->translate(100/mm,  ($height-127.5)/mm);
354     $text->text($billing_library->branchaddress2);
355     $text->translate(100/mm,  ($height-132.5)/mm);
356     $text->text($billing_library->branchaddress3);
357     $text->translate(100/mm,  ($height-137.5)/mm);
358     $text->text(join(' ', $billing_library->branchzip, $billing_library->branchcity, $billing_library->branchcountry));
359     $text->translate(100/mm,  ($height-147.5)/mm);
360     $text->text($billing_library->branchemail);
361
362     # print subject
363     $text->translate(100/mm,  ($height-145.5)/mm);
364     $text->text($subject);
365
366     # print bookseller infos
367     $text->translate(100/mm,  ($height-180)/mm);
368     $text->text($bookseller->{name});
369     $text->translate(100/mm,  ($height-185)/mm);
370     $text->text($bookseller->{postal});
371     $text->translate(100/mm,  ($height-190)/mm);
372     $text->text($bookseller->{address1});
373     $text->translate(100/mm,  ($height-195)/mm);
374     $text->text($bookseller->{address2});
375     $text->translate(100/mm,  ($height-200)/mm);
376     $text->text($bookseller->{address3});
377     $text->translate(100/mm, ($height-205)/mm);
378     $text->text($bookseller->{accountnumber});
379
380     # print delivery infos
381     $text->font( $pdf->corefont("Times-Bold", -encoding => "utf8"), 4/mm );
382     $text->translate(50/mm,  ($height-237)/mm);
383     if ($freedeliveryplace) {
384         my $start = 242;
385         my @fdp = split('\n', $freedeliveryplace);
386         foreach (@fdp) {
387             $text->text($_);
388             $text->translate( 50 / mm, ( $height - $start ) / mm );
389             $start += 5;
390         }
391     } else {
392         $text->text($delivery_library->branchaddress1);
393         $text->translate(50/mm,  ($height-242)/mm);
394         $text->text($delivery_library->branchaddress2);
395         $text->translate(50/mm,  ($height-247)/mm);
396         $text->text($delivery_library->branchaddress3);
397         $text->translate(50/mm,  ($height-252)/mm);
398         $text->text(join(' ', $delivery_library->branchzip, $delivery_library->branchcity, $delivery_library->branchcountry));
399     }
400     $text->translate(50/mm,  ($height-262)/mm);
401     $text->text($basketgroup->{deliverycomment});
402 }
403
404 sub printfooters {
405         my ($pdf) = @_;
406         for (my $i=1;$i <= $pdf->pages;$i++) {
407         my $page = $pdf->openpage($i);
408         my $text = $page->text;
409         $text->font( $pdf->corefont("Times", -encoding => "utf8"), 3/mm );
410         $text->translate(10/mm,  10/mm);
411         $text->text("Page $i / ".$pdf->pages);
412         }
413 }
414
415 sub printpdf {
416     my ($basketgroup, $bookseller, $baskets, $orders, $GST) = @_;
417     # open the default PDF that will be used for base (1st page already filled)
418     my $pdf_template = C4::Context->config('intrahtdocs') . '/' . C4::Context->preference('template') . '/pdf/layout3pagesfr.pdf';
419     my $pdf = PDF::API2->open($pdf_template);
420     $pdf->pageLabel( 0, {
421         -style => 'roman',
422     } ); # start with roman numbering
423     # fill the 1st page (basketgroup information)
424     printhead($pdf, $basketgroup, $bookseller);
425     # fill the 2nd page (orders summary)
426     printbaskets($pdf, $basketgroup, $baskets, $bookseller, $GST, $orders);
427     # fill other pages (orders)
428     printorders($pdf, $basketgroup, $baskets, $orders);
429     # print something on each page (usually the footer, but you could also put a header
430     printfooters($pdf);
431     return $pdf->stringify;
432 }
433
434 1;