Revision 5a6d7c03
Von Kivitendo Admin vor mehr als 2 Jahren hinzugefügt
SL/DB/Invoice.pm | ||
---|---|---|
return $self->tax_point || $self->deliverydate || $self->transdate;
|
||
}
|
||
|
||
sub netamount_base_currency {
|
||
my ($self) = @_;
|
||
|
||
return $self->netamount; # already matches base currency
|
||
}
|
||
|
||
1;
|
||
|
||
__END__
|
SL/DB/Order.pm | ||
---|---|---|
use SL::DB::Helper::PriceTaxCalculator;
|
||
use SL::DB::Helper::PriceUpdater;
|
||
use SL::DB::Helper::TransNumberGenerator;
|
||
use SL::DB::Helper::Payment qw(forex);
|
||
use SL::Locale::String qw(t8);
|
||
use SL::RecordLinks;
|
||
use Rose::DB::Object::Helpers qw(as_tree);
|
||
... | ... | |
return $final_version;
|
||
}
|
||
|
||
sub netamount_base_currency {
|
||
my ($self) = @_;
|
||
|
||
return $self->netamount unless $self->forex;
|
||
|
||
if ( defined $self->exchangerate ) {
|
||
return $self->netamount * $self->exchangerate;
|
||
} else {
|
||
return $self->netamount * $self->daily_exchangerate;
|
||
}
|
||
}
|
||
|
||
1;
|
||
|
||
__END__
|
SL/DB/PurchaseInvoice.pm | ||
---|---|---|
return $self->tax_point || $self->deliverydate || $self->transdate;
|
||
}
|
||
|
||
sub netamount_base_currency {
|
||
my ($self) = @_;
|
||
|
||
return $self->netamount; # already matches base currency
|
||
}
|
||
|
||
1;
|
||
|
||
|
Auch abrufbar als: Unified diff
Neue Belegmethode netamount_base_currency
netamount istUm in bestimmten Berichten, die auf mehrere Belege zugreifen (z.B. Finanzübersicht),
vergleichbare Zahlen zu haben, sollte dann netamount_base_currency statt
netamount verwendet werden.