Zahlungsbedingungen: "calc_date" überschreibt Referenzdatum

Die Methode "calc_date" erzeugt das neue Datum ohne ein neues Objekt zu
erzeugen.
Deshalb wird ggf der Parameter "reference_date" überschrieben.

Nun wird ein neues Datumsobjekt per "clone" erzeugt.

gefunden bei egw 13209

(cherry picked from commit ac77e995e74bef6f408045eda95ebc775430b17d)
(cherry-pick vonm odyn)

diff --git a/SL/DB/PaymentTerm.pm b/SL/DB/PaymentTerm.pm
index db443e9..2f62bd9 100644 (file)
--- a/SL/DB/PaymentTerm.pm
+++ b/SL/DB/PaymentTerm.pm
@@ -35,7 +35,7 @@ sub calc_date {
   }
 
   my $terms           = ($params{terms} // 'net') eq 'discount' ? 'terms_skonto' : 'terms_netto';
-  my $date            = $reference_date->add(days => $self->$terms);
+  my $date            = $reference_date->clone->add(days => $self->$terms);
 
   my $dow             = $date->day_of_week;
   $date               = $date->add(days => 8 - $dow) if $dow > 5;