projekt kivitendo

    qq|iban = ?, | .

    qq|bic = ?, | .

    $form->{iban},

    $form->{bic},

    qq|  iban = ?, | .

    qq|  bic = ?, | .

    $form->{iban},

    $form->{bic},

sub get_bank_info {

  $main::lxdebug->enter_sub();

  my $self     = shift;

  my %params   = @_;

  Common::check_params(\%params, qw(vc id));

  my $myconfig = \%main::myconfig;

  my $form     = $main::form;

  my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);

  my $table        = $params{vc} eq 'customer' ? 'customer' : 'vendor';

  my @ids          = ref $params{id} eq 'ARRAY' ? @{ $params{id} } : ($params{id});

  my $placeholders = ('?') x scalar @ids;

  my $query        = qq|SELECT id, name, account_number, bank, bank_code, iban, bic

                        FROM ${table}

                        WHERE id IN (${placeholders})|;

  my $result       = selectall_hashref_query($form, $dbh, $query, map { conv_i($_) } @ids);

  if (ref $params{id} eq 'ARRAY') {

    $result = { map { $_->{id} => $_ } @{ $result } };

  } else {

    $result = $result->[0] || { 'id' => $params{id} };

  }

  $main::lxdebug->leave_sub();

  return $result;

}