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