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 under the
7 # terms of the GNU General Public License as published by the Free Software
8 # Foundation; either version 2 of the License, or (at your option) any later
11 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
12 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
13 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License along
16 # with Koha; if not, write to the Free Software Foundation, Inc.,
17 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
36 use C4::Bookseller qw/GetBookSellerFromId/;
40 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
42 template_name => 'acqui/invoice.tmpl',
46 flagsrequired => { 'acquisition' => '*' },
51 my $invoiceid = $input->param('invoiceid');
52 my $op = $input->param('op');
54 if ( $op && $op eq 'close' ) {
55 CloseInvoice($invoiceid);
56 my $referer = $input->param('referer');
58 print $input->redirect($referer);
62 elsif ( $op && $op eq 'reopen' ) {
63 ReopenInvoice($invoiceid);
64 my $referer = $input->param('referer');
66 print $input->redirect($referer);
70 elsif ( $op && $op eq 'mod' ) {
71 my $shipmentdate = $input->param('shipmentdate');
72 my $billingdate = $input->param('billingdate');
73 my $shipmentcost = $input->param('shipmentcost');
74 my $shipment_budget_id = $input->param('shipment_budget_id');
76 invoiceid => $invoiceid,
77 shipmentdate => C4::Dates->new($shipmentdate)->output("iso"),
78 billingdate => C4::Dates->new($billingdate)->output("iso"),
79 shipmentcost => $shipmentcost,
80 shipmentcost_budgetid => $shipment_budget_id
82 if ($input->param('reopen')) {
83 ReopenInvoice($invoiceid);
84 } elsif ($input->param('close')) {
85 CloseInvoice($invoiceid);
87 $template->param( modified => 1 );
89 elsif ( $op && $op eq 'delete' ) {
90 DelInvoice($invoiceid);
91 my $referer = $input->param('referer') || 'invoices.pl';
93 print $input->redirect($referer);
98 my $details = GetInvoiceDetails($invoiceid);
99 my $bookseller = GetBookSellerFromId( $details->{booksellerid} );
100 my @orders_loop = ();
101 my $orders = $details->{'orders'};
106 my $total_quantity = 0;
110 foreach my $order (@$orders) {
111 my $line = get_infos( $order, $bookseller );
113 $total_quantity += $$line{quantity};
114 $total_rrp += $order->{quantity} * $order->{rrp};
115 $total_est += $order->{quantity} * $order->{'ecost'};
117 my %row = ( %$order, %$line );
118 push @orders_loop, \%row;
121 my $gist = $bookseller->{gstrate} // C4::Context->preference("gist") // 0;
123 $bookseller->{'discount'} ? ( $bookseller->{discount} / 100 ) : 0;
126 my $total_rrp_gsti; # RRP Total, GST included
127 my $total_rrp_gste; # RRP Total, GST excluded
133 if ( $bookseller->{'listincgst'} ) {
135 # if prices already includes GST
137 # we know $total_rrp_gsti
138 $total_rrp_gsti = $total_rrp;
140 # and can reverse compute other values
141 $total_rrp_gste = $total_rrp_gsti / ( $gist + 1 );
143 $gist_rrp = $total_rrp_gsti - $total_rrp_gste;
144 $total_est_gste = $total_rrp_gste - ( $total_rrp_gste * $discount );
145 $total_est_gsti = $total_est;
148 # if prices does not include GST
150 # then we use the common way to compute other values
151 $total_rrp_gste = $total_rrp;
152 $gist_rrp = $total_rrp_gste * $gist;
153 $total_rrp_gsti = $total_rrp_gste + $gist_rrp;
154 $total_est_gste = $total_est;
155 $total_est_gsti = $total_rrp_gsti - ( $total_rrp_gsti * $discount );
157 $gist_est = $gist_rrp - ( $gist_rrp * $discount );
160 $total_rrp_gste = $total_rrp_gsti = $total_rrp;
161 $total_est_gste = $total_est_gsti = $total_est;
162 $gist_rrp = $gist_est = 0;
164 my $total_gsti_shipment = $total_est_gsti + $details->{shipmentcost};
168 total_rrp_gste => sprintf( $format, $total_rrp_gste ),
169 total_rrp_gsti => sprintf( $format, $total_rrp_gsti ),
170 total_est_gste => sprintf( $format, $total_est_gste ),
171 total_est_gsti => sprintf( $format, $total_est_gsti ),
172 gist_rrp => sprintf( $format, $gist_rrp ),
173 gist_est => sprintf( $format, $gist_est ),
174 total_gsti_shipment => sprintf( $format, $total_gsti_shipment ),
175 gist => sprintf( $format, $gist * 100 ),
178 my $budgets = GetBudgets();
180 my $shipmentcost_budgetid = $details->{shipmentcost_budgetid};
181 foreach my $budget (@$budgets) {
182 next unless CanUserUseBudget( $loggedinuser, $budget, $flags );
183 my %line = %{$budget};
184 if ( $shipmentcost_budgetid
185 and $budget->{budget_id} == $shipmentcost_budgetid )
189 push @budgets_loop, \%line;
193 invoiceid => $details->{'invoiceid'},
194 invoicenumber => $details->{'invoicenumber'},
195 suppliername => $details->{'suppliername'},
196 booksellerid => $details->{'booksellerid'},
197 datereceived => $details->{'datereceived'},
198 shipmentdate => $details->{'shipmentdate'},
199 billingdate => $details->{'billingdate'},
200 invoiceclosedate => $details->{'closedate'},
201 shipmentcost => sprintf( $format, $details->{'shipmentcost'} || 0 ),
202 orders_loop => \@orders_loop,
203 total_quantity => $total_quantity,
204 invoiceincgst => $bookseller->{invoiceincgst},
205 currency => $bookseller->{listprice},
206 budgets_loop => \@budgets_loop,
211 my $bookseller = shift;
212 my $qty = $order->{'quantity'} || 0;
213 if ( !defined $order->{quantityreceived} ) {
214 $order->{quantityreceived} = 0;
216 my $budget = GetBudget( $order->{'budget_id'} );
218 my %line = %{$order};
219 $line{order_received} = ( $qty == $order->{'quantityreceived'} );
220 $line{budget_name} = $budget->{budget_name};
221 $line{total} = $qty * $order->{ecost};
223 if ( $line{uncertainprice} ) {
224 $line{rrp} .= ' (Uncertain)';
226 if ( $line{'title'} ) {
227 my $volume = $order->{'volume'};
228 my $seriestitle = $order->{'seriestitle'};
229 $line{'title'} .= " / $seriestitle" if $seriestitle;
230 $line{'title'} .= " / $volume" if $volume;
233 $line{'title'} = "Deleted bibliographic notice, can't find title.";
239 output_html_with_http_headers $input, $cookie, $template->output;