Revision 312fbab5
Von Tamino Steinert vor 3 Tagen hinzugefügt
SL/DB/DeliveryOrder.pm | ||
---|---|---|
181 | 181 |
my %allowed_sources = map { $_ => 1 } qw( |
182 | 182 |
SL::DB::Reclamation |
183 | 183 |
SL::DB::Order |
184 |
SL::DB::DeliveryOrder |
|
184 | 185 |
); |
185 | 186 |
unless( $allowed_sources{ref $source} ) { |
186 | 187 |
croak("Unsupported source object type '" . ref($source) . "'"); |
... | ... | |
252 | 253 |
$record_args{cusordnumber} = $source->cv_record_number; |
253 | 254 |
$record_args{is_sales} = $source->is_sales; |
254 | 255 |
# }}} for vim folds |
256 |
} elsif ( ref($source) eq 'SL::DB::DeliveryOrder' ) { |
|
257 |
map{ ( $record_args{$_} = $source->$_ ) } # {{{ for vim folds |
|
258 |
qw( |
|
259 |
billing_address_id |
|
260 |
cp_id |
|
261 |
currency_id |
|
262 |
cusordnumber |
|
263 |
customer_id |
|
264 |
delivery_term_id |
|
265 |
department_id |
|
266 |
donumber |
|
267 |
globalproject_id |
|
268 |
intnotes |
|
269 |
language_id |
|
270 |
notes |
|
271 |
ordnumber |
|
272 |
oreqnumber |
|
273 |
payment_id |
|
274 |
reqdate |
|
275 |
salesman_id |
|
276 |
shippingpoint |
|
277 |
shipto_id |
|
278 |
shipvia |
|
279 |
taxincluded |
|
280 |
taxzone_id |
|
281 |
transdate |
|
282 |
transaction_description |
|
283 |
vendor_confirmation_number |
|
284 |
vendor_id |
|
285 |
); |
|
286 |
# }}} for vim folds |
|
255 | 287 |
} |
256 | 288 |
|
257 | 289 |
# Custom shipto addresses (the ones specific to the sales/purchase |
Auch abrufbar als: Unified diff
S:D:DeliveryOrder: 'Als neu speichern' Workflow Lieferschein → Lief.