kivitendo/SL/BackgroundJob/SetBankAccountsMasterData.pm @ 9b65ede6
| ca18593d | Jan Büren | package SL::BackgroundJob::SetBankAccountsMasterData;
|
|
use strict;
|
|||
use parent qw(SL::BackgroundJob::Base);
|
|||
use SL::DBUtils;
|
|||
sub run {
|
|||
my ($self, $db_obj) = @_;
|
|||
my $data = $db_obj->data_as_hash;
|
|||
die "No valid integer for months" if $data->{months} && $data->{months} !~ /^[1-9][0-9]*$/;
|
|||
die "No valid value for overwrite" if $data->{overwrite} && $data->{overwrite} !~ /^(0|1)$/;
|
|||
die "No valid value for overwrite" if $data->{dry_run} && $data->{dry_run} !~ /^(0|1)$/;
|
|||
$self->{dry_run} = $data->{dry_run} ? 1 : 0;
|
|||
$self->{overwrite} = $data->{overwrite} ? 1 : 0;
|
|||
$self->{months} = $data->{months} ? $data->{months} : 6;
|
|||
my (@updates_vendor, @updates_customer);
|
|||
foreach my $vc_type (qw(customer vendor)) {
|
|||
my $bank_vc = _get_bank_data_vc(vc => $vc_type, months => $self->{months});
|
|||
foreach my $bank_vc_entry (@{ $bank_vc }) {
|
|||
if ($bank_vc_entry->{remote_account_number}) {
|
|||
my $vc = $vc_type eq 'customer'
|
|||
? SL::DB::Customer->new(id => $bank_vc_entry->{customer_id})->load
|
|||
: SL::DB::Vendor ->new(id => $bank_vc_entry->{vendor_id}) ->load;
|
|||
next if $vc->can('mandate_date_of_signature') && $vc->mandate_date_of_signature;
|
|||
next if $vc->iban && !$self->{overwrite};
|
|||
push @updates_customer, $vc->name . " -> " . $bank_vc_entry->{remote_account_number} if $vc_type eq 'customer';
|
|||
push @updates_vendor, $vc->name . " -> " . $bank_vc_entry->{remote_account_number} if $vc_type eq 'vendor';
|
|||
next if $self->{dry_run};
|
|||
$vc->update_attributes(iban => $bank_vc_entry->{remote_account_number}, bic => $bank_vc_entry->{remote_bank_code});
|
|||
}
|
|||
}
|
|||
}
|
|||
my $msg = $self->{dry_run} ? "DRY RUN Updates: " : "Updates: ";
|
|||
$msg .= "Customer: " . join (',', @updates_customer) . "\n Vendors: " . join (',', @updates_vendor);
|
|||
return $msg;
|
|||
}
|
|||
sub _get_bank_data_vc {
|
|||
my (%params) = @_;
|
|||
die "Need valid vc param, got" . $params{vc} unless $params{vc} && $params{vc} =~ /^(customer|vendor)$/;
|
|||
die "Need valid months param, got" . $params{months} unless $params{months} && $params{months} =~ /^[1-9][0-9]*$/;
|
|||
my $vc_id = $params{vc} . '_id';
|
|||
my $arap = $params{vc} eq 'customer' ? 'ar'
|
|||
: $params{vc} eq 'vendor' ? 'ap'
|
|||
: undef;
|
|||
die "Invalid state" unless $arap;
|
|||
my $dbh = SL::DB->client->dbh;
|
|||
my $query = <<SQL;
|
|||
SELECT bt.remote_bank_code, bt.remote_account_number, $vc_id
|
|||
FROM $arap
|
|||
LEFT JOIN bank_transaction_acc_trans bta on id = bta.${arap}_id
|
|||
LEFT JOIN bank_transactions bt on bt.id = bta.bank_transaction_id
|
|||
WHERE $vc_id in (select distinct $vc_id from $arap where transdate > now() - interval '$params{months} month' AND paid = amount)
|
|||
AND bta.${arap}_id is not NULL
|
|||
GROUP BY bt.remote_account_number,bt.remote_bank_code, $vc_id
|
|||
ORDER BY $vc_id
|
|||
SQL
|
|||
my $result = selectall_hashref_query($::form, $dbh, $query);
|
|||
return $result;
|
|||
}
|
|||
1;
|
|||
__END__
|
|||
=encoding utf8
|
|||
=head1 NAME
|
|||
SL::BackgroundJob::SetBankAccountsMasterData —
|
|||
Background job for setting IBAN and BIC for Customers and Vendors
|
|||
regarding to the booked bank transactions for this companies.
|
|||
=head1 SYNOPSIS
|
|||
This background job searches all invoices which are paid by bank transactions
|
|||
and gets the IBAN and BIC for those transactions.
|
|||
If the IBAN and BICs in the master data are not yet set, they will be
|
|||
set via this background jobs.
|
|||
By default the job only adds IBAN and BIC for entries which have no
|
|||
manual entry before.
|
|||
The job accepts three parameters:
|
|||
C<dry_run> -> No data will be changed, instead the changes will be
|
|||
written to the job journal.
|
|||
C<months> -> The intervall in months for which invoices are fetched, defaults
|
|||
to 6 (months).
|
|||
C<overwrite> -> If set to 1 values in the master data will be changed
|
|||
even if they are already exists, except if a mandate_date_of_signature is
|
|||
found. Those data sets won't be changed because kivitendo assumes that there
|
|||
is a direct debit contract for exactly this account with this specific company.
|
|||
The job is deactivated by default. Administrators of installations
|
|||
where such a feature is wanted have to create a job entry manually.
|
|||
=head1 AUTHOR
|
|||
Jan Büren E<lt>jan@kivitendo.deE<gt>
|
|||
=cut
|