|
Lines 1390-1399
sub ModReceiveOrder {
Link Here
|
| 1390 |
$order->{ordernumber} |
1390 |
$order->{ordernumber} |
| 1391 |
); |
1391 |
); |
| 1392 |
|
1392 |
|
|
|
1393 |
# Recalculate tax_value |
| 1394 |
$dbh->do(q| |
| 1395 |
UPDATE aqorders |
| 1396 |
SET tax_value = quantity * ecost_tax_excluded * tax_rate |
| 1397 |
WHERE ordernumber = ? |
| 1398 |
|, undef, $order->{ordernumber}); |
| 1399 |
|
| 1393 |
delete $order->{ordernumber}; |
1400 |
delete $order->{ordernumber}; |
| 1394 |
$order->{budget_id} = ( $budget_id || $order->{budget_id} ); |
1401 |
$order->{budget_id} = ( $budget_id || $order->{budget_id} ); |
| 1395 |
$order->{quantity} = $quantrec; |
1402 |
$order->{quantity} = $quantrec; |
| 1396 |
$order->{quantityreceived} = $quantrec; |
1403 |
$order->{quantityreceived} = $quantrec; |
|
|
1404 |
$order->{tax_value} = $order->{quantity} * $order->{unitprice_tax_excluded} * $order->{tax_rate}; |
| 1397 |
$order->{datereceived} = $datereceived; |
1405 |
$order->{datereceived} = $datereceived; |
| 1398 |
$order->{invoiceid} = $invoice->{invoiceid}; |
1406 |
$order->{invoiceid} = $invoice->{invoiceid}; |
| 1399 |
$order->{orderstatus} = 'complete'; |
1407 |
$order->{orderstatus} = 'complete'; |
|
Lines 1546-1551
sub CancelReceipt {
Link Here
|
| 1546 |
" receipt"; |
1554 |
" receipt"; |
| 1547 |
return; |
1555 |
return; |
| 1548 |
} |
1556 |
} |
|
|
1557 |
|
| 1558 |
# Recalculate tax_value |
| 1559 |
$dbh->do(q| |
| 1560 |
UPDATE aqorders |
| 1561 |
SET tax_value = quantity * ecost_tax_excluded * tax_rate |
| 1562 |
WHERE ordernumber = ? |
| 1563 |
|, undef, $parent_ordernumber); |
| 1564 |
|
| 1549 |
_cancel_items_receipt( $ordernumber, $parent_ordernumber ); |
1565 |
_cancel_items_receipt( $ordernumber, $parent_ordernumber ); |
| 1550 |
# Delete order line |
1566 |
# Delete order line |
| 1551 |
$query = qq{ |
1567 |
$query = qq{ |
| 1552 |
- |
|
|