items => [ ],
);
- _get_exchangerate($self, \%data, %params);
+ # set exchangerate in $data>{exchangerate}
+ if ( ref($self) eq 'SL::DB::Order' ) {
+ # orders store amount in the order currency
+ $data{exchangerate} = 1;
+ } else {
+ # invoices store amount in the default currency
+ _get_exchangerate($self, \%data, %params);
+ # $data{exchangerate} = $self->exchangerate; # untested alternative for setting exchangerate
+ };
$self->netamount( 0);
$self->marge_total(0);
return $self unless wantarray;
- return map { ($_ => $data{$_}) } qw(taxes amounts amounts_cogs allocated exchangerate assembly_items items);
+ return map { ($_ => $data{$_}) } qw(taxes amounts amounts_cogs allocated exchangerate assembly_items items rounding);
}
sub _get_exchangerate {
_dbg("Sna " . $self->netamount . " idiff " . $data->{invoicediff} . " tdiff ${tax_diff}");
my $tax = sum values %{ $data->{taxes} };
- $data->{arap_amount} = $netamount + $tax;
+ $amount = $netamount + $tax;
+ my $grossamount = _round($amount, 2, 1);
+ $data->{rounding} = _round($grossamount - $amount, 2);
+ $data->{arap_amount} = $grossamount;
$self->netamount( $netamount);
- $self->amount( $netamount + $tax);
+ $self->amount( $grossamount);
$self->marge_percent($self->netamount ? ($self->netamount - $data->{lastcost_total}) * 100 / $self->netamount : 0);
}