Revision 24356c73
Von Tamino Steinert vor 6 Tagen hinzugefügt
| SL/DB/DeliveryOrderItem.pm | ||
|---|---|---|
| 46 | 46 |
my %allowed_sources = map { $_ => 1 } qw(
|
| 47 | 47 |
SL::DB::ReclamationItem |
| 48 | 48 |
SL::DB::OrderItem |
| 49 |
SL::DB::DeliveryOrderItem |
|
| 49 | 50 |
); |
| 50 | 51 |
unless( $allowed_sources{ref $source} ) {
|
| 51 | 52 |
croak("Unsupported source object type '" . ref($source) . "'");
|
| ... | ... | |
| 105 | 106 |
$item_args{custom_variables} = \@custom_variables;
|
| 106 | 107 |
$item_args{ordnumber} = ref($source->record) eq 'SL::DB::Order' ? $source->record->ordnumber : $source->ordnumber;
|
| 107 | 108 |
# }}} for vim folds |
| 109 |
} elsif (ref($source) eq 'SL::DB::DeliveryOrderItem') {
|
|
| 110 |
map { $item_args{$_} = $source->$_ } # {{{ for vim folds
|
|
| 111 |
qw( |
|
| 112 |
active_discount_source |
|
| 113 |
active_price_source |
|
| 114 |
base_qty |
|
| 115 |
cusordnumber |
|
| 116 |
description |
|
| 117 |
discount |
|
| 118 |
lastcost |
|
| 119 |
longdescription |
|
| 120 |
marge_price_factor |
|
| 121 |
parts_id |
|
| 122 |
position |
|
| 123 |
price_factor |
|
| 124 |
price_factor_id |
|
| 125 |
project_id |
|
| 126 |
qty |
|
| 127 |
reqdate |
|
| 128 |
sellprice |
|
| 129 |
serialnumber |
|
| 130 |
transdate |
|
| 131 |
unit |
|
| 132 |
); |
|
| 133 |
$item_args{custom_variables} = \@custom_variables;
|
|
| 134 |
# }}} for vim folds |
|
| 108 | 135 |
} |
| 109 | 136 |
|
| 110 | 137 |
my $item = $class->new(%item_args); |
Auch abrufbar als: Unified diff
S:D:DeliveryOrder: 'Als neu speichern' Workflow Lieferschein → Lief.