Revision b3475b4f
Von Bernd Bleßmann vor 10 Monaten hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
|
use SL::IS;
|
||
|
use SL::Helper::Flash qw(flash_later);
|
||
|
use SL::Helper::UserPreferences::DisplayPreferences;
|
||
|
use SL::Helper::ShippedQty;
|
||
|
use SL::MoreCommon qw(ary_diff restore_form save_form);
|
||
|
use SL::Presenter::ItemsList;
|
||
|
use SL::ReportGenerator;
|
||
| ... | ... | |
|
my @do_ids;
|
||
|
my @failed;
|
||
|
foreach my $order (@orders) {
|
||
|
# Only consider not delivered quantities.
|
||
|
SL::Helper::ShippedQty->new->calculate($order)->write_to(\@{$order->items});
|
||
|
|
||
|
my @items_with_not_delivered_qty =
|
||
|
grep {$_->qty > 0}
|
||
|
map {$_->qty($_->qty - $_->shipped_qty); $_}
|
||
|
@{$order->items_sorted};
|
||
|
|
||
|
my $delivery_order;
|
||
|
try {
|
||
|
$delivery_order = $order->convert_to_delivery_order();
|
||
|
die t8('no undelivered items') if !@items_with_not_delivered_qty;
|
||
|
$delivery_order = $order->convert_to_delivery_order(items => \@items_with_not_delivered_qty);
|
||
|
} catch {
|
||
|
push @failed, {ordnumber => $order->ordnumber, error => $_};
|
||
|
};
|
||
| locale/de/all | ||
|---|---|---|
|
'no shipping address' => 'keine Lieferadresse',
|
||
|
'no skonto_chart configured for taxkey #1 : #2 : #3' => 'Kein Skontokonto für Steuerschlüssel #1 : #2 : #3',
|
||
|
'no tax_id in acc_trans' => 'Keine tax_id in acc_trans',
|
||
|
'no undelivered items' => 'keine ungelieferten Positionen',
|
||
|
'not a valid DTVF file, expected field header start with \'Umsatz; (..) ;Konto;Gegenkonto\'' => 'Keine gültige DTVF-Datei, die erwartete Kopfzeile startet mit \'Umsatz; (..) ;Konto;Gegenkonto\'',
|
||
|
'not a valid DTVF file, expected first field in A1 \'DTVF\'' => 'Keine gültige DTVF-Datei, der erwarte Feldwert in A1 ist \'DTVF\'',
|
||
|
'not configured' => 'nicht konfiguriert',
|
||
| locale/en/all | ||
|---|---|---|
|
'no shipping address' => '',
|
||
|
'no skonto_chart configured for taxkey #1 : #2 : #3' => '',
|
||
|
'no tax_id in acc_trans' => '',
|
||
|
'no undelivered items' => '',
|
||
|
'not a valid DTVF file, expected field header start with \'Umsatz; (..) ;Konto;Gegenkonto\'' => '',
|
||
|
'not a valid DTVF file, expected first field in A1 \'DTVF\'' => '',
|
||
|
'not configured' => '',
|
||
Auch abrufbar als: Unified diff
Auftragsbericht: Umwandeln in LS: nur nicht gelieferte Mengen berücksichtigen