--- /dev/null
+package SL::BackgroundJob::ConvertTimeRecordings;
+
+use strict;
+
+use parent qw(SL::BackgroundJob::Base);
+
+use SL::DB::DeliveryOrder;
+use SL::DB::TimeRecording;
+
+use SL::Locale::String qw(t8);
+use DateTime;
+
+sub create_job {
+ $_[0]->create_standard_job('7 3 1 * *'); # every first day of month at 03:07
+}
+
+
+#
+# If job does not throw an error,
+# success in background_job_histories is 'success'.
+# It is 'failure' otherwise.
+#
+# Return value goes to result in background_job_histories.
+#
+sub run {
+ my ($self, $db_obj) = @_;
+
+ my $data;
+ $data = $db_obj->data_as_hash if $db_obj;
+
+ # from/to date from data. Defaults to begining and end of last month.
+ my $from_date;
+ my $to_date;
+ $from_date = DateTime->from_kivitendo($data->{from_date}) if $data->{from_date};
+ $to_date = DateTime->from_kivitendo($data->{to_date}) if $data->{to_date};
+ $from_date ||= DateTime->new( day => 1, month => DateTime->today_local->month, year => DateTime->today_local->year)->subtract(months => 1);
+ $to_date ||= DateTime->last_day_of_month(month => DateTime->today_local->month, year => DateTime->today_local->year)->subtract(months => 1);
+
+ $to_date->add(days => 1); # to get all from the to_date, because of the time part (15.12.2020 23.59 > 15.12.2020)
+
+ my %customer_where;
+ %customer_where = ('customer.customernumber' => $data->{customernumbers}) if 'ARRAY' eq ref $data->{customernumbers};
+
+ my $time_recordings = SL::DB::Manager::TimeRecording->get_all(where => [end_time => { ge_lt => [ $from_date, $to_date ]},
+ or => [booked => 0, booked => undef],
+ %customer_where],
+ with_objects => ['customer']);
+ my %time_recordings_by_customer_id;
+ push @{ $time_recordings_by_customer_id{$_->customer_id} }, $_ for @$time_recordings;
+
+ my @donumbers;
+ my $has_warnings;
+ foreach my $customer_id (keys %time_recordings_by_customer_id) {
+ my $do;
+ if (!eval {
+ $do = SL::DB::DeliveryOrder->new_from_time_recordings($time_recordings_by_customer_id{$customer_id});
+ 1;
+ }) {
+ $::lxdebug->message(LXDebug->WARN(),
+ "ConvertTimeRecordings: creating delivery order failed ($@) for time recording ids " . join ', ', map { $_->id } @{$time_recordings_by_customer_id{$customer_id}});
+ $has_warnings = 1;
+ }
+
+ if ($do) {
+ if (!SL::DB->client->with_transaction(sub {
+ $do->save;
+ $_->update_attributes(booked => 1) for @{$time_recordings_by_customer_id{$customer_id}};
+ 1;
+ })) {
+ $::lxdebug->message(LXDebug->WARN(),
+ "ConvertTimeRecordings: saving delivery order failed for time recording ids " . join ', ', map { $_->id } @{$time_recordings_by_customer_id{$customer_id}});
+ $has_warnings = 1;
+ } else {
+ push @donumbers, $do->donumber;
+ }
+ }
+ }
+
+ my $msg = t8('Number of deliveryorders created:');
+ $msg .= ' ';
+ $msg .= scalar @donumbers;
+ $msg .= ' (';
+ $msg .= join ', ', @donumbers;
+ $msg .= ').';
+ $msg .= ' ' . t8('There are Warnings.') if $has_warnings;
+ return $msg;
+}
+
+1;
+
+# possible data
+# from_date: 01.12.2020
+# to_date: 15.12.2020
+# customernumbers: [1,2,3]
+__END__
+
+=pod
+
+=encoding utf8
+
+=head1 NAME
+
+SL::BackgroundJob::ConvertTimeRecordings - Convert time recording
+entries into delivery orders
+
+=head1 SYNOPSIS
+
+Get all time recording entries for the given period and customer numbers
+and create delivery ordes out of that (using
+C<SL::DB::DeliveryOrder-E<gt>new_from_time_recordings>).
+
+=head1 CONFIGURATION
+
+Some data can be provided to configure this backgroung job.
+
+=over 4
+
+=item C<from_date>
+
+The date from which on time recordings should be collected. It defaults
+to the first day of the previous month.
+
+Example (format depends on your settings):
+
+from_date: 01.12.2020
+
+=item C<to_date>
+
+The date till which time recordings should be collected. It defaults
+to the last day of the previous month.
+
+Example (format depends on your settings):
+
+to_date: 15.12.2020
+
+=item C<customernumbers>
+
+An array with the customer numbers for which time recordings should
+be collected. If not given, time recordings for customers are
+collected. This is the default.
+
+Example (format depends on your settings):
+
+customernumbers: [c1,22332,334343]
+
+=back
+
+=head1 AUTHOR
+
+Bernd Bleßmann E<lt>bernd@kivitendo-premium.deE<gt>
+
+=cut
'There are #1 unfinished follow-ups of which #2 are due.' => 'Es gibt #1 Wiedervorlage(n), von denen #2 fällig ist/sind.',
'There are Bins defined in your Inventory.' => 'Unter Stammdaten/Waren sind Lagerplätze definiert.',
'There are Bins defined in your master data.' => 'Unter Stammdaten/Waren sind Lagerplätze defininert',
+ 'There are Warnings.' => 'Es gibt Warnungen.',
'There are bookings to the account 3803 after 01.01.2007. If you didn\'t change this account manually to 19% the bookings are probably incorrect.' => 'Das Konto 3803 wurde nach dem 01.01.2007 bebucht. Falls Sie dieses Konto nicht manuell auf 19% gestellt haben sind die Buchungen wahrscheinlich mit falscher Umsatzsteuer gebucht worden.',
'There are currently no delivery orders, or none matches your filter conditions.' => 'kein Lieferschein vorhanden',
'There are currently no open invoices, or none matches your filter conditions.' => 'Es gibt momentan keine offenen Rechnungen, oder keine erfüllt die Filterkriterien.',
projects / kivitendo-erp.git / commitdiff