target wird nicht mehr benötigt
[kivitendo-erp.git] / bin / mozilla / bankaccounts.pl
1 use strict;
2
3 use List::MoreUtils qw(any);
4 use POSIX qw(strftime);
5
6 use SL::BankAccount;
7 use SL::Chart;
8 use SL::Form;
9 use SL::ReportGenerator;
10
11 require "bin/mozilla/common.pl";
12 require "bin/mozilla/reportgenerator.pl";
13
14 sub bank_account_add {
15   $main::lxdebug->enter_sub();
16
17   bank_account_display_form('account' => {});
18
19   $main::lxdebug->leave_sub();
20 }
21
22 sub bank_account_edit {
23   $main::lxdebug->enter_sub();
24
25   my %params  = @_;
26   my $form    = $main::form;
27
28   my $account = SL::BankAccount->retrieve('id' => $params{id} || $form->{id});
29
30   bank_account_display_form('account' => $account);
31
32   $main::lxdebug->leave_sub();
33 }
34
35 sub bank_account_display_form {
36   $main::lxdebug->enter_sub();
37
38   my %params     = @_;
39   my $account    = $params{account} || {};
40   my $form       = $main::form;
41   my $locale     = $main::locale;
42
43   my $charts     = SL::Chart->list('link' => 'AP_paid');
44   my $label_sub  = sub { join '--', map { $_[0]->{$_} } qw(accno description) };
45
46   $form->{title} = $account->{id} ? $locale->text('Edit bank account') : $locale->text('Add bank account');
47
48   $form->header();
49   print $form->parse_html_template('bankaccounts/bank_account_display_form',
50                                    { 'CHARTS'      => $charts,
51                                      'account'     => $account,
52                                      'chart_label' => $label_sub,
53                                      'params'      => \%params });
54
55   $main::lxdebug->leave_sub();
56 }
57
58 sub bank_account_save {
59   $main::lxdebug->enter_sub();
60
61   my $form    = $main::form;
62   my $locale  = $main::locale;
63
64   my $account = $form->{account} && (ref $form->{account} eq 'HASH') ? $form->{account} : { };
65
66   if (any { !$account->{$_} } qw(account_number bank_code iban bic)) {
67     bank_account_display_form('account' => $account,
68                               'error'   => $locale->text('You have to fill in at least an account number, the bank code, the IBAN and the BIC.'));
69
70     $main::lxdebug->leave_sub();
71     return;
72   }
73
74   my $id = SL::BankAccount->save(%{ $account });
75
76   if ($form->{callback}) {
77     $form->redirect();
78
79   } else {
80     bank_account_edit('id' => $id);
81   }
82
83   $main::lxdebug->leave_sub();
84 }
85
86
87 sub bank_account_list {
88   $main::lxdebug->enter_sub();
89
90   my $form   = $main::form;
91   my $locale = $main::locale;
92
93   $form->{title}     = $locale->text('List of bank accounts');
94
95   $form->{sort}    ||= 'account_number';
96   $form->{sortdir}   = '1' if (!defined $form->{sortdir});
97
98   $form->{callback}  = build_std_url('action=bank_account_list', 'sort', 'sortdir');
99
100   my $accounts       = SL::BankAccount->list('sortorder' => $form->{sort},
101                                              'sortdir'   => $form->{sortdir});
102
103   my $report         = SL::ReportGenerator->new(\%main::myconfig, $form);
104
105   my $href           = build_std_url('action=bank_account_list');
106
107   my %column_defs = (
108     'account_number' => { 'text' => $locale->text('Account number'), },
109     'bank_code'      => { 'text' => $locale->text('Bank code'), },
110     'bank'           => { 'text' => $locale->text('Bank'), },
111     'bic'            => { 'text' => $locale->text('BIC'), },
112     'iban'           => { 'text' => $locale->text('IBAN'), },
113   );
114
115   my @columns = qw(account_number bank bank_code bic iban);
116
117   foreach my $name (@columns) {
118     my $sortdir                 = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir};
119     $column_defs{$name}->{link} = $href . "&sort=$name&sortdir=$sortdir";
120   }
121
122   $report->set_options('raw_bottom_info_text'  => $form->parse_html_template('bankaccounts/bank_account_list_bottom'),
123                        'std_column_visibility' => 1,
124                        'output_format'         => 'HTML',
125                        'title'                 => $form->{title},
126                        'attachment_basename'   => $locale->text('bankaccounts') . strftime('_%Y%m%d', localtime time),
127     );
128   $report->set_options_from_form();
129   $locale->set_numberformat_wo_thousands_separator(\%::myconfig) if lc($report->{options}->{output_format}) eq 'csv';
130
131   $report->set_columns(%column_defs);
132   $report->set_column_order(@columns);
133   $report->set_export_options('bank_account_list');
134   $report->set_sort_indicator($form->{sort}, $form->{sortdir});
135
136   my $edit_url = build_std_url('action=bank_account_edit', 'callback');
137
138   foreach my $account (@{ $accounts }) {
139     my $row = { map { $_ => { 'data' => $account->{$_} } } keys %{ $account } };
140
141     $row->{account_number}->{link} = $edit_url . '&id=' . E($account->{id});
142
143     $report->add_data($row);
144   }
145
146   $report->generate_with_headers();
147
148   $main::lxdebug->leave_sub();
149 }
150
151 sub dispatcher {
152   my $form = $main::form;
153
154   foreach my $action (qw(bank_account_save bank_account_delete)) {
155     if ($form->{"action_${action}"}) {
156       call_sub($action);
157       return;
158     }
159   }
160
161   $form->error($main::locale->text('No action defined.'));
162 }
163
164 1;