Revision 6e568231
Von Werner Hahn vor fast 2 Jahren hinzugefügt
| SL/Controller/Order.pm | ||
|---|---|---|
|
use SL::Helper::UserPreferences::UpdatePositions;
|
||
|
|
||
|
use SL::Controller::Helper::GetModels;
|
||
|
use SL::Model::Record;
|
||
|
|
||
|
use List::Util qw(first sum0);
|
||
|
use List::UtilsBy qw(sort_by uniq_by);
|
||
| ... | ... | |
|
sub action_delete {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
my $errors = $self->delete();
|
||
|
|
||
|
if (scalar @{ $errors }) {
|
||
|
$self->js->flash('error', $_) foreach @{ $errors };
|
||
|
return $self->js->render();
|
||
|
}
|
||
|
|
||
|
my $number_type = $self->order->type =~ m{order} ? 'ordnumber' : 'quonumber';
|
||
|
my %history = (snumbers => $number_type . '_' . $self->order->$number_type);
|
||
|
my %params = (history => \%history);
|
||
|
SL::Model::Record->delete($self->order, %params);
|
||
|
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 the order
|
||
|
#
|
||
|
# And remove related files in the spool directory
|
||
|
sub delete {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
my $errors = [];
|
||
|
my $db = $self->order->db;
|
||
|
|
||
|
$db->with_transaction(
|
||
|
sub {
|
||
|
my @spoolfiles = grep { $_ } map { $_->spoolfile } @{ SL::DB::Manager::Status->get_all(where => [ trans_id => $self->order->id ]) };
|
||
|
$self->order->delete;
|
||
|
my $spool = $::lx_office_conf{paths}->{spool};
|
||
|
unlink map { "$spool/$_" } @spoolfiles if $spool;
|
||
|
|
||
|
$self->save_history('DELETED');
|
||
|
|
||
|
1;
|
||
|
}) || push(@{$errors}, $db->error);
|
||
|
|
||
|
return $errors;
|
||
|
}
|
||
|
|
||
|
# save the order
|
||
|
#
|
||
|
# And delete items that are deleted in the form.
|
||
Auch abrufbar als: Unified diff
OrderController delete auf SL/Model/Record->delete gemapt