Lines 1334-1391
sub ModItemOrder {
Link Here
|
1334 |
|
1334 |
|
1335 |
=head3 ModReceiveOrder |
1335 |
=head3 ModReceiveOrder |
1336 |
|
1336 |
|
1337 |
&ModReceiveOrder({ |
1337 |
my ( $date_received, $new_ordernumber ) = ModReceiveOrder( |
1338 |
biblionumber => $biblionumber, |
1338 |
{ |
1339 |
ordernumber => $ordernumber, |
1339 |
biblionumber => $biblionumber, |
1340 |
quantityreceived => $quantityreceived, |
1340 |
order => $order, |
1341 |
user => $user, |
1341 |
quantityreceived => $quantityreceived, |
1342 |
cost => $cost, |
1342 |
user => $user, |
1343 |
ecost => $ecost, |
1343 |
invoice => $invoice, |
1344 |
invoiceid => $invoiceid, |
1344 |
budget_id => $budget_id, |
1345 |
rrp => $rrp, |
1345 |
received_itemnumbers => \@received_itemnumbers, |
1346 |
budget_id => $budget_id, |
1346 |
order_internalnote => $order_internalnote, |
1347 |
datereceived => $datereceived, |
1347 |
} |
1348 |
received_itemnumbers => \@received_itemnumbers, |
1348 |
); |
1349 |
order_internalnote => $order_internalnote, |
|
|
1350 |
order_vendornote => $order_vendornote, |
1351 |
}); |
1352 |
|
1349 |
|
1353 |
Updates an order, to reflect the fact that it was received, at least |
1350 |
Updates an order, to reflect the fact that it was received, at least |
1354 |
in part. All arguments not mentioned below update the fields with the |
1351 |
in part. |
1355 |
same name in the aqorders table of the Koha database. |
|
|
1356 |
|
1352 |
|
1357 |
If a partial order is received, splits the order into two. |
1353 |
If a partial order is received, splits the order into two. |
1358 |
|
1354 |
|
1359 |
Updates the order with bibilionumber C<$biblionumber> and ordernumber |
1355 |
Updates the order with biblionumber C<$biblionumber> and ordernumber |
1360 |
C<$ordernumber>. |
1356 |
C<$order->{ordernumber}>. |
1361 |
|
1357 |
|
1362 |
=cut |
1358 |
=cut |
1363 |
|
1359 |
|
1364 |
|
1360 |
|
1365 |
sub ModReceiveOrder { |
1361 |
sub ModReceiveOrder { |
1366 |
my ( $params ) = @_; |
1362 |
my ($params) = @_; |
1367 |
my $biblionumber = $params->{biblionumber}; |
1363 |
my $biblionumber = $params->{biblionumber}; |
1368 |
my $ordernumber = $params->{ordernumber}; |
1364 |
my $order = { %{ $params->{order} } }; # Copy the order, we don't want to modify it |
1369 |
my $quantrec = $params->{quantityreceived}; |
1365 |
my $invoice = $params->{invoice}; |
1370 |
my $user = $params->{user}; |
1366 |
my $quantrec = $params->{quantityreceived}; |
1371 |
my $cost = $params->{cost}; |
1367 |
my $user = $params->{user}; |
1372 |
my $ecost = $params->{ecost}; |
1368 |
my $budget_id = $params->{budget_id}; |
1373 |
my $invoiceid = $params->{invoiceid}; |
|
|
1374 |
my $rrp = $params->{rrp}; |
1375 |
my $budget_id = $params->{budget_id}; |
1376 |
my $datereceived = $params->{datereceived}; |
1377 |
my $received_items = $params->{received_items}; |
1369 |
my $received_items = $params->{received_items}; |
1378 |
my $order_internalnote = $params->{order_internalnote}; |
|
|
1379 |
my $order_vendornote = $params->{order_vendornote}; |
1380 |
|
1370 |
|
1381 |
my $dbh = C4::Context->dbh; |
1371 |
my $dbh = C4::Context->dbh; |
1382 |
$datereceived = output_pref( |
1372 |
my $datereceived = ( $invoice and $invoice->{datereceived} ) ? $invoice->{datereceived} : dt_from_string; |
1383 |
{ |
|
|
1384 |
dt => ( $datereceived ? dt_from_string( $datereceived ) : dt_from_string ), |
1385 |
dateformat => 'iso', |
1386 |
dateonly => 1, |
1387 |
} |
1388 |
); |
1389 |
my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber ); |
1373 |
my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber ); |
1390 |
if ($suggestionid) { |
1374 |
if ($suggestionid) { |
1391 |
ModSuggestion( {suggestionid=>$suggestionid, |
1375 |
ModSuggestion( {suggestionid=>$suggestionid, |
Lines 1394-1409
sub ModReceiveOrder {
Link Here
|
1394 |
); |
1378 |
); |
1395 |
} |
1379 |
} |
1396 |
|
1380 |
|
1397 |
my $result_set = $dbh->selectall_arrayref( |
1381 |
my $new_ordernumber = $order->{ordernumber}; |
1398 |
q{SELECT *, aqbasket.is_standing FROM aqorders LEFT JOIN aqbasket USING (basketno) WHERE biblionumber=? AND aqorders.ordernumber=?}, |
1382 |
if ( $order->{quantity} > $quantrec ) { |
1399 |
{ Slice => {} }, $biblionumber, $ordernumber |
|
|
1400 |
); |
1401 |
|
1402 |
# we assume we have a unique order |
1403 |
my $order = $result_set->[0]; |
1404 |
|
1405 |
my $new_ordernumber = $ordernumber; |
1406 |
if ( $order->{is_standing} || $order->{quantity} > $quantrec ) { |
1407 |
# Split order line in two parts: the first is the original order line |
1383 |
# Split order line in two parts: the first is the original order line |
1408 |
# without received items (the quantity is decreased), |
1384 |
# without received items (the quantity is decreased), |
1409 |
# the second part is a new order line with quantity=quantityrec |
1385 |
# the second part is a new order line with quantity=quantityrec |
Lines 1412-1439
q{SELECT *, aqbasket.is_standing FROM aqorders LEFT JOIN aqbasket USING (basketn
Link Here
|
1412 |
UPDATE aqorders |
1388 |
UPDATE aqorders |
1413 |
SET quantity = ?, |
1389 |
SET quantity = ?, |
1414 |
orderstatus = 'partial'|; |
1390 |
orderstatus = 'partial'|; |
1415 |
$query .= q|, order_internalnote = ?| if defined $order_internalnote; |
1391 |
$query .= q|, order_internalnote = ?| if defined $order->{order_internalnote}; |
1416 |
$query .= q|, order_vendornote = ?| if defined $order_vendornote; |
|
|
1417 |
$query .= q| WHERE ordernumber = ?|; |
1392 |
$query .= q| WHERE ordernumber = ?|; |
1418 |
my $sth = $dbh->prepare($query); |
1393 |
my $sth = $dbh->prepare($query); |
1419 |
|
1394 |
|
1420 |
$sth->execute( |
1395 |
$sth->execute( |
1421 |
( $order->{is_standing} ? 1 : ( $order->{quantity} - $quantrec ) ), |
1396 |
$order->{quantity} - $quantrec, |
1422 |
( defined $order_internalnote ? $order_internalnote : () ), |
1397 |
( defined $order->{order_internalnote} ? $order->{order_internalnote} : () ), |
1423 |
( defined $order_vendornote ? $order_vendornote : () ), |
1398 |
$order->{ordernumber} |
1424 |
$ordernumber |
|
|
1425 |
); |
1399 |
); |
1426 |
|
1400 |
|
1427 |
delete $order->{'ordernumber'}; |
1401 |
delete $order->{ordernumber}; |
1428 |
$order->{'budget_id'} = ( $budget_id || $order->{'budget_id'} ); |
1402 |
$order->{budget_id} = ( $budget_id || $order->{budget_id} ); |
1429 |
$order->{'quantity'} = $quantrec; |
1403 |
$order->{quantity} = $quantrec; |
1430 |
$order->{'quantityreceived'} = $quantrec; |
1404 |
$order->{quantityreceived} = $quantrec; |
1431 |
$order->{'datereceived'} = $datereceived; |
1405 |
$order->{datereceived} = $datereceived; |
1432 |
$order->{'invoiceid'} = $invoiceid; |
1406 |
$order->{invoiceid} = $invoice->{invoiceid}; |
1433 |
$order->{'unitprice'} = $cost; |
1407 |
$order->{orderstatus} = 'complete'; |
1434 |
$order->{'rrp'} = $rrp; |
|
|
1435 |
$order->{ecost} = $ecost; |
1436 |
$order->{'orderstatus'} = 'complete'; |
1437 |
$new_ordernumber = Koha::Acquisition::Order->new($order)->insert->{ordernumber}; |
1408 |
$new_ordernumber = Koha::Acquisition::Order->new($order)->insert->{ordernumber}; |
1438 |
|
1409 |
|
1439 |
if ($received_items) { |
1410 |
if ($received_items) { |
Lines 1443-1471
q{SELECT *, aqbasket.is_standing FROM aqorders LEFT JOIN aqbasket USING (basketn
Link Here
|
1443 |
} |
1414 |
} |
1444 |
} else { |
1415 |
} else { |
1445 |
my $query = q| |
1416 |
my $query = q| |
1446 |
update aqorders |
1417 |
UPDATE aqorders |
1447 |
set quantityreceived=?,datereceived=?,invoiceid=?, |
1418 |
SET quantityreceived = ?, |
1448 |
unitprice=?,rrp=?,ecost=?,budget_id=?,orderstatus='complete'|; |
1419 |
datereceived = ?, |
1449 |
$query .= q|, order_internalnote = ?| if defined $order_internalnote; |
1420 |
invoiceid = ?, |
1450 |
$query .= q|, order_vendornote = ?| if defined $order_vendornote; |
1421 |
budget_id = ?, |
|
|
1422 |
orderstatus = 'complete' |
1423 |
|; |
1424 |
|
1425 |
$query .= q| |
1426 |
, unitprice = ?, unitprice_tax_included = ?, unitprice_tax_excluded = ? |
1427 |
| if defined $order->{unitprice}; |
1428 |
|
1429 |
$query .= q| |
1430 |
, rrp = ?, rrp_tax_included = ?, rrp_tax_excluded = ? |
1431 |
| if defined $order->{rrp}; |
1432 |
|
1433 |
$query .= q| |
1434 |
, ecost = ?, ecost_tax_included = ?, ecost_tax_excluded = ? |
1435 |
| if defined $order->{ecost}; |
1436 |
|
1437 |
$query .= q| |
1438 |
, order_internalnote = ? |
1439 |
| if defined $order->{order_internalnote}; |
1440 |
|
1451 |
$query .= q| where biblionumber=? and ordernumber=?|; |
1441 |
$query .= q| where biblionumber=? and ordernumber=?|; |
|
|
1442 |
|
1452 |
my $sth = $dbh->prepare( $query ); |
1443 |
my $sth = $dbh->prepare( $query ); |
1453 |
$sth->execute( |
1444 |
my @params = ( $quantrec, $datereceived, $invoice->{invoiceid}, $budget_id ); |
1454 |
$quantrec, |
1445 |
|
1455 |
$datereceived, |
1446 |
if ( defined $order->{unitprice} ) { |
1456 |
$invoiceid, |
1447 |
push @params, $order->{unitprice}, $order->{unitprice_tax_included}, $order->{unitprice_tax_excluded}; |
1457 |
$cost, |
1448 |
} |
1458 |
$rrp, |
1449 |
if ( defined $order->{rrp} ) { |
1459 |
$ecost, |
1450 |
push @params, $order->{rrp}, $order->{rrp_tax_included}, $order->{rrp_tax_excluded}; |
1460 |
( $budget_id ? $budget_id : $order->{budget_id} ), |
1451 |
} |
1461 |
( defined $order_internalnote ? $order_internalnote : () ), |
1452 |
if ( defined $order->{ecost} ) { |
1462 |
( defined $order_vendornote ? $order_vendornote : () ), |
1453 |
push @params, $order->{ecost}, $order->{ecost_tax_included}, $order->{ecost_tax_excluded}; |
1463 |
$biblionumber, |
1454 |
} |
1464 |
$ordernumber |
1455 |
if ( defined $order->{order_internalnote} ) { |
1465 |
); |
1456 |
push @params, $order->{order_internalnote}; |
|
|
1457 |
} |
1458 |
|
1459 |
push @params, ( $biblionumber, $order->{ordernumber} ); |
1460 |
|
1461 |
$sth->execute( @params ); |
1466 |
|
1462 |
|
1467 |
# All items have been received, sent a notification to users |
1463 |
# All items have been received, sent a notification to users |
1468 |
NotifyOrderUsers( $ordernumber ); |
1464 |
NotifyOrderUsers( $order->{ordernumber} ); |
1469 |
|
1465 |
|
1470 |
} |
1466 |
} |
1471 |
return ($datereceived, $new_ordernumber); |
1467 |
return ($datereceived, $new_ordernumber); |
Lines 2850-2899
sub populate_order_with_prices {
Link Here
|
2850 |
$order->{ecost} = Koha::Number::Price->new( $order->{ecost} )->round; |
2846 |
$order->{ecost} = Koha::Number::Price->new( $order->{ecost} )->round; |
2851 |
if ($ordering) { |
2847 |
if ($ordering) { |
2852 |
if ( $bookseller->{listincgst} ) { |
2848 |
if ( $bookseller->{listincgst} ) { |
2853 |
$order->{rrpgsti} = $order->{rrp}; |
2849 |
$order->{rrp_tax_included} = $order->{rrp}; |
2854 |
$order->{rrpgste} = Koha::Number::Price->new( |
2850 |
$order->{rrp_tax_excluded} = Koha::Number::Price->new( |
2855 |
$order->{rrpgsti} / ( 1 + $order->{gstrate} ) )->round; |
2851 |
$order->{rrp_tax_included} / ( 1 + $order->{tax_rate} ) )->round; |
2856 |
$order->{ecostgsti} = $order->{ecost}; |
2852 |
$order->{ecost_tax_included} = $order->{ecost}; |
2857 |
$order->{ecostgste} = Koha::Number::Price->new( |
2853 |
$order->{ecost_tax_excluded} = Koha::Number::Price->new( |
2858 |
$order->{ecost} / ( 1 + $order->{gstrate} ) )->round; |
2854 |
$order->{ecost} / ( 1 + $order->{tax_rate} ) )->round; |
2859 |
$order->{gstvalue} = Koha::Number::Price->new( |
2855 |
$order->{tax_value} = Koha::Number::Price->new( |
2860 |
( $order->{ecostgsti} - $order->{ecostgste} ) * |
2856 |
( $order->{ecost_tax_included} - $order->{ecost_tax_excluded} ) * |
2861 |
$order->{quantity} )->round; |
2857 |
$order->{quantity} )->round; |
2862 |
$order->{totalgste} = $order->{ecostgste} * $order->{quantity}; |
|
|
2863 |
$order->{totalgsti} = $order->{ecostgsti} * $order->{quantity}; |
2864 |
} |
2858 |
} |
2865 |
else { |
2859 |
else { |
2866 |
$order->{rrpgste} = $order->{rrp}; |
2860 |
$order->{rrp_tax_excluded} = $order->{rrp}; |
2867 |
$order->{rrpgsti} = Koha::Number::Price->new( |
2861 |
$order->{rrp_tax_included} = Koha::Number::Price->new( |
2868 |
$order->{rrp} * ( 1 + $order->{gstrate} ) )->round; |
2862 |
$order->{rrp} * ( 1 + $order->{tax_rate} ) )->round; |
2869 |
$order->{ecostgste} = $order->{ecost}; |
2863 |
$order->{ecost_tax_excluded} = $order->{ecost}; |
2870 |
$order->{ecostgsti} = Koha::Number::Price->new( |
2864 |
$order->{ecost_tax_included} = Koha::Number::Price->new( |
2871 |
$order->{ecost} * ( 1 + $order->{gstrate} ) )->round; |
2865 |
$order->{ecost} * ( 1 + $order->{tax_rate} ) )->round; |
2872 |
$order->{gstvalue} = Koha::Number::Price->new( |
2866 |
$order->{tax_value} = Koha::Number::Price->new( |
2873 |
( $order->{ecostgsti} - $order->{ecostgste} ) * |
2867 |
( $order->{ecost_tax_included} - $order->{ecost_tax_excluded} ) * |
2874 |
$order->{quantity} )->round; |
2868 |
$order->{quantity} )->round; |
2875 |
$order->{totalgste} = $order->{ecostgste} * $order->{quantity}; |
|
|
2876 |
$order->{totalgsti} = $order->{ecostgsti} * $order->{quantity}; |
2877 |
} |
2869 |
} |
2878 |
} |
2870 |
} |
2879 |
|
2871 |
|
2880 |
if ($receiving) { |
2872 |
if ($receiving) { |
2881 |
if ( $bookseller->{listincgst} ) { |
2873 |
if ( $bookseller->{listincgst} ) { |
2882 |
$order->{unitpricegsti} = Koha::Number::Price->new( $order->{unitprice} )->round; |
2874 |
$order->{unitprice_tax_included} = Koha::Number::Price->new( $order->{unitprice} )->round; |
2883 |
$order->{unitpricegste} = Koha::Number::Price->new( |
2875 |
$order->{unitprice_tax_excluded} = Koha::Number::Price->new( |
2884 |
$order->{unitpricegsti} / ( 1 + $order->{gstrate} ) )->round; |
2876 |
$order->{unitprice_tax_included} / ( 1 + $order->{tax_rate} ) )->round; |
2885 |
} |
2877 |
} |
2886 |
else { |
2878 |
else { |
2887 |
$order->{unitpricegste} = Koha::Number::Price->new( $order->{unitprice} )->round; |
2879 |
$order->{unitprice_tax_excluded} = Koha::Number::Price->new( $order->{unitprice} )->round; |
2888 |
$order->{unitpricegsti} = Koha::Number::Price->new( |
2880 |
$order->{unitprice_tax_included} = Koha::Number::Price->new( |
2889 |
$order->{unitpricegste} * ( 1 + $order->{gstrate} ) )->round; |
2881 |
$order->{unitprice_tax_excluded} * ( 1 + $order->{tax_rate} ) )->round; |
2890 |
} |
2882 |
} |
2891 |
$order->{gstvalue} = Koha::Number::Price->new( |
2883 |
$order->{tax_value} = Koha::Number::Price->new( |
2892 |
( $order->{unitpricegsti} - $order->{unitpricegste} ) |
2884 |
( $order->{unitprice_tax_included} - $order->{unitprice_tax_excluded} ) |
2893 |
* $order->{quantityreceived} )->round; |
2885 |
* $order->{quantityreceived} )->round; |
2894 |
|
2886 |
|
2895 |
$order->{totalgste} = $order->{unitpricegste} * $order->{quantity}; |
|
|
2896 |
$order->{totalgsti} = $order->{unitpricegsti} * $order->{quantity}; |
2897 |
} |
2887 |
} |
2898 |
|
2888 |
|
2899 |
return $order; |
2889 |
return $order; |