Revision d4e811a4
Von Werner Hahn vor etwa 2 Jahren hinzugefügt
| SL/Controller/DeliveryOrder.pm | ||
|---|---|---|
|
|
||
|
require SL::DB::Reclamation;
|
||
|
my $reclamation = SL::DB::Reclamation->new(id => $::form->{from_id})->load;
|
||
|
my $type = $reclamation->type eq 'sales_reclamation' ? 'rma_delivery_order' : 'supplier_delivery_order';
|
||
|
my ($delivery_order, $error) = $reclamation->convert_to_delivery_order(type => $type);
|
||
|
my ($delivery_order, $error) = $reclamation->convert_to_delivery_order();
|
||
|
if($error) {
|
||
|
croak("Error while converting: " . $error);
|
||
|
}
|
||
| SL/DB/DeliveryOrder.pm | ||
|---|---|---|
|
$record_args{cp_id} = $source->contact_id;
|
||
|
$record_args{cusordnumber} = $source->cv_record_number;
|
||
|
$record_args{is_sales} = $source->is_sales;
|
||
|
$record_args{type} = $source->is_sales ? 'rma_delivery_order' : 'supplier_delivery_order';
|
||
|
# }}} for vim folds
|
||
|
}
|
||
|
|
||
| ... | ... | |
|
$delivery_order->assign_attributes(%{ $params{attributes} }) if $params{attributes};
|
||
|
|
||
|
my $items = delete($params{items}) || $source->items_sorted;
|
||
|
my @items = $delivery_order->is_type(SUPPLIER_DELIVERY_ORDER_TYPE) ? ()
|
||
|
my @items = ( $delivery_order->is_type(SUPPLIER_DELIVERY_ORDER_TYPE) && ref($source) ne 'SL::DB::Reclamation' ) ?
|
||
|
()
|
||
|
: map { SL::DB::DeliveryOrderItem->new_from($_) } @{ $items };
|
||
|
|
||
|
@items = grep { $params{item_filter}->($_) } @items if $params{item_filter};
|
||
Auch abrufbar als: Unified diff
DeliveryOrderType richtig setzen