3 # Copyright 2011 BibLibre SARL
4 # This file is part of Koha.
6 # Koha is free software; you can redistribute it and/or modify it
7 # under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 3 of the License, or
9 # (at your option) any later version.
11 # Koha is distributed in the hope that it will be useful, but
12 # WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with Koha; if not, see <http://www.gnu.org/licenses>.
38 use Koha::Acquisition::Bookseller;
39 use Koha::Acquisition::Currencies;
41 use Koha::Misc::Files;
44 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
46 template_name => 'acqui/invoice.tt',
50 flagsrequired => { 'acquisition' => '*' },
55 my $invoiceid = $input->param('invoiceid');
56 my $op = $input->param('op');
59 if ( C4::Context->preference('AcqEnableFiles') ) {
60 $invoice_files = Koha::Misc::Files->new(
61 tabletag => 'aqinvoices', recordid => $invoiceid );
64 if ( $op && $op eq 'close' ) {
65 CloseInvoice($invoiceid);
66 my $referer = $input->param('referer');
68 print $input->redirect($referer);
72 elsif ( $op && $op eq 'reopen' ) {
73 ReopenInvoice($invoiceid);
74 my $referer = $input->param('referer');
76 print $input->redirect($referer);
80 elsif ( $op && $op eq 'mod' ) {
81 my $shipmentcost = $input->param('shipmentcost');
82 my $shipment_budget_id = $input->param('shipment_budget_id');
83 my $invoicenumber = $input->param('invoicenumber');
85 invoiceid => $invoiceid,
86 invoicenumber => $invoicenumber,
87 shipmentdate => output_pref( { str => scalar $input->param('shipmentdate'), dateformat => 'iso', dateonly => 1 } ),
88 billingdate => output_pref( { str => scalar $input->param('billingdate'), dateformat => 'iso', dateonly => 1 } ),
89 shipmentcost => $shipmentcost,
90 shipmentcost_budgetid => $shipment_budget_id
92 if ($input->param('reopen')) {
93 ReopenInvoice($invoiceid);
94 } elsif ($input->param('close')) {
95 CloseInvoice($invoiceid);
96 } elsif ($input->param('merge')) {
97 my @sources = $input->multi_param('merge');
98 MergeInvoices($invoiceid, \@sources);
99 defined($invoice_files) && $invoice_files->MergeFileRecIds(@sources);
101 $template->param( modified => 1 );
103 elsif ( $op && $op eq 'delete' ) {
104 DelInvoice($invoiceid);
105 defined($invoice_files) && $invoice_files->DelAllFiles();
106 my $referer = $input->param('referer') || 'invoices.pl';
108 print $input->redirect($referer);
114 my $details = GetInvoiceDetails($invoiceid);
115 my $bookseller = Koha::Acquisition::Bookseller->fetch({ id => $details->{booksellerid} });
116 my @orders_loop = ();
117 my $orders = $details->{'orders'};
120 my $total_quantity = 0;
121 my $total_tax_excluded = 0;
122 my $total_tax_included = 0;
123 my $total_tax_value = 0;
124 foreach my $order (@$orders) {
125 my $line = get_infos( $order, $bookseller);
127 $line->{total_tax_excluded} = Koha::Number::Price->new( $line->{unitprice_tax_excluded} * $line->{quantity} )->format;
128 $line->{total_tax_included} = Koha::Number::Price->new( $line->{unitprice_tax_included} * $line->{quantity} )->format;
130 $foot{$$line{tax_rate}}{tax_rate} = $$line{tax_rate};
131 $foot{$$line{tax_rate}}{tax_value} += $$line{tax_value};
132 $total_tax_value += $$line{tax_value};
133 $foot{$$line{tax_rate}}{quantity} += $$line{quantity};
134 $total_quantity += $$line{quantity};
135 $foot{$$line{tax_rate}}{total_tax_excluded} += $$line{total_tax_excluded};
136 $total_tax_excluded += $$line{total_tax_excluded};
137 $foot{$$line{tax_rate}}{total_tax_included} += $$line{total_tax_included};
138 $total_tax_included += $$line{total_tax_included};
140 $line->{orderline} = $line->{parent_ordernumber};
141 push @orders_loop, $line;
144 push @foot_loop, map {$_} values %foot;
147 my $budgets = GetBudgets();
149 my $shipmentcost_budgetid = $details->{shipmentcost_budgetid};
150 foreach my $budget (@$budgets) {
151 next unless CanUserUseBudget( $loggedinuser, $budget, $flags );
152 my %line = %{$budget};
153 if ( $shipmentcost_budgetid
154 and $budget->{budget_id} == $shipmentcost_budgetid )
158 push @budgets_loop, \%line;
162 invoiceid => $details->{'invoiceid'},
163 invoicenumber => $details->{'invoicenumber'},
164 suppliername => $details->{'suppliername'},
165 booksellerid => $details->{'booksellerid'},
166 shipmentdate => $details->{'shipmentdate'},
167 billingdate => $details->{'billingdate'},
168 invoiceclosedate => $details->{'closedate'},
169 shipmentcost => $details->{'shipmentcost'},
170 orders_loop => \@orders_loop,
171 foot_loop => \@foot_loop,
172 total_quantity => $total_quantity,
173 total_tax_excluded => sprintf( $format, $total_tax_excluded ),
174 total_tax_included => sprintf( $format, $total_tax_included ),
175 total_tax_value => sprintf( $format, $total_tax_value ),
176 total_tax_excluded_shipment => sprintf( $format, $total_tax_excluded + $details->{shipmentcost}),
177 total_tax_included_shipment => sprintf( $format, $total_tax_included + $details->{shipmentcost}),
178 invoiceincgst => $bookseller->{invoiceincgst},
179 currency => Koha::Acquisition::Currencies->get_active,
180 budgets_loop => \@budgets_loop,
183 defined( $invoice_files ) && $template->param( files => $invoice_files->GetFilesInfo() );
186 # Fonction dupplicated from basket.pl
187 # Code must to be exported. Where ??
190 my $bookseller = shift;
191 my $qty = $order->{'quantity'} || 0;
192 if ( !defined $order->{quantityreceived} ) {
193 $order->{quantityreceived} = 0;
195 my $budget = GetBudget( $order->{'budget_id'} );
197 my %line = %{ $order };
198 $line{order_received} = ( $qty == $order->{'quantityreceived'} );
199 $line{budget_name} = $budget->{budget_name};
201 if ( $line{uncertainprice} ) {
202 $template->param( uncertainprices => 1 );
203 $line{rrp} .= ' (Uncertain)';
205 if ( $line{'title'} ) {
206 my $volume = $order->{'volume'};
207 my $seriestitle = $order->{'seriestitle'};
208 $line{'title'} .= " / $seriestitle" if $seriestitle;
209 $line{'title'} .= " / $volume" if $volume;
215 output_html_with_http_headers $input, $cookie, $template->output;