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 my ($template, $loggedinuser, $cookie)
75 = get_template_and_user({template_name => "acqui/parcel.tmpl",
79 flagsrequired => {acquisition => 'order_receive'},
83 my $invoiceid = $input->param('invoiceid');
84 my $op = $input->param('op') // '';
86 if ($op eq 'cancelreceipt') {
87 my $ordernumber = $input->param('ordernumber');
88 my $parent_ordernumber = CancelReceipt($ordernumber);
89 unless($parent_ordernumber) {
90 $template->param(error_cancelling_receipt => 1);
94 my $invoice = GetInvoiceDetails($invoiceid);
95 my $booksellerid = $invoice->{booksellerid};
96 my $bookseller = GetBookSellerFromId($booksellerid);
97 my $gst = $bookseller->{gstrate} // C4::Context->preference("gist") // 0;
98 my $datereceived = C4::Dates->new();
99 my $code = $input->param('code');
100 my @rcv_err = $input->param('error');
101 my @rcv_err_barcode = $input->param('error_bc');
102 my $startfrom=$input->param('startfrom');
103 my $resultsperpage = $input->param('resultsperpage');
104 $resultsperpage = 20 unless ($resultsperpage);
105 $startfrom=0 unless ($startfrom);
109 # If receiving error, report the error (coming from finishrecieve.pl(sic)).
110 if( scalar(@rcv_err) ) {
113 for my $err (@rcv_err) {
114 push @$error_loop, { "error_$err" => 1 , barcode => $rcv_err_barcode[$cnt] };
117 $template->param( receive_error => 1 ,
118 error_loop => $error_loop,
122 my $cfstr = "%.2f"; # currency format string -- could get this from currency table.
123 my @parcelitems = @{ $invoice->{orders} };
124 my $countlines = scalar @parcelitems;
126 my $totalquantity = 0;
129 my @loop_received = ();
131 for (my $i = 0 ; $i < $countlines ; $i++) {
133 $total = ($parcelitems[$i]->{'unitprice'}) * $parcelitems[$i]->{'quantityreceived'};
134 $parcelitems[$i]->{'unitprice'} += 0;
136 %line = %{ $parcelitems[$i] };
137 $line{invoice} = $invoice->{invoicenumber};
139 $line{total} = sprintf($cfstr, $total);
140 $line{booksellerid} = $invoice->{booksellerid};
141 $totalprice += $parcelitems[$i]->{'unitprice'};
142 $line{unitprice} = sprintf($cfstr, $parcelitems[$i]->{'unitprice'});
144 my $suggestion = GetSuggestionInfoFromBiblionumber($line{biblionumber});
145 $line{suggestionid} = $suggestion->{suggestionid};
146 $line{surnamesuggestedby} = $suggestion->{surnamesuggestedby};
147 $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby};
149 if ( $line{parent_ordernumber} != $line{ordernumber} ) {
150 if ( grep { $_->{ordernumber} == $line{parent_ordernumber} }
153 $line{cannot_cancel} = 1;
157 push @loop_received, \%line;
158 $totalquantity += $parcelitems[$i]->{'quantityreceived'};
162 if(!defined $invoice->{closedate}) {
164 if($input->param('op') eq "search"){
165 my $search = $input->param('summaryfilter') || '';
166 my $ean = $input->param('eanfilter') || '';
167 my $basketno = $input->param('basketfilter') || '';
168 my $orderno = $input->param('orderfilter') || '';
171 $pendingorders = GetPendingOrders($booksellerid,$grouped,$owner,$basketno,$orderno,$search,$ean);
173 $pendingorders = GetPendingOrders($booksellerid);
175 my $countpendings = scalar @$pendingorders;
177 # pending orders totals
178 my ($totalPunitprice, $totalPquantity, $totalPecost, $totalPqtyrcvd);
180 my @loop_orders = ();
181 for (my $i = 0 ; $i < $countpendings ; $i++) {
183 %line = %{$pendingorders->[$i]};
186 $line{quantityreceived}+=0;
188 $totalPunitprice += $line{unitprice};
189 $totalPquantity +=$line{quantity};
190 $totalPqtyrcvd +=$line{quantityreceived};
191 $totalPecost += $line{ecost};
192 $line{ecost} = sprintf("%.2f",$line{ecost});
193 $line{ordertotal} = sprintf("%.2f",$line{ecost}*$line{quantity});
194 $line{unitprice} = sprintf("%.2f",$line{unitprice});
195 $line{invoice} = $invoice;
197 $line{total} = $total;
198 $line{booksellerid} = $booksellerid;
199 $ordergrandtotal += $line{ecost} * $line{quantity};
201 my $biblionumber = $line{'biblionumber'};
202 my $countbiblio = CountBiblioInOrders($biblionumber);
203 my $ordernumber = $line{'ordernumber'};
204 my @subscriptions = GetSubscriptionsId ($biblionumber);
205 my $itemcount = GetItemsCount($biblionumber);
206 my $holds = GetHolds ($biblionumber);
207 my @items = GetItemnumbersFromOrder( $ordernumber );
209 foreach my $item (@items){
210 my $nb = GetItemHolds($biblionumber, $item);
216 my $suggestion = GetSuggestionInfoFromBiblionumber($line{biblionumber});
217 $line{suggestionid} = $suggestion->{suggestionid};
218 $line{surnamesuggestedby} = $suggestion->{surnamesuggestedby};
219 $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby};
221 # 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
222 $line{can_del_bib} = 1 if $countbiblio <= 1 && $itemcount == scalar @items && !(@subscriptions) && !($holds);
223 $line{items} = ($itemcount) - (scalar @items);
224 $line{left_item} = 1 if $line{items} >= 1;
225 $line{left_biblio} = 1 if $countbiblio > 1;
226 $line{biblios} = $countbiblio - 1;
227 $line{left_subscription} = 1 if scalar @subscriptions >= 1;
228 $line{subscriptions} = scalar @subscriptions;
229 $line{left_holds} = ($holds >= 1) ? 1 : 0;
230 $line{left_holds_on_order} = 1 if $line{left_holds}==1 && ($line{items} == 0 || $itemholds );
231 $line{holds} = $holds;
232 $line{holds_on_order} = $itemholds?$itemholds:$holds if $line{left_holds_on_order};
235 push @loop_orders, \%line if ($i >= $startfrom and $i < $startfrom + $resultsperpage);
238 my $count = $countpendings;
240 if ($count>$resultsperpage){
242 my $displayprev=$startfrom;
243 if(($count - ($startfrom+$resultsperpage)) > 0 ) {
248 for (my $i=1; $i<$count/$resultsperpage+1; $i++) {
250 ($startfrom/$resultsperpage==($i-1)) && ($highlight=1);
251 push @numbers, { number => $i,
252 highlight => $highlight ,
253 startfrom => ($i-1)*$resultsperpage};
256 my $from = $startfrom*$resultsperpage+1;
258 if($count < (($startfrom+1)*$resultsperpage)){
261 $to = (($startfrom+1)*$resultsperpage);
263 $template->param(numbers=>\@numbers,
264 displaynext=>$displaynext,
265 displayprev=>$displayprev,
266 nextstartfrom=>(($startfrom+$resultsperpage<$count)?$startfrom+$resultsperpage:$count),
267 prevstartfrom=>(($startfrom-$resultsperpage>0)?$startfrom-$resultsperpage:0)
272 countpending => $countpendings,
273 loop_orders => \@loop_orders,
274 ordergrandtotal => sprintf($cfstr, $ordergrandtotal),
275 totalPunitprice => sprintf("%.2f", $totalPunitprice),
276 totalPquantity => $totalPquantity,
277 totalPqtyrcvd => $totalPqtyrcvd,
278 totalPecost => sprintf("%.2f", $totalPecost),
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},
293 countreceived => $countlines,
294 loop_received => \@loop_received,
295 totalprice => sprintf($cfstr, $totalprice),
296 totalquantity => $totalquantity,
297 tototal => sprintf($cfstr, $tototal),
299 grandtot => sprintf($cfstr, $tototal + $gst),
300 resultsperpage => $resultsperpage,
301 (uc(C4::Context->preference("marcflavour"))) => 1
303 output_html_with_http_headers $input, $cookie, $template->output;