Revision fab2b3f1
Von Tamino Steinert vor fast 2 Jahren hinzugefügt
SL/DB/ReclamationItem.pm | ||
---|---|---|
55 | 55 |
SL::DB::ReclamationItem |
56 | 56 |
SL::DB::OrderItem |
57 | 57 |
SL::DB::DeliveryOrderItem |
58 |
SL::DB::InvoiceItem |
|
58 | 59 |
) |
59 | 60 |
) { |
60 | 61 |
croak("Unsupported source object type '" . ref($source) . "'"); |
... | ... | |
86 | 87 |
pricegroup_id project_id qty reqdate sellprice serialnumber unit |
87 | 88 |
); |
88 | 89 |
$item_args{custom_variables} = \@custom_variables; |
90 |
} elsif (ref($source) eq 'SL::DB::InvoiceItem') { |
|
91 |
map { $item_args{$_} = $source->$_ } qw( |
|
92 |
active_discount_source active_price_source base_qty description discount |
|
93 |
lastcost longdescription parts_id position price_factor price_factor_id |
|
94 |
pricegroup_id project_id qty sellprice serialnumber unit |
|
95 |
); |
|
96 |
$item_args{custom_variables} = \@custom_variables; |
|
89 | 97 |
} |
90 | 98 |
|
91 | 99 |
my $item = $class->new(%item_args); |
Auch abrufbar als: Unified diff
Workflow: (sales/purchase) invoice → reclamation