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 with
21 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
22 # Suite 330, Boston, MA 02111-1307 USA
29 This script shows all orders receipt or pending for a given supplier.
30 It allows to write an order as 'received' when he arrives.
37 To know the supplier this script has to show orders.
40 is the bookseller invoice number.
49 To filter the results list on this given date.
61 use C4::Dates qw/format_date format_date_in_iso/;
66 my $supplierid=$input->param('supplierid');
67 my $bookseller=GetBookSellerFromId($supplierid);
69 my $invoice=$input->param('invoice') || '';
70 my $freight=$input->param('freight');
71 my $gst= $input->param('gst') || $bookseller->{gstrate} || C4::Context->preference("gist") || 0;
72 my $datereceived = ($input->param('op') eq 'new') ? C4::Dates->new($input->param('datereceived'))
73 : C4::Dates->new($input->param('datereceived'), 'iso') ;
74 $datereceived = C4::Dates->new() unless $datereceived;
75 my $code = $input->param('code');
76 my @rcv_err = $input->param('error');
77 my @rcv_err_barcode = $input->param('error_bc');
79 my $startfrom=$input->param('startfrom');
80 my $resultsperpage = $input->param('resultsperpage');
81 $resultsperpage = 20 unless ($resultsperpage);
82 $startfrom=0 unless ($startfrom);
84 my ($template, $loggedinuser, $cookie)
85 = get_template_and_user({template_name => "acqui/parcel.tmpl",
89 flagsrequired => {acquisition => 'order_receive'},
93 # If receiving error, report the error (coming from finishrecieve.pl(sic)).
94 if( scalar(@rcv_err) ) {
97 for my $err (@rcv_err) {
98 push @$error_loop, { "error_$err" => 1 , barcode => $rcv_err_barcode[$cnt] };
101 $template->param( receive_error => 1 ,
102 error_loop => $error_loop,
106 my $cfstr = "%.2f"; # currency format string -- could get this from currency table.
107 my @parcelitems = GetParcel($supplierid, $invoice, $datereceived->output('iso'));
108 my $countlines = scalar @parcelitems;
110 my $totalfreight = 0;
111 my $totalquantity = 0;
114 my @loop_received = ();
116 for (my $i = 0 ; $i < $countlines ; $i++) {
118 #$total=($parcelitems[$i]->{'unitprice'} + $parcelitems[$i]->{'freight'}) * $parcelitems[$i]->{'quantityreceived'}; #weird, are the freight fees counted by book? (pierre)
119 $total = ($parcelitems[$i]->{'unitprice'}) * $parcelitems[$i]->{'quantityreceived'}; #weird, are the freight fees counted by book? (pierre)
120 $parcelitems[$i]->{'unitprice'} += 0;
122 %line = %{ $parcelitems[$i] };
123 $line{invoice} = $invoice;
125 $line{total} = sprintf($cfstr, $total);
126 $line{supplierid} = $supplierid;
127 push @loop_received, \%line;
128 $totalprice += $parcelitems[$i]->{'unitprice'};
129 $line{unitprice} = sprintf($cfstr, $parcelitems[$i]->{'unitprice'});
131 #double FIXME - totalfreight is redefined later.
133 # 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..
134 if ($i > 0 && $totalfreight != $parcelitems[$i]->{'freight'}) {
135 warn "FREIGHT CHARGE MISMATCH!!";
137 $totalfreight = $parcelitems[$i]->{'freight'};
138 $totalquantity += $parcelitems[$i]->{'quantityreceived'};
142 my $pendingorders = GetPendingOrders($supplierid);
143 my $countpendings = scalar @$pendingorders;
145 # pending orders totals
146 my ($totalPunitprice, $totalPquantity, $totalPecost, $totalPqtyrcvd);
148 my @loop_orders = ();
149 for (my $i = 0 ; $i < $countpendings ; $i++) {
151 %line = %{$pendingorders->[$i]};
153 $line{quantrem} = $line{quantity} - $line{quantityreceived};
154 $line{quantityreceived}+=0;
156 $totalPunitprice += $line{unitprice};
157 $totalPquantity +=$line{quantity};
158 $totalPqtyrcvd +=$line{quantityreceived};
159 $totalPecost += $line{ecost};
160 $line{ecost} = sprintf("%.2f",$line{ecost});
161 $line{ordertotal} = sprintf("%.2f",$line{ecost}*$line{quantity});
162 $line{unitprice} = sprintf("%.2f",$line{unitprice});
163 $line{invoice} = $invoice;
165 $line{total} = $total;
166 $line{supplierid} = $supplierid;
167 $ordergrandtotal += $line{ecost} * $line{quantity};
168 push @loop_orders, \%line if ($i >= $startfrom and $i < $startfrom + $resultsperpage);
170 $freight = $totalfreight unless $freight;
172 my $count = $countpendings;
174 if ($count>$resultsperpage){
176 my $displayprev=$startfrom;
177 if(($count - ($startfrom+$resultsperpage)) > 0 ) {
182 for (my $i=1; $i<$count/$resultsperpage+1; $i++) {
184 ($startfrom/$resultsperpage==($i-1)) && ($highlight=1);
185 push @numbers, { number => $i,
186 highlight => $highlight ,
187 startfrom => ($i-1)*$resultsperpage};
190 my $from = $startfrom*$resultsperpage+1;
192 if($count < (($startfrom+1)*$resultsperpage)){
195 $to = (($startfrom+1)*$resultsperpage);
197 $template->param(numbers=>\@numbers,
198 displaynext=>$displaynext,
199 displayprev=>$displayprev,
200 nextstartfrom=>(($startfrom+$resultsperpage<$count)?$startfrom+$resultsperpage:$count),
201 prevstartfrom=>(($startfrom-$resultsperpage>0)?$startfrom-$resultsperpage:0)
205 #$totalfreight=$freight;
206 $tototal = $tototal + $freight;
210 datereceived => $datereceived->output('iso'),
211 invoicedatereceived => $datereceived->output('iso'),
212 formatteddatereceived => $datereceived->output(),
213 name => $bookseller->{'name'},
214 supplierid => $supplierid,
218 countreceived => $countlines,
219 loop_received => \@loop_received,
220 countpending => $countpendings,
221 loop_orders => \@loop_orders,
222 totalprice => sprintf($cfstr, $totalprice),
223 totalfreight => $totalfreight,
224 totalquantity => $totalquantity,
225 tototal => sprintf($cfstr, $tototal),
226 ordergrandtotal => sprintf($cfstr, $ordergrandtotal),
228 grandtot => sprintf($cfstr, $tototal + $gst),
229 totalPunitprice => sprintf("%.2f", $totalPunitprice),
230 totalPquantity => $totalPquantity,
231 totalPqtyrcvd => $totalPqtyrcvd,
232 totalPecost => sprintf("%.2f", $totalPecost),
233 resultsperpage => $resultsperpage,
235 output_html_with_http_headers $input, $cookie, $template->output;