Revision 4e3a21dc
Von Bernd Bleßmann vor 10 Monaten hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
|
|
||
|
use Carp;
|
||
|
use POSIX qw(strftime);
|
||
|
use Try::Tiny;
|
||
|
|
||
|
use SL::DB::Order;
|
||
|
use SL::DB::OrderItem;
|
||
| ... | ... | |
|
} 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;
|
||
|
my @orders = map { SL::DB::Order->new(id => $_)->load } @multi_ids;
|
||
|
my @do_ids;
|
||
|
my @failed;
|
||
|
foreach my $order (@orders) {
|
||
|
my $delivery_order;
|
||
|
try {
|
||
|
$delivery_order = $order->convert_to_delivery_order();
|
||
|
} catch {
|
||
|
push @failed, {ordnumber => $order->ordnumber, error => $_};
|
||
|
};
|
||
|
push @do_ids, $delivery_order->id if $delivery_order;
|
||
|
}
|
||
|
|
||
|
require "bin/mozilla/do.pl";
|
||
|
$::form->{script} = 'do.pl';
|
||
| ... | ... | |
|
$::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));
|
||
|
flash('info', t8('#1 salses orders were converted to #2 delivery orders', scalar @orders, scalar @do_ids));
|
||
|
if (@failed) {
|
||
|
flash('error', t8('The following orders could not be converted to delivery orders:'));
|
||
|
flash('error', $_->{ordnumber} . ': ' . $_->{error}) for @failed;
|
||
|
}
|
||
|
|
||
|
orders();
|
||
|
}
|
||
| locale/de/all | ||
|---|---|---|
|
'The following is only a preview.' => 'Das Folgende ist nur eine Vorschau.',
|
||
|
'The following list has been generated automatically from existing users collapsing users with identical settings into a single entry.' => 'Die folgende Liste wurde automatisch aus den im System vorhandenen Benutzern zusammengestellt, wobei identische Einstellungen zu einem Eintrag zusammengefasst wurden.',
|
||
|
'The following old files whose settings have to be merged manually into the new configuration file "config/kivitendo.conf" still exist:' => 'Es existieren noch die folgenden alten Dateien, deren Einstellungen manuell in die neue Konfiguratsdatei "config/kivitendo.conf" migriert werden müssen:',
|
||
|
'The following orders could not be converted to delivery orders:' => 'Folgende Aufträge konnten nicht in Lieferscheine konvertiert werden:',
|
||
|
'The following parts could not be allocated:' => 'Die folgenden Artikel konnten nicht für die Produktion belegt werden:',
|
||
|
'The following transaction contains wrong taxes:' => 'Die folgende Buchung enthält falsche Steuern:',
|
||
|
'The following transaction contains wrong taxkeys:' => 'Die folgende Buchung enthält falsche Steuerschlüssel:',
|
||
| locale/en/all | ||
|---|---|---|
|
'The following is only a preview.' => '',
|
||
|
'The following list has been generated automatically from existing users collapsing users with identical settings into a single entry.' => '',
|
||
|
'The following old files whose settings have to be merged manually into the new configuration file "config/kivitendo.conf" still exist:' => '',
|
||
|
'The following orders could not be converted to delivery orders:' => '',
|
||
|
'The following parts could not be allocated:' => '',
|
||
|
'The following transaction contains wrong taxes:' => '',
|
||
|
'The following transaction contains wrong taxkeys:' => '',
|
||
Auch abrufbar als: Unified diff
Auftragsbericht: Umwandeln in LS: Fehler abfangen