Lines 288-293
sub process_invoice {
Link Here
|
288 |
} |
288 |
} |
289 |
|
289 |
|
290 |
my $price = _get_invoiced_price($line); |
290 |
my $price = _get_invoiced_price($line); |
|
|
291 |
my $tax_rate = $line->tax_rate; |
292 |
if ($tax_rate && $tax_rate->{rate} != 0) { |
293 |
$tax_rate->{rate} /= 100; |
294 |
} |
291 |
|
295 |
|
292 |
if ( $order->quantity > $line->quantity ) { |
296 |
if ( $order->quantity > $line->quantity ) { |
293 |
my $ordered = $order->quantity; |
297 |
my $ordered = $order->quantity; |
Lines 305-310
sub process_invoice {
Link Here
|
305 |
unitprice => $price, |
309 |
unitprice => $price, |
306 |
invoiceid => $invoiceid, |
310 |
invoiceid => $invoiceid, |
307 |
datereceived => $msg_date, |
311 |
datereceived => $msg_date, |
|
|
312 |
tax_rate_on_receiving => $tax_rate->{rate}, |
308 |
} |
313 |
} |
309 |
); |
314 |
); |
310 |
my $p_updates = |
315 |
my $p_updates = |
Lines 324-329
sub process_invoice {
Link Here
|
324 |
$order->datereceived($msg_date); |
329 |
$order->datereceived($msg_date); |
325 |
$order->invoiceid($invoiceid); |
330 |
$order->invoiceid($invoiceid); |
326 |
$order->unitprice($price); |
331 |
$order->unitprice($price); |
|
|
332 |
$order->tax_rate_on_receiving($tax_rate->{rate}); |
327 |
$order->orderstatus('complete'); |
333 |
$order->orderstatus('complete'); |
328 |
my $p_updates = update_price_from_invoice( $order, |
334 |
my $p_updates = update_price_from_invoice( $order, |
329 |
$invoice_message->vendor_id ); |
335 |
$invoice_message->vendor_id ); |