Revision ef24ff5a
Von Tamino Steinert vor etwa 2 Jahren hinzugefügt
| SL/Controller/DeliveryOrder.pm | ||
|---|---|---|
|
use SL::DB::TransferType;
|
||
|
use SL::DB::ValidityToken;
|
||
|
use SL::DB::Warehouse;
|
||
|
use SL::Model::Record;
|
||
|
|
||
|
use SL::Helper::CreatePDF qw(:all);
|
||
|
use SL::Helper::PrintOptions;
|
||
| ... | ... | |
|
|
||
|
my $order = SL::DB::Order->new(id => $self->{converted_from_oe_id})->load;
|
||
|
|
||
|
$self->order(SL::DB::DeliveryOrder->new_from($order, type => $::form->{type}));
|
||
|
my $target_type = $::form->{type};
|
||
|
my $delivery_order = SL::Model::Record->new_from_workflow($order, $target_type);
|
||
|
$self->order($delivery_order);
|
||
|
|
||
|
$self->action_add;
|
||
|
}
|
||
| ... | ... | |
|
my ($self) = @_;
|
||
|
|
||
|
my $reclamation = SL::DB::Reclamation->new(id => $::form->{from_id})->load;
|
||
|
my $delivery_order = SL::DB::DeliveryOrder->new_from($reclamation);
|
||
|
my $target_type = $reclamation->is_sales ? 'rma_delivery_order'
|
||
|
: 'supplier_delivery_order';
|
||
|
my $delivery_order = SL::Model::Record->new_from_workflow($reclamation, $target_type);
|
||
|
$self->{converted_from_reclamation_id} = $::form->{from_id};
|
||
|
$self->order($delivery_order);
|
||
|
|
||
| ... | ... | |
|
|
||
|
my $destination_type = $self->type_data->workflow("to_quotation_type");
|
||
|
|
||
|
$self->order(SL::DB::DeliveryOrder->new_from($self->order, destination_type => $destination_type));
|
||
|
my $delivery_order = SL::Model::Record->new_from_workflow($self->order, $destination_type, {});
|
||
|
$self->order($delivery_order);
|
||
|
$self->{converted_from_oe_id} = delete $::form->{id};
|
||
|
|
||
|
# set item ids to new fake id, to identify them as new items
|
||
| ... | ... | |
|
$custom_shipto = $self->order->shipto->clone('SL::DB::DeliveryOrder');
|
||
|
}
|
||
|
|
||
|
$self->order(SL::DB::DeliveryOrder->new_from($self->order, destination_type => $destination_type));
|
||
|
my $delivery_order = SL::Model::Record->new_from_workflow($self->order, $destination_type, {});
|
||
|
$self->order($delivery_order);
|
||
|
$self->{converted_from_oe_id} = delete $::form->{id};
|
||
|
|
||
|
# set item ids to new fake id, to identify them as new items
|
||
Auch abrufbar als: Unified diff
Model::Record: new_from_workflow implementiert