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.
53 To filter the results list on this given date.
60 #use warnings; FIXME - Bug 2505
64 use C4::Bookseller qw/ GetBookSellerFromId /;
69 use C4::Dates qw/format_date format_date_in_iso/;
74 my $booksellerid=$input->param('booksellerid');
75 my $bookseller=GetBookSellerFromId($booksellerid);
77 my $invoice=$input->param('invoice') || '';
78 my $freight=$input->param('freight');
79 my $input_gst = ($input->param('gst') eq '' ? undef : $input->param('gst'));
80 my $gst= $input_gst // $bookseller->{gstrate} // C4::Context->preference("gist") // 0;
81 my $datereceived = ($input->param('op') eq 'new') ? C4::Dates->new($input->param('datereceived'))
82 : C4::Dates->new($input->param('datereceived'), 'iso') ;
83 $datereceived = C4::Dates->new() unless $datereceived;
84 my $code = $input->param('code');
85 my @rcv_err = $input->param('error');
86 my @rcv_err_barcode = $input->param('error_bc');
88 my $startfrom=$input->param('startfrom');
89 my $resultsperpage = $input->param('resultsperpage');
90 $resultsperpage = 20 unless ($resultsperpage);
91 $startfrom=0 unless ($startfrom);
93 if($input->param('format') eq "json"){
94 my ($template, $loggedinuser, $cookie)
95 = get_template_and_user({template_name => "acqui/ajax.tmpl",
99 flagsrequired => {acquisition => 'order_receive'},
104 my $search = $input->param('search') || '';
105 my $ean = $input->param('ean') || '';
106 my $supplier = $input->param('booksellerid') || '';
107 my $basketno = $input->param('basketno') || '';
108 my $orderno = $input->param('orderno') || '';
110 my $orders = SearchOrder($orderno, $search, $ean, $supplier, $basketno);
111 foreach my $order (@$orders) {
112 if ( $order->{quantityreceived} < $order->{quantity} ) {
115 $data->{basketno} = $order->{basketno};
116 $data->{ordernumber} = $order->{ordernumber};
117 $data->{title} = $order->{title};
118 $data->{author} = $order->{author};
119 $data->{isbn} = $order->{isbn};
120 $data->{booksellerid} = $order->{booksellerid};
121 $data->{biblionumber} = $order->{biblionumber};
122 $data->{freight} = $order->{freight};
123 $data->{quantity} = $order->{quantity};
124 $data->{ecost} = $order->{ecost};
125 $data->{ordertotal} = sprintf("%.2f",$order->{ecost}*$order->{quantity});
130 my $json_text = to_json(\@datas);
131 $template->param(return => $json_text);
132 output_html_with_http_headers $input, $cookie, $template->output;
136 my ($template, $loggedinuser, $cookie)
137 = get_template_and_user({template_name => "acqui/parcel.tmpl",
140 authnotrequired => 0,
141 flagsrequired => {acquisition => 'order_receive'},
145 # If receiving error, report the error (coming from finishrecieve.pl(sic)).
146 if( scalar(@rcv_err) ) {
149 for my $err (@rcv_err) {
150 push @$error_loop, { "error_$err" => 1 , barcode => $rcv_err_barcode[$cnt] };
153 $template->param( receive_error => 1 ,
154 error_loop => $error_loop,
158 my $cfstr = "%.2f"; # currency format string -- could get this from currency table.
159 my @parcelitems = GetParcel($booksellerid, $invoice, $datereceived->output('iso'));
160 my $countlines = scalar @parcelitems;
162 my $totalfreight = 0;
163 my $totalquantity = 0;
166 my @loop_received = ();
168 for (my $i = 0 ; $i < $countlines ; $i++) {
170 #$total=($parcelitems[$i]->{'unitprice'} + $parcelitems[$i]->{'freight'}) * $parcelitems[$i]->{'quantityreceived'}; #weird, are the freight fees counted by book? (pierre)
171 $total = ($parcelitems[$i]->{'unitprice'}) * $parcelitems[$i]->{'quantityreceived'}; #weird, are the freight fees counted by book? (pierre)
172 $parcelitems[$i]->{'unitprice'} += 0;
174 %line = %{ $parcelitems[$i] };
175 $line{invoice} = $invoice;
177 $line{total} = sprintf($cfstr, $total);
178 $line{booksellerid} = $booksellerid;
179 push @loop_received, \%line;
180 $totalprice += $parcelitems[$i]->{'unitprice'};
181 $line{unitprice} = sprintf($cfstr, $parcelitems[$i]->{'unitprice'});
183 my $suggestion = GetSuggestionInfoFromBiblionumber($line{biblionumber});
184 $line{suggestionid} = $suggestion->{suggestionid};
185 $line{surnamesuggestedby} = $suggestion->{surnamesuggestedby};
186 $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby};
188 #double FIXME - totalfreight is redefined later.
190 # FIXME - each order in a parcel holds the freight for the whole parcel. This means if you receive a parcel with items from multiple budgets, you'll see the freight charge in each budget..
191 if ($i > 0 && $totalfreight != $parcelitems[$i]->{'freight'}) {
192 warn "FREIGHT CHARGE MISMATCH!!";
194 $totalfreight = $parcelitems[$i]->{'freight'};
195 $totalquantity += $parcelitems[$i]->{'quantityreceived'};
199 my $pendingorders = GetPendingOrders($booksellerid);
200 my $countpendings = scalar @$pendingorders;
202 # pending orders totals
203 my ($totalPunitprice, $totalPquantity, $totalPecost, $totalPqtyrcvd);
205 my @loop_orders = ();
206 for (my $i = 0 ; $i < $countpendings ; $i++) {
208 %line = %{$pendingorders->[$i]};
211 $line{quantityreceived}+=0;
213 $totalPunitprice += $line{unitprice};
214 $totalPquantity +=$line{quantity};
215 $totalPqtyrcvd +=$line{quantityreceived};
216 $totalPecost += $line{ecost};
217 $line{ecost} = sprintf("%.2f",$line{ecost});
218 $line{ordertotal} = sprintf("%.2f",$line{ecost}*$line{quantity});
219 $line{unitprice} = sprintf("%.2f",$line{unitprice});
220 $line{invoice} = $invoice;
222 $line{total} = $total;
223 $line{booksellerid} = $booksellerid;
224 $ordergrandtotal += $line{ecost} * $line{quantity};
226 my $biblionumber = $line{'biblionumber'};
227 my $countbiblio = CountBiblioInOrders($biblionumber);
228 my $ordernumber = $line{'ordernumber'};
229 my @subscriptions = GetSubscriptionsId ($biblionumber);
230 my $itemcount = GetItemsCount($biblionumber);
231 my $holds = GetHolds ($biblionumber);
232 my @items = GetItemnumbersFromOrder( $ordernumber );
234 foreach my $item (@items){
235 my $nb = GetItemHolds($biblionumber, $item);
241 my $suggestion = GetSuggestionInfoFromBiblionumber($line{biblionumber});
242 $line{suggestionid} = $suggestion->{suggestionid};
243 $line{surnamesuggestedby} = $suggestion->{surnamesuggestedby};
244 $line{firstnamesuggestedby} = $suggestion->{firstnamesuggestedby};
246 # 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
247 $line{can_del_bib} = 1 if $countbiblio <= 1 && $itemcount == scalar @items && !(@subscriptions) && !($holds);
248 $line{items} = ($itemcount) - (scalar @items);
249 $line{left_item} = 1 if $line{items} >= 1;
250 $line{left_biblio} = 1 if $countbiblio > 1;
251 $line{biblios} = $countbiblio - 1;
252 $line{left_subscription} = 1 if scalar @subscriptions >= 1;
253 $line{subscriptions} = scalar @subscriptions;
254 $line{left_holds} = 1 if $holds >= 1;
255 $line{left_holds_on_order} = 1 if $line{left_holds}==1 && ($line{items} == 0 || $itemholds );
256 $line{holds} = $holds;
257 $line{holds_on_order} = $itemholds?$itemholds:$holds if $line{left_holds_on_order};
260 push @loop_orders, \%line if ($i >= $startfrom and $i < $startfrom + $resultsperpage);
262 $freight = $totalfreight unless $freight;
264 my $count = $countpendings;
266 if ($count>$resultsperpage){
268 my $displayprev=$startfrom;
269 if(($count - ($startfrom+$resultsperpage)) > 0 ) {
274 for (my $i=1; $i<$count/$resultsperpage+1; $i++) {
276 ($startfrom/$resultsperpage==($i-1)) && ($highlight=1);
277 push @numbers, { number => $i,
278 highlight => $highlight ,
279 startfrom => ($i-1)*$resultsperpage};
282 my $from = $startfrom*$resultsperpage+1;
284 if($count < (($startfrom+1)*$resultsperpage)){
287 $to = (($startfrom+1)*$resultsperpage);
289 $template->param(numbers=>\@numbers,
290 displaynext=>$displaynext,
291 displayprev=>$displayprev,
292 nextstartfrom=>(($startfrom+$resultsperpage<$count)?$startfrom+$resultsperpage:$count),
293 prevstartfrom=>(($startfrom-$resultsperpage>0)?$startfrom-$resultsperpage:0)
297 #$totalfreight=$freight;
298 $tototal = $tototal + $freight;
302 datereceived => $datereceived->output('iso'),
303 invoicedatereceived => $datereceived->output('iso'),
304 formatteddatereceived => $datereceived->output(),
305 name => $bookseller->{'name'},
306 booksellerid => $booksellerid,
310 countreceived => $countlines,
311 loop_received => \@loop_received,
312 countpending => $countpendings,
313 loop_orders => \@loop_orders,
314 totalprice => sprintf($cfstr, $totalprice),
315 totalfreight => $totalfreight,
316 totalquantity => $totalquantity,
317 tototal => sprintf($cfstr, $tototal),
318 ordergrandtotal => sprintf($cfstr, $ordergrandtotal),
320 grandtot => sprintf($cfstr, $tototal + $gst),
321 totalPunitprice => sprintf("%.2f", $totalPunitprice),
322 totalPquantity => $totalPquantity,
323 totalPqtyrcvd => $totalPqtyrcvd,
324 totalPecost => sprintf("%.2f", $totalPecost),
325 resultsperpage => $resultsperpage,
326 (uc(C4::Context->preference("marcflavour"))) => 1
328 output_html_with_http_headers $input, $cookie, $template->output;