Revision 5a6d7c03
Von Kivitendo Admin vor mehr als 2 Jahren hinzugefügt
| SL/DB/Invoice.pm | ||
|---|---|---|
| 626 | 626 |
return $self->tax_point || $self->deliverydate || $self->transdate; |
| 627 | 627 |
} |
| 628 | 628 |
|
| 629 |
sub netamount_base_currency {
|
|
| 630 |
my ($self) = @_; |
|
| 631 |
|
|
| 632 |
return $self->netamount; # already matches base currency |
|
| 633 |
} |
|
| 634 |
|
|
| 629 | 635 |
1; |
| 630 | 636 |
|
| 631 | 637 |
__END__ |
| SL/DB/Order.pm | ||
|---|---|---|
| 19 | 19 |
use SL::DB::Helper::PriceTaxCalculator; |
| 20 | 20 |
use SL::DB::Helper::PriceUpdater; |
| 21 | 21 |
use SL::DB::Helper::TransNumberGenerator; |
| 22 |
use SL::DB::Helper::Payment qw(forex); |
|
| 22 | 23 |
use SL::Locale::String qw(t8); |
| 23 | 24 |
use SL::RecordLinks; |
| 24 | 25 |
use Rose::DB::Object::Helpers qw(as_tree); |
| ... | ... | |
| 580 | 581 |
return $final_version; |
| 581 | 582 |
} |
| 582 | 583 |
|
| 584 |
sub netamount_base_currency {
|
|
| 585 |
my ($self) = @_; |
|
| 586 |
|
|
| 587 |
return $self->netamount unless $self->forex; |
|
| 588 |
|
|
| 589 |
if ( defined $self->exchangerate ) {
|
|
| 590 |
return $self->netamount * $self->exchangerate; |
|
| 591 |
} else {
|
|
| 592 |
return $self->netamount * $self->daily_exchangerate; |
|
| 593 |
} |
|
| 594 |
} |
|
| 595 |
|
|
| 583 | 596 |
1; |
| 584 | 597 |
|
| 585 | 598 |
__END__ |
| SL/DB/PurchaseInvoice.pm | ||
|---|---|---|
| 221 | 221 |
return $self->tax_point || $self->deliverydate || $self->transdate; |
| 222 | 222 |
} |
| 223 | 223 |
|
| 224 |
sub netamount_base_currency {
|
|
| 225 |
my ($self) = @_; |
|
| 226 |
|
|
| 227 |
return $self->netamount; # already matches base currency |
|
| 228 |
} |
|
| 229 |
|
|
| 224 | 230 |
1; |
| 225 | 231 |
|
| 226 | 232 |
|
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.