Revision 4ce9a4ca
Von Werner Hahn vor fast 2 Jahren hinzugefügt
| SL/Controller/DeliveryOrder.pm | ||
|---|---|---|
|
sub action_delete {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
my %history = (snumbers => $self->type . '_' . $self->order->number);
|
||
|
my %params = (history => \%history);
|
||
|
SL::Model::Record->delete($self->order,%params);
|
||
|
SL::Model::Record->delete($self->order);
|
||
|
flash_later('info', $self->type_data->text("delete"));
|
||
|
|
||
|
my @redirect_params = (
|
||
| SL/Controller/Order.pm | ||
|---|---|---|
|
sub action_delete {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
my %params = (history => { snumbers => $self->get_history_snumbers() });
|
||
|
SL::Model::Record->delete($self->order, %params);
|
||
|
SL::Model::Record->delete($self->order);
|
||
|
my $text = $self->type eq sales_order_type() ? $::locale->text('The order has been deleted')
|
||
|
: $self->type eq purchase_order_type() ? $::locale->text('The order has been deleted')
|
||
|
: $self->type eq sales_quotation_type() ? $::locale->text('The quotation has been deleted')
|
||
| ... | ... | |
|
delete_custom_shipto => $self->is_custom_shipto_to_delete || $self->order->custom_shipto->is_empty,
|
||
|
items_to_delete => $items_to_delete,
|
||
|
objects_to_close => $objects_to_close,
|
||
|
history => { snumbers => $self->get_history_snumbers() },
|
||
|
link_requirement_specs_linking_to_created_from_objects => \@converted_from_oe_ids,
|
||
|
set_project_in_linked_requirement_specs => 1,
|
||
|
);
|
||
| ... | ... | |
|
$self->redirect_to(%params, id => $self->order->id);
|
||
|
}
|
||
|
|
||
|
sub get_history_snumbers {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
my $number_type = $self->order->type =~ m{order} ? 'ordnumber' : 'quonumber';
|
||
|
my $snumbers = $number_type . '_' . $self->order->$number_type;
|
||
|
|
||
|
return $snumbers;
|
||
|
}
|
||
|
|
||
|
sub save_history {
|
||
|
my ($self, $addition) = @_;
|
||
|
|
||
| SL/Controller/Reclamation.pm | ||
|---|---|---|
|
my ($self) = @_;
|
||
|
|
||
|
|
||
|
my %history = (snumbers => 'record_number_' . $self->reclamation->record_number);
|
||
|
my %params = (history => \%history);
|
||
|
SL::Model::Record->delete($self->reclamation, %params);
|
||
|
SL::Model::Record->delete($self->reclamation);
|
||
|
flash_later('info', t8('The reclamation has been deleted'));
|
||
|
|
||
|
my @redirect_params = (
|
||
Auch abrufbar als: Unified diff
_get_snumber in S7C/ DeliveryOrder, Order und Reclamation eingebunden