Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 1c7da0cb

Von Bernd Bleßmann vor 10 Monaten hinzugefügt

  • ID 1c7da0cb39a0b5c9c744969911373f80abf5aafc
  • Vorgänger 5bbcc15f
  • Nachfolger f4d955b9

Auftragsbericht: mehrere Aufträge in mehrere LS umwandeln können

Unterschiede anzeigen:

bin/mozilla/oe.pl
use SL::OE;
use SL::IR;
use SL::IS;
use SL::Helper::Flash qw(flash_later);
use SL::Helper::UserPreferences::DisplayPreferences;
use SL::MoreCommon qw(ary_diff restore_form save_form);
use SL::Presenter::ItemsList;
......
$main::lxdebug->leave_sub();
}
sub convert_to_delivery_orders {
# collect order ids
my @multi_ids = map {
$_ =~ m{^multi_id_(\d+)$} && $::form->{'multi_id_' . $1} && $::form->{'trans_id_' . $1}
} grep { $_ =~ m{^multi_id_\d+$} } keys %$::form;
# make new delivery orders from given orders
my @orders = map { SL::DB::Order->new(id => $_)->load } @multi_ids;
my @delivery_orders = map { $_->convert_to_delivery_order() } @orders;
my @do_ids = map { $_->id } @delivery_orders;
require "bin/mozilla/do.pl";
$::form->{script} = 'do.pl';
$::form->{type} = 'sales_delivery_order';
$::form->{ids} = \@do_ids;
$::form->{"l_$_"} = 'Y' for qw(donumber ordnumber cusordnumber transdate reqdate name employee);
$::form->{top_info_text} = $::locale->text('Converted delivery orders');
flash('info', t8('#1 salses orders were converted to #2 delivery orders', scalar @orders, scalar @delivery_orders));
orders();
}
sub order_links {
$main::lxdebug->enter_sub();
......
checks => [ [ 'kivi.check_if_entries_selected', '[name^=multi_id_]' ] ],
accesskey => 'enter',
],
action => [
t8('Convert to delivery orders'),
submit => [ '#form', { action => 'convert_to_delivery_orders' } ],
checks => [ [ 'kivi.check_if_entries_selected', '[name^=multi_id_]' ] ],
],
);
}
}

Auch abrufbar als: Unified diff