X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDev%2FPayment.pm;h=a093ed444114ed807875e6c78b29d996488439b1;hb=f94425b8eabeb99abcb6f0fb2759cc9ce3d49f3f;hp=d932013fa1f5e8796d7dc76eec2f1930d7d48733;hpb=59320b5a20c6fe1286f0460182d0a8566d19c0eb;p=kivitendo-erp.git

diff --git a/SL/Dev/Payment.pm b/SL/Dev/Payment.pm
index d932013fa..a093ed444 100644
--- a/SL/Dev/Payment.pm
+++ b/SL/Dev/Payment.pm
@@ -2,7 +2,8 @@ package SL::Dev::Payment;
 
 use strict;
 use base qw(Exporter);
-our @EXPORT = qw(create_payment_terms create_bank_account create_bank_transaction);
+our @EXPORT_OK = qw(create_payment_terms create_bank_account create_bank_transaction create_sepa_export create_sepa_export_item);
+our %EXPORT_TAGS = (ALL => \@EXPORT_OK);
 
 use SL::DB::PaymentTerm;
 use SL::DB::BankAccount;
@@ -81,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,