3 #script to recieve 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 under the
12 # terms of the GNU General Public License as published by the Free Software
13 # Foundation; either version 2 of the License, or (at your option) any later
16 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
17 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
18 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
20 # You should have received a copy of the GNU General Public License along
21 # with Koha; if not, write to the Free Software Foundation, Inc.,
22 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
30 This script shows all orders receipt or pending for a given supplier.
31 It allows to write an order as 'received' when he 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.
63 use C4::Bookseller qw/ GetBookSellerFromId /;
68 use C4::Dates qw/format_date format_date_in_iso/;
74 sub get_value_with_gst_params {
77 my $bookseller = shift;
78 if ( $bookseller->{listincgst} ) {
79 if ( $bookseller->{invoiceincgst} ) {
82 return $value / ( 1 + $gstrate );
85 if ( $bookseller->{invoiceincgst} ) {
86 return $value * ( 1 + $gstrate );
96 my $bookseller = shift;
97 return $bookseller->{invoiceincgst}
98 ? $value / ( 1 + $gstrate )
105 my $bookseller = shift;
106 return $bookseller->{invoiceincgst}
107 ? $value / ( 1 + $gstrate ) * $gstrate
108 : $value * ( 1 + $gstrate ) - $value;
111 my ($template, $loggedinuser, $cookie)
112 = get_template_and_user({template_name => "acqui/parcel.tmpl",
115 authnotrequired => 0,
116 flagsrequired => {acquisition => 'order_receive'},
120 my $op = $input->param('op') // '';
122 # process cancellation first so that list of
123 # orders to display is calculated after
124 if ($op eq 'cancelreceipt') {
125 my $ordernumber = $input->param('ordernumber');
126 my $parent_ordernumber = CancelReceipt($ordernumber);
127 unless($parent_ordernumber) {
128 $template->param(error_cancelling_receipt => 1);
132 my $invoiceid = $input->param('invoiceid');
134 $invoice = GetInvoiceDetails($invoiceid) if $invoiceid;
136 unless( $invoiceid and $invoice->{invoiceid} ) {
138 error_invoice_not_known => 1,
139 no_orders_to_display => 1
141 output_html_with_http_headers $input, $cookie, $template->output;
145 my $booksellerid = $invoice->{booksellerid};
146 my $bookseller = GetBookSellerFromId($booksellerid);
147 my $gst = $bookseller->{gstrate} // C4::Context->preference("gist") // 0;
148 my $datereceived = C4::Dates->new();
150 my $cfstr = "%.2f"; # currency format string -- could get this from currency table.
151 my @parcelitems = @{ $invoice->{orders} };
152 my $countlines = scalar @parcelitems;
154 my $totalquantity = 0;
156 my @loop_received = ();
159 my $total_quantity = 0;
163 for my $item ( @parcelitems ) {
164 $item->{unitprice} = get_value_with_gst_params( $item->{unitprice}, $item->{gstrate}, $bookseller );
165 $total = ( $item->{'unitprice'} ) * $item->{'quantityreceived'};
166 $item->{'unitprice'} += 0;
169 my $ecost = get_value_with_gst_params( $line{ecost}, $line{gstrate}, $bookseller );
170 $line{ecost} = sprintf( "%.2f", $ecost );
171 $line{invoice} = $invoice->{invoicenumber};
172 $line{total} = sprintf($cfstr, $total);
173 $line{booksellerid} = $invoice->{booksellerid};
174 $totalprice += $item->{'unitprice'};
175 $line{unitprice} = sprintf( $cfstr, $item->{'unitprice'} );
176 my $gste = get_gste( $line{total}, $line{gstrate}, $bookseller );
177 my $gst = get_gst( $line{total}, $line{gstrate}, $bookseller );
178 $foot{$line{gstrate}}{gstrate} = $line{gstrate};
179 $foot{$line{gstrate}}{value} += sprintf( "%.2f", $gst );
180 $total_quantity += $line{quantity};
181 $total_gste += $gste;
182 $total_gsti += $gste + $gst;
184 my $suggestion = GetSuggestionInfoFromBiblionumber($line{biblionumber});
185 $line{suggestionid} = $suggestion->{suggestionid};
186 $line{surnamesuggestedby} = $suggestion->{surnamesuggestedby};
187 $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby};
189 if ( $line{parent_ordernumber} != $line{ordernumber} ) {
190 if ( grep { $_->{ordernumber} == $line{parent_ordernumber} }
193 $line{cannot_cancel} = 1;
197 my $budget = GetBudget( $line{budget_id} );
198 $line{budget_name} = $budget->{'budget_name'};
200 push @loop_received, \%line;
201 $totalquantity += $item->{'quantityreceived'};
204 push @book_foot_loop, map { $_ } values %foot;
206 my @loop_orders = ();
207 if(!defined $invoice->{closedate}) {
210 my $search = $input->param('summaryfilter') || '';
211 my $ean = $input->param('eanfilter') || '';
212 my $basketno = $input->param('basketfilter') || '';
213 my $orderno = $input->param('orderfilter') || '';
216 $pendingorders = GetPendingOrders($booksellerid,$grouped,$owner,$basketno,$orderno,$search,$ean);
218 $pendingorders = GetPendingOrders($booksellerid);
220 my $countpendings = scalar @$pendingorders;
222 for (my $i = 0 ; $i < $countpendings ; $i++) {
224 %line = %{$pendingorders->[$i]};
226 my $ecost = get_value_with_gst_params( $line{ecost}, $line{gstrate}, $bookseller );
227 $line{unitprice} = get_value_with_gst_params( $line{unitprice}, $line{gstrate}, $bookseller );
228 $line{quantity} += 0;
229 $line{quantityreceived} += 0;
231 $line{ecost} = sprintf( "%.2f", $ecost );
232 $line{ordertotal} = sprintf( "%.2f", $ecost * $line{quantity} );
233 $line{unitprice} = sprintf("%.2f",$line{unitprice});
234 $line{invoice} = $invoice;
235 $line{booksellerid} = $booksellerid;
239 my $biblionumber = $line{'biblionumber'};
240 my $countbiblio = CountBiblioInOrders($biblionumber);
241 my $ordernumber = $line{'ordernumber'};
242 my @subscriptions = GetSubscriptionsId ($biblionumber);
243 my $itemcount = GetItemsCount($biblionumber);
244 my $holds = GetHolds ($biblionumber);
245 my @items = GetItemnumbersFromOrder( $ordernumber );
247 foreach my $item (@items){
248 my $nb = GetItemHolds($biblionumber, $item);
254 my $suggestion = GetSuggestionInfoFromBiblionumber($line{biblionumber});
255 $line{suggestionid} = $suggestion->{suggestionid};
256 $line{surnamesuggestedby} = $suggestion->{surnamesuggestedby};
257 $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby};
259 # if the biblio is not in other orders and if there is no items elsewhere and no subscriptions and no holds we can then show the link "Delete order and Biblio" see bug 5680
260 $line{can_del_bib} = 1 if $countbiblio <= 1 && $itemcount == scalar @items && !(@subscriptions) && !($holds);
261 $line{items} = ($itemcount) - (scalar @items);
262 $line{left_item} = 1 if $line{items} >= 1;
263 $line{left_biblio} = 1 if $countbiblio > 1;
264 $line{biblios} = $countbiblio - 1;
265 $line{left_subscription} = 1 if scalar @subscriptions >= 1;
266 $line{subscriptions} = scalar @subscriptions;
267 $line{left_holds} = ($holds >= 1) ? 1 : 0;
268 $line{left_holds_on_order} = 1 if $line{left_holds}==1 && ($line{items} == 0 || $itemholds );
269 $line{holds} = $holds;
270 $line{holds_on_order} = $itemholds?$itemholds:$holds if $line{left_holds_on_order};
272 my $budget = GetBudget( $line{budget_id} );
273 $line{budget_name} = $budget->{'budget_name'};
275 push @loop_orders, \%line;
279 loop_orders => \@loop_orders,
284 invoiceid => $invoice->{invoiceid},
285 invoice => $invoice->{invoicenumber},
286 invoiceclosedate => $invoice->{closedate},
287 datereceived => $datereceived->output('iso'),
288 invoicedatereceived => $datereceived->output('iso'),
289 formatteddatereceived => $datereceived->output(),
290 name => $bookseller->{'name'},
291 booksellerid => $bookseller->{id},
292 countreceived => $countlines,
293 loop_received => \@loop_received,
294 loop_orders => \@loop_orders,
295 book_foot_loop => \@book_foot_loop,
296 totalprice => sprintf($cfstr, $totalprice),
297 totalquantity => $totalquantity,
298 (uc(C4::Context->preference("marcflavour"))) => 1,
299 total_quantity => $total_quantity,
300 total_gste => sprintf( "%.2f", $total_gste ),
301 total_gsti => sprintf( "%.2f", $total_gsti ),
303 output_html_with_http_headers $input, $cookie, $template->output;