kivitendo/SL/Taxkeys.pm @ 5f783ffe
| eb0c10b0 | Moritz Bunkus | package Taxkeys;
|
|
use strict;
|
|||
use Memoize;
|
|||
use SL::DBUtils;
|
|||
sub new {
|
|||
my $type = shift;
|
|||
my $self = {};
|
|||
bless $self, $type;
|
|||
return $self->_init();
|
|||
}
|
|||
sub DESTROY {
|
|||
my $self = shift;
|
|||
$self->_finish_statements();
|
|||
}
|
|||
sub _init {
|
|||
my $self = shift;
|
|||
$self->{handles} = { };
|
|||
$self->{queries} = { };
|
|||
memoize 'get_tax_info';
|
|||
memoize 'get_full_tax_info';
|
|||
return $self;
|
|||
}
|
|||
sub _finish_statements {
|
|||
$main::lxdebug->enter_sub();
|
|||
my $self = shift;
|
|||
foreach my $idx (keys %{ $self->{handles} }) {
|
|||
$self->{handles}->{$idx}->finish();
|
|||
delete $self->{handles}->{$idx};
|
|||
}
|
|||
$main::lxdebug->leave_sub();
|
|||
}
|
|||
sub get_tax_info {
|
|||
$main::lxdebug->enter_sub();
|
|||
my $self = shift;
|
|||
my %params = @_;
|
|||
Common::check_params(\%params, qw(transdate taxkey));
|
|||
my $myconfig = \%main::myconfig;
|
|||
my $form = $main::form;
|
|||
if (!$self->{handles}->{get_tax_info}) {
|
|||
$self->{queries}->{get_tax_info} = qq|
|
|||
SELECT t.rate AS taxrate, t.taxnumber, t.taxdescription, t.chart_id AS taxchart_id,
|
|||
c.accno AS taxaccno, c.description AS taxaccount
|
|||
FROM taxkeys tk
|
|||
LEFT JOIN tax t ON (tk.tax_id = t.id)
|
|||
LEFT JOIN chart c ON (t.chart_id = c.id)
|
|||
WHERE tk.id =
|
|||
(SELECT id
|
|||
FROM taxkeys
|
|||
WHERE (taxkey_id = ?)
|
|||
AND (startdate <= ?)
|
|||
ORDER BY startdate DESC
|
|||
LIMIT 1)
|
|||
|;
|
|||
$self->{handles}->{get_tax_info} = prepare_query($form, $params{dbh} || $form->get_standard_dbh($myconfig), $self->{queries}->{get_tax_info});
|
|||
}
|
|||
my $sth = $self->{handles}->{get_tax_info};
|
|||
do_statement($form, $sth, $self->{queries}->{get_tax_info}, $params{taxkey}, $params{transdate});
|
|||
my $ref = $sth->fetchrow_hashref() || { };
|
|||
$main::lxdebug->leave_sub();
|
|||
return $ref;
|
|||
}
|
|||
sub get_full_tax_info {
|
|||
$main::lxdebug->enter_sub();
|
|||
my $self = shift;
|
|||
my %params = @_;
|
|||
Common::check_params(\%params, qw(transdate));
|
|||
my $myconfig = \%main::myconfig;
|
|||
my $form = $main::form;
|
|||
my %tax_info = (
|
|||
'taxkeys' => { },
|
|||
'taxchart_ids' => { },
|
|||
);
|
|||
my @all_taxkeys = map { $_->{taxkey} } (selectall_hashref_query($form, $form->get_standard_dbh(), qq|SELECT DISTINCT taxkey FROM tax WHERE taxkey IS NOT NULL|));
|
|||
foreach my $taxkey (@all_taxkeys) {
|
|||
my $ref = $self->get_tax_info('transdate' => $params{transdate}, 'taxkey' => $taxkey);
|
|||
$tax_info{taxkeys}->{$taxkey} = $ref;
|
|||
$tax_info{accnos}->{$ref->{taxchart_id}} = $ref if ($ref->{taxchart_id});
|
|||
}
|
|||
$main::lxdebug->leave_sub();
|
|||
return %tax_info;
|
|||
}
|
|||
1;
|