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.
67 use C4
::Dates qw
/format_date format_date_in_iso/;
69 use C4
::Reserves qw
/GetReservesFromBiblionumber/;
71 use Koha
::Acquisition
::Bookseller
;
76 my $sticky_filters = $input->param('sticky_filters') || 0;
78 sub get_value_with_gst_params
{
81 my $bookseller = shift;
82 if ( $bookseller->{listincgst
} ) {
83 if ( $bookseller->{invoiceincgst
} ) {
86 return $value / ( 1 + $gstrate );
89 if ( $bookseller->{invoiceincgst
} ) {
90 return $value * ( 1 + $gstrate );
100 my $bookseller = shift;
101 return $bookseller->{invoiceincgst
}
102 ?
$value / ( 1 + $gstrate )
109 my $bookseller = shift;
110 return $bookseller->{invoiceincgst
}
111 ?
$value / ( 1 + $gstrate ) * $gstrate
112 : $value * ( 1 + $gstrate ) - $value;
115 my ($template, $loggedinuser, $cookie)
116 = get_template_and_user
({template_name
=> "acqui/parcel.tt",
119 authnotrequired
=> 0,
120 flagsrequired
=> {acquisition
=> 'order_receive'},
124 my $op = $input->param('op') // '';
126 # process cancellation first so that list of
127 # orders to display is calculated after
128 if ($op eq 'cancelreceipt') {
129 my $ordernumber = $input->param('ordernumber');
130 my $parent_ordernumber = CancelReceipt
($ordernumber);
131 unless($parent_ordernumber) {
132 $template->param(error_cancelling_receipt
=> 1);
136 my $invoiceid = $input->param('invoiceid');
138 $invoice = GetInvoiceDetails
($invoiceid) if $invoiceid;
140 unless( $invoiceid and $invoice->{invoiceid
} ) {
142 error_invoice_not_known
=> 1,
143 no_orders_to_display
=> 1
145 output_html_with_http_headers
$input, $cookie, $template->output;
149 my $booksellerid = $invoice->{booksellerid
};
150 my $bookseller = Koha
::Acquisition
::Bookseller
->fetch({ id
=> $booksellerid });
151 my $gst = $bookseller->{gstrate
} // C4
::Context
->preference("gist") // 0;
152 my $datereceived = C4
::Dates
->new();
154 my $cfstr = "%.2f"; # currency format string -- could get this from currency table.
155 my @orders = @
{ $invoice->{orders
} };
156 my $countlines = scalar @orders;
158 my $totalquantity = 0;
160 my @loop_received = ();
163 my $total_quantity = 0;
167 for my $order ( @orders ) {
168 $order->{unitprice
} = get_value_with_gst_params
( $order->{unitprice
}, $order->{gstrate
}, $bookseller );
169 $total = ( $order->{unitprice
} ) * $order->{quantityreceived
};
170 $order->{'unitprice'} += 0;
171 my %line = %{ $order };
172 my $ecost = get_value_with_gst_params
( $line{ecost
}, $line{gstrate
}, $bookseller );
173 $line{ecost
} = sprintf( "%.2f", $ecost );
174 $line{invoice
} = $invoice->{invoicenumber
};
175 $line{total
} = sprintf($cfstr, $total);
176 $line{booksellerid
} = $invoice->{booksellerid
};
178 my @itemnumbers = GetItemnumbersFromOrder
( $order->{ordernumber
} );
179 for my $itemnumber ( @itemnumbers ) {
180 my $holds = GetReservesFromBiblionumber
({ biblionumber
=> $line{biblionumber
}, itemnumber
=> $itemnumber });
181 $line{holds
} += scalar( @
$holds );
183 $line{budget
} = GetBudgetByOrderNumber
( $line{ordernumber
} );
184 $totalprice += $order->{unitprice
};
185 $line{unitprice
} = sprintf( $cfstr, $order->{unitprice
} );
186 my $gste = get_gste
( $line{total
}, $line{gstrate
}, $bookseller );
187 my $gst = get_gst
( $line{total
}, $line{gstrate
}, $bookseller );
188 $foot{$line{gstrate
}}{gstrate
} = $line{gstrate
};
189 $foot{$line{gstrate
}}{value
} += sprintf( "%.2f", $gst );
190 $total_quantity += $line{quantity
};
191 $total_gste += $gste;
192 $total_gsti += $gste + $gst;
194 my $suggestion = GetSuggestionInfoFromBiblionumber
($line{biblionumber
});
195 $line{suggestionid
} = $suggestion->{suggestionid
};
196 $line{surnamesuggestedby
} = $suggestion->{surnamesuggestedby
};
197 $line{firstnamesuggestedby
} = $suggestion->{firstnamesuggestedby
};
199 if ( $line{parent_ordernumber
} != $line{ordernumber
} ) {
200 if ( grep { $_->{ordernumber
} == $line{parent_ordernumber
} }
204 $line{cannot_cancel
} = 1;
208 my $budget = GetBudget
( $line{budget_id
} );
209 $line{budget_name
} = $budget->{'budget_name'};
211 push @loop_received, \
%line;
212 $totalquantity += $order->{quantityreceived
};
215 push @book_foot_loop, map { $_ } values %foot;
217 my @loop_orders = ();
218 unless( defined $invoice->{closedate
} ) {
220 if ( $op eq "search" or $sticky_filters ) {
221 my ( $search, $ean, $basketname, $orderno, $basketgroupname );
222 if ( $sticky_filters ) {
223 $search = $input->cookie("filter_parcel_summary");
224 $ean = $input->cookie("filter_parcel_ean");
225 $basketname = $input->cookie("filter_parcel_basketname");
226 $orderno = $input->cookie("filter_parcel_orderno");
227 $basketgroupname = $input->cookie("filter_parcel_basketgroupname");
229 $search = $input->param('summaryfilter') || '';
230 $ean = $input->param('eanfilter') || '';
231 $basketname = $input->param('basketfilter') || '';
232 $orderno = $input->param('orderfilter') || '';
233 $basketgroupname = $input->param('basketgroupnamefilter') || '';
235 $pendingorders = SearchOrders
({
236 booksellerid
=> $booksellerid,
237 basketname
=> $basketname,
238 ordernumber
=> $orderno,
241 basketgroupname
=> $basketgroupname,
246 summaryfilter
=> $search,
248 basketfilter
=> $basketname,
249 orderfilter
=> $orderno,
250 basketgroupnamefilter
=> $basketgroupname,
253 $pendingorders = SearchOrders
({
254 booksellerid
=> $booksellerid,
258 my $countpendings = scalar @
$pendingorders;
260 for (my $i = 0 ; $i < $countpendings ; $i++) {
262 %line = %{$pendingorders->[$i]};
264 my $ecost = get_value_with_gst_params
( $line{ecost
}, $line{gstrate
}, $bookseller );
265 $line{unitprice
} = get_value_with_gst_params
( $line{unitprice
}, $line{gstrate
}, $bookseller );
266 $line{quantity
} += 0;
267 $line{quantityreceived
} += 0;
269 $line{ecost
} = sprintf( "%.2f", $ecost );
270 $line{ordertotal
} = sprintf( "%.2f", $ecost * $line{quantity
} );
271 $line{unitprice
} = sprintf("%.2f",$line{unitprice
});
272 $line{invoice
} = $invoice;
273 $line{booksellerid
} = $booksellerid;
277 my $biblionumber = $line{'biblionumber'};
278 my $countbiblio = CountBiblioInOrders
($biblionumber);
279 my $ordernumber = $line{'ordernumber'};
280 my @subscriptions = GetSubscriptionsId
($biblionumber);
281 my $itemcount = GetItemsCount
($biblionumber);
282 my $holds = GetHolds
($biblionumber);
283 my @items = GetItemnumbersFromOrder
( $ordernumber );
285 foreach my $item (@items){
286 my $nb = GetItemHolds
($biblionumber, $item);
292 my $suggestion = GetSuggestionInfoFromBiblionumber
($line{biblionumber
});
293 $line{suggestionid
} = $suggestion->{suggestionid
};
294 $line{surnamesuggestedby
} = $suggestion->{surnamesuggestedby
};
295 $line{firstnamesuggestedby
} = $suggestion->{firstnamesuggestedby
};
297 # 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
298 $line{can_del_bib
} = 1 if $countbiblio <= 1 && $itemcount == scalar @items && !(@subscriptions) && !($holds);
299 $line{items
} = ($itemcount) - (scalar @items);
300 $line{left_item
} = 1 if $line{items
} >= 1;
301 $line{left_biblio
} = 1 if $countbiblio > 1;
302 $line{biblios
} = $countbiblio - 1;
303 $line{left_subscription
} = 1 if scalar @subscriptions >= 1;
304 $line{subscriptions
} = scalar @subscriptions;
305 $line{left_holds
} = ($holds >= 1) ?
1 : 0;
306 $line{left_holds_on_order
} = 1 if $line{left_holds
}==1 && ($line{items
} == 0 || $itemholds );
307 $line{holds
} = $holds;
308 $line{holds_on_order
} = $itemholds?
$itemholds:$holds if $line{left_holds_on_order
};
310 my $budget = GetBudget
( $line{budget_id
} );
311 $line{budget_name
} = $budget->{'budget_name'};
313 push @loop_orders, \
%line;
317 loop_orders
=> \
@loop_orders,
322 invoiceid
=> $invoice->{invoiceid
},
323 invoice
=> $invoice->{invoicenumber
},
324 invoiceclosedate
=> $invoice->{closedate
},
325 datereceived
=> $datereceived->output('iso'),
326 invoicedatereceived
=> $datereceived->output('iso'),
327 formatteddatereceived
=> $datereceived->output(),
328 name
=> $bookseller->{'name'},
329 booksellerid
=> $bookseller->{id
},
330 countreceived
=> $countlines,
331 loop_received
=> \
@loop_received,
332 loop_orders
=> \
@loop_orders,
333 book_foot_loop
=> \
@book_foot_loop,
334 totalprice
=> sprintf($cfstr, $totalprice),
335 totalquantity
=> $totalquantity,
336 (uc(C4
::Context
->preference("marcflavour"))) => 1,
337 total_quantity
=> $total_quantity,
338 total_gste
=> sprintf( "%.2f", $total_gste ),
339 total_gsti
=> sprintf( "%.2f", $total_gsti ),
340 sticky_filters
=> $sticky_filters,
342 output_html_with_http_headers
$input, $cookie, $template->output;