Warnung unterdrücken die den Test fehlschlagen lässt.
[kivitendo-erp.git] / SL / Taxkeys.pm
1 package Taxkeys;
2
3 use Memoize;
4
5 use SL::DBUtils;
6
7 use strict;
8
9 sub new {
10   my $type = shift;
11
12   my $self = {};
13
14   bless $self, $type;
15
16   return $self->_init();
17 }
18
19 sub DESTROY {
20   my $self = shift;
21
22   $self->_finish_statements();
23 }
24
25 sub _init {
26   my $self = shift;
27
28   $self->{handles} = { };
29   $self->{queries} = { };
30
31   memoize 'get_tax_info';
32   memoize 'get_full_tax_info';
33
34   return $self;
35 }
36
37 sub _finish_statements {
38   $main::lxdebug->enter_sub();
39
40   my $self = shift;
41
42   foreach my $idx (keys %{ $self->{handles} }) {
43     $self->{handles}->{$idx}->finish();
44     delete $self->{handles}->{$idx};
45   }
46
47   $main::lxdebug->leave_sub();
48 }
49
50 sub get_tax_info {
51   $main::lxdebug->enter_sub();
52
53   my $self     = shift;
54   my %params   = @_;
55
56   Common::check_params(\%params, qw(transdate taxkey));
57
58   my $myconfig = \%main::myconfig;
59   my $form     = $main::form;
60
61   if (!$self->{handles}->{get_tax_info}) {
62     $self->{queries}->{get_tax_info} = qq|
63       SELECT t.rate AS taxrate, t.taxnumber, t.taxdescription, t.chart_id AS taxchart_id,
64         c.accno AS taxaccno, c.description AS taxaccount
65       FROM taxkeys tk
66       LEFT JOIN tax t   ON (tk.tax_id  = t.id)
67       LEFT JOIN chart c ON (t.chart_id = c.id)
68       WHERE tk.id =
69         (SELECT id
70          FROM taxkeys
71          WHERE (taxkey_id = ?)
72            AND (startdate <= ?)
73          ORDER BY startdate DESC
74          LIMIT 1)
75 |;
76
77     $self->{handles}->{get_tax_info} = prepare_query($form, $params{dbh} || $form->get_standard_dbh($myconfig), $self->{queries}->{get_tax_info});
78   }
79
80   my $sth = $self->{handles}->{get_tax_info};
81   do_statement($form, $sth, $self->{queries}->{get_tax_info}, $params{taxkey}, $params{transdate});
82
83   my $ref = $sth->fetchrow_hashref() || { };
84
85   $main::lxdebug->leave_sub();
86
87   return $ref;
88 }
89
90 sub get_full_tax_info {
91   $main::lxdebug->enter_sub();
92
93   my $self     = shift;
94   my %params   = @_;
95
96   Common::check_params(\%params, qw(transdate));
97
98   my $myconfig = \%main::myconfig;
99   my $form     = $main::form;
100
101   my %tax_info     = (
102     'taxkeys'      => { },
103     'taxchart_ids' => { },
104     );
105
106   my @all_taxkeys = map { $_->{taxkey} } (selectall_hashref_query($form, $form->get_standard_dbh(), qq|SELECT DISTINCT taxkey FROM tax WHERE taxkey IS NOT NULL|));
107
108   foreach my $taxkey (@all_taxkeys) {
109     my $ref = $self->get_tax_info('transdate' => $params{transdate}, 'taxkey' => $taxkey);
110
111     $tax_info{taxkeys}->{$taxkey}            = $ref;
112     $tax_info{accnos}->{$ref->{taxchart_id}} = $ref if ($ref->{taxchart_id});
113   }
114
115   $main::lxdebug->leave_sub();
116
117   return %tax_info;
118 }
119
120 1;