X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d51b3011755b4a7e006f433d9fe5836a22a69638..ae2cc55131fd76e9e431278bf47bd67e64edceb0:/SL/Dev/Payment.pm

diff --git a/SL/Dev/Payment.pm b/SL/Dev/Payment.pm
index 0fdb3a4aa..a093ed444 100644
--- a/SL/Dev/Payment.pm
+++ b/SL/Dev/Payment.pm
@@ -82,6 +82,7 @@ sub create_bank_transaction {
    $bank_chart = SL::DB::Manager::Chart->find_by(description => 'Bank') or die "Can't find bank chart";
  }
  my $bank_account = SL::DB::Manager::BankAccount->find_by( chart_id => $bank_chart->id );
+ die "bank account missing" unless $bank_account;
 
  my $bt = SL::DB::BankTransaction->new(
    local_bank_account_id => $bank_account->id,