Revision 24356c73
Von Tamino Steinert vor 6 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.