Revision f4de41a2
Von Moritz Bunkus vor fast 11 Jahren hinzugefügt
SL/DB/DeliveryOrder.pm | ||
---|---|---|
97 | 97 |
|
98 | 98 |
croak("Unsupported source object type '" . ref($source) . "'") unless ref($source) eq 'SL::DB::Order'; |
99 | 99 |
|
100 |
my ($item_parent_id_column, $item_parent_column); |
|
101 |
|
|
102 |
if (ref($source) eq 'SL::DB::Order') { |
|
103 |
$item_parent_id_column = 'trans_id'; |
|
104 |
$item_parent_column = 'order'; |
|
105 |
} |
|
106 |
|
|
100 | 107 |
my $terms = $source->can('payment_id') && $source->payment_id ? $source->payment_terms->terms_netto : 0; |
101 | 108 |
|
102 | 109 |
my %args = ( map({ ( $_ => $source->$_ ) } qw(cp_id currency_id customer_id cusordnumber department_id employee_id globalproject_id intnotes language_id notes |
... | ... | |
134 | 141 |
|
135 | 142 |
my $delivery_order = $class->new(%args, %{ $params{attributes} || {} }); |
136 | 143 |
my $items = delete($params{items}) || $source->items_sorted; |
144 |
my %item_parents; |
|
137 | 145 |
|
138 | 146 |
my @items = map { |
139 | 147 |
my $source_item = $_; |
148 |
my $source_item_id = $_->$item_parent_id_column; |
|
140 | 149 |
my @custom_variables = map { _clone_orderitem_cvar($_) } @{ $source_item->custom_variables }; |
141 | 150 |
|
151 |
$item_parents{$source_item_id} ||= $source_item->$item_parent_column; |
|
152 |
my $item_parent = $item_parents{$source_item_id}; |
|
153 |
|
|
142 | 154 |
SL::DB::DeliveryOrderItem->new(map({ ( $_ => $source_item->$_ ) } |
143 |
qw(base_qty cusordnumber description discount lastcost longdescription marge_price_factor ordnumber parts_id price_factor price_factor_id
|
|
155 |
qw(base_qty cusordnumber description discount lastcost longdescription marge_price_factor parts_id price_factor price_factor_id |
|
144 | 156 |
project_id qty reqdate sellprice serialnumber transdate unit |
145 | 157 |
)), |
146 |
custom_variables => \@custom_variables); |
|
158 |
custom_variables => \@custom_variables, |
|
159 |
ordnumber => ref($item_parent) eq 'SL::DB::Order' ? $item_parent->ordnumber : $source_item->ordnumber, |
|
160 |
); |
|
147 | 161 |
|
148 | 162 |
} @{ $items }; |
149 | 163 |
|
Auch abrufbar als: Unified diff
SL::DB::DeliveryOrder->new_from: Positionsfeld ordnumber aus Quellbeleg setzen
…und nicht aus den Positionen kopieren.