-# 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;
use SL::DB::MetaSetup::BankAccount;
+use SL::DB::Manager::BankAccount;
+use SL::DB::Helper::ActsAsList;
+use SL::DB::Helper::IBANValidation;
+
+__PACKAGE__->meta->initialize;
+
+sub validate {
+ my ($self) = @_;
+
+ my @errors;
+
+ if ( not $self->{chart_id} ) {
+ push @errors, $::locale->text('There is no connected chart.');
+ } else {
+ # check whether the assigned chart is valid or is already being used by
+ # another bank account (there is also a UNIQUE database constraint on
+ # chart_id)
+
+ my $chart_id = $self->chart_id;
+ 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} )) {
+ push @errors, $::locale->text('The account #1 is already being used by bank account #2.', $chart->displayable_name, $linked_bank->{name});
+ };
+ };
+ } else {
+ push @errors, $::locale->text('The chart is not valid.');
+ };
+ };
+
+ push @errors, $::locale->text('The IBAN is missing.') unless $self->{iban};
+ push @errors, $self->validate_ibans;
+
+ return @errors;
+}
+
+sub displayable_name {
+ my ($self) = @_;
-# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
-__PACKAGE__->meta->make_manager_class;
+ return join ' ', grep $_, $self->name, $self->bank, $self->iban;
+}
1;