3 #script to receive orders
6 # Copyright 2000-2002 Katipo Communications
7 # Copyright 2008-2009 BibLibre SARL
9 # This file is part of Koha.
11 # Koha is free software; you can redistribute it and/or modify it
12 # under the terms of the GNU General Public License as published by
13 # the Free Software Foundation; either version 3 of the License, or
14 # (at your option) any later version.
16 # Koha is distributed in the hope that it will be useful, but
17 # WITHOUT ANY WARRANTY; without even the implied warranty of
18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 # GNU General Public License for more details.
21 # You should have received a copy of the GNU General Public License
22 # along with Koha; if not, see <http://www.gnu.org/licenses>.
30 This script shows all orders receipt or pending for a given supplier.
31 It allows to write an order as 'received' when it arrives.
39 To know the supplier this script has to show orders.
43 is the bookseller invoice number.
51 To filter the results list on this given date.
68 use Koha::Acquisition::Baskets;
69 use Koha::Acquisition::Bookseller;
70 use Koha::Acquisition::Orders;
79 my ($template, $loggedinuser, $cookie)
80 = get_template_and_user({template_name => "acqui/parcel.tt",
83 flagsrequired => {acquisition => 'order_receive'},
86 my $op = $input->param('op') // '';
88 # process cancellation first so that list of
89 # orders to display is calculated after
90 if ($op eq 'cancelreceipt') {
91 my $ordernumber = $input->param('ordernumber');
92 my $parent_ordernumber = CancelReceipt($ordernumber);
93 unless($parent_ordernumber) {
94 $template->param(error_cancelling_receipt => 1);
98 my $invoiceid = $input->param('invoiceid');
100 $invoice = GetInvoiceDetails($invoiceid) if $invoiceid;
102 unless( $invoiceid and $invoice->{invoiceid} ) {
104 error_invoice_not_known => 1,
105 no_orders_to_display => 1
107 output_html_with_http_headers $input, $cookie, $template->output;
111 my $booksellerid = $invoice->{booksellerid};
112 my $bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );
114 my @orders = @{ $invoice->{orders} };
115 my $countlines = scalar @orders;
116 my @loop_received = ();
119 my $total_tax_excluded = 0;
120 my $total_tax_included = 0;
122 my $subtotal_for_funds;
123 for my $order ( @orders ) {
124 $order->{'unitprice'} += 0;
126 my $order_object = Koha::Acquisition::Orders->find($order->{ordernumber});
127 if ( $bookseller->invoiceincgst ) {
128 $order->{ecost} = $order->{ecost_tax_included};
129 $order->{unitprice} = $order->{unitprice_tax_included};
132 $order->{ecost} = $order->{ecost_tax_excluded};
133 $order->{unitprice} = $order->{unitprice_tax_excluded};
136 $order->{total} = get_rounded_price($order->{unitprice}) * $order->{quantity};
138 my %line = %{ $order };
139 $line{invoice} = $invoice->{invoicenumber};
140 my @itemnumbers = $order_object->items->get_column('itemnumber');
141 my $biblio = Koha::Biblios->find( $line{biblionumber} );
142 $line{total_holds} = $biblio ? $biblio->holds->count : 0;
143 $line{item_holds} = $biblio ? $biblio->current_holds->search(
145 itemnumber => { -in => \@itemnumbers },
148 $line{budget} = GetBudgetByOrderNumber( $line{ordernumber} );
150 $line{tax_value} = $line{tax_value_on_receiving};
151 $line{tax_rate} = $line{tax_rate_on_receiving};
152 $foot{$line{tax_rate}}{tax_rate} = $line{tax_rate};
153 $foot{$line{tax_rate}}{tax_value} += $line{tax_value};
154 $total_tax_excluded += get_rounded_price($line{unitprice_tax_excluded}) * $line{quantity};
155 $total_tax_included += get_rounded_price($line{unitprice_tax_included}) * $line{quantity};
157 my $suggestion = GetSuggestionInfoFromBiblionumber($line{biblionumber});
158 $line{suggestionid} = $suggestion->{suggestionid};
159 $line{surnamesuggestedby} = $suggestion->{surnamesuggestedby};
160 $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby};
162 if ( $line{parent_ordernumber} != $line{ordernumber} ) {
163 if ( grep { $_->{ordernumber} == $line{parent_ordernumber} }
167 $line{cannot_cancel} = 1;
171 my $budget_name = GetBudgetName( $line{budget_id} );
172 $line{budget_name} = $budget_name;
174 $subtotal_for_funds->{ $line{budget_name} }{ecost} += get_rounded_price($order->{ecost}) * $order->{quantity};
175 $subtotal_for_funds->{ $line{budget_name} }{unitprice} += $order->{total};
177 push @loop_received, \%line;
179 push @book_foot_loop, map { $_ } values %foot;
182 invoiceid => $invoice->{invoiceid},
183 invoice => $invoice->{invoicenumber},
184 invoiceclosedate => $invoice->{closedate},
185 shipmentdate => $invoice->{shipmentdate},
186 name => $bookseller->name,
187 booksellerid => $bookseller->id,
188 loop_received => \@loop_received,
189 book_foot_loop => \@book_foot_loop,
190 (uc(C4::Context->preference("marcflavour"))) => 1,
191 total_tax_excluded => $total_tax_excluded,
192 total_tax_included => $total_tax_included,
193 subtotal_for_funds => $subtotal_for_funds,
195 output_html_with_http_headers $input, $cookie, $template->output;