Revision 80db1ffd
Von Tamino Steinert vor etwa 2 Monaten hinzugefügt
SL/BackgroundJob/CreatePeriodicInvoices.pm | ||
---|---|---|
22 | 22 |
use SL::Mailer; |
23 | 23 |
use SL::Util qw(trim); |
24 | 24 |
use SL::System::Process; |
25 |
use SL::Locale::String qw(t8); |
|
25 | 26 |
|
26 | 27 |
sub create_job { |
27 | 28 |
$_[0]->create_standard_job('0 3 1 * *'); # first day of month at 3:00 am |
... | ... | |
193 | 194 |
$invoice = SL::DB::Invoice->new_from($order, honor_recurring_billing_mode => 1); |
194 | 195 |
|
195 | 196 |
my $intnotes = $invoice->intnotes ? $invoice->intnotes . "\n\n" : ''; |
196 |
$intnotes .= "Automatisch am " . DateTime->today_local->to_lxoffice . " erzeugte Rechnung";
|
|
197 |
$intnotes .= t8("Automatic created invoice on #1.", DateTime->today_local->to_lxoffice);
|
|
197 | 198 |
|
198 | 199 |
$invoice->assign_attributes( |
199 | 200 |
intnotes => $intnotes, |
... | ... | |
489 | 490 |
Iterate over all periodic invoice configurations, extend the end date if |
490 | 491 |
applicable, get all open orders from the |
491 | 492 |
|
492 |
=head1 TOTO |
|
493 |
|
|
494 |
=over 4 |
|
495 |
|
|
496 |
=item * |
|
497 |
|
|
498 |
Strings like month names are hardcoded to German in this file. |
|
499 |
|
|
500 |
=back |
|
501 |
|
|
502 | 493 |
=head1 AUTHOR |
503 | 494 |
|
504 | 495 |
Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt> |
Auch abrufbar als: Unified diff
S:B:CreatePeriodicInvoices: Übersetze hinzugefügte interne Notiz