kivitendo/SL/DB/BankAccount.pm @ f9b53d4a
| 4fd22b56 | Sven Schöling | # 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;
|
||||
| 28fee2e2 | Geoffrey Richardson | use SL::DB::Manager::BankAccount;
|
||
use SL::DB::Helper::ActsAsList;
|
||||
| 4fd22b56 | Sven Schöling | |||
| 2d7e4203 | Sven Schöling | __PACKAGE__->meta->initialize;
|
||
| 28fee2e2 | Geoffrey Richardson | |||
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;
|
||||
| 7526e22e | Geoffrey Richardson | require SL::DB::Chart;
|
||
| 15f58ff3 | Geoffrey Richardson | my $chart = SL::DB::Manager::Chart->find_by( id => $chart_id );
|
||
if ( $chart ) {
|
||||
| 28fee2e2 | Geoffrey Richardson | 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};
|
||||
return @errors;
|
||||
}
|
||||
| 4fd22b56 | Sven Schöling | |||
| 15f58ff3 | Geoffrey Richardson | sub displayable_name {
|
||
my ($self) = @_;
|
||||
return join ' ', grep $_, $self->name, $self->bank, $self->iban;
|
||||
}
|
||||
| 4fd22b56 | Sven Schöling | 1;
|