kivitendo/SL/BackgroundJob/CloseQuotations.pm @ master
| 096d538a | Niklas Schmidt | package SL::BackgroundJob::CloseQuotations;
|
||
use strict;
|
||||
use parent qw(SL::BackgroundJob::Base);
|
||||
use SL::DB::Manager::Order;
|
||||
use SL::DB::Order::TypeData qw(:types);
|
||||
| 9805feec | Niklas Schmidt | use SL::Locale::String qw(t8);
|
||
| 096d538a | Niklas Schmidt | |||
sub run {
|
||||
my ($self, $job_obj) = @_;
|
||||
$self->{job_obj} = $job_obj;
|
||||
my $data = $job_obj->data_as_hash;
|
||||
my $dry_run = ($data->{dry_run}) ? 1 : 0;
|
||||
my $today = DateTime->today;
|
||||
my $years = $data->{years} // 1;
|
||||
my $end = $today->subtract(years => $years);
|
||||
my $quotations = SL::DB::Manager::Order->get_all(where => [
|
||||
| 9805feec | Niklas Schmidt | record_type => [ REQUEST_QUOTATION_TYPE(), SALES_QUOTATION_TYPE() ],
|
||
transdate => { le => $end },
|
||||
or => [ closed => 0, closed => undef],
|
||||
| 096d538a | Niklas Schmidt | ]);
|
||
my (@req_quos, @sal_quos);
|
||||
my %dispatch = (
|
||||
REQUEST_QUOTATION_TYPE() => \@req_quos,
|
||||
SALES_QUOTATION_TYPE() => \@sal_quos,
|
||||
);
|
||||
foreach my $quotation (@{ $quotations }) {
|
||||
push @{ $dispatch{$quotation->record_type} }, $quotation->quonumber;
|
||||
next if $dry_run;
|
||||
$quotation->closed(1);
|
||||
$quotation->save();
|
||||
}
|
||||
| 9805feec | Niklas Schmidt | return $dry_run
|
||
? t8('Request quotations not yet closed: #1 Sales quotations not yet closed: #2',
|
||||
join(', ', @req_quos), join(', ', @sal_quos))
|
||||
: t8('Request quotations closed: #1 Sales quotations closed: #2',
|
||||
join(', ', @req_quos), join(', ', @sal_quos));
|
||||
| 096d538a | Niklas Schmidt | }
|
||
1;
|
||||
__END__
|
||||
=encoding utf8
|
||||
=head1 NAME
|
||||
SL::BackgroundJob::CloseQuotations —
|
||||
Background job for closing all request and sales quotations older than a given number of years
|
||||
=head1 SYNOPSIS
|
||||
=head1 AUTHOR
|
||||
| 9805feec | Niklas Schmidt | Niklas Schmidt
|
||
| 096d538a | Niklas Schmidt | |||
=cut
|