SL/BankAccount.pm

   1 package SL::BankAccount;
   2
   3 use strict;
   4
   5 use SL::DBUtils;
   6
   7 sub save {
   8   $main::lxdebug->enter_sub();
   9
  10   my $self     = shift;
  11   my %params   = @_;
  12
  13   my $myconfig = \%main::myconfig;
  14   my $form     = $main::form;
  15
  16   my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
  17
  18   if (!$params{id}) {
  19     ($params{id}) = selectfirst_array_query($form, $dbh, qq|SELECT nextval('id')|);
  20     do_query($form, $dbh, qq|INSERT INTO bank_accounts (id, chart_id)
  21                              VALUES (?, (SELECT id FROM chart LIMIT 1))|, conv_i($params{id}));
  22   }
  23
  24   my $query =
  25     qq|UPDATE bank_accounts
  26        SET account_number = ?, bank_code = ?, bank = ?, iban = ?, bic = ?, chart_id = ?
  27        WHERE id = ?|;
  28   my @values = (@params{qw(account_number bank_code bank iban bic)}, conv_i($params{chart_id}), conv_i($params{id}));
  29
  30   do_query($form, $dbh, $query, @values);
  31
  32   $dbh->commit() unless ($params{dbh});
  33
  34   $main::lxdebug->leave_sub();
  35
  36   return $params{id};
  37 }
  38
  39 sub retrieve {
  40   $main::lxdebug->enter_sub();
  41
  42   my $self     = shift;
  43   my %params   = @_;
  44
  45   Common::check_params(\%params, qw(id));
  46
  47   my $myconfig = \%main::myconfig;
  48   my $form     = $main::form;
  49
  50   my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
  51
  52   my $query    = qq|SELECT * FROM bank_accounts WHERE id = ?|;
  53   my $account  = selectfirst_hashref_query($form, $dbh, $query, conv_i($params{id}));
  54
  55   $main::lxdebug->leave_sub();
  56
  57   return $account;
  58 }
  59
  60 sub list {
  61   $main::lxdebug->enter_sub();
  62
  63   my $self     = shift;
  64   my %params   = @_;
  65
  66   my $myconfig = \%main::myconfig;
  67   my $form     = $main::form;
  68
  69   my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
  70
  71   my %sort_columns = (
  72     'account_number'    => [ 'ba.account_number', ],
  73     'bank_code'         => [ 'ba.bank_code', 'ba.account_number', ],
  74     'bank'              => [ 'ba.bank',      'ba.account_number', ],
  75     'iban'              => [ 'ba.iban',      'ba.account_number', ],
  76     'bic'               => [ 'ba.bic',       'ba.account_number', ],
  77     'chart_accno'       => [ 'c.accno', ],
  78     'chart_description' => [ 'c.description', ],
  79     );
  80
  81   my %sort_spec = create_sort_spec('defs' => \%sort_columns, 'default' => 'bank', 'column' => $params{sortorder}, 'dir' => $params{sortdir});
  82
  83   my $query =
  84     qq|SELECT ba.id, ba.account_number, ba.bank_code, ba.bank, ba.iban, ba.bic, ba.chart_id,
  85          c.accno AS chart_accno, c.description AS chart_description
  86        FROM bank_accounts ba
  87        LEFT JOIN chart c ON (ba.chart_id = c.id)
  88        ORDER BY $sort_spec{sql}|;
  89
  90   my $results = selectall_hashref_query($form, $dbh, $query);
  91
  92   $main::lxdebug->leave_sub();
  93
  94   return $results;
  95 }
  96
  97
  98 1;