| 97 |
97 |
|
| 98 |
98 |
require SL::DB::Reclamation;
|
| 99 |
99 |
my $reclamation = SL::DB::Reclamation->new(id => $::form->{from_id})->load;
|
| 100 |
|
my $order = $reclamation->convert_to_order();
|
|
100 |
my %params;
|
|
101 |
$params{destination_type} = $reclamation->is_sales ? 'sales_order'
|
|
102 |
: 'purchase_order';
|
|
103 |
my $order = SL::DB::Order->new_from($reclamation, %params);
|
|
104 |
$self->{converted_from_reclamation_id} = $::form->{from_id};
|
| 101 |
105 |
|
| 102 |
106 |
$self->order($order);
|
| 103 |
107 |
|
| ... | ... | |
| 1609 |
1613 |
$self->js
|
| 1610 |
1614 |
->val('#id', $self->order->id)
|
| 1611 |
1615 |
->val('#converted_from_oe_id', '')
|
|
1616 |
->val('#converted_from_reclamation_id', '')
|
| 1612 |
1617 |
->val('#order_' . $self->nr_key(), $self->order->number);
|
| 1613 |
1618 |
|
| 1614 |
1619 |
my $idx = 0;
|
| ... | ... | |
| 1623 |
1628 |
$idx++;
|
| 1624 |
1629 |
}
|
| 1625 |
1630 |
$self->js->val('[name="converted_from_orderitems_ids[+]"]', '');
|
|
1631 |
$self->js->val('[name="converted_from_reclamation_items_ids[+]"]', '');
|
| 1626 |
1632 |
}
|
| 1627 |
1633 |
|
| 1628 |
1634 |
#
|
| ... | ... | |
| 2157 |
2163 |
|
| 2158 |
2164 |
$self->link_requirement_specs_linking_to_created_from_objects(@converted_from_oe_ids);
|
| 2159 |
2165 |
}
|
|
2166 |
if ($::form->{converted_from_reclamation_id}) {
|
|
2167 |
my @converted_from_reclamation_ids = split ' ', $::form->{converted_from_reclamation_id};
|
|
2168 |
|
|
2169 |
foreach my $converted_from_reclamation_id (@converted_from_reclamation_ids) {
|
|
2170 |
my $src = SL::DB::Reclamation->new(id => $converted_from_reclamation_id)->load;
|
|
2171 |
$src->link_to_record($self->order);
|
|
2172 |
}
|
|
2173 |
if (scalar @{ $::form->{converted_from_reclamation_items_ids} || [] }) {
|
|
2174 |
my $idx = 0;
|
|
2175 |
foreach (@{ $self->order->items_sorted }) {
|
|
2176 |
my $from_id = $::form->{converted_from_reclamation_items_ids}->[$idx];
|
|
2177 |
next if !$from_id;
|
|
2178 |
SL::DB::RecordLink->new(from_table => 'reclamation_items',
|
|
2179 |
from_id => $from_id,
|
|
2180 |
to_table => 'orderitems',
|
|
2181 |
to_id => $_->id
|
|
2182 |
)->save;
|
|
2183 |
$idx++;
|
|
2184 |
}
|
|
2185 |
}
|
|
2186 |
}
|
| 2160 |
2187 |
|
| 2161 |
2188 |
$self->set_project_in_linked_requirement_specs if $self->order->globalproject_id;
|
| 2162 |
2189 |
|
Reclamation: don't save order after converting