X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FBankAccount.pm;h=fba783c73ae9312a99c695d1525c98a3bc08136a;hb=1b032ef45d886922f1fe347ec234c9b0c8c50efd;hp=9ac755beb59b7c390977ceefc542ed4e5385313c;hpb=28fee2e2ebc6746bcfeb47c0318e79789ba1c850;p=kivitendo-erp.git

diff --git a/SL/DB/BankAccount.pm b/SL/DB/BankAccount.pm
index 9ac755beb..fba783c73 100644
--- a/SL/DB/BankAccount.pm
+++ b/SL/DB/BankAccount.pm
@@ -1,6 +1,3 @@
-# This file has been auto-generated only because it didn't exist.
-# Feel free to modify it at will; it will not be overwritten automatically.
-
 package SL::DB::BankAccount;
 
 use strict;
@@ -8,6 +5,7 @@ use strict;
 use SL::DB::MetaSetup::BankAccount;
 use SL::DB::Manager::BankAccount;
 use SL::DB::Helper::ActsAsList;
+use SL::DB::Helper::IBANValidation;
 
 __PACKAGE__->meta->initialize;
 
@@ -24,8 +22,9 @@ sub validate {
     # chart_id)
 
     my $chart_id = $self->chart_id;
-    my $chart = SL::DB::Chart->new( id => $chart_id );
-    if ( $chart->load(speculative => 1) ) {
+    require SL::DB::Chart;
+    my $chart = SL::DB::Manager::Chart->find_by( id => $chart_id );
+    if ( $chart ) {
       my $linked_bank = SL::DB::Manager::BankAccount->find_by( chart_id => $chart_id );
       if ( $linked_bank ) {
         if ( not $self->{id} or ( $self->{id} && $linked_bank->id != $self->{id} )) {
@@ -38,8 +37,15 @@ sub validate {
   };
 
   push @errors, $::locale->text('The IBAN is missing.') unless $self->{iban};
+  push @errors, $self->validate_ibans;
 
   return @errors;
 }
 
+sub displayable_name {
+  my ($self) = @_;
+
+  return join ' ', grep $_, $self->name, $self->bank, $self->iban;
+}
+
 1;