Revision 416e739a
Von Tamino Steinert vor 11 Monaten hinzugefügt
| SL/BackgroundJob/CreatePeriodicInvoices.pm | ||
|---|---|---|
|
if (!$self->{db_obj}->db->with_transaction(sub {
|
||
|
1; # make Emacs happy
|
||
|
|
||
|
$invoice = SL::DB::Invoice->new_from($order, honor_recurring_billing_mode => 1);
|
||
|
$invoice = SL::DB::Invoice->new_from($order);
|
||
|
|
||
|
my $intnotes = $invoice->intnotes ? $invoice->intnotes . "\n\n" : '';
|
||
|
$intnotes .= t8("Automatic created invoice on #1.", DateTime->today_local->to_lxoffice);
|
||
| SL/DB/Invoice.pm | ||
|---|---|---|
|
my $items = delete($params{items}) || $source->items_sorted;
|
||
|
my %item_parents;
|
||
|
|
||
|
if ($params{honor_recurring_billing_mode}) {
|
||
|
$items = [
|
||
|
grep { !$_->can('recurring_billing_mode')
|
||
|
|| ($_->recurring_billing_mode eq 'always')
|
||
|
|| (($_->recurring_billing_mode eq 'once') && !$_->recurring_billing_invoice_id)
|
||
|
} @{ $items }
|
||
|
];
|
||
|
}
|
||
|
|
||
|
my @items = map {
|
||
|
my $source_item = $_;
|
||
|
my $source_item_id = $_->$item_parent_id_column;
|
||
Auch abrufbar als: Unified diff
S:D:Invoice: Entferne nicht gebrauchte Logik für Wiederkehrende Rechnung