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/;
73 my $supplierid=$input->param('supplierid');
74 my $bookseller=GetBookSellerFromId
($supplierid);
76 my $invoice=$input->param('invoice') || '';
77 my $freight=$input->param('freight');
78 my $input_gst = ($input->param('gst') eq '' ?
undef : $input->param('gst'));
79 my $gst= $input_gst // $bookseller->{gstrate
} // C4
::Context
->preference("gist") // 0;
80 my $datereceived = ($input->param('op') eq 'new') ? C4
::Dates
->new($input->param('datereceived'))
81 : C4
::Dates
->new($input->param('datereceived'), 'iso') ;
82 $datereceived = C4
::Dates
->new() unless $datereceived;
83 my $code = $input->param('code');
84 my @rcv_err = $input->param('error');
85 my @rcv_err_barcode = $input->param('error_bc');
87 my $startfrom=$input->param('startfrom');
88 my $resultsperpage = $input->param('resultsperpage');
89 $resultsperpage = 20 unless ($resultsperpage);
90 $startfrom=0 unless ($startfrom);
92 if($input->param('format') eq "json"){
93 my ($template, $loggedinuser, $cookie)
94 = get_template_and_user
({template_name
=> "acqui/ajax.tmpl",
98 flagsrequired
=> {acquisition
=> 'order_receive'},
103 my $search = $input->param('search') || '';
104 my $supplier = $input->param('supplierid') || '';
105 my $basketno = $input->param('basketno') || '';
106 my $orderno = $input->param('orderno') || '';
108 my $orders = SearchOrder
($orderno, $search, $supplier, $basketno);
109 foreach my $order (@
$orders){
110 if($order->{quantityreceived
} < $order->{quantity
}){
113 $data->{basketno
} = $order->{basketno
};
114 $data->{ordernumber
} = $order->{ordernumber
};
115 $data->{title
} = $order->{title
};
116 $data->{author
} = $order->{author
};
117 $data->{isbn
} = $order->{isbn
};
118 $data->{booksellerid
} = $order->{booksellerid
};
119 $data->{biblionumber
} = $order->{biblionumber
};
120 $data->{freight
} = $order->{freight
};
121 $data->{quantity
} = $order->{quantity
};
122 $data->{ecost
} = $order->{ecost
};
123 $data->{ordertotal
} = sprintf("%.2f",$order->{ecost
}*$order->{quantity
});
128 my $json_text = to_json
(\
@datas);
129 $template->param(return => $json_text);
130 output_html_with_http_headers
$input, $cookie, $template->output;
134 my ($template, $loggedinuser, $cookie)
135 = get_template_and_user
({template_name
=> "acqui/parcel.tmpl",
138 authnotrequired
=> 0,
139 flagsrequired
=> {acquisition
=> 'order_receive'},
143 # If receiving error, report the error (coming from finishrecieve.pl(sic)).
144 if( scalar(@rcv_err) ) {
147 for my $err (@rcv_err) {
148 push @
$error_loop, { "error_$err" => 1 , barcode
=> $rcv_err_barcode[$cnt] };
151 $template->param( receive_error
=> 1 ,
152 error_loop
=> $error_loop,
156 my $cfstr = "%.2f"; # currency format string -- could get this from currency table.
157 my @parcelitems = GetParcel
($supplierid, $invoice, $datereceived->output('iso'));
158 my $countlines = scalar @parcelitems;
160 my $totalfreight = 0;
161 my $totalquantity = 0;
164 my @loop_received = ();
166 for (my $i = 0 ; $i < $countlines ; $i++) {
168 #$total=($parcelitems[$i]->{'unitprice'} + $parcelitems[$i]->{'freight'}) * $parcelitems[$i]->{'quantityreceived'}; #weird, are the freight fees counted by book? (pierre)
169 $total = ($parcelitems[$i]->{'unitprice'}) * $parcelitems[$i]->{'quantityreceived'}; #weird, are the freight fees counted by book? (pierre)
170 $parcelitems[$i]->{'unitprice'} += 0;
172 %line = %{ $parcelitems[$i] };
173 $line{invoice
} = $invoice;
175 $line{total
} = sprintf($cfstr, $total);
176 $line{supplierid
} = $supplierid;
177 push @loop_received, \
%line;
178 $totalprice += $parcelitems[$i]->{'unitprice'};
179 $line{unitprice
} = sprintf($cfstr, $parcelitems[$i]->{'unitprice'});
181 #double FIXME - totalfreight is redefined later.
183 # 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..
184 if ($i > 0 && $totalfreight != $parcelitems[$i]->{'freight'}) {
185 warn "FREIGHT CHARGE MISMATCH!!";
187 $totalfreight = $parcelitems[$i]->{'freight'};
188 $totalquantity += $parcelitems[$i]->{'quantityreceived'};
192 my $pendingorders = GetPendingOrders
($supplierid);
193 my $countpendings = scalar @
$pendingorders;
195 # pending orders totals
196 my ($totalPunitprice, $totalPquantity, $totalPecost, $totalPqtyrcvd);
198 my @loop_orders = ();
199 for (my $i = 0 ; $i < $countpendings ; $i++) {
201 %line = %{$pendingorders->[$i]};
204 $line{quantityreceived
}+=0;
206 $totalPunitprice += $line{unitprice
};
207 $totalPquantity +=$line{quantity
};
208 $totalPqtyrcvd +=$line{quantityreceived
};
209 $totalPecost += $line{ecost
};
210 $line{ecost
} = sprintf("%.2f",$line{ecost
});
211 $line{ordertotal
} = sprintf("%.2f",$line{ecost
}*$line{quantity
});
212 $line{unitprice
} = sprintf("%.2f",$line{unitprice
});
213 $line{invoice
} = $invoice;
215 $line{total
} = $total;
216 $line{supplierid
} = $supplierid;
217 $ordergrandtotal += $line{ecost
} * $line{quantity
};
219 my $biblionumber = $line{'biblionumber'};
220 my $countbiblio = CountBiblioInOrders
($biblionumber);
221 my $ordernumber = $line{'ordernumber'};
222 my @subscriptions = GetSubscriptionsId
($biblionumber);
223 my $itemcount = GetItemsCount
($biblionumber);
224 my $holds = GetHolds
($biblionumber);
225 my @items = GetItemnumbersFromOrder
( $ordernumber );
227 foreach my $item (@items){
228 my $nb = GetItemHolds
($biblionumber, $item);
234 # 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
235 $line{can_del_bib
} = 1 if $countbiblio <= 1 && $itemcount == scalar @items && !(@subscriptions) && !($holds);
236 $line{items
} = ($itemcount) - (scalar @items);
237 $line{left_item
} = 1 if $line{items
} >= 1;
238 $line{left_biblio
} = 1 if $countbiblio > 1;
239 $line{biblios
} = $countbiblio - 1;
240 $line{left_subscription
} = 1 if scalar @subscriptions >= 1;
241 $line{subscriptions
} = scalar @subscriptions;
242 $line{left_holds
} = 1 if $holds >= 1;
243 $line{left_holds_on_order
} = 1 if $line{left_holds
}==1 && ($line{items
} == 0 || $itemholds );
244 $line{holds
} = $holds;
245 $line{holds_on_order
} = $itemholds?
$itemholds:$holds if $line{left_holds_on_order
};
248 push @loop_orders, \
%line if ($i >= $startfrom and $i < $startfrom + $resultsperpage);
250 $freight = $totalfreight unless $freight;
252 my $count = $countpendings;
254 if ($count>$resultsperpage){
256 my $displayprev=$startfrom;
257 if(($count - ($startfrom+$resultsperpage)) > 0 ) {
262 for (my $i=1; $i<$count/$resultsperpage+1; $i++) {
264 ($startfrom/$resultsperpage==($i-1)) && ($highlight=1);
265 push @numbers, { number
=> $i,
266 highlight
=> $highlight ,
267 startfrom
=> ($i-1)*$resultsperpage};
270 my $from = $startfrom*$resultsperpage+1;
272 if($count < (($startfrom+1)*$resultsperpage)){
275 $to = (($startfrom+1)*$resultsperpage);
277 $template->param(numbers
=>\
@numbers,
278 displaynext
=>$displaynext,
279 displayprev
=>$displayprev,
280 nextstartfrom
=>(($startfrom+$resultsperpage<$count)?
$startfrom+$resultsperpage:$count),
281 prevstartfrom
=>(($startfrom-$resultsperpage>0)?
$startfrom-$resultsperpage:0)
285 #$totalfreight=$freight;
286 $tototal = $tototal + $freight;
290 datereceived
=> $datereceived->output('iso'),
291 invoicedatereceived
=> $datereceived->output('iso'),
292 formatteddatereceived
=> $datereceived->output(),
293 name
=> $bookseller->{'name'},
294 supplierid
=> $supplierid,
298 countreceived
=> $countlines,
299 loop_received
=> \
@loop_received,
300 countpending
=> $countpendings,
301 loop_orders
=> \
@loop_orders,
302 totalprice
=> sprintf($cfstr, $totalprice),
303 totalfreight
=> $totalfreight,
304 totalquantity
=> $totalquantity,
305 tototal
=> sprintf($cfstr, $tototal),
306 ordergrandtotal
=> sprintf($cfstr, $ordergrandtotal),
308 grandtot
=> sprintf($cfstr, $tototal + $gst),
309 totalPunitprice
=> sprintf("%.2f", $totalPunitprice),
310 totalPquantity
=> $totalPquantity,
311 totalPqtyrcvd
=> $totalPqtyrcvd,
312 totalPecost
=> sprintf("%.2f", $totalPecost),
313 resultsperpage
=> $resultsperpage,
315 output_html_with_http_headers
$input, $cookie, $template->output;