From: Jan Büren Date: Tue, 7 Jan 2014 08:29:05 +0000 (+0100) Subject: Überlagerte benutzerdefinierte Variablen werden in wiederkehrende Rechnungen nicht... X-Git-Tag: release-3.1.0beta1~22^2~38^2~4 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=5bd7e74db1f425a8bbc43357e949efcc1d4eb135;p=kivitendo-erp.git Überlagerte benutzerdefinierte Variablen werden in wiederkehrende Rechnungen nicht übernommen closes #2365 --- diff --git a/SL/DB/Invoice.pm b/SL/DB/Invoice.pm index 7f7269923..72844b4db 100644 --- a/SL/DB/Invoice.pm +++ b/SL/DB/Invoice.pm @@ -7,6 +7,7 @@ use strict; use Carp; use List::Util qw(first); +use List::MoreUtils qw(pairwise); use SL::DB::MetaSetup::Invoice; use SL::DB::Manager::Invoice; @@ -15,6 +16,7 @@ use SL::DB::Helper::LinkedRecords; use SL::DB::Helper::PriceTaxCalculator; use SL::DB::Helper::PriceUpdater; use SL::DB::Helper::TransNumberGenerator; +use SL::DB::CustomVariable; __PACKAGE__->meta->add_relationship( invoiceitems => { @@ -147,6 +149,14 @@ sub new_from { fxsellprice => $source_item->sellprice,); } @{ $source->items_sorted }; + my $i = 0; + foreach my $item (@items) { + my $source_cvars = $source->items_sorted->[$i]->cvars_by_config; + my $target_cvars = $item->cvars_by_config; + pairwise { $a->value($b->value) } @{ $target_cvars }, @{ $source_cvars }; + $i++; + } + $invoice->invoiceitems(\@items); return $invoice;