Revision 312fbab5
Von Tamino Steinert vor 3 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.