Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 5a6d7c03

Von Kivitendo Admin vor mehr als 2 Jahren hinzugefügt

  • ID 5a6d7c03f440180ec7f329877a52daabdf86a81c
  • Vorgänger 529435a8
  • Nachfolger 2001f09d

Neue Belegmethode netamount_base_currency

netamount ist
  • für Angebote und Aufträge und Lieferscheine in der Fremdwährung
  • für EK- und VK-Rechnungen in der Hauptwährung.

Um 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.

Unterschiede anzeigen:

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